Dimenv e
id1 = BeginThread(aaa)
For 100
TracePrint i
i = i + 1
Delay 1000
If i = 5 Then
EndScript
End If
Next
Sub onscriptexit()
MsgBox "exit啦"
id2 = BeginThread(bbb)
End Sub
Sub aaa()
Dim i
For i=0 to 5
MsgBox i
If i=3 then exitScript
Next
End Sub
Sub bbb()
Do
MsgBox e
e= e+1
If e = 10 Then ExitScript
Loop
End Sub