Advertisement
Guest User

Untitled

a guest
Oct 7th, 2017
59
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 0.83 KB | None | 0 0
  1. _ThreadStart("_Thread1")
  2. _ThreadStart("_Thread2")
  3.  
  4. MsgBox(0, "", "Mainscript")
  5.  
  6. Func _Thread1($vDummy)
  7.     MsgBox(0, "", "Thread 1")
  8. EndFunc   ;==>_Thread1
  9.  
  10. Func _Thread2($vDummy)
  11.     MsgBox(0, "", "Thread 2")
  12. EndFunc   ;==>_Thread2
  13.  
  14. Func _ThreadStart($sFunctionName)
  15.     Local $h1, $h2, $h3 = DllStructCreate("hwnd[1]"), $h4 = DllStructGetPtr($h3)
  16.  
  17.     $h1 = DllCallbackRegister($sFunctionName, "int", "int")
  18.     $h2 = DllStructCreate("int")
  19.     $h3 = DllCall("Kernel32.dll", "hwnd", "CreateThread", "ptr", 0, _
  20.             "int", 0, _
  21.             "ptr", DllCallbackGetPtr($h1), _
  22.             "int", 0, _
  23.             "int", 0, _
  24.             "ptr", DllStructGetPtr($h2))
  25.     DllStructSetData($h3, 1, $h3[0], 1)
  26.     DllCall("Kernel32.dll", "int", "CloseHandle", "hwnd", DllStructGetData($h3, 1, 1))
  27. EndFunc   ;==>_ThreadStart
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement