Delay 快点速
                        MoveTo 520, 437
                        Delay 快点速
                        LeftClick 1
                        Delay 快点速
                    Else 
                        Delay 点速
                        KeyPress "Esc", 1
                        Delay 点速
                        IfColor 509, 437, "5A8CA4", 0 Then
                            Delay 快点速
                            MoveTo 520, 437
                            Delay 快点速
                            LeftClick 1
                            Delay 快点速
                        Else 
                            Delay 点速
                            KeyPress "Esc", 1
                            Delay 点速
                            IfColor 509, 437, "5A8CA4", 0 Then
                                Delay 快点速
                                MoveTo 520, 437
                                Delay 快点速
                                LeftClick 1
                                Delay 快点速
                            End If
                        End If
                    End If
                End If
            End If
        End If
        q = q + 1
    Wend
    
    
    Delay 100
    IfColor 600, 455, "7799AA", 0 Then
        Delay 点速
        KeyPress "Esc", 1
        Delay 点速
    Else 
        Delay 点速
        IfColor 600, 455, "7799AA", 0 Then
            Delay 点速
            KeyPress "Esc", 1
            Delay 点速
        Else 
            Delay 点速
            IfColor 600, 455, "7799AA", 0 Then
                Delay 点速
                KeyPress "Esc", 1
                Delay 点速
            Else 
                Delay 点速
                IfColor 600, 455, "7799AA", 0 Then
                    Delay 点速
                    KeyPress "Esc", 1
                    Delay 点速
                Else 
                    Delay 点速
                    IfColor 600, 455, "7799AA", 0 Then
                        Delay 点速
                        KeyPress "Esc", 1
                        Delay 点速
                    Else 
                        Delay 点速
                        IfColor 600, 455, "7799AA", 0 Then
                            Delay 点速
                            KeyPress "Esc", 1
                            Delay 点速
                        End If  
                    End If
                End If   
            End If
        End If
    End If
    
    
    Delay 100
    FindPic 0,0,1024,768,"Attachment:\关闭.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Delay 100
        MoveTo intX + 10, intY + 10
        Delay 100
        LeftClick 1
        Delay 100
    End If
End sub

Sub 走路(方向,步数)
    For 步数
        KeyDownH 方向, 1
        Delay 100
    Next
    KeyUpH 方向, 1
End Sub