1. //
2. 用户定义变量 u_JS=droplist{不帮:0|帮:1}=0 帮他人浇水
3. 用户定义变量 u_CC=droplist{不帮:0|帮:1}=0 帮他人除草
4. 用户定义变量 u_SC=droplist{不帮:0|帮:1}=0 帮他人杀虫
5. 用户定义变量 u_Zhai=droplist{不摘:0|摘:1}=0 摘他人果实
6. 用户定义变量 u_CZ=droplist{不放:0|放:1}=0 放虫子
7. 用户定义变量 u_ZC=droplist{不放:0|放:1}=0 放杂草
8. u_CZ=cint(u_CZ):u_ZC=cint(u_ZC)
9. //----18块地对应的坐标:
10. array_x=array(305,217,103,405,303,198,553,456,356,653,555,455,753,654,535,855,756,650)
11. array_y=array(291,339,403,344,398,452,382,433,481,430,479,531,480,529,567,528,580,626)
12. //---------------------
13. 调用插件命令 Web.Bind("WQM.exe")
14. 延时2610毫秒
15. //设置浏览器大小为998,777
16. 调用插件命令 Web.SetSize(998,777)
17. //获得浏览器左上角的坐标
18. 调用插件命令 hwnd=Window.GetKeyFocusWnd()
19. 调用插件命令 wxx=Window.GetClientRect(hwnd)
20. wxy=split(wxx,"|")
21. wxy0=cint(wxy(0))+1:wxy1=cint(wxy(1))+100
22. //----------------------
23. //跳转到开心农场页面
24. 调用插件命令 Web.Go("http://happyfarm.xiaoyou.qq.com/")
25. //----------------------
26. 如果表达式 (1) 为真,则循环执行
27.     //自己家的操作
28.     调用子程序 s_Myself
29.     //去别人
30.     调用子程序 s_ChooseOtherPlayer
31. 循环结束
32. 子程序 s_ChooseOtherPlayer
33.     //选其他网友
34.     //第一个网友的坐标:796,303----两个头像的纵间隔为:31
35.     //------------选择网友------------------
36.     //i_page用来保存点了几下"下一页",到时候利用此变量来决定点几下回到第1页
37.     i=0:i_page=1
38.     如果表达式 (i<>99) 为真,则循环执行
39.         //展开好友界面
40.         调用插件命令 Web.LeftClick(955,347)
41.         延时500毫秒
42.         如果表达式 (i=10) 为真,则
43.             i=0
44.             //是否还有下一页
45.             调用外部VBScript子程序 在屏幕区域里模糊查找颜色(wxy0+930,wxy1+536,wxy0+930,wxy1+536,"9D6800",0,0.8,tx,ty)
46.             如果表达式 (tx>0) 为真,则
47.                 调用插件命令 Web.LeftClick(930,528)
48.                 延时200毫秒
49.                 i_page=i_page+1
50.             否则
51.                 //回到第一页
52.                 循环 i_page 遍
53.                     调用插件命令 Web.LeftClick(849,528)
54.                     延时200毫秒
55.                 循环结束
56.                 i=99
57.             条件结束
58.         条件结束
59.         如果表达式 (i<>99) 为真,则
60.             //选好友
61.             调用插件命令 Web.LeftClick(855,217+31*i)
62.             延时500毫秒
63.             //收缩好友界面
64.             调用插件命令 Web.LeftClick(795,354)
65.             延时500毫秒
66.             //先判断下是不是自己家的农场
67.             调用外部VBScript子程序 在屏幕区域里模糊查找颜色(wxy0+930,wxy1+536,wxy0+930,wxy1+536,"9D6800",0,0.8,tx,ty)
68.             如果表达式 (tx>0) 为真,则
69.                 //开始搞他的农场: )
70.                 调用子程序 s_Other
71.             条件结束
72.             i=i+1
73.         条件结束
74.     循环结束
75. 子程序结束,回到调用处
76. 子程序 s_Other
77.     //糟蹋别人的农场啦
78.     i_i=0
79.     如果表达式 (i_i<>99) 为真,则循环执行
80.         t1=array_x(i_i):t2=array_y(i_i)
81.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(wxy0+930,wxy1+536,wxy0+930,wxy1+536,"9D6800",0,0.8,tx,ty)
82.         如果表达式 (tx<0) 为真,则
83.             调用插件命令 Web.MoveTo(t1,t2)
84.             延时100毫秒
85.             //帮浇水
86.             如果表达式 (u_JS>0) 为真,则
87.                 调用插件命令 Web.LeftClick(487-107,597)
88.                 延时300毫秒
89.                 调用插件命令 Web.LeftClick(t1,t2)
90.                 延时100毫秒
91.             条件结束
92.             //帮除草
93.             如果表达式 (u_CC>0) 为真,则
94.                 调用插件命令 Web.LeftClick(537-107,597)
95.                 延时300毫秒
96.                 调用插件命令 Web.LeftClick(t1,t2)
97.                 延时100毫秒
98.             条件结束
99.             //帮杀虫
100.             如果表达式 (u_SC>0) 为真,则