78391493 发表于 2009-2-4 09:51:15

AU3多线程实例 GUI+MsgBox

MsgBox版本：
$Timer = DllCallbackRegister("Timer", "int", "hwnd;uint;uint;dword")
$TimerDLL = DllCall("user32.dll", "uint", "SetTimer", "hwnd", 0, "uint", 0, "int", 5000, "ptr", DllCallbackGetPtr($Timer))
$Timer2 = DllCallbackRegister("Timer", "int", "hwnd;uint;uint;dword")
$Timer2DLL = DllCall("user32.dll", "uint", "SetTimer", "hwnd", 0, "uint", 0, "int", 8000, "ptr", DllCallbackGetPtr($Timer2))
$Timer3 = DllCallbackRegister("Timer", "int", "hwnd;uint;uint;dword")
$Timer3DLL = DllCall("user32.dll", "uint", "SetTimer", "hwnd", 0, "uint", 0, "int", 10000, "ptr", DllCallbackGetPtr($Timer3))
While 1
        GUIGetMsg()
WEnd
Func Timer($hWnd, $uiMsg, $idEvent, $dwTime)
        If $idEvent = $TimerDLL Then
                MsgBox(0,"","线程1")
        ElseIf $idEvent = $Timer2DLL Then
                MsgBox(0,"","线程2")
        ElseIf $idEvent = $Timer3DLL Then
                MsgBox(0,"","线程3")
        EndIf
EndFunc

GUI版本(较强大)：
$Form1 = GUICreate("多线程实例", 272, 139, -1, -1)
$Label1 = GUICtrlCreateLabel("00:00:00:00", 8, 8, 146, 17)
$Label2 = GUICtrlCreateLabel("0", 8, 56, 150, 17)
$Label3 = GUICtrlCreateLabel("", 8, 104, 148, 17)
$Button1 = GUICtrlCreateButton("关闭线程1", 168, 8, 89, 25, 0)
$Button2 = GUICtrlCreateButton("关闭线程2", 168, 48, 89, 25, 0)
$Button3 = GUICtrlCreateButton("关闭线程3", 168, 96, 89, 25, 0)
GUISetState(@SW_SHOW)
Global $t2, $t3 = 1
$Timer = DllCallbackRegister("Timer", "int", "hwnd;uint;uint;dword")
$TimerDLL = DllCall("user32.dll", "uint", "SetTimer", "hwnd", 0, "uint", 0, "int", 1000, "ptr", DllCallbackGetPtr($Timer))
$Timer2 = DllCallbackRegister("Timer", "int", "hwnd;uint;uint;dword")
$Timer2DLL = DllCall("user32.dll", "uint", "SetTimer", "hwnd", 0, "uint", 0, "int", 200, "ptr", DllCallbackGetPtr($Timer2))
$Timer3 = DllCallbackRegister("Timer", "int", "hwnd;uint;uint;dword")
$Timer3DLL = DllCall("user32.dll", "uint", "SetTimer", "hwnd", 0, "uint", 0, "int", 500, "ptr", DllCallbackGetPtr($Timer3))
While 1
        Switch GUIGetMsg()
                Case - 3
                        Exit
                Case $Button1
                        DllCall("user32.dll", "int", "KillTimer", "hwnd", 0, "uint", $TimerDLL)
                        DllCallbackFree($Timer)
                Case $Button2
                        DllCall("user32.dll", "int", "KillTimer", "hwnd", 0, "uint", $Timer2DLL)
                        DllCallbackFree($Timer2)
                Case $Button3
                        DllCall("user32.dll", "int", "KillTimer", "hwnd", 0, "uint", $Timer3DLL)
                        DllCallbackFree($Timer3)
        EndSwitch
WEnd
Func Timer($hWnd, $uiMsg, $idEvent, $dwTime)
        If $idEvent = $TimerDLL Then
                GUICtrlSetData($Label1, @HOUR & ":" & @MIN & ":" & @SEC & ":" & @MSEC)
        ElseIf $idEvent = $Timer2DLL Then
                $t2 += 1
                GUICtrlSetData($Label2, $t2)
        ElseIf $idEvent = $Timer3DLL Then
                $t3 *= 2
                GUICtrlSetData($Label3, $t3)
        EndIf
EndFunc

3.3.0.0版本正常运行

menfan 发表于 2009-2-4 18:07:49

学习。。。。。。

itljl 发表于 2009-2-4 21:27:43

Thanks
:face (14):

OSK 发表于 2009-2-5 00:11:35

收下學習...
感謝您的分享 ^_^

xrbenbeba 发表于 2009-2-5 08:51:30

收藏了:face (34):

ttn 发表于 2009-2-8 09:00:50

学习了！非常感谢！

luckscy 发表于 2009-2-8 09:38:29

拿下:face (34):

298311657 发表于 2009-2-8 14:16:45

能不能讲解一下？

cnsnc 发表于 2009-2-8 14:42:20

厉害，学习下

78391493 发表于 2009-2-8 19:22:55

回复 8# 298311657 的帖子

汗，我觉得我的代码已经很简单了。。。实在不会就照抄算了。。。

298311657 发表于 2009-2-9 13:17:55

代码确实很简单，一看就懂，但是是如何实现多线程的，却理解不了，所有希望能把原理讲解一下~

lambochan 发表于 2009-2-10 21:24:57

看来看去我只看到3个通过settimer()函数set出来的3个计时器, 第一个例程set了还没kill呢....
这和多线程有什么关系呢?

初学au3,不知道有没象CreateThread() / _beginthread()之类的创建多线程方法.

bob 发表于 2009-2-11 11:05:03

多进程模拟多线程

78391493 发表于 2009-2-11 12:42:51

回复 12# lambochan 的帖子

AU3本身不支持多线程，但是如果是单线程你认为可以实现这些嘛？

78391493 发表于 2009-2-11 12:43:45

回复 11# 298311657 的帖子

详情查看Windows API手册
页: [1] 2 3 4 5 6 7 8
查看完整版本: AU3多线程实例 GUI+MsgBox