Delay 3000 dim aong,bcdb,caby UserVar aong=1 "百位" UserVar bcdb=5 "十位" UserVar caby=0 "个位" Call FindPic(0,0,1280,1024,"Attachment:\3g.bmp",1,x,y) If x>0 and y>0 Then IfColor 145,272,"ff",1 Then Goto QMScript_2 Else End if Rem QMScript_3 IfColor 297,569,"8200",3 Then Goto QMScript_1 Else End if IfColor 297,569,"8200",1 Then Goto QMScript_2 Else End if Rem QMScript_1 MoveTo 297,569 Delay 500 LeftClick 1 Delay 500 MoveTo 629,517 Delay 500 LeftClick 1 Delay 500 MoveTo 747,447 Delay 500 LeftClick 1 MoveTo 285,669 Delay 500 LeftClick 1 Delay 500 MoveTo 653,549 Delay 500 LeftClick 1 Delay 500 KeyPress 8,1 Delay 500 KeyPress 8,1 Delay 500 KeyPress 8,1 Delay 500 KeyPress asc(aong),1 Delay 500 KeyPress asc(bcdb),1 Delay 500 KeyPress asc(caby),1 Delay 500 MoveTo 695,551 Delay 500 LeftClick 1 Delay 500 Rem QMScript_2 Delay 1000 Else Delay 1200 End if