[HELP] ImageSearchDLL.dll in VB.NET

[ax5]

Iäm trying to use the ImageSearchDLL.dll file made in autoit but in vb.net, i have no errors in my code but when i press the button the application terminates itself and nothing happens. Why ?

Both the window and the image exists under the app is running. the dll files i in the bin folder at the space location as the application.exe

Imports System.Runtime.InteropServices
Imports System
Imports AutoItX3Lib

Public Class Form1
<DllImport("ImageSearchDLL.dll", EntryPoint:="ImageSearch")> Public Shared Function ImageSearch(ByVal x1 As Integer, ByVal y1 As Integer, ByVal x2 As Integer, ByVal y2 As Integer, ByVal str As String) As String
End Function

Public Shared Function FindImage(ByVal L As Integer, ByVal T As Integer, ByVal R As Integer, ByVal B As Integer, ByVal F As String) As Integer()
Dim ARTN As Integer() = New Integer(4) {}
'MessageBox.Show(R.ToString());
Dim rtn As String = ImageSearch(L, T, R, B, F)
' MessageBox.Show(rtn)
If rtn = "0" Then
aRTN(0) = 0
Return aRTN
Else
Dim coords As String() = rtn.Split("|"c)
'split return value of imagesearch into array
'int[] aRTN = new int[5]; //declare int array with enough elements
aRTN(0) = Integer.Parse(coords(0))
'convert the string values into ints
aRTN(1) = Integer.Parse(coords(1))
aRTN(2) = Integer.Parse(coords(2))
aRTN(3) = Integer.Parse(coords(3))
aRTN(4) = Integer.Parse(coords(4))
Return aRTN
End If
End Function


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim x1 As Integer
Dim y1 As Integer
Dim res() As Integer = FindImage(x1, y1, Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, "C:\launcher.play.jpg")
Dim s As New AutoItX3Lib.AutoItX3
s.MouseClick("LEFT", res(1), res(2))
End Sub
End Class

[tolio]

use step by step debugging to find the command that causes the termination

[ax5]

Originally Posted by tolio

use step by step debugging to find the command that causes the termination

yeah i did that now and this line is not loading

Public Shared Function FindImage(ByVal L As Integer, ByVal T As Integer, ByVal R As Integer, ByVal B As Integer, ByVal F As String) As Integer()

Dim ARTN As Integer() = New Integer(4) {}

MessageBox.Show(L.ToString() & " - " & T.ToString() & " - " & R.ToString() & " - " & B.ToString() & " - " & F.ToString())

Dim rtn As String = ImageSearch(L, T, R, B, F) ' <- nothing happens here

MessageBox.Show(rtn)

If rtn = "0" Then
aRTN(0) = 0
Return aRTN
Else
Dim coords As String() = rtn.Split("|"c)
'split return value of imagesearch into array
'int[] aRTN = new int[5]; //declare int array with enough elements
aRTN(0) = Integer.Parse(coords(0))
'convert the string values into ints
aRTN(1) = Integer.Parse(coords(1))
aRTN(2) = Integer.Parse(coords(2))
aRTN(3) = Integer.Parse(coords(3))
aRTN(4) = Integer.Parse(coords(4))
Return aRTN
End If
End Function

dont know why