Private Function getHtmlStr(strUrl As String) As String On Error Resume Next Dim XmlHttp As Object Set XmlHttp = CreateObject("Microsoft.XMLHTTP") XmlHttp.Open "GET", strUrl, False XmlHttp.send getHtmlStr = StrConv(XmlHttp.responseBody, vbUnicode) Set XmlHttp = Nothing End Function
[解决办法] Set XML = New WinHttpRequest XML.SetProxy 2, "127.0.0.1:8080", "" XML.Option(6) = False XML.Option(4) = 13056 XML.Open "GET", URL XML.Send [解决办法]