Private Function GetTime() As Date
     Dim TimeStr As String
     Dim oXMLHTTP As Object
     Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
     oXMLHTTP.open "HEAD", "http://www.baidu.com", False '取百度的时间
     oXMLHTTP.send
     TimeStr = oXMLHTTP.getResponseHeader("Date")
     GetTime = DateAdd("h", 8, CDate(Trim(Split(Split(TimeStr, ",")(1), "GMT")(0))))
End Function

获取网络时间做验证,直接读取百度时间对比截止日期就能做验证了。这代码很不错，可以收藏一下哦！

直接调用GetTime() 就能得到百度的当前时间。

声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。