按键精灵怎么设置在一个指定的日期到期
我想做个按键精灵脚本，让他自动判断现在的网络时间，再指定一个时间，如果超过指定时间脚本就不能运行，如果没到指定时间脚本可以运行...
我想做个按键精灵脚本，让他自动判断现在的网络时间，再指定一个时间，如果超过指定时间脚本就不能运行，如果没到指定时间脚本可以运行
展开
展开全部
保存时间 = now'这个是电脑上显示的时间,如果要获得网络时间,那么用下面的函数
'保存时间 = 获取网络时间("www.taobao.com")'获得淘宝网的时间
到期时间 = "2020/1/20 18:00:00"'严格按照格式写 "年/月/日 时:分:秒"
If DateDiff("S", 保存时间, CDate(到期时间)) < 0 Then
MessageBox "你脚本已经过期"& vbcr & vbcr & "请联系作者续费!"
ExitScript '退出脚本
End If
TracePrint "你脚本剩余时长:" & vbcr & DateDiff("S", 保存时间, CDate(到期时间)) & " 秒"
Do
TracePrint "脚本运行中............"
Delay 1000
Loop
/////////////获取网络时间函数,如果只要本地时间,可以把函数删除///////////////
Function 获取网络时间(网站地址)
Dim Http, URL,mt
If InStr(网站地址, "http://") = 0 Then
Url = "http://" & 网站地址
Else
Url = 网站地址
End if
Set Http = CreateObject("WinHttp.WinHttpRequest.5.1")
Http.Open "HEAD", URL, True
Http.Send
If Http.waitforresponse() Then
mt = Http.getresponseheader("Date")
mt = Cdate(Mid(mt, 5, len(mt) - 8))
获取网络时间 = DateAdd("h", 8, mt)
Else
获取网络时间 = ""
End If
Set Http = Nothing
End Function
已赞过
已踩过<
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
