1.     y=280
  2.     循环 6 遍
  3.         a=x
  4.         b=y
  5.         循环 3 遍
  6.             //移动到菜地并点击鼠标左键
  7.             调用插件命令 Bkgnd.LeftClick(HwndEx, a, b-20)
  8.             a=a+100
  9.             b=b-50
  10.             延时500毫秒
  11.         循环结束
  12.         x=x+100
  13.         y=y+50
  14.     循环结束
  15.     延时100毫秒
  16.     延时100毫秒
  17.     //展开好友栏（后台式）
  18.     延时yanshi*1000毫秒
  19.     调用插件命令 Bkgnd.LeftClick(HwndEx, 935, 278)
  20. 子程序结束,回到调用处
  21. 子程序 OnScriptExit
  22.     调用插件命令 Web.Tips("脚本停止运行")
  23. 子程序结束,回到调用处
  24. 子程序 登陆空间
  25.     延时1000毫秒
  26.     调用插件命令 Web.Go("http://user.qzone.qq.com")
  27.     延时1000毫秒
  28.     调用插件命令 Web.HtmlInput(QQ,"id:u&frame:0")
  29.     延时1000毫秒
  30.     调用插件命令 Web.HtmlInput(QQPwd,"id:p&frame:0")
  31.     延时1000毫秒
  32.     调用插件命令 Web.HtmlClick("id:login_button&frame:0")
  33.     延时2000毫秒
  34.     调用子程序 登陆农场
  35. 子程序结束,回到调用处
  36. 子程序 登陆农场
  37.     延时2000毫秒
  38.     调用插件命令 Web.LeftClick(220,514)
  39.     延时1000毫秒
  40.     调用插件命令 Web.LeftClick(680,291)
  41.     延时5000毫秒
  42.     //定位农田
  43.     弹出窗口 "请将田地定位到左上角"
  44.     延时5000毫秒
  45.     //展开好友栏（后台式）
  46.     延时yanshi*1000毫秒
  47.     调用插件命令 Bkgnd.LeftClick(HwndEx, 935, 278)
  48.     跳转到标记 <开始>
  49. 子程序结束,回到调用处
  50. 子程序 下一页
  51.     延时1000毫秒
  52.     //点击下一页
  53.     //判断是否是末页，如果是点击“首页”，不是点击下一页
  54.     调用插件命令 XY = Bkgnd.FindColor(HwndEx, 909,461,923, 475, "A2A2A2")
  55.     MyArray = Split(XY, "|")
  56.     X = CInt(MyArray(0)): Y = CInt(MyArray(1))
  57.     如果表达式 (X>0) 为真,则
  58.         延时2000毫秒
  59.         调用插件命令 Bkgnd.LeftClick(HwndEx, 930, 120)
  60.     否则
  61.         延时1000毫秒
  62.         调用插件命令 Bkgnd.LeftClick(HwndEx, 916, 467)
  63.         延时time*1000毫秒
  64.     条件结束
  65.     跳转到标记 <开始>
  66. 子程序结束,回到调用处