UserVar yan=200 延迟
Rem 1
MoveTo 426,456
LeftDown 1
LeftUp 1
Delay yan
VBSCall FindPic(0,5,1024,768,"F:\黑白.bmp",0.9,intX,intY)
If intX>0 and intY>0
    MoveTo intX,intY
    LeftClick 1
    KeyPress 37,1
    KeyPress 13,1
    MoveTo 427,426
    LeftDown 1
    LeftUp 1
    IfColor 497,387,223333,1
        MoveTo 426,456
        LeftDown 1
        LeftUp 1
    EndIf 
Else 
    Goto 1
EndIf