论坛 › 『 提问交流 』 › AU3多线程函数

autoit3 发表于 2008-5-24 14:18:29

AU3多线程函数

#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>

Global Enum $TIMERID1 = 1001, $TIMERID2, $TIMERID3
Global $iLabel, $iMemo, $Count, $Var = 1, $Var2 = 1, $hGUI, $iTimer1, $iTimer2, $hCallBack, $hCallBack2, $First = 1

$hGUI = GUICreate("My Timers", 600, 296)
GUISetBkColor(0xFFFFFF)
$iLabel = GUICtrlCreateLabel("0", 10, 10, 100, 25)
$iLabel2 = GUICtrlCreateLabel("0", 150, 10, 300, 25)
$iMemo = GUICtrlCreateEdit("", 2, 32, 596, 262, BitOR($WS_HSCROLL, $WS_VSCROLL))
GUICtrlSetState($iMemo, $GUI_DISABLE)
GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
GUISetState()
$hCallBack = DllCallbackRegister("_TimerCallBackFunc", "none", "hwnd;int;int;dword")
$hCallBack2 = DllCallbackRegister("_TimerCallBackFunc", "none", "hwnd;int;int;dword")
$hCallBack3 = DllCallbackRegister("_TimerCallBackFunc", "none", "hwnd;int;int;dword")
$iTimer1 = _WinAPI_SetTimer($hGUI, $TIMERID1, 1000, DllCallbackGetPtr($hCallBack))
Sleep(100)
$iTimer2 = _WinAPI_SetTimer($hGUI, $TIMERID2, 5000, DllCallbackGetPtr($hCallBack2))
$iTimer3 = _WinAPI_SetTimer($hGUI, $TIMERID3, 3000, DllCallbackGetPtr($hCallBack3))

While 1
    Switch GUIGetMsg()
      Case $GUI_EVENT_CLOSE
            ExitLoop
    EndSwitch
WEnd

_WinAPI_KillTimer($hGUI, $iTimer1)
_WinAPI_KillTimer($hGUI, $iTimer2)
DllCallbackFree($hCallBack)
DllCallbackFree($hCallBack2)

Func _WinAPI_SetTimer($hWnd, $iIDEvent, $iElapse, $pTimerFunc = 0)
    Local $iResult = DllCall("user32.dll", "int", "SetTimer", "hwnd", $hWnd, "int", $iIDEvent, "int", $iElapse, "ptr", $pTimerFunc)
    If @error Then Return SetError(-1, -1, 0)
    Return $iResult
EndFunc   ;==>_WinAPI_SetTimer

Func _WinAPI_KillTimer($hWnd, $iIDEvent)
    Local $iResult = DllCall("user32.dll", "int", "KillTimer", "hwnd", $hWnd, "int", $iIDEvent)
    If @error Then Return SetError(-1, -1, 0)
    Return $iResult <> 0
EndFunc   ;==>_WinAPI_KillTimer

Func _TimerCallBackFunc($hWnd, $Msg, $iIDTimer, $dwTime)
    If $First = 1 And $iIDTimer = $TIMERID1 Then
      $First = 0
      Global $FirstTime = $dwTime
    EndIf
    GUICtrlSetData($iMemo, "hWnd : " & $hWnd & "Msg : " & $Msg & "iIDTimer : " & $iIDTimer & "dwTime : " & $dwTime & @CRLF, 1)
    GUICtrlSetData($iLabel2, $dwTime - $FirstTime)
    If $iIDTimer = $TIMERID1 Then
      If $Var = 1 Then
            $Count += 1
      Else
            $Count -= 1
      EndIf
      GUICtrlSetData($iLabel, $Count)
    ElseIf $iIDTimer = $TIMERID2 Then
      If $Var = 1 Then
            $Var = 2
      Else
            $Var = 1
      EndIf
    Else
      If $Var2 = 1 Then
            GUISetBkColor(0x000000)
            GUICtrlSetColor($iLabel, 0xFFFFFF)
            GUICtrlSetColor($iLabel2, 0xFFFFFF)
            $Var2 = 2
      Else
            GUISetBkColor(0xFFFFFF)
            GUICtrlSetColor($iLabel, 0x000000)
            GUICtrlSetColor($iLabel2, 0x000000)
            $Var2 = 1
      EndIf
    EndIf
EndFunc   ;==>_TimerCallBackFunc


这段代码有人发到论坛好多天了，测试正常，就是不知道怎么用，谁帮加点注释啊

benkel 发表于 2008-6-3 22:51:45

我也不知道怎么用，请高手帮忙加点说明之类的东东！！！

askask150 发表于 2009-11-23 01:16:48

我也不知道怎么用，请高手帮忙加点说明之类的东东！！！

rchockxm 发表于 2009-11-23 10:12:18

這個是計時器，不是多線程

3.3.1.6 可以用
AdlibRegister("MyAdlib1")
AdlibRegister("MyAdlib2")
AdlibRegister("MyAdlib3")

效果應該是一樣的

netegg 发表于 2009-11-26 21:10:35

http://msdn.microsoft.com/en-us/library/ms644906%28VS.85%29.aspx
http://msdn.microsoft.com/en-us/library/ms644903%28VS.85%29.aspx

kodin 发表于 2009-11-27 10:35:19

之前用过，效果不理想。

xz00311 发表于 2009-11-27 15:28:04

来学习一下准备用

gapkiller 发表于 2009-11-27 17:35:04

收藏, 学习之....

kuse2001 发表于 2009-12-1 20:41:53

有个库叫CoProc.au3用多进程模拟多线程，能完成一定程度的并行工作
坛子里有个CoProc的补丁

guowenfu 发表于 2010-7-26 11:26:47

多線程好像都是利用USER32.DLL 的settimeer函數。。
與定時程序，我決定還是有點差別。
看過好多這樣案例的多線程。我決定這個比較好理解，dllcall不如直接API函數直觀名聯

netegg 发表于 2010-7-26 14:02:20

回复 10# guowenfu
timer是timer，thread是thread，不是一个东西

查看完整版本: AU3多线程函数