按键精灵演示例子：多线程测试源码

运行环境：分辨率：1440×900 色深：32位 操作系统：Windows XP 按键精灵版本：7.00.3730

@兄弟工程师01 2009/3/24

Delay 1000  
SetEnvironmentVar "Key","65"  
BeginThread "Thread1"  
While 1  
    Gosub PressKey  
    key=key+1  
    If (key>90)  
        key=65  
    EndIf   
    SetEnvironmentVar "Key",CStr(key)  
EndWhile   
EndScript   
Sub Thread1  
    For 10  
        Gosub PressKey  
    EndFor   
Return   
Sub PressKey  
    key=GetEnvironmentVar("Key")  
    KeyPress key,1  
    Delay 200  
Return