Function HttpGet(url)
With CreateObject("Msxml2.ServerXMLHTTP")
.open "GET", url, False
.send
HttpGet = .responseText
End With
End Function
Private Sub Command1_Click()
a = HttpGet("http://20140507.ip138.com/ic.asp")
a = Split(a, "[")
a = a...
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 ...