OnThreadExit 线程停止事件子程序
当线程停止时产生的这个事件
无
无
 

//对多线程返回的线程ID号，需要定义环境变量
DimEnv 线程ID1, 线程ID2
线程ID1 = BeginThread(子程序1)
线程ID2 = BeginThread(子程序2)

//以下是【测试用】子程序例子
Dim i
Sub 子程序1()
    i=1 
    TracePrint "子程序被线程启动！" & i  
End Sub
Sub 子程序2()
    i=2
    TracePrint "子程序被线程启动！" & i 
End Sub

//以下是【无限循环】防止全部脚本停止。
Do 
    Delay 1000
Loop

//以下是只对【多线程停止时】产生的事件 
Sub OnThreadExit()
    Dim ThreadID
    ThreadID = GetThreadID() //得到当前线程的ID
    Select Case ThreadID
    Case 线程ID1 
        //这样就可以针对某个线程进行操作
        //比如：释放大漠插件对象
        TracePrint i & " 当前线程(" & ThreadID & ")已经停止！" & 线程ID1  
    Case 线程ID2
        //这样就可以针对某个线程进行操作
        //比如：释放361插件对象     
        TracePrint i & " 当前线程(" & ThreadID & ")已经停止！" & 线程ID2 
    End Select
End Sub

//以下是当脚本【全部停止时】产生的事件
Sub OnScriptExit()
    MessageBox "脚本已经停止！"
End Sub


无