按鍵精靈 用全局變量控制線程 子線程控制主線

//************************************************用全局變量控制線程    子線程控制主線


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