按键精灵的多线程

一、启动线程（BeginThread）

线程ID=BeginThread(子线程)
TracePrint "线程ID=" & 线程ID
Do
    TracePrint "我是主程序"
    Delay 1000
loop
Sub 子线程()
    Do
        TracePrint "我是子线程"
        Delay 1000
    loop
End Sub

二、暂停和恢复线程（PauseThread/ContinueThread）

线程ID=BeginThread(子线程)
TracePrint "线程ID=" & 线程ID
Delay 5000
PauseThread 线程ID
TracePrint "暂停线程"
Delay 5000
ContinueThread 线程ID
TracePrint "恢复线程"
Delay 10000
Do
    TracePrint "我是主程序"
    Delay 1000
loop
Sub 子线程()
    Do
        TracePrint "我是子线程"
        Delay 1000
    loop
End Sub

三、停止线程(StopThread)

线程ID=BeginThread(测试)
For 3
	Delay 1000
Next
StopThread 线程ID

Sub 测试
i=0
	
	Do 
	TracePrint "i="&i
	i = i + 1
	Delay 1000
	loop
End Sub

四、全局变量

Dim a
Global b
a = 1
b = 2
线程ID = BeginThread(测试)
Delay 1000
TracePrint "主脚本中a=" & a
TracePrint "主脚本中b=" & b

Sub 测试()
TracePrint "子线程中a=" & a
TracePrint "子线程中b=" & b	
End Sub