FindPic 0,0,2000,2000,lujing,0.9,x,y
    If x > 0 And y > 0 Then
        MoveTo x+113, y+53
        Delay 100
        LeftClick 1     
    End If       
    Delay 2000
    FindPic 0,0,2000,2000,"Attachment:\queding.bmp",1,x,y
    If x > 0 And y > 0 Then
        MoveTo x, y
        Delay 100
        LeftClick 1
        MoveTo x, y+150
        Call 循环开()
    Else 
    End If
End Sub
Sub 循环开()
    Rem 循环开
    Delay 2000
    FindPic 0,0,2000,2000,lujing,0.9,x,y
    If x > 0 And y > 0 Then
        MoveTo x+113, y+53
        Delay 100
        LeftClick 1
    End If
    Delay 2000
    FindPic 0,0,2000,2000,"Attachment:\queding.bmp",1,x,y
    If x > 0 And y > 0 Then
        MoveTo x, y
        Delay 100
        LeftClick 1
        MoveTo x, y+150
        Delay 100
        MoveTo x+113, y+153
        Goto 循环开
    End If
End Sub
Event Form1.铁闸宝箱.Click

End Event