MessageBox "多线程命令还在测试当中，并不稳定，请谨慎使用"  

//下面这个例子会打开一个记事本，用2个线程向其中模拟按键  

Call RunApp("notepad")   
Delay 1000   
DimEnv Key   
Key=65   
BeginThread Thread1   
While True   
    Call PressKey()   
    key=key+1   
    If (key>90)   
        key=65   
    EndIf    
Wend   
EndScript    
Sub Thread1()   
    For 10   
        Call PressKey()   
    Next     
    KeyPress 13,1   
    SayString "线程1已经结束"   
    KeyPress 13,1   
End Sub   
Sub PressKey()   
    KeyPress key,1   
    Delay 200   
End Sub   
   
   
   
   
-----------------------------------------------------------------   
 以下为新增功能（版本未发布请勿使用） [注：8.20版新增返回值参数]   
   
MessageBox "多线程命令还在测试当中，并不稳定，请谨慎使用"   
线程ID=BeginThread(测试)
//启动“测试”线程的运行，并返回线程ID编号  

For 3    
    Delay 1000   
Next    
StopThread 线程ID
//3秒后停止“测试”线程的运行  

Sub 测试()   
    i=0   
    Do    
        Call Plugin.Msg.ShowScrTXT(0, 0, 1024, 768, "屏幕内容填写"&i, "0000FF")    
        Delay 1000   
        i=i+1   
    Loop    
End Sub 

MessageBox "多线程命令还在测试当中，并不稳定，请谨慎使用"  

//下面这个例子会打开一个记事本，用2个线程向其中模拟按键  

VBSCall RunApp("notepad")   
Delay 1000   
SetEnv "Key","65"   
BeginThread "Thread1"   
While 1   
    Gosub PressKey   
    key=key+1   
    If key>90   
        key=65   
    EndIf    
    SetEnv "Key",CStr(key)   
EndWhile    
EndScript    
Sub Thread1   
    For 10   
        Gosub PressKey   
    EndFor    
    KeyPress 13,1   
    SayString "线程1已经结束"   
    KeyPress 13,1   
Return    
Sub PressKey   
    key=GetEnv("Key")   
    KeyPress key,1   
    Delay 200   
Return