Dimenv C, aa
aa=BeginThread(a)
bb=BeginThread(b)
Do
Delay 1000
Loop
Sub a
Do
C = C + 1
Delay 300
TracePrint C
Loop
End Sub
Sub b
Do
//这里放你的脚本
Do
If C MOD 10 = 0 Then
//IF判断条件自己弄,我这里是判断C是否能被10整除
StopThread aa
TracePrint "停止3秒钟后重新启动A脚本"
Delay 3000
Exit Do
End If
Loop
//这里放你后面的脚本
aa = BeginThread(a)
Delay 1000
//这里是重新启动A脚本
Loop
End Sub