按键精灵 用全局变量控制线程 子线程控制主线

//************************************************用全局变量控制线程    子线程控制主线


Global b

b = 1

线程控制ID = BeginThread(线程控制)//启动线程

While b=1
    
     Delay 2000
  Call Plugin.Msg.Tips("我是主线程")
  
    
wend
Rem aaa
Delay 8000
  While b=2
    
     Delay 2000
  Call Plugin.Msg.Tips("我是主线程副本被延迟了8秒")
    
    wend

Sub 线程控制


Delay 6000

 Call Plugin.Msg.Tips("看我控制主线程")

Delay 2000
    b = 2000
    


 Call Plugin.Msg.Tips("看我延迟主线程")

  Delay 2000
    b = 2    
    Goto aaa
    
    
    
End Sub