Function 巡查点击(x, y)'子程序
    MoveTo x,y'移动鼠标到某个位置
    Delay 500'延迟500毫秒
    LeftClick 1'左键点击一次
    Delay 1000'延迟1000毫秒
    FindPic 650, 500, 800, 600, "C:\pz\可领取.bmp", 0.9, intX, intY'找图
    FindPic 440, 520, 630, 630, "C:\pz\修理.bmp", 0.8, intX7, intY7'找图
    FindPic 1090, 110, 1224, 217, "C:\pz\00体力.bmp", 0.9, intX2, intY2'找图
    If intX > 0 and intY > 0 Then
        MoveTo intX,intY
        Delay 500
        LeftClick 1
        Delay 500
        MoveTo 163, 729
        For 120
            Delay 1000
            FindPic 300, 200, 1100, 650, "C:\pz\服务器错.bmp", 0.9, intX3, intY3'找图
            FindPic 587, 501, 875, 727, "C:\pz\ok.bmp", 0.9, intX, intY
            FindPic 911, 195, 1089, 320, "C:\pz\cpu.bmp", 0.9, intX1, intY1'找图     
            FindPic 650, 500, 800, 600, "C:\pz\完成.bmp", 0.9, intX11, intY11'找图  
            If intX3 > 0 and intY3 > 0 Then 
                MoveTo 90,90
                Delay 500
                LeftClick 1
                Delay 10000
                For 60
                    Delay 1000
                    FindPic 550, 670, 810, 767, "C:\pz\login.bmp", 0.9, intX1, intY1'找图
                    If intX1 > 0 and intY1 > 0 Then 
                        MoveTo intX1,intY1
                        Delay 1000
                        LeftClick 1
                        Delay 2000
                        MoveTo 740,440
                        Delay 1000
                        LeftClick 1
                        Delay 2000
                        Call 地图切换(770, 770)'子程序 
                        Call 地图切换(498, 588)'子程序
                    end if
                Next
            ElseIf intX > 0 and intY > 0 Then 
                MoveTo intX,intY
                Delay 1000
                LeftClick 1
                Delay 1000
                Exit For
            ElseIf intX1 > 0 and intY1 > 0 Then
                MoveTo intX1,intY1
                Delay 1000
                LeftClick 1
                Delay 1000
                Exit For
            ElseIf intX11 > 0 and intY11 > 0 Then
                Delay 2000
                Exit For
                TracePrint "正在查找ok"
            end if
        Next
    Else 
        TracePrint "不可领取"
    End if
    If intX2 > 0 and intY2 > 0 Then 
        MoveTo 1250,160
        Delay 500
        LeftClick 1
        Delay 1000
        MoveTo 794,450
        Delay 500
        LeftClick 300
        Delay 1000
        MoveTo 690,520
        Delay 500
        LeftClick 1
        Delay 1000
        MoveTo 163, 729
        For 120
            Delay 1000
            FindPic 300, 200, 1100, 650, "C:\pz\服务器错.bmp", 0.9, intX3, intY3'找图
            FindPic 587, 501, 875, 727, "C:\pz\ok.bmp", 0.9, intX, intY
            FindPic 911, 195, 1089, 320, "C:\pz\cpu.bmp", 0.9, intX1, intY1'找图     
            FindPic 650, 500, 800, 600, "C:\pz\完成.bmp", 0.9, intX11, intY11'找图  
            If intX3 > 0 and intY3 > 0 Then 
                MoveTo 90,90
                Delay 500
                LeftClick 1
                Delay 10000
                For 60
                    Delay 1000
                    FindPic 550, 670, 810, 767, "C:\pz\login.bmp", 0.9, intX1, intY1'找图
                    If intX1 > 0 and intY1 > 0 Then 
                        MoveTo intX1,intY1
                        Delay 1000
                        LeftClick 1
                        Delay 2000
                        MoveTo 740,440
                        Delay 1000
                        LeftClick 1
                        Delay 2000
                        Call 地图切换(770, 770)'子程序 
                        Call 地图切换(498, 588)'子程序
                    end if
                Next
            ElseIf intX > 0 and intY > 0 Then 
                MoveTo intX,intY
                Delay 1000
                LeftClick 1
                Delay 1000
                Exit For
            ElseIf intX1 > 0 and intY1 > 0 Then
                MoveTo intX1,intY1
                Delay 1000
                LeftClick 1
                Delay 1000
                Exit For
            ElseIf intX11 > 0 and intY11 > 0 Then
                Delay 2000
                Exit For
                TracePrint "正在查找ok"
            end if
        Next
    Else
    End If
    If intX7 > 0 and intY7 > 0 Then 
        MoveTo 870,550
        Delay 500
        LeftClick 1
        Delay 1000
        MoveTo 163, 729
        For 120
            Delay 1000
            FindPic 300, 200, 1100, 650, "C:\pz\服务器错.bmp", 0.9, intX3, intY3'找图
            FindPic 587, 501, 875, 727, "C:\pz\ok.bmp", 0.9, intX, intY
            FindPic 911, 195, 1089, 320, "C:\pz\cpu.bmp", 0.9, intX1, intY1'找图     
            FindPic 650, 500, 800, 600, "C:\pz\完成.bmp", 0.9, intX11, intY11'找图  
            If intX3 > 0 and intY3 > 0 Then 
                MoveTo 90,90
                Delay 500
                LeftClick 1
                Delay 10000
                For 60
                    Delay 1000
                    FindPic 550, 670, 810, 767, "C:\pz\login.bmp", 0.9, intX1, intY1'找图
                    If intX1 > 0 and intY1 > 0 Then 
                        MoveTo intX1,intY1
                        Delay 1000
                        LeftClick 1
                        Delay 2000
                        MoveTo 740,440
                        Delay 1000
                        LeftClick 1
                        Delay 2000
                        Call 地图切换(770, 770)'子程序 
                        Call 地图切换(498, 588)'子程序
                    end if
                Next
            ElseIf intX > 0 and intY > 0 Then 
                MoveTo intX,intY
                Delay 1000
                LeftClick 1
                Delay 1000
                Exit For
            ElseIf intX1 > 0 and intY1 > 0 Then
                MoveTo intX1,intY1
                Delay 1000
                LeftClick 1
                Delay 1000
                Exit For
            ElseIf intX11 > 0 and intY11 > 0 Then
                Delay 2000
                Exit For
                TracePrint "正在查找ok"
            end if
        Next
    Else
    End If
End Function