按键精灵的事件子程序

一、脚本载入事件子程序（onscriptload）

Sub onscriptload()
    MessageBox "脚本载入配置完成"
End Sub

二、脚本停止事件子程序（onscriptexit）

Sub onscriptexit()
    MessageBox "脚本已经停止"
End Sub

三、线程停止事件子程序（onthreadexit）

Global 线程ID1,线程ID2
线程ID1=BeginThread(子线程1)
线程ID2=BeginThread(子线程2)
Sub 子线程1()
    TracePrint "子线程1被启动"
End Sub
Sub 子线程2()
    TracePrint "子线程2被启动"
End Sub
Sub onthreadexit()
    Dim threadID
    threadID = GetThreadID()
    Select Case threadID
    Case 线程ID1
        TracePrint "线程1（"&线程ID1&")已经停止"
    Case 线程ID2
        TracePrint "线程2（"&线程ID2&")已经停止"
    End Select	
End Sub