Bitmap suchen

[Saihmo]

Wie kann ich eine Bitmap auf dem Desktop suchen?
Sodass es zum Beispiel:
Das Icon von Google Chrome suchen und drauf drückt.

Danke schon mal.

[Ludder231]

Mach sowas lieber mit AutoIT Da gibts sogar ne funktion für....

[Requi]

Originally Posted by Ludder231

Mach sowas lieber mit AutoIT Da gibts sogar ne funktion für....

Oder man benutzt die ImageSearch DLL.
AutoIt macht da auch nichts anderes, da es native Funktionen sind.

[Jay Niize]

Du kannst die SuFu auch verwenden.

Schau mal hier :

[Saihmo]

Originally Posted by .Zeraki'

Du kannst die SuFu auch verwenden.

Schau mal hier :

Das geht nicht habe ich schon versucht.

[Requi]

Originally Posted by Saihmo

Das geht nicht habe ich schon versucht.

Was geht nicht? Genaue Fehlerbeschreibung.
Schon mit Breakpoints gedebugged?

[Saihmo]

Originally Posted by Requi

Was geht nicht? Genaue Fehlerbeschreibung.
Schon mit Breakpoints gedebugged?

Imports System.Runtime.InteropServices
Imports AutoItX3Lib

Public Class Form1
Dim a As New AutoItX3Lib.AutoItX3
Dim AutoIt As New AutoItX3Lib.AutoItX3
Dim Toleranz As Integer = 0
Dim Fenstername As String = "WDExpress.exe"
Dim Bild As String
Dim Bild2 = Bild
Public Function ImageSearch(ByVal x1 As Integer, ByVal y1 As Integer, ByVal right As Integer, ByVal bottom As Integer, ByVal findImage As String) As String
End Function
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim AutoIt As New AutoItX3Lib.AutoItX3
Dim p As Point = ImageSearch("E:\Users\Saimo\Desktop\vstudio.png", True)
AutoIt.MouseClick("Left", p.X, p.Y, 2)
End Sub
Function ImageSearch(ByVal Bild As String, Optional ByVal Mitte As Boolean = True) As Point
If Not IO.File.Exists(Bild) Then
MessageBox.Show("Die Datei " & Bild2 & "konnte nicht gefunden werden. Das Programm wird beendet.")
End
End If
If Toleranz > 0 Then Bild = "*" & Toleranz & " " & Bild
Dim x As String = ImageSearch(a.WinGetCaretPosX(), a.WinGetCaretPosY(), a.WinGetCaretPosX() + a.WinGetClientSizeWidth(Fenstername), a.WinGetCaretPosY() + a.WinGetClientSizeHeight(Fenstername), Bild)

If x = "0" Then
MessageBox.Show("Das Bild " & Bild2 & " konnte nicht auf dem Bildschirm gefunden werden. Das Programm wird beendet.")
End
Else
Dim y = x.Split("|")

If Mitte = True Then
Return Point.Subtract(New Point(y(1), y(2)), New Size(y(3) \ -2, y(4) \ -2))
Else
Return New Point(y(1), y(2))
End If
End If
End Function
End Class

Ich bekomme diesen Fehler:

 Spoiler

Ich verstehe nicht was das bedeuten soll.
Habe es auch mit verschiedenen Bildern versucht.