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