1. //自定义变量
2. 用户定义变量 j=1 自己的编号
3. 用户定义变量 t=3 偷几个号友（包括自己）
4. 用户定义变量 yanshi=1 当没展开好友栏时把这个延时加大点
5. dim x(14),y(14)
6. //FLASH菜地坐标定量数组，支持14个菜地
7. x(0)=300:y(0)=290
8. x(1)=200:y(1)=340
9. x(2)=100:y(2)=390
10. x(3)=400:y(3)=340
11. x(4)=300:y(4)=390
12. x(5)=200:y(5)=440
13. x(6)=500:y(6)=390
14. x(7)=400:y(7)=440
15. x(8)=300:y(8)=490
16. x(9)=600:y(9)=440
17. x(10)=500:y(10)=490
18. x(11)=400:y(11)=540
19. x(12)=700:y(12)=490
20. x(13)=600:y(13)=540
21. 调用插件命令 ProcessID=Web.Bind("wqm.exe")
22. 如果表达式 (ProcessID=0) 为真,则
23.     弹出窗口 "网页按键精灵没有运行"
24. 脚本停止运行
25. 条件结束
26. 调用插件命令 Web.Tips("脚本开始运行")
27. 调用插件命令 Web.SetSize(1028,744)
28. 调用插件命令 Web.Go("http://happyfarm.xiaoyou.qq.com/")
29. 调用插件命令 Web.ScrollTo(0,0)
30. 标记 <开始>
31. //展开好友栏
32. 延时yanshi*1000毫秒
33. 延时2000毫秒
34. 调用插件命令 Web.LeftClick(988,351)
35. 延时1000毫秒
36. z=0
37. a=1
38. //依次选择好友
39. 循环 t 遍
40.     如果表达式 (a=11) 为真,则
41.         延时500毫秒
42.         调用插件命令 Web.LeftClick(964,528)
43.         z=0
44.     条件结束
45.     延时500毫秒
46.     调用插件命令 Web.LeftClick(862,223+z)
47.     调用子程序 采
48.     z=z+31
49.     a=a+1
50. 循环结束
51. //刷新网页
52. 调用插件命令 Web.KeyPress(116)
53. 跳转到标记 <开始>
54. 脚本停止运行
55. 子程序 采
56.     b=1
57.     循环 4 遍
58.         i=0
59.         //当是自己的农场时点最右边的手，当别人的农场时点偷窃手
60.         如果表达式 (a=j) 为真,则
61.             //摘
62.             如果表达式 (b=1) 为真,则
63.                 延时500毫秒
64.                 调用插件命令 Web.LeftClick(659,580)
65.             条件结束
66.             //杀虫
67.             如果表达式 (b=2) 为真,则
68.                 延时500毫秒
69.                 调用插件命令 Web.LeftClick(609,580)
70.             条件结束
71.             //锄草
72.             如果表达式 (b=3) 为真,则
73.                 延时500毫秒
74.                 调用插件命令 Web.LeftClick(559,580)
75.             条件结束
76.             //浇水
77.             如果表达式 (b=4) 为真,则
78.                 延时500毫秒
79.                 调用插件命令 Web.LeftClick(509,580)
80.             条件结束
81.         否则
82.             //偷
83.             如果表达式 (b=1) 为真,则
84.                 延时500毫秒
85.                 调用插件命令 Web.LeftClick(559,580)
86.             条件结束
87.             //杀虫
88.             如果表达式 (b=2) 为真,则
89.                 延时500毫秒
90.                 调用插件命令 Web.LeftClick(509,580)
91.             条件结束
92.             //锄草
93.             如果表达式 (b=3) 为真,则
94.                 延时500毫秒
95.                 调用插件命令 Web.LeftClick(459,580)
96.             条件结束
97.             //浇水
98.             如果表达式 (b=4) 为真,则
99.                 延时500毫秒
100.                 调用插件命令 Web.LeftClick(409,580)