1. //自定义变量
2. 用户定义变量 QQ=0 请输入QQ号(已登录请输入0)
3. 用户定义变量 QQPwd=0 请输入密码
4. 用户定义变量 yanshi=1 当没展开好友栏时把这个延时加大点
5. 用户定义变量 time=5 定时器(秒)
6. 打开wqm程序
7. 调用插件命令 ProcessID=Web.Bind("wqm.exe")
8. 如果表达式 (ProcessID=0) 为真,则
9.     弹出窗口 "网页按键精灵没有运行,请打开网页按键精灵(如果没有请下载安装7.x以上版本的按键精灵)"
10.     调用插件命令 fileURL = File.SelectFile()
11.     调用外部VBScript子程序 运行一个外部程序(fileURL)
12. 条件结束
13. 调用插件命令 Web.Tips("脚本开始运行")
14. 调用插件命令 Web.SetSize(1224,744)
15. //得到窗口句柄
16. //主窗口句柄
17. 调用插件命令 Hwnd=Web.GetHwnd()
18. //子窗口句柄
19. 调用插件命令 HwndEx = Window.FindEx(Hwnd, 0, "MacromediaFlashPlayerActiveX", 0)
20. //如果QQ=0跳过登陆直接挂农场
21. 如果表达式 (QQ=0) 为真,则
22.     弹出窗口 "请将田地定位到左上角"
23.     //展开好友栏（后台式）
24.     延时yanshi*1000毫秒
25.     调用插件命令 Bkgnd.LeftClick(HwndEx, 935, 278)
26.     跳转到标记 <开始>
27. 否则
28.     调用子程序 登陆空间
29. 条件结束
30. 标记 <开始>
31. 延时2000毫秒
32. //点击好友列表的坐标增值
33. z=0
34. //点击第a行的好友
35. i=1
36. //区域找色起始范围
37. //UX:上X坐标|UY:上Y坐标
38. //DX:下X坐标|DY:下Y坐标
39. UX=907
40. UY=143
41. DX=925
42. DY=158
43. //好友列表增值坐标
44. z=0
45. 循环 10 遍
46.     //偷菜
47.     延时500毫秒
48.     调用插件命令 XY = Bkgnd.FindColor(HwndEx, UX,UY,DX,DY, "FAF3F0")
49.     MyArray = Split(XY, "|")
50.     X = CInt(MyArray(0)): Y = CInt(MyArray(1))
51.     如果表达式 (X>0) 为真,则
52.         调用插件命令 Bkgnd.LeftClick(HwndEx, 847, 151+z)
53.         调用子程序 采
54.     否则
55.     条件结束
56.     //除草
57.     延时500毫秒
58.     调用插件命令 XY = Bkgnd.FindColor(HwndEx, UX,UY,DX,DY, "1a7349")
59.     MyArray = Split(XY, "|")
60.     X = CInt(MyArray(0)): Y = CInt(MyArray(1))
61.     如果表达式 (X>0) 为真,则
62.         调用插件命令 Bkgnd.LeftClick(HwndEx, 847, 151+z)
63.         调用子程序 采
64.     否则
65.     条件结束
66.     //除虫
67.     延时500毫秒
68.     调用插件命令 XY = Bkgnd.FindColor(HwndEx, UX,UY,DX,DY, "357894")
69.     MyArray = Split(XY, "|")
70.     X = CInt(MyArray(0)): Y = CInt(MyArray(1))
71.     如果表达式 (X>0) 为真,则
72.         调用插件命令 Bkgnd.LeftClick(HwndEx, 847, 151+z)
73.         调用子程序 采
74.     否则
75.     条件结束
76.     DY=DY+32
77.     UY=UY+32
78.     i=i+1
79.     z=z+31
80.     如果表达式 (i=11) 为真,则
81.         延时2000毫秒
82.         调用子程序 下一页
83.     条件结束
84. 循环结束
85. 跳转到标记 <开始>
86. 脚本停止运行
87. 子程序 采
88.     //判断是否是自己的农场
89.     调用子程序 采好友
90. 子程序结束,回到调用处
91. 子程序 采自己
92.     //收菜种菜
93. 子程序结束,回到调用处
94. 子程序 采好友
95.     //关闭好友栏（后台式）
96.     延时2000毫秒
97.     调用插件命令 Bkgnd.LeftClick(HwndEx, 755, 278)
98.     延时500毫秒
99.     //开始偷菜，除草，除虫
100.     x=95