Rem 主程序
FindPic 576, 437, 833, 630, "Attachment:\墨九.bmp", 0.5, intX, intY
Call mojiu
Delay 200
FindPic 339,415,574,663,"Attachment:\墨九.bmp",0.5,intX,intY
Call mojiu1
Delay 200
FindPic 1279,602,1491,639,"Attachment:\跳文本.bmp",0.5,intX,intY
Call twb
Delay 200
FindPic 583,425,1452,659,"Attachment:\打.bmp",0.5,intX,intY
Call da
Delay 2000
FindPic 769,216,1095,273,"Attachment:\选人.bmp",0.5,intX,intY
Call 选人
Delay 1000
FindPic 1220, 795, 1560, 915, "Attachment:\确定.bmp", 0.5, intX, intY
Call 胜
Delay 800
Goto 主程序
Sub d
LeftClick 1
Delay 200
End Sub
Sub twb
FindPic 1279,602,1491,639,"Attachment:\跳文本.bmp",0.5,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 200
LeftClick 1
Delay 200
End If
End Sub
Sub da
FindPic 583,425,1452,659,"Attachment:\打.bmp",0.5,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 200
LeftClick 1
Delay 1000
End If
End Sub
Sub mojiu
FindPic 576,437,833,630,"Attachment:\墨九.bmp",0.5,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 500
LeftClick 1
Delay 800
End If
End Sub
Sub mojiu1
FindPic 339,415,574,663,"Attachment:\墨九.bmp",0.5,intX,intY
If intX > 0 And intY > 0 Then
Delay 500
LeftClick 1
Delay 800
End If
End Sub
Sub qued
FindPic 1220,795,1560,915,"Attachment:\确定.bmp",0.5,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 180
LeftClick 1
Delay 200
End If
End Sub
Sub 胜
FindPic 858,190,1056,248,"Attachment:\胜利.bmp",0.5,intX,intY
If intX > 0 And intY > 0 Then
Delay 180
LeftClick 1
Delay 200
End If
FindPic 1220,795,1560,915,"Attachment:\确定.bmp",0.5,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 180
LeftClick 1
Delay 2000
End If
FindPic 1279,602,1491,639,"Attachment:\跳文本.bmp",0.5,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 200
LeftClick 1
Delay 200
KeyPress "F1", 1
Delay 200
KeyPress "F1", 1
Delay 200
End If
End Sub
Sub 败
End Sub
Sub 存档
End Sub
Sub 读档
End Sub
Sub 选人
FindPic 769, 216, 1095, 273, "Attachment:\选人.bmp", 0.5, intX, intY
If intX > 0 And intY > 0 Then
MoveTo 428, 412
Delay 180
LeftClick 1
Delay 200
MoveTo 584, 421
Delay 180
LeftClick 1
Delay 200
MoveTo 734, 415
LeftClick 1
Delay 200
MoveTo 903, 417
LeftClick 1
Delay 200
End If
FindPic 1317,750,1590,840,"Attachment:\出战.bmp",0.5,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 180
LeftClick 1
Delay 50000
End If
End Sub
图片和屏幕坐标位置，自己改。水平有限，别笑。