Hwnd = Plugin.Window.Foreground()
Call Plugin.Window.Move(Hwnd, 0, 0)
Do
G="清除红包.BMP"
GG = Split(G,"|")
For I=0 TO UBound(GG)
FindPic 0,0,450,850,"Attachment:\"&GG(I),1,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
LeftClick 1
End If
Next
For i = 1 To 10
If i = 1 Then
Call chengxuA
ElseIf i = 2 Then
Call chengxuB
ElseIf i = 3 Then
Call chengxuC
ElseIf i = 4 Then
Call chengxuD
ElseIf i = 5 Then
Call chengxuE
ElseIf i = 6 Then
Call chengxuF
ElseIf i = 7 Then
Call chengxuG
ElseIf i = 8 Then
Call chengxuH
ElseIf i = 9 Then
Call chengxuI
ElseIf i = 10 Then
Call chengxuJ
End If
next
loop
Sub chengxuA
FindPic 0,0,450,850,"Attachment:\点通缉.BMP",1,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
LeftClick 1
Else
End If
End Sub
Sub chengxuB
G="进入标记.BMP|进入标记2.BMP"
GG = Split(G,"|")
For I=0 TO UBound(GG)
FindPic 0,0,450,850,"Attachment:\"&GG(I),1,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY+15
LeftClick 1
End If
Next
End Sub
Sub chengxuC
G="追击2.BMP"
GG = Split(G,"|")
For I=0 TO UBound(GG)
FindPic 0,0,450,850,"Attachment:\"&GG(I),1,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
LeftClick 1
End If
Next
End Sub
Sub chengxuD
FindPic 0,0,450,850,"Attachment:\点门客.BMP",1,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
LeftClick 1
End If
End Sub
Sub chengxuE
G="追击.BMP"
GG = Split(G,"|")
For I=0 TO UBound(GG)
FindPic 0,0,450,850,"Attachment:\"&GG(I),1,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
LeftClick 1
End If
Next
G="关闭.BMP"
GG = Split(G,"|")
For I=0 TO UBound(GG)
Delay 1800
FindPic 0,0,450,850,"Attachment:\"&GG(I),1,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
LeftClick 1
End If
Next
End Sub
Sub chengxuF
G="战斗.BMP"
GG = Split(G,"|")
For I=0 TO UBound(GG)
FindPic 0,0,450,850,"Attachment:\"&GG(I),1,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
LeftClick 1
End If
Next
End Sub
Sub chengxuG
G="跳过.BMP"
GG = Split(G,"|")
For I=0 TO UBound(GG)
FindPic 0,0,450,850,"Attachment:\"&GG(I),1,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
LeftClick 1
End If
Next
End Sub
Sub chengxuH
G="跳过结算界面.BMP"
GG = Split(G,"|")
For I=0 TO UBound(GG)
FindPic 0,0,450,850,"Attachment:\"&GG(I),1,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
LeftClick 1
End If
Next
End Sub
Sub chengxuI
G="关闭聊天窗口.BMP"
GG = Split(G,"|")
For I=0 TO UBound(GG)
FindPic 0,0,450,850,"Attachment:\"&GG(I),1,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
LeftClick 1
End If
Next
End Sub
Sub chengxuJ
G="关闭.BMP"
GG = Split(G,"|")
For I=0 TO UBound(GG)
FindPic 0,0,450,850,"Attachment:\"&GG(I),1,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
LeftClick 1
End If
Next
End Sub