1. 延时1000毫秒
2. SetEnvironmentVar "Key","65"
3. BeginThread "Thread1"
4. 如果表达式 (1) 为真,则循环执行
5.     调用子程序 PressKey
6.     key=key+1
7.     如果表达式 ((key>90)) 为真,则
8.         key=65
9.     条件结束
10.     SetEnvironmentVar "Key",CStr(key)
11. 循环结束
12. 脚本停止运行
13. 子程序 Thread1
14.     循环 10 遍
15.         调用子程序 PressKey
16.     循环结束
17. 子程序结束,回到调用处
18. 子程序 PressKey
19.     key=GetEnvironmentVar("Key")
20.     按键#key
21.     延时200毫秒
22. 子程序结束,回到调用处