1,502
社区成员
发帖
与我相关
我的任务
分享
Private Function aaa(url As String) As String
Set xmlHttp = CreateObject("Msxml2.XMLHTTP")
xmlHttp.Open "GET", url, False
xmlHttp.setRequestHeader "If-Modified-Since", "0"
xmlHttp.send (Null)
aaa = xmlHttp.responseText
End Function
Private Function aaa(url As String) As String
Set xmlHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
xmlHttp.Open "GET", url, False
xmlHttp.setRequestHeader "If-Modified-Since", "0"
xmlHttp.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko"
xmlHttp.Option(4) = &H3300
xmlHttp.send (null)
aaa = xmlHttp.responseText
Set xmlHttp = Nothing
End Function