For 6 a=x b=y For 3 //移动到菜地并点击鼠标左键 Plugin Bkgnd.LeftClick(HwndEx, a, b-20) a=a+100 b=b-50 Delay 500 EndFor x=x+100 y=y+50 EndFor Delay 100 Delay 100 //展开好友栏(后台式) Delay yanshi*1000 Plugin Bkgnd.LeftClick(HwndEx, 935, 278) Return 采好友 Sub OnScriptExit Plugin Web.Tips("脚本停止运行") Return Sub 登陆空间 Delay 1000 Plugin Web.Go("http://user.qzone.qq.com") Delay 1000 Plugin Web.HtmlInput(QQ,"id:u&frame:0") Delay 1000 Plugin Web.HtmlInput(QQPwd,"id:p&frame:0") Delay 1000 Plugin Web.HtmlClick("id:login_button&frame:0") Delay 2000 Gosub 登陆农场 Return 登陆空间 Sub 登陆农场 Delay 2000 Plugin Web.LeftClick(220,514) Delay 1000 Plugin Web.LeftClick(680,291) Delay 5000 //定位农田 MessageBox "请将田地定位到左上角" Delay 5000 //展开好友栏(后台式) Delay yanshi*1000 Plugin Bkgnd.LeftClick(HwndEx, 935, 278) Goto <开始> Return 登陆农场 Sub 下一页 Delay 1000 //点击下一页 //判断是否是末页,如果是点击“首页”,不是点击下一页 Plugin XY = Bkgnd.FindColor(HwndEx, 909,461,923, 475, "A2A2A2") MyArray = Split(XY, "|") X = CInt(MyArray(0)): Y = CInt(MyArray(1)) If X>0 Delay 2000 Plugin Bkgnd.LeftClick(HwndEx, 930, 120) Else Delay 1000 Plugin Bkgnd.LeftClick(HwndEx, 916, 467) Delay time*1000 EndIf Goto <开始> Return 下一页