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