vb在线获取网络时间
2015-06-08 14:53
411 查看
Private Function GetTime() As Date
Dim oXMLHTTP As Object
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.open "HEAD", "http://www.baidu.com", False
oXMLHTTP.send
Dim s As String
s = oXMLHTTP.getResponseHeader("Date")
GetTime = DateAdd("h", 8, CDate(Trim(Split(Split(s, ",")(1), "GMT")(0))))
End Function
Dim oXMLHTTP As Object
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.open "HEAD", "http://www.baidu.com", False
oXMLHTTP.send
Dim s As String
s = oXMLHTTP.getResponseHeader("Date")
GetTime = DateAdd("h", 8, CDate(Trim(Split(Split(s, ",")(1), "GMT")(0))))
End Function
相关文章推荐
- ASI简单实现网络编程
- TCP/IP入门(3) --传输层
- tomcat https简单配置
- HTTP/超文本传输协议
- HTTP协议基础及分析工具使用
- Linux下Web性能压力测试工具http_load使用教程
- 深入剖析WCF的可靠会话
- 转:Android模拟器连接电脑网络
- Android’s HTTP Clients
- 关于iOS 数据请求ASIHttpRequest方法的总结
- ifstat 网络流量监控
- HttpClient文件上传下载
- java发送http的get、post请求
- Linux 网络编程——TCP编程之客户端
- Asp.Net HttpHandler 实现验证码功能
- 获取手机网络类型和IP地址
- Android网络编程概述
- CDN(内容分发网络)理解
- Http 状态码对照表
- HTTP请求头和响应头注释