通过163网站获取日期时间

opel-wong

以前挺好有的一段代码，现在也不能用了，
现在各大网站的反扒机制越来越严了，

1. Private Sub Command1_Click()
   
2.     Dim obj, OBJStatus, url, GetText, i
   
3.     Dim Retrieval
   
4.     url = "http://www.163.com"
   
5.     '判断网络是否连接
   
6.     If url <> "" Then
   
7.         Set Retrieval = GetObject("winmgmts:\\.\root\cimv2")
   
8.         Set obj = Retrieval.ExecQuery("Select * From Win32_PingStatus Where Address = '" & Mid(url, 8) & "'")
   
9.         For Each OBJStatus In obj
   
10.             If IsNull(OBJStatus.StatusCode) Or OBJStatus.StatusCode <> 0 Then
    
11.                 Exit Sub
    
12.             Else
    
13.                 Exit For    '已连接则继续
    
14.             End If
    
15.         Next
    
16.     End If
    
17.     '通过下载网页头信息获取网络时间
    
18.     Set Retrieval = CreateObject("Microsoft.XMLHTTP")
    
19.     With Retrieval
    
20.         .Open "Get", url, False, "", ""
    
21.         .SetRequestHeader "If-Modified-Since", "0"
    
22.         .SetRequestHeader "Cache-Control", "no-cache"
    
23.         .SetRequestHeader "Connection", "close"
    
24.         .Send
    
25.         If .Readystate <> 4 Then Exit Sub
    
26.         GetText = .GetAllResponseHeaders()
    
27.         i = InStr(1, GetText, "date:", vbTextCompare)
    
28.         If i > 0 Then    '网页下载成功
    
29.             i = InStr(i, GetText, ",", vbTextCompare)
    
30.             GetText = Trim(Mid(GetText, i + 1))
    
31.             i = InStr(1, GetText, " GMT", vbTextCompare)
    
32.             GetText = Left(GetText, i - 1)
    
33.             MsgBox "网络时间:" & GetText
    
34.         End If
    
35.     End With
    
36.     Set Retrieval = Nothing
    
37.     Set OBJStatus = Nothing
    
38.     Set obj = Nothing
    
39. End Sub

复制代码

opel-wong

百度的还没有被和谐，还能用，
代码如下：

1. Private Function GetTime() As Date
   
2.     On Error GoTo errtime
   
3.     Dim oXMLHTTP As Object
   
4.     Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
   
5.     oXMLHTTP.Open "HEAD", "http://www.baidu.com", False
   
6. errtime:
   
7.     oXMLHTTP.Send
   
8.     Dim sTime As String
   
9.     sTime = oXMLHTTP.GetResponseHeader("Date")
   
10.     sTime = Right(sTime, Len(sTime) - InStr(sTime, ","))
    
11.     sTime = Trim(Replace(sTime, "GMT", ""))
    
12.     GetTime = sTime
    
13.     MsgBox GetTime
    
14. End Function
    

复制代码

onlycxb

1. /// <summary>
   
2.     /// 从百度网络上获得北京时间
   
3.     /// </summary>
   
4.     /// <returns></returns>
   
5.     public static DateTime GetDateTimeFromBaidu() {
   
6.         DateTime currentTime = DateTime.MinValue;
   
7.         System.Net.HttpWebRequest request
   
8.              = (System.Net.HttpWebRequest)WebRequest.Create("https://www.baidu.com/");
   
9.         request.Timeout = 100000;
   
10.         request.Method = "GET";
    
11.         try {
    
12.             HttpWebResponse response = (HttpWebResponse)request.GetResponse();
    
13.             var dateString = response.Headers["Date"];
    
14.             DateTime.TryParse(dateString, out currentTime);
    
15.         } catch (Exception ex) {
    
16.             throw new Exception(ex.Message);
    
17.         }
    
18.         return currentTime;
    
19.     }

复制代码