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
        MessageBox "试用期已过，请联系QQ：495177767 购买，谢谢！"
        EndScript 
    Else 
    EndIf
End Sub