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