VB编程获取网络北京时间的两种方法

'通过任意网站的网页头信息获取网络时间，有些网站禁查，如baidu  （页头时间是格林尼治时间，加上8小时即北京时间）

Public Function GetWebTime(Optional url = "http://www.tencent.com") As String
Dim obj, OBJStatus, GetText, i
Dim Retrieval
    '判断是否能连接该网址(网址必须要带 http://...的完整写法)
    If url <> "" Then
        Set Retrieval = GetObject("winmgmts:\\.\root\cimv2")
        Set obj = Retrieval.ExecQuery("Select * From Win32_PingStatus Where Address = '" & Mid(url, 8) & "'")
        For Each OBJStatus In obj
            If IsNull(OBJStatus.StatusCode) Or OBJStatus.StatusCode <> 0 Then
                Exit Function
            Else
                Exit For '已连接则继续
            End If
        Next
    End If

    
    '通过下载网页头信息获取网络时间
    Set Retrieval = CreateObject("Microsoft.XMLHTTP")
    With Retrieval
        .Open "Get", url, False, "", ""
        .setRequestHeader "If-Modified-Since", "0"
        .setRequestHeader "Cache-Control", "no-cache"
        .setRequestHeader "Connection", "close"
        .Send
        If .Readystate <> 4 Then Exit Function
        GetText = .getAllResponseHeaders()
        i = InStr(1, GetText, "date:", vbTextCompare)