Dll Call Problem

[kizsdet]

hi guys..can you help me with this one..i have a dll written in vb6..

Public Function addMe(x As Integer, y As Integer) As Integer

addMe = x + y

End Function

how can i call it from autoit?

here's what i have tried so far..

dim $test
$test = DllCall("Project1.dll","int","addme","int",1,"int",2)
msgbox("","try",$test)

thanks in advance..

[JohnOne]

Dont know anything about vb but

dim $test 
$test = DllCall("Project1.dll","int","addme","int",1,"int",2) 
If @error then 
exit 
endif  
msgbox("","try",$test[0]) ; dllcall returns an array

Edited January 24, 2011 by JohnOne

[kizsdet]

thanks for the reply sir but still doesn't work..

here's the error found after removing the error handler..

Subscript used with non-Array variable.:
msgbox("","try",$test[0])
msgbox("","try",$test^ ERROR

[JohnOne]

You shouldnt get an error really, it should exit.

dim $test 
$test = DllCall("Project1.dll","int","addme","int",1,"int",2) 
If @error then 
msgbox("","try",@error); look in the helpfile for @error codes for dllcall
exit 
endif  
msgbox("","try",$test[0]) ; dllcall returns an array

[kizsdet]

yes, its just exiting and not doing the dll function that why i remove the error handler to find whats the error.

anyone who got solution for this?

[trancexx]

yes, its just exiting and not doing the dll function that why i remove the error handler to find whats the error.

anyone who got solution for this?

Get out of the freaking box you're in.

Run the code JohnOne gave you.

[Yashied]

"addme" => "addMe"

$test = DllCall("Project1.dll", "int", "addMe", "int", 1, "int", 2)
If Not @error Then
    MsgBox("", "try", $test[0])
EndIf