Delay 200
        KeyPress "Enter", 1
    End If
End Sub
//--刷木桩
Sub 刷木桩
    Call 验证码
    IfColor 438,50,"FFFFFF",0 Then
    Else
        KeyPress "Tab", 1
        Delay 200
    End If
    KeyPress "F1", 1
    KeyPress "F1", 1
    IfColor 151,79,"FFFFFF",1 Then
        Delay 1000
        MoveTo 908, 660
        Delay 500
        RightClick 1
        Delay 500
        RightClick 1
        Delay 500
        RightClick 1
        Delay 500
        RightClick 1
        Delay 1000
    End If
End Sub
//--刷兔子
Sub 打开地图
    Rem 打开地图
    IfColor 864,654,"FFFFFF",0 Then
    Else    
        Call Plugin.Bkgnd.LeftClick(qq, 1014 - 3, 151 - 22)
        Delay 200
        Goto 打开地图
    End If
End Sub
Sub 关闭地图
    Rem 关闭地图
    IfColor 864,654,"FFFFFF",0 Then
        Call Plugin.Bkgnd.LeftClick(qq, 1014-3, 151-22)
        Delay 200
        Goto 关闭地图
    End If
End Sub
Sub 坐标一
    Call 验证码
    IfColor 151,79,"FFFFFF",1 Then
        Delay 1000
        KeyPress "0", 2
        Delay 500
    End If
    Rem 坐标一
    Call 打开地图
    MoveTo 146, 427//坐标1：24.50
    LeftDoubleClick 1
    Delay 1000
    dm_ret = dm.FindStr(843,23,994,61, "坐标一", "3db2ff-000000", 1, x, y)
    If x > 0 and y > 0 Then 
        Call 关闭地图
        Delay 500
        KeyPress "F1", 1
        Delay 1000
    Else
        Goto 坐标一
    End If
    Call 关闭地图
End Sub
Sub 坐标二
    Rem 坐标二
    Call 打开地图
    MoveTo 151, 447//坐标2：25.54
    LeftDoubleClick 1
    Delay 500
    dm_ret = dm.FindStr(843,23,994,61, "坐标二", "3db2ff-000000", 1, x, y)
    If x > 0 and y > 0 Then 
        Call 关闭地图
        Delay 500
        KeyPress "F1", 1
        Delay 1000
    Else
        Goto 坐标二
    End If
    Call 关闭地图
End Sub
Sub 坐标三
    Rem 坐标三
    Call 打开地图
    MoveTo 176, 457//坐标3：30，57
    LeftDoubleClick 1
    Delay 500
    dm_ret = dm.FindStr(843,23,994,61, "坐标三", "3db2ff-000000", 1, x, y)
    If x > 0 and y > 0 Then 
        Call 关闭地图
        Delay 500
        KeyPress "F1", 1
        Delay 1000
    Else
        Goto 坐标三