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

按键精灵的多线程

分类按键精灵时间2018-02-27 18:00:30发布信义之树浏览12
导读：一、启动线程（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） 按键精灵的事件子程序

相关内容

更多
↑