1.                                                                                                                                                 左键单击
  2.                                                                                                                                                 Call Plugin.Msg.Tips("浇水成功")//用户提示
  3.                                                                                                                                                 Call sx() //跳转到刷新标记
  4.                                                                                                                                             否则
  5.                                                                                                                                                 Call Plugin.Msg.Tips("不需要浇水") //用户提示
  6.                                                                                                                                                 End If
  7.                                                                                                                                                 End Sub
  8.                                                                                                                                                 End Sub
  9.                                                                                                                                                 子程序 wxj() //子程序-喂小鸡
  10.                                                                                                                                                     延时300 //喂食延时毫秒
  11.                                                                                                                                                     Call Plugin.Msg.Tips("开始喂食！") //用户提示
  12.                                                                                                                                                     FindPic 0,0,1366,768,"Attachment:\喂食.bmp",0.7,wsx,wsy //判断是否需要喂食
  13.                                                                                                                                                     如果表达式 (wsx > 0 And wsy > 0 Then) 为真,则
  14.                                                                                                                                                         鼠标移到 wsx+1 , wsy+1
  15.                                                                                                                                                         左键单击
  16.                                                                                                                                                         Call Plugin.Msg.Tips("喂食成功") //用户提示
  17.                                                                                                                                                         Call sx() //跳转到刷新标记
  18.                                                                                                                                                     否则如果(wsx < 0 And wsy < 0 Then)为真,则
  19.                                                                                                                                                         Call Plugin.Msg.Tips("不需喂食") //用户提示
  20.                                                                                                                                                         End If
  21.                                                                                                                                                         End Sub
  22.                                                                                                                                                         End Sub
  23.                                                                                                                                                         子程序 ksq() //子程序-开始敲蛋
  24.                                                                                                                                                             延时1000 //敲蛋延时毫秒
  25.                                                                                                                                                             Call Plugin.Msg.Tips("开始敲蛋！") //用户提示
  26.                                                                                                                                                             FindPic 0,0,1366,768,"Attachment:\yt.bmp",0.7,qdx,qdy //判断是否有蛋可敲
  27.                                                                                                                                                             鼠标移到 qdx+25 , qdy-25
  28.                                                                                                                                                             延时200 //点击敲蛋延时毫秒
  29.                                                                                                                                                             左键单击
  30.                                                                                                                                                             延时800毫秒
  31.                                                                                                                                                             FindPic 0,0,1366,768,"Attachment:\qd.bmp",0.5,tsx,tsy //判断能否敲蛋
  32.                                                                                                                                                             如果表达式 (tsx > 0 And tsy > 0 Then) 为真,则
  33.                                                                                                                                                                 鼠标移到 tsx , +
  34.                                                                                                                                                                 延时300毫秒
  35.                                                                                                                                                                 左键单击
  36.                                                                                                                                                                 Call Plugin.Msg.Tips("不是QQ好友不能敲蛋") //用户提示
  37.                                                                                                                                                             否则
  38.                                                                                                                                                                 Call sx() //跳转到刷新标记
  39.                                                                                                                                                                 end if
  40.                                                                                                                                                                 延时1000毫秒
  41.                                                                                                                                                                 End Sub
  42.                                                                                                                                                                 End Sub
  43.                                                                                                                                                                 子程序 shs() //子程序-收获树
  44.                                                                                                                                                                     延时300 //收获延时毫秒
  45.                                                                                                                                                                     Call Plugin.Msg.Tips("开始收获摇钱树！") //用户提示
  46.                                                                                                                                                                     FindPic 0,0,1366,768,"Attachment:\收获.bmp",0.7,ysx,ysy //判断是否要摇树
  47.                                                                                                                                                                     如果表达式 (ysx>0 and ysy>0 then) 为真,则
  48.                                                                                                                                                                         鼠标移到 ysx+1 , ysy+1
  49.                                                                                                                                                                         延时500 //摇树延时毫秒
  50.                                                                                                                                                                         左键单击
  51.                                                                                                                                                                     否则
  52.                                                                                                                                                                         Call Plugin.Msg.Tips("没有摇钱树可摇！") //用户提示
  53.                                                                                                                                                                         Call sx() //跳转到刷新标记
  54.                                                                                                                                                                         end if
  55.                                                                                                                                                                         End Sub
  56.                                                                                                                                                                         End Sub
  57.                                                                                                                                                                         子程序 sx() //子程序-刷新
  58.                                                                                                                                                                             延时2000 //刷新延时毫秒
  59.                                                                                                                                                                             FindPic 0,0,1366,768,"Attachment:\sx.bmp",0.7,sxx,sxy
  60.                                                                                                                                                                             如果表达式 (sxx > 0 And sxy > 0 Then) 为真,则
  61.                                                                                                                                                                                 鼠标移到 sxx , +
  62.                                                                                                                                                                                 延时500 //点击延时毫秒
  63.                                                                                                                                                                                 左键单击
  64.                                                                                                                                                                                 Call Plugin.Msg.Tips("刷新成功") //用户提示
  65.                                                                                                                                                                                 延时1000毫秒
  66.                                                                                                                                                                                 End If
  67.                                                                                                                                                                                 End Sub
  68.                                                                                                                                                                                 End Sub
  69.                                                                                                                                                                                 子程序 xyy() //子程序-下一页
  70.                                                                                                                                                                                     FindPic 0, 0, 1366, 768, "Attachment:\农场向右.bmp", 0.7, xyx, xyy
  71.                                                                                                                                                                                     如果表达式 (xyx > 0 and xyy > 0 Then) 为真,则
  72.                                                                                                                                                                                         鼠标移到 xyx , xyy
  73.                                                                                                                                                                                         延时500 //延时毫秒
  74.                                                                                                                                                                                         左键单击
  75.                                                                                                                                                                                         w = w + 1 //每翻一页W自加1
  76.                                                                                                                                                                                         跳转到标记 a //进入循环6
  77.                                                                                                                                                                                     否则
  78.                                                                                                                                                                                         Call jss()
  79.                                                                                                                                                                                         End If
  80.                                                                                                                                                                                         End Sub
  81.                                                                                                                                                                                         End Sub
  82.                                                                                                                                                                                         子程序 jss()
  83.                                                                                                                                                                                             Call Plugin.Msg.Tips("偷菜完毕！") //用户提示
  84.                                                                                                                                                                                             FindPic 0, 0, 1024, 768, "Attachment:\cc.bmp", 0.7, ccX, ccY
  85.                                                                                                                                                                                             如果表达式 (ccx>0 and ccy>0 then) 为真,则
  86.                                                                                                                                                                                                 鼠标移到 ccX , ccY
  87.                                                                                                                                                                                                 延时300毫秒
  88.                                                                                                                                                                                                 左键单击
  89.                                                                                                                                                                                                 end if
  90.                                                                                                                                                                                                 延时var6*1000*60毫秒
  91.                                                                                                                                                                                                 跳转到标记 gh
  92.                                                                                                                                                                                                 End Sub