[HOWTO] ImageSearch - Funktion in VB nutzen

[xmanix]

Zuerst müsst ihr die Datei ImagSearch.dll herunterladen (siehe Anhang) und im /bin/debug Ordner eures Projektes ablegen oder auch in "C:\\Windows\System32".

Danach müsst ihr folgenden Code zu eurem Projekt (am Besten in einem Modul) hinzufügen.

<DllImport("ImageSearchDLL.dll")> 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
Function ImageSearch(ByVal Bild As String, Optional ByVal Mitte As Boolean = True) As Point
Dim Bild2 = Bild

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

Handhabung:

Dim p as Point = ImageSearch("Bild.png")

Falls die Koordinaten der linken oberen Ecke des gefundenen Bildes benötigt werden:

Dim p as Point = ImageSearch("Bild.png",True)

Die Koordinaten können dann z.B. folgendermaßen aufgerufen werden:

Messagebox.Show(String.Format("X: {0} Y: {1}",p.X,p.Y))

[antihackers]

ein einfaches Copy und past tut erklär mal was man genau macht was die codes bedeuten usw

[xmanix]

Copy und Paste... Stimmt... aber aus dem sourecodes meines Shoperstellbots^^

[xlx00xlx]

was ist imagesearch^^?

[xmanix]

Die ImagSearch - Funktion sucht den Bildschirm nach den angegebenen Bild ab und liefert dann die Koordinaten dieses Bildes zurück.

[Avarius210]

Leider wurde hier nichts erklärt...
Wäre schön für die Anfänger, die das noch nicht so lesen können, den Code zu erklären.

P.S.: ImageSearch ist eine nette Sache ;D

[xmanix]

da gibts auch net viel zu erklären^^
man muss nuss nur die autoitx dll einbinen (-> suchfunktion) und dann kann man schon auf die gefundenen koordinaten klicken

[Jay Niize]

geht das auch, wenn das programm das bild gefunden hat, das er z.B doppelklick macht?

[xmanix]

also erstens die autoitx dll einbinden (siehe

und dann einfach folgenden code benutzen

Dim AutoIt As New AutoItX3Lib.AutoItX3
Dim p as Point = ImageSearch("Bild.png",True)
AutoIt.MouseClick("Left",p.X,p.Y,2)

[Jay Niize]

hoffe mal das wird was!

#Added to List

[Macan97]

danke das hab ich schon gesucht

[yuri1983]

Hallo Leute,
ich bin gerade auf dieses interessante Thema gestoßen,
da ich noch ziemlich neu in VB bin wollte ich mal was Fragen.

Ich arbeite mit VB 2008 und habe wie beschrieben denn Code in ein Modul eingefügt, aber da hat dann VB was zu meckern.

Er gibt mir Fehler aus,
wie zum Beispiel:

Fehler 5 Der Name "Toleranz" wurde nicht deklariert

Fehler 11 Der Name "Fenstername" wurde nicht deklariert

Fehler 7 Der Name "a" wurde nicht deklariert

Da ich nicht weiß was und wie das alles verwendet wird bzw.
in welcher Form ich das deklarieren soll.

Wollte ich hier mal nachfragen ob jemand damit schon gearbeitet hat,
und ob er mir das erklären kann.

Thanks werden dann natürlich auch verteilt,
eure Hilfe soll ja nicht um sonst sein.

[Sinlyu]

kann mal jemand einen funktionirenden Code Posten ;/

[ax5]

I'm having problems with this

[​Tension]

Would be helpful if you would post the picture in a higher resolution. ( epvpimg.com )