hy="5" "好友页数" UserVar sj="1" "刷新时间(分)" UserVar af=DropList{"是":"1"|"否":"2"}=1 "安抚好友" UserVar zf=DropList{"是":"1"|"否":"2"}=1 "祝福好友" UserVar xl=DropList{"是":"1"|"否":"2"}=1 "窃取修炼" UserVar zh=DropList{"是":"1"|"否":"2"}=1 "召回好友" UserVar sk=DropList{"是":"1"|"否":"2"}=1 "时空震荡" Call Plugin.Web.Bind("WQM.exe") Delay 200 KeyDown "Alt", 1 Delay 200 KeyPress "Space", 1 Delay 200 KeyUp "Alt", 1 Delay 200 KeyPress "X", 1 Delay 200 Call Plugin.Web.Go("http://res.xb.qq.com/home.html") Delay 3000 MessageBox "请手动登陆游戏"&vbCrlf&vbCrlf&"登陆成功后再点确定" Delay 500 Call Plugin.Web.ScrollTo(0,0) Delay 500 MessageBox "请勿改动游戏窗口的大小和位置"&vbCrlf&vbCrlf&"否则系统无法正常运行" Delay 500 MoveTo 810,300 Delay 500 LeftClick 1 Delay 500 MoveTo 1060,480 Delay 500 LeftClick 1 Delay 1000 While sj>0 FindPic 860,260,1079,799,"Attachment:\shuaxin.bmp",0.8,intX,intY If intX > 860 And intY > 260 Then MoveTo intX+10,intY+10 Delay 200 LeftClick 1 Delay 3000 Else End If for (hy) For 5 FindPic 860,260,1079,799,"Attachment:\anfu.bmp",0.8,intX,intY If af=1 and intX > 860 And intY > 260 Then MoveTo intX+10,intY+10 Delay 200 LeftClick 1 Delay 200 Else MoveTo 1025,680 End If FindPic 860,260,1079,799,"Attachment:\baoxiang.bmp",0.8,intX,intY If zf=1 and intX > 860 And intY > 260 Then MoveTo intX+10,intY+10 Delay 200 LeftClick 1 Delay 200 Else MoveTo 1025,680 End If FindPic 860,260,1079,799,"Attachment:\xiulian.bmp",0.8,intX,intY If xl=1 and intX > 860 And intY > 260 Then MoveTo intX+10,intY+10 Delay 200 LeftClick 1 Delay 200 Else MoveTo 1025,680 End If FindPic 860,260,1079,799,"Attachment:\gouyin.bmp",0.8,intX,intY If zh=1 and intX > 860 And intY > 260 Then MoveTo intX+10,intY+10 Delay 200 LeftClick 1 Delay 200 Else MoveTo 1025,680 End If FindPic 860,260,1079,799,"Attachment:\shandian.bmp",0.8,intX,intY If sk=1 and intX > 860 And intY > 260 Then MoveTo intX+10,intY+10 Delay 200 LeftClick 1 Delay 200 Else MoveTo 1025,680 End If Next