Question

按键精灵多线程命令循环一定时间后终止

谁能告诉我源码，我想让脚本多线程启动后循环一定时间然后全部停止，怎么做。
好用给100财富。

Answer 1

线程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

追问

你的脚本好用，但是不是我需要用的。
启动两个线程，第一个线程 w a s d，第二个线程 上 下 左 右 ，执行一段时间后停止该怎么写？

追答

子程序a 可理解第一线程
子程序b 第二线程
你根据实际应用修改这两个子程序
目前按键精灵多线程BUG太多，需要时间测试和修改，但愿你明白语句意思