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

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

@兄弟工程师012009/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