1. 用户定义变量 Hao=0 "输入账号"
2. 用户定义变量 Ma=0 "输入密码"
3. 用户定义变量 Lj="E:\ProgramFiles\Tencent" "QQ所在路径"
4. 启动程序或打开文件 Lj & "\QQ\Bin\QQ.exe"
5. 延时 1777 毫秒
6. 令 Hwnd = Window.Find(0,"QQ2011")
7. 调用 Window.Move(Hwnd,0,0)
8. 调用 Window.Active(Hwnd)
9. 延时 500 毫秒
10. （鼠标）移动到 (179, 146)
11. 延时 222 毫秒
12. （鼠标）左键单击, 1次
13. 延时 222 毫秒
14. 输入文本 Hao
15. 延时 400 毫秒
16. （超级模拟键盘）按 "Tab" 键, 1次
17. 延时 444 毫秒
18. 令 a = 1
19. 循环 len(Ma) 次
20.     令 key = Asc(UCase(Mid(ma,a,1)))
21.     （超级模拟键盘）按 key 键, 1次
22.     延时 10 毫秒
23.     令 a = a + 1
24. 循环结束
25. 延时 444 毫秒
26. （键盘）按 "Enter" 键, 1次
27. 延时 500 毫秒
28. 调用 Msg.Tips("自动登录完毕！")
29. 定义变量 色彩(10)
30. 令 色彩(0) = "000000"
31. 令 色彩(1) = "FF0000"
32. 令 色彩(2) = "00BB00"
33. 令 色彩(3) = "0000E3"
34. 令 色彩(4) = "ADADAD"
35. 令 色彩(5) = "FF5809"
36. 令 色彩(6) = "FF0080"
37. 令 色彩(7) = "4B0091"
38. 令 色彩(8) = "53FF53"
39. 令 色彩(9) = "808040"
40. 令 色彩(10) = "5151A2"
41. 令 i = 0
42. 标记 输出
43. 如果 i = 10 则
44.     令 i = 0
45. 条件结束
46. 调用 Msg.ShowScrTXT(0,0,150,16,"由a417484830制作~",色彩(i))
47. 令 i = i + 1
48. 延时 88 毫秒
49. 跳转到标记 输出