按键精灵的事件子程序

2 年 前 按键精灵 1,190 次 0

一、脚本载入事件子程序(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

对不起,没有评论!


电子邮件地址不会被公开。 必填项已用*标注