1. 用户定义变量 ZC=droplist{否:0|是:1}=0 是否定时关机
2. 用户定义变量 u_CC=droplist{不帮:0|帮:1}=1 帮他人除草
3. 用户定义变量 u_CC1=droplist{不帮:0|帮:1}=1 帮他人除虫
4. 用户定义变量 u_Zhai=droplist{不摘:0|摘:1}=1 摘他人果实
5. 用户定义变量 YanShi0=droplist{快:1000|中:2000|慢:3000}=1 打开下页时间
6. 用户定义变量 YanShi=50 请输入下一轮的时间间隔，默认是50秒
7. （VBScript语句） dim x,y,ax,ay
8. YanShiA=YanShi*1000
9. 调用插件命令 Hwnd = Window.MousePoint()
10. 调用子程序 定时关机
11. 标记 开始
12. 延时1000毫秒
13. 调用子程序 是否开好友
14. 标记 3
15. 调用插件命令 Bkgnd.LeftClick(Hwnd,930,122)
16. 延时2000毫秒
17. 标记 1
18. 延时1000毫秒
19. 调用插件命令 XY = BkgndColor.FindColor(Hwnd,903,458,927,475, "A9A9A9")
20. MyArray = Split(XY, "|")
21. X = Clng(MyArray(0)): Y = Clng(MyArray(1))
22. 如果表达式 (X>0 and Y>0) 为真,则
23.     跳转到标记 回我农场
24. 条件结束
25. 调用子程序 看是否有收获
26. 调用子程序 看是否有草
27. 调用子程序 看是否有虫
28. 调用子程序 看网络
29. 延时YanShi0毫秒
30. 调用插件命令 Bkgnd.LeftClick(Hwnd, 916, 469)
31. 如果表达式 (ZC=1) 为真,则
32.     跳转到标记 Start
33. 条件结束
34. 跳转到标记 1
35. 标记 回我农场
36. 延时500毫秒
37. 调用插件命令 Bkgnd.LeftClick(Hwnd,930,122)
38. 延时100毫秒
39. 调用插件命令 Bkgnd.LeftClick(Hwnd,930,122)
40. 延时1000毫秒
41. 调用子程序 我的农场
42. 跳转到标记 开始
43. 子程序 看是否有草
44.     延时500毫秒
45.     如果表达式 (u_CC=1) 为真,则
46.         调用插件命令 XY = BkgndColor.FindColor(Hwnd,900,140,927,455, "186E44")
47.         MyArray = Split(XY, "|")
48.         X = Clng(MyArray(0)): Y = Clng(MyArray(1))
49.         如果表达式 (X>0 and Y>0) 为真,则
50.             调用插件命令 Bkgnd.LeftClick(Hwnd, X, Y)
51.             延时2500毫秒
52.             调用插件命令 Bkgnd.LeftClick(Hwnd, 753, 248)
53.             延时500毫秒
54.             调用插件命令 Bkgnd.KeyPress(Hwnd, 87)
55.             延时100毫秒
56.             调用子程序 动工
57.             延时1000毫秒
58.             调用插件命令 Bkgnd.LeftClick(Hwnd,937,248)
59.             调用子程序 看网络
60.             跳转到标记 1
61.         条件结束
62.     条件结束
63. 子程序结束,回到调用处
64. 本帖隐藏的内容需要回复才可以浏览
65. 子程序 看是否有虫
66.     延时500毫秒
67.     如果表达式 (u_CC1=1) 为真,则
68.         调用插件命令 XY = BkgndColor.FindColor(Hwnd,900,140,927,455, "205F7A")
69.         MyArray = Split(XY, "|")
70.         X = Clng(MyArray(0)): Y = Clng(MyArray(1))
71.         如果表达式 (X>0 and Y>0) 为真,则
72.             调用插件命令 Bkgnd.LeftClick(Hwnd, X, Y)
73.             延时2500毫秒
74.             调用插件命令 Bkgnd.LeftClick(Hwnd, 753, 248)
75.             延时500毫秒
76.             调用插件命令 Bkgnd.KeyPress(Hwnd, 69)
77.             延时100毫秒
78.             调用子程序 动工
79.             调用子程序 给我农场浇水
80.             延时1000毫秒
81.             调用插件命令 Bkgnd.LeftClick(Hwnd,937,248)
82.             调用子程序 看网络
83.             跳转到标记 1
84.         条件结束
85.     条件结束
86. 子程序结束,回到调用处
87. 子程序 看是否有收获
88.     延时500毫秒
89.     如果表达式 (u_Zhai=1) 为真,则
90.         调用插件命令 XY = BkgndColor.FindColor(Hwnd,900,140,927,455, "346FAF")
91.         MyArray = Split(XY, "|")
92.         X = Clng(MyArray(0)): Y = Clng(MyArray(1))
93.         如果表达式 (X>0 and Y>0) 为真,则
94.             调用插件命令 Bkgnd.LeftClick(Hwnd, X, Y)
95.             延时2500毫秒
96.             调用插件命令 Bkgnd.LeftClick(Hwnd, 753, 248)
97.             延时500毫秒
98.             调用插件命令 Bkgnd.KeyPress(Hwnd, 82)
99.             延时100毫秒
100.             调用子程序 动工