按键精灵线程停止事件子程序（OnThreadExit）——同样的，线程停止事件子程序是当线程结束后触发的事件，无论哪个线程结束，都会触发该事件。如下脚本，当脚本中某一个线程中止了，就会触发这个事件，弹出窗口提示“当前线程已经停止！”。

Sub OnThreadExit()

• MessageBox “当前线程已经停止！”

End Sub

注意：一个脚本中只能添加一个停止事件，并且该事件是所有线程共享的，如果不同的线程结束时需要区分处理，就可以使用GetThreadID命令进行区分，用于判断不同的线程以便做出不同的处理，脚本如下：

Global 线程ID1, 线程ID2
线程ID1 = BeginThread(子程序1)
线程ID2 = BeginThread(子程序2)
Sub 子程序1()
TracePrint “子程序1被线程启动！”
End Sub
Sub 子程序2()
TracePrint “子程序2被线程启动！”
End Sub
Sub OnTreadExit()
Dim TreadID
ThreadID = GetThreadID()//得到当前线程的ID
Select Case ThreadID
Case 线程ID1//这样就可以针对线程1停止后进行操作
TracePrint “线程1(” & ThreadID & “)已经停止！”
Case 线程ID2//这样就可以针对线程2停止后进行操作
TracePrint “线程2(” & ThreadID & “)已经停止！”
End Select
End Sub

按键精灵线程停止事件——软件截图：

随机文章