1. 标记 开始
2. 令 Hwnd = Window.MousePoint()
3. 循环 22 次
4.     调用 Bkgnd.KeyPress(Hwnd,13)
5.     延时 1000 毫秒
6.     调用 Bkgnd.KeyPress(Hwnd,13)
7.     延时 13000 毫秒
8.     调用 Bkgnd.KeyPress(Hwnd,27)
9. 循环结束
10. 延时 1000 毫秒
11. 开始VBScript块
12.     令 obj = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
13.     令 List = obj.ExecQuery("Select * from Win32_Process Where Name = 'HeyyoClient.exe'")
14.     循环 objProcess 在 List 中
15.         objProcess(.Terminate())
16.     循环结束
17. 结束VBScript块
18. 延时 2000 毫秒
19. 从左上到右下查找图片 "Attachment:\宽带.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：0 上：0 右：1024 下：768），相似度 0.9
20. 如果 intX > 0 并且 intY > 0 则
21.     （鼠标）移动到 (intX, intY)
22.     延时 1000 毫秒
23.     （鼠标）右键单击, 1次
24.     延时 1000 毫秒
25.     （键盘）按 "O" 键, 1次
26.     延时 2000 毫秒
27.     （鼠标）右键单击, 1次
28.     延时 1000 毫秒
29.     （键盘）按 "O" 键, 1次
30.     延时 1000 毫秒
31.     （键盘）按 "Enter" 键, 1次
32. 条件结束
33. 延时 3000 毫秒
34. 从左上到右下查找图片 "Attachment:\和悦.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：0 上：0 右：1024 下：768），相似度 0.9
35. 如果 intX > 0 并且 intY > 0 则
36.     （鼠标）移动到 (intX, intY)
37.     延时 1000 毫秒
38.     （鼠标）右键单击, 1次
39.     延时 1000 毫秒
40.     （键盘）按 "O" 键, 1次
41. 条件结束
42. 延时 8000 毫秒
43. 从左上到右下查找图片 "Attachment:\电话.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：0 上：0 右：1024 下：768），相似度 0.9
44. 如果 intX > 0 并且 intY > 0 则
45.     （鼠标）移动到 (intX, intY)
46.     延时 1000 毫秒
47.     （鼠标）左键单击, 1次
48. 条件结束
49. 延时 2000 毫秒
50. 跳转到标记 开始