Call xunbao()
EndScript
Sub xunbao()
    UserVar Var1=DropList{"忽略":0|"报警":1|"关机":2}=0 "包裹满时"
    SetSimMode 2
    KeyDown 17, 1
    KeyPress 77, 1
    KeyUp 17, 1
    Delay 1000
Rem a

    For 300
    SetSimMode 2

        KeyPress "0", 1
        Delay 1000
        KeyPress "0", 1

FindColorEx 0,0,1024,750,"395DC6",1,0.9,x1,y1
Delay 200
If x1 > 0 And y1 > 0 Then
MoveTo x1, y1
        Delay 200
    LeftClick 1
    Delay 5000
            LeftClick 1
            Delay 2000
    KeyPress "Space", 1
        End If
Next
    Call chongwu()
    Goto a
End Sub
Sub chongwu()
    SetSimMode 2
    Delay 300

KeyPress "C", 1
    Delay 600
    FindPic 0,0,1024,765,"Attachment:\a2.bmp",1,xa2,ya2
    Delay 200
If xa2 > 0 And ya2 > 0 Then
        Delay 100
        KeyPress "C", 1
        Delay 600
        Call baoguo()
        Else
        KeyPress "B", 1
        Delay 600
        FindPic 0,0,1024,765,"Attachment:\a3.bmp",0.8,xa3,ya3
        Delay 100
If xa3 > 0 And ya3 > 0 Then
        MoveTo xa3, ya3
            Delay 100
            LeftClick 1

            Delay 500
            FindPic 0,0,1024,765,"Attachment:\a4.bmp",0.8,xa4,ya4
            Delay 100
If xa4 > 0 And ya4 > 0 Then
            MoveTo xa4, ya4
                Delay 200
                LeftClick 1

                Delay 500
                MoveTo xa4, ya4+70
                Delay 100
                LeftClick 1
                Delay 12000

End If
End If
        Delay 1000

                KeyPress "C", 1

                Delay 1000
        KeyPress "B", 1

        Delay 1000

        Call baoguo()

End If
End Sub
Sub baoguo()
    SetSimMode 2
    KeyPress "B", 1
    Delay 1300
    FindPic 0,0,1024,700,"Attachment:\a1.bmp",1,xa1,ya1
    Delay 200
If xa1 > 0 And ya1 > 0 Then
    KeyPress "B", 1
        Delay 1000
    Else
    If Var1=1 Then
            For 100
        Call Plugin.Media.Beep(1976, 1600)
Next
End If