首页技术为王按键精灵按键精灵的多线程

按键精灵的多线程

分类按键精灵时间2018-02-27 18:00:30发布信义之树浏览34
导读：一、启动线程（BeginThread）123456789101112线程ID=BeginThread(子线程 TracePrint "线程ID=" & 线程IDDo TracePrint "我是主程序" Delay 10...

一、启动线程（BeginThread）

1
2
3
4
5
6
7
8
9
10
11
12
线程ID=BeginThread(子线程)
TracePrint "线程ID=" & 线程ID
Do
    TracePrint "我是主程序"
    Delay 1000
loop
Sub 子线程()
    Do
        TracePrint "我是子线程"
        Delay 1000
    loop
End Sub

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
线程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)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
线程ID=BeginThread(测试)
For 3
    Delay 1000
Next
StopThread 线程ID
 
Sub 测试
i=0
     
    Do
    TracePrint "i="&i
    i = i + 1
    Delay 1000
    loop
End Sub

四、全局变量

1
2
3
4
5
6
7
8
9
10
11
12
13
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


按键精灵的加解密插件（Encrypt） 按键精灵的事件子程序

相关内容

更多

游客 回复需填写必要信息
↑