//自定义变量 UserVar j=1 自己的编号 UserVar t=3 偷几个号友(包括自己) UserVar yanshi=1 当没展开好友栏时把这个延时加大点 dim x(14),y(14) //FLASH菜地坐标定量数组,支持14个菜地 x(0)=300:y(0)=290 x(1)=200:y(1)=340 x(2)=100:y(2)=390 x(3)=400:y(3)=340 x(4)=300:y(4)=390 x(5)=200:y(5)=440 x(6)=500:y(6)=390 x(7)=400:y(7)=440 x(8)=300:y(8)=490 x(9)=600:y(9)=440 x(10)=500:y(10)=490 x(11)=400:y(11)=540 x(12)=700:y(12)=490 x(13)=600:y(13)=540 Plugin ProcessID=Web.Bind("wqm.exe") If ProcessID=0 MessageBox "网页按键精灵没有运行" EndScript EndIf Plugin Web.Tips("脚本开始运行") Plugin Web.SetSize(1028,744) Plugin Web.Go("http://happyfarm.xiaoyou.qq.com/") Plugin Web.ScrollTo(0,0) Rem <开始> //展开好友栏 Delay yanshi*1000 Delay 2000 Plugin Web.LeftClick(988,351) Delay 1000 z=0 a=1 //依次选择好友 For t If a=11 Delay 500 Plugin Web.LeftClick(964,528) z=0 EndIf Delay 500 Plugin Web.LeftClick(862,223+z) Gosub 采 z=z+31 a=a+1 EndFor //刷新网页 Plugin Web.KeyPress(116) Goto <开始> EndScript Sub 采 b=1 For 4 i=0 //当是自己的农场时点最右边的手,当别人的农场时点偷窃手 If a=j //摘 If b=1 Delay 500 Plugin Web.LeftClick(659,580) EndIf //杀虫 If b=2 Delay 500 Plugin Web.LeftClick(609,580) EndIf //锄草 If b=3 Delay 500 Plugin Web.LeftClick(559,580) EndIf //浇水 If b=4 Delay 500 Plugin Web.LeftClick(509,580) EndIf Else //偷 If b=1 Delay 500 Plugin Web.LeftClick(559,580) EndIf //杀虫 If b=2 Delay 500 Plugin Web.LeftClick(509,580) EndIf //锄草 If b=3 Delay 500 Plugin Web.LeftClick(459,580) EndIf //浇水 If b=4 Delay 500 Plugin Web.LeftClick(409,580)