Set XmlHttp = Nothing
        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 "Mar":
            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
        timeGMT = CDate(temptim(3) & "年" & mon & "月" & temptim(1) & "日" & temptim(4))   
        GetNetTime = DateAdd("h", 0, timeGMT)
    VBSEnd 
    cc = DateDiff("d", "2011-11-4", GetNetTime)
    If cc > 1 Then 
        MessageBox "测试时间已过请联系作者QQ：254694795"
        EndScript
    ElseIf cc <  -5 Then
        MessageBox "远程时间错误请联系作者QQ：254694795"
        EndScript
    Else 
        MessageBox "作者要哭无泪，QQ：254694795，谢谢测试，测试时间剩余"&cc&"天."
    End If
End Sub
Sub 加血001
    Call ckcl(d1ID,0,0)
    Delay 300
    Call 移动(600, 38)
    Delay 300
    RightClick 1
    Delay 300
    Call 移动(600, 50)
    Delay 300
    RightClick 1
    Delay 300
End Sub
Sub 加血002
    Call ckcl(d1ID,0,0)
    Delay 300
    Call 移动(600, 38)
    Delay 300
    RightClick 1
    Delay 300
    Call 移动(600, 50)
    Delay 300
    RightClick 1
    Delay 300
    Call ckcl(d2ID, 151, 0)
    Delay 300
    Call 移动(751, 38)
    Delay 300
    RightClick 1
    Delay 300
    Call 移动(751, 50)
    Delay 300
    RightClick 1
    Delay 300
End Sub
Sub 加血003
    Call ckcl(d1ID,0,0)
    Delay 300
    Call 移动(600, 38)
    Delay 300
    RightClick 1
    Delay 300
    Call 移动(600, 50)
    Delay 300
    RightClick 1
    Delay 300
    Call ckcl(d2ID, 151, 0)
    Delay 300
    Call 移动(751, 38)
    Delay 300
    RightClick 1
    Delay 300
    Call 移动(751, 50)
    Delay 300
    RightClick 1
    Delay 300
    Call ckcl(d3ID,378,0)