1.             延时1000毫秒
  2.             调用插件命令 Bkgnd.LeftClick(Hwnd,937,248)
  3.             调用子程序 看网络
  4.             跳转到标记 1
  5.         条件结束
  6.     条件结束
  7. 子程序结束,回到调用处
  8. 子程序 我的农场
  9.     延时500毫秒
  10.     调用插件命令 Bkgnd.LeftClick(Hwnd, 672, 30)
  11.     延时2000毫秒
  12.     调用插件命令 Bkgnd.LeftClick(Hwnd, 754, 251)
  13.     延时500毫秒
  14.     调用子程序 给我农场收获
  15.     调用子程序 给我农场除虫
  16.     调用子程序 给我农场浇水
  17.     调用子程序 给我农场除草
  18.     延时YanShiA毫秒
  19.     调用子程序 看网络
  20.     跳转到标记 开始
  21. 子程序结束,回到调用处
  22. 子程序 给我农场收获
  23.     延时500毫秒
  24.     调用插件命令 Bkgnd.KeyPress(Hwnd, 82)
  25.     延时500毫秒
  26.     调用子程序 动工
  27.     延时1000毫秒
  28. 子程序结束,回到调用处
  29. 子程序 给我农场除草
  30.     延时500毫秒
  31.     调用插件命令 Bkgnd.KeyPress(Hwnd, 87)
  32.     延时500毫秒
  33.     调用子程序 动工
  34.     延时500毫秒
  35. 子程序结束,回到调用处
  36. 子程序 给我农场浇水
  37.     延时500毫秒
  38.     调用插件命令 Bkgnd.KeyPress(Hwnd, 81)
  39.     延时500毫秒
  40.     调用子程序 动工
  41.     延时500毫秒
  42. 子程序结束,回到调用处
  43. 子程序 给我农场除虫
  44.     延时500毫秒
  45.     调用插件命令 Bkgnd.KeyPress(Hwnd, 69)
  46.     延时500毫秒
  47.     调用子程序 动工
  48.     延时500毫秒
  49. 子程序结束,回到调用处
  50. 子程序 动工
  51.     （VBScript语句） x=330:y=145
  52.     循环 6 遍
  53.         延时100毫秒
  54.         调用插件命令 Bkgnd.LeftClick(Hwnd, x, y)
  55.         （VBScript语句） x=x-100:y=y+50
  56.         延时100毫秒
  57.         调用插件命令 Bkgnd.LeftClick(Hwnd, x, y)
  58.         （VBScript语句） x=x-100:y=y+50
  59.         延时100毫秒
  60.         调用插件命令 Bkgnd.LeftClick(Hwnd, x, y)
  61.         （VBScript语句） x=x+300:y=y-50
  62.     循环结束
  63.     延时1000毫秒
  64.     调用子程序 看网络
  65.     延时1000毫秒
  66. 子程序结束,回到调用处
  67. 子程序 看网络
  68.     延时1000毫秒
  69.     调用插件命令 XY = BkgndColor.FindColor(Hwnd,482,377,548,405, "FFD339")
  70.     MyArray = Split(XY, "|")
  71.     X = Clng(MyArray(0)): Y = Clng(MyArray(1))
  72.     如果表达式 (X>0 and Y>0) 为真,则
  73.         调用插件命令 Bkgnd.LeftClick(Hwnd, X, Y)
  74.         延时1000毫秒
  75.     条件结束
  76.     延时200毫秒
  77.     调用插件命令 XY = BkgndColor.FindColor(Hwnd,482,377,548,405, "F9C736")
  78.     MyArray = Split(XY, "|")
  79.     X = Clng(MyArray(0)): Y = Clng(MyArray(1))
  80.     如果表达式 (X>0 and Y>0) 为真,则
  81.         调用插件命令 Bkgnd.LeftClick(Hwnd, X, Y)
  82.         延时1000毫秒
  83.     条件结束
  84.     延时200毫秒
  85.     调用插件命令 aXaY = BkgndColor.FindColor(Hwnd,437,365,511,397, "0892FF")
  86.     MyArray = Split(aXaY, "|")
  87.     aX = Clng(MyArray(0)): aY = Clng(MyArray(1))
  88.     如果表达式 (aX>0 and aY>0) 为真,则
  89.         调用插件命令 Bkgnd.LeftClick(Hwnd, aX, aY)
  90.         延时1000毫秒
  91.         跳转到标记 开始
  92.     条件结束
  93.     延时200毫秒
  94.     调用插件命令 aXaY = BkgndColor.FindColor(Hwnd,437,365,511,397, "0F94FD")
  95.     MyArray = Split(aXaY, "|")
  96.     aX = Clng(MyArray(0)): aY = Clng(MyArray(1))
  97.     如果表达式 (aX>0 and aY>0) 为真,则
  98.         调用插件命令 Bkgnd.LeftClick(Hwnd, aX, aY)
  99.         延时1000毫秒
  100.         跳转到标记 开始