『壹』 按鍵精靈多線程命令循環一定時間後終止
線程ID1=BeginThread(a)
線程ID2=BeginThread(b)
Dim n
n=now
Rem q
//腳本15秒後停止
Delay 1000
If DateDiff("s",n,now)>= 15 then
StopThread 線程ID1
StopThread 線程ID2
Else
Goto q
End If
Sub a
Rem q
Delay 1000
Goto q
End Sub
Sub b
Rem q
Delay 1000
Goto q
End Sub
Sub OnScriptExit()
MessageBox "腳本已經停止！"
End Sub