Multi-Threading Autolt UDF

$Handle1 = DllCallbackRegister("ThreadTest1", "int", "ptr")

$Handle2 = DllCallbackRegister("ThreadTest2", "int", "ptr")

Func CreateThread($Handle, $struct)

$return = DllCall("kernel32.dll", "hwnd", "CreateThread", "ptr", 0, "dword", 0, "long", DllCallbackGetPtr($Handle), "ptr", DllStructGetPtr($struct), "long", 0, "int*", 0)

Return $return[0]

EndFunc ;==>CreateThread

$Struct1 = DllStructCreate("Char[200];int")

DllStructSetData($Struct1, 1, 10)

CreateThread($Handle1, $Struct1)

$Struct2 = DllStructCreate("Char[200];int")

DllStructSetData($Struct2, 1, 10)

CreateThread($Handle2, $Struct2)

While 1

Sleep(10)

WEnd

Func ThreadTest1($x)

$y = DllStructCreate("char[200];int", $x)

$i = 0

While 1

MsgBox(0, $i, "Thread #1")

$i += 1

WEnd

EndFunc ;==>ThreadTest1

Func ThreadTest2($x)

$y = DllStructCreate("char[200];int", $x)

$i = 0

While 1

MsgBox(0, $i, "Thread #2")

$i += 1

WEnd

EndFunc ;==>ThreadTest2