找到1脚本。求高手恢复。急。。在线等

mengqi951

[General]
SyntaxVersion=1
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
MacroID=95aa89ab-21e4-4f02-9480-f26fa98ddb8a
Description=蜀山新传-溜宠
Enable=0
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=

[Script]
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
        If Var1=2 Then
        Call Plugin.Sys.ExitOS(1)
End If
        If Var1=0 Then
End If
End If
    Delay 300
    KeyPress "B", 1
End Sub
Sub 时间限制()
VBSBegin
    '//获取百度原始时间
    Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
    XmlHttp.Open "Get", "http://www.baidu.com/", False
    XmlHttp.send
    datetxt=XmlHttp.getResponseHeader("Date")
    Set XmlHttp = Nothing
    '//将获取到的原始时间进行格式化 2010年01月28日 03:09:52
    temdate = Split(datetxt, ",")
    tempvar = Replace(temdate(1), "GMT", "")
    temptim = Split(tempvar, " ")
    Select Case temptim(2)
    Case "Jan"
    mon = "01"
    Case "Feb"
    mon = "02"
    Case "Mar"
    mon = "03"
    Case "Apr"
    mon = "04"
    Case "May"
    mon = "05"
    Case "Jun"
    mon = "06"
    Case "Jul"
    mon = "07"
    Case "Aug"
    mon = "08"
    Case "Sep"
    mon = "09"
    Case "Oct"
    mon = "10"
    Case "Nov"
    mon = "11"
    Case "Dec"
    mon = "12"
    End Select
    '//将获取到的时间转换为北京时间+8小时
    timeGMT = CDate(temptim(3) & "年" & mon & "月" & temptim(1) & "日" & temptim(4))
    GetNetTime = DateAdd("h",8, timeGMT)
VBSEnd
ShiJian = (Year(GetNetTime) & Right("0" & Month(GetNetTime),2) & Right("0" & Day(GetNetTime),2) & Right("0" & Hour(GetNetTime),2) & Right("0" & Minute(GetNetTime),2))
if ShiJian > 201005092359
是一款游戏自动溜宠 自动捡取的软件

章昊

看不懂

三猫大叔

头痛