Delay 100
    LeftDoubleClick 1
    Delay 200
    Rem dj
    IfColor x - 2, y - 2, GetColor, 0 Then
        LeftDoubleClick 1
        Delay 200
        foncuo = fancuo + 1
        If fancuo < 50 Then 
            Goto dj
        End If       
    End If

	
End Sub

Sub Shuaxin()
    Rem sx
    FindPic 0, 0, 1024, 768, "Attachment:\baoguo.bmp", 0.9, intX, intY
    If intX > 0 Then 
        MoveTo intX+110,intY+424
        Delay 300
        LeftClick 1
    Else 
        Goto sx
        Delay 300
    End If
    Delay  3000 	
End Sub


Sub openbg()
    MoveTo 838, 735
    Delay 500
    LeftClick 1
    Delay 500
End Sub