Function HttpGet(url) With CreateObject("Msxml2.ServerXMLHTTP") .open "GET", url, False .send HttpGet = .responseText End With End Function Private Sub cmd_Click() Dim aa As Date a = HttpGet("http://open.baidu.com/special/time/") a = Split(a, "window.baidu_time(") a = Split(a(1), ");") a = a(0) a = a / 1000 aa = #1/1/1970# a = DateAdd("s", a, "1970-1-1 0:0:0") a = DateAdd("h", 8, a) lblLabel1.Caption = a lblLabel2.Caption = Now a = Split(a, " ") Date = a(0) Time = a(1) MsgBox "校正完毕", vbInformation, "" End Sub Private Sub Form_Load() a = HttpGet("http://open.baidu.com/special/time/") a = Split(a, "window.baidu_time(") a = Split(a(1), ");") a = a(0) a = a / 1000 aa = #1/1/1970# a = DateAdd("s", a, "1970-1-1 0:0:0") a = DateAdd("h", 8, a) lblLabel1.Caption = a lblLabel2.Caption = Now End Sub
发表评论: