Bitmap suchen

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