UserVar hysl=1 你有多少好友 UserVar ydck=DropList{是:1|否:0}=0 启动后是否将窗口移出桌面 UserVar dlzt=DropList{网页记录了登陆状态:0|需要登陆用户:1}=0 登陆状态 UserVar zh=********* 帐号 UserVar mm=******* 密码 Plugin Web.Bind("wqm.exe") If dlzt=1 Plugin Web.Tips("打开校内网登陆界面") Plugin Web.Go("http://reg.xiaonei.com/xn6206.do?ss=10112&rt=26") Plugin Web.HtmlInput(zh,"id:email") Plugin Web.HtmlInput(mm,"id:password") Plugin Web.HtmlClick("id:login") EndIf Plugin Web.Tips("等待10秒进入游戏界面") Plugin Web.Go("http://apps.xiaonei.com/happyfarm?origin=103") Delay 10000 dwx=-1 While dwx=-1 //设置网页大小 Plugin Web.Tips("设置调整WQM界面大小") Plugin Web.SetSize(1156,838) Plugin Web.ScrollTo(0,70) Delay 2000 Plugin Web.Tips("鼠标拖动定位1查找") VBSCall FindPic(0,0,1024,768,"Attachment:\定位1.bmp",0.7,dwx,dwy) If dwx>0 and dwy>0 MoveTo dwx-75,dwy+389 LeftDown 1 Delay 500 MoveTo dwx-75-43,dwy+389-138 LeftUp 1 Delay 500 Else Plugin Web.Tips("鼠标拖动定位2查找") VBSCall FindPic(0,0,1024,768,"Attachment:\定位2.bmp",0.7,dwx,dwy) If dwx>0 and dwy>0 MoveTo dwx-116,dwy+364 LeftDown 1 Delay 500 MoveTo dwx-116-43,dwy+364-138 LeftUp 1 Delay 500 EndIf EndIf EndWhile If ydck=1 //下面这句是得到当前最前面的窗口句柄 Plugin Hwnd = Window.Foreground() Plugin Web.Tips("WQM窗体被移动到屏幕外面") //下面这句是移动窗口到(5000,5000)位置 Plugin Window.Move(Hwnd, 5000, 5000) EndIf //设置好友菜单变量 While true j=int(hysl / 10)+1 l=hysl mod 10 i=10:k=0 For j n=0 For i If k=j and i>l Goto [结束] EndIf //跳过自己 If k=0 and n=0 Else djwzx=798:djwzy=316+n*32:cs=1 Gosub [打开好友菜单] Gosub [采集] EndIf n=n+1 EndFor djwzx=824:djwzy=619:cs=1 Gosub [打开好友菜单] k=k+1 EndFor //测试句。需要去掉 //测试句。需要去掉 Rem [结束] djwzx=824:djwzy=619:cs=j Gosub [打开好友菜单] EndWhile EndScript Sub [采集] Plugin Web.Tips("开始偷好友的果实") Plugin Web.LeftClick(552,622) Delay 1000 //设置环境 cdx=345:cdy=245 hcz=190/2:scz=90/2:ydcs=6:wbl=0:nbl=0 //进行收割农作物 For 3 For ydcs Plugin Web.LeftClick(cdx+hcz*(nbl-wbl),cdy+scz*(nbl+wbl)) nbl=nbl+1 Delay 1000 EndFor nbl=0 wbl=wbl+1 EndFor