1. 用户定义变量 LTop=300,200 鼠标左上
2. 用户定义变量 RBot=980,500 鼠标右下
3. 用户定义变量 DCBTN=DropList{左键:1|右键:2} 双击左键或右键
4. 用户定义变量 dy1=5 鼠标扫描期间间隔时间
5. 用户定义变量 dy2=500 上钩后等待时间
6. 用户定义变量 mouseType=1884068285 鼠标特征码
7. 调用外部VBScript子程序 GetCursorShape(0)
8. Dim s,x1,y1,x2,y2,x,y,c,fx,fy,rx,ry,starttime,endtime
9. s=InStr(LTop,",")
10. x1=int(Mid(LTop,1,s-1))
11. y1=int(Mid(LTop,s+1))
12. s=InStr(RBot,",")
13. x2=int(Mid(RBot,1,s-1))
14. y2=int(Mid(RBot,s+1))
15. c=int(DCBTN)
16. 标记 Search
17. x=x1
18. y=y1
19. 鼠标移到 x-100 , y
20. 延时1000毫秒
21. 如果表达式 (c=1) 为真,则
22.     中键单击
23. 否则
24.     右键单击
25.     延时100毫秒
26.     右键单击
27. 条件结束
28. 延时2000毫秒
29. starttime=Now
30. 如果表达式 (y<y2) 为真,则循环执行
31.     y=y+20
32.     如果表达式 (x<x2) 为真,则循环执行
33.         x=x+10
34.         鼠标移到 x , y
35.         延时dy1毫秒
36.         如果表达式 (GetCursorShape(0)=mouseType) 为真,则
37.             fx=x-10
38.             fy=y
39.             鼠标移到 fx , fy
40.             跳转到标记 Waiting
41.         条件结束
42.     循环结束
43.     x=x1
44. 循环结束
45. 跳转到标记 Search
46. 标记 Waiting
47. 如果表达式 (true) 为真,则循环执行
48.     调用外部VBScript子程序 GetCursorShape(0)
49.     如果表达式 (rx>=0 and ry>=0) 为真,则
50.         鼠标移到 rx , ry
51.         延时dy2毫秒
52.         右键单击
53.         延时500毫秒
54.         左键单击
55.         延时1000毫秒
56.         跳转到标记 Search
57.     条件结束
58.     如果表达式 (DateDiff("s",starttime,Now)>=22) 为真,则
59.         跳转到标记 Search
60.     条件结束
61. 循环结束