附上破验证的代码
VBS x=90: y=110
VBS n=10
VBSCall FindPic(281,377,461,495,"VCbar.bmp",0.9,XX,YY)
If XX>=0 and YY>=0
VBSCall SetCursorPos(XX+5, YY+5)
LeftClick 1
Delay 1000
For 4
Gosub M0
Gosub M1
Gosub M2
Gosub M3
Gosub M4
Gosub M5
Gosub M6
Gosub M7
Gosub M8
Gosub M9
Rem sayE
SayExpression txt
Delay 2000
Rem nxt
VBS x=x+n
VBS y=y+n
EndFor
Delay 1000
KeyPress 13 1
KeyUp 13 1
Delay 5000
EndScript
Sub M0
VBSCall FindPic(x+n,409,y+n,479,"0.bmp",1, XX, YY)
If XX>=0 and YY>=0
VBS txt=0
Delay 1000
Goto sayE
EndIf
Return
Sub M1
VBSCall FindPic(x+n,409,y+n,479,"1.bmp",1, XX, YY)
If XX>=0 and YY>=0
VBS txt=1
Delay 1000
Goto sayE
EndIf
Return
Sub M2
VBSCall FindPic(x+n,409,y+n,479,"2.bmp",1, XX, YY)
If XX>=0 and YY>=0
VBS txt=2
Delay 1000
Goto sayE
EndIf
Return
Sub M3
VBSCall FindPic(x+n,409,y+n,479,"3.bmp",1, XX, YY)
If XX>=0 and YY>=0
VBS txt=3
Delay 1000
Goto sayE
EndIf
Return
Sub M4
VBSCall FindPic(x+n,409,y+n,479,"4.bmp",1, XX, YY)
If XX>=0 and YY>=0
VBS txt=4
Delay 1000
Goto sayE
EndIf
Return
Sub M5
VBSCall FindPic(x+n,409,y+n,479,"5.bmp",1, XX, YY)
If XX>=0 and YY>=0
VBS txt=5
Delay 1000
Goto sayE
EndIf
Return
Sub M6
VBSCall FindPic(x+n,409,y+n,479,"6.bmp",1, XX, YY)
If XX>=0 and YY>=0
VBS txt=6
Delay 1000
Goto sayE
EndIf
Return
Sub M7
VBSCall FindPic(x+n,409,y+n,479,"7.bmp",1, XX, YY)
If XX>=0 and YY>=0
VBS txt=7
Delay 1000
Goto sayE
EndIf
Return
Sub M8
VBSCall FindPic(x+n,409,y+n,479,"8.bmp",1, XX, YY)
If XX>=0 and YY>=0
VBS txt=8
Delay 1000
Goto sayE
EndIf
Return
Sub M9
VBSCall FindPic(x+n,409,y+n,479,"9.bmp",1, XX, YY)
If XX>=0 and YY>=0
VBS txt=9
Delay 1000
Goto sayE
EndIf
Return
EndScript