Rem a
i=0
While i=0
FindPic 0,0,1366,768,"Attachment:\不懈.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
i=1
MoveTo intX, intY+100
Delay 500
LeftClick 1
End If
Wend
Delay 500
i=0
While i=0
FindPic 0,0,1366,768,"Attachment:\挑战好友.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
i=1
MoveTo intX, intY
Delay 500
LeftClick 1
End If
Wend
i = 0
While i = 0
FindPic 0,0,1366,768,"Attachment:\比试.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
i = 1
Delay 500
MoveTo intX+20 , intY + 100
Delay 2000
LeftClick 1
Delay 1000
LeftClick 1
Delay 1000
SetSimMode 2
KeyPress "Down", 1
End if
Wend
Delay 1000
i = 0
While i = 0
FindPic 0,0,1366,768,"Attachment:\开始挑战.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
i = 1
Delay 500
MoveTo intX, intY
Delay 200
LeftClick 1
End if
Wend
Delay 1000
i = 0
While i = 0
FindPic 0,0,1366,768,"Attachment:\不启动.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
i = 1
Delay 500
MoveTo intX, intY
Delay 200
LeftClick 1
End if
Wend
Delay 1000
i = 0
While i = 0
FindPic 0,0,1366,768,"Attachment:\其他.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
i = 1
Delay 500
MoveTo intX, intY
Delay 200
LeftClick 1
End if
Wend
Delay 1000
i = 0
While i = 0
FindPic 0,0,1366,768,"Attachment:\兑换.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
i = 1
Delay 500
MoveTo intX, intY
Delay 200
LeftClick 1
End if
Wend
Delay 2000
i = 0
While i = 0
FindPic 0,0,1366,768,"Attachment:\挑战中心.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
i = 1
Delay 500
MoveTo intX, intY
Delay 200
LeftClick 1
End If
Delay 1000
Wend
Goto a
都怕有毒 源码拿去