Arvin's Blog
  • 网站首页
  • 原创破解
  • 原创软件
  • 信息安全
  • 网站首页
  • 原创破解
  • 原创软件
  • 信息安全
  1. 首页
  2. 标签
  3. 做验证
VB之获取网络时间做验证

网络收集 VB之获取网络时间做验证

 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

7,260次阅读 0个评论
网络收集 2014-10-17
友情链接
  • md5解密
  • freebuf
  • 草泥马之家
  • 刀客城
  • 精易论坛
湘ICP备14014040号-1
 Theme by Puock