1. 令 Hwnd = Window.GetKeyFocusWnd()
2. 令 sRect = Window.GetClientRect(Hwnd)
3. 令 MyArray = Split(sRect,"|")
4. 令 Ux = CLng(MyArray(0))
5. 令 Uy = CLng(MyArray(1))
6. 用户定义变量 刷新速度=1200 "毫秒"
7. 令 刷新速度 = 1200
8. 令 FileArray = Array("Attachment:\血腥玛丽.bmp","Attachment:\新加坡司令.bmp","Attachment:\彩虹.bmp","Attachment:\种植者.bmp","Attachment:\撞墙哈维.bmp","Attachment:\玛格丽特.bmp")
9. 令 HandleArray = FindPicture5_04.LoadBMP(FileArray)
10. 如果 UBound(HandleArray) = - 1 则
11.     MsgBox("载入图片失败！",4096)
12.     脚本停止运行
13. 条件结束
14. 标记 循环
15. 调用 FindPicture5_04.FindPictureN(0,Ux,Uy,Ux + 980,Uy + 630,HandleArray,30,0.9,x,y,number)
16. 如果 x >= 0 并且 y >= 0 并且 number >= 0 则
17.     从左上到右下查找图片 "Attachment:\参加.bmp"，把找到的坐标保存到 (canX, canY)，指定区域（左：CStr(x) - 15 上：CStr(y) - 20 右：Ux + 980 下：Uy + 630），相似度 0.9
18. 否则
19.     调用 刷新()
20. 条件结束
21. 如果 canX > 0 并且 canY > 0 则
22.     调用 Bkgnd.LeftClick(Hwnd,canX - Ux,canY - Uy)
23.     脚本停止运行
24. 条件结束
25. 子程序 刷新()
26.     调用 Bkgnd.LeftClick(Hwnd,210,112)
27.     延时 刷新速度 毫秒
28.     调用 Bkgnd.LeftClick(Hwnd,294,108)
29.     延时 500 毫秒
30.     调用 Bkgnd.LeftClick(Hwnd,210,112)
31. 子程序结束
32. 跳转到标记 循环