|
Proxy Connection
Hi@ All,
To Connect via Proxy try that it works for me:
Function GetData(url, searchterm)
Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.4.0")
objXMLHTTP.Open "GET", url, False
objXMLHTTP.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows; U; Windows NT 5.0; en-GB; rv:1.8.1.4) Gecko/20070515 Firefox/2.0.0.4"
objXMLHTTP.SetRequestHeader "Content-Type", "text/xml"
objXMLHTTP.SetRequestHeader "Accept-Language", "en"
objXMLHTTP.SetProxy 2, "proxy.lol.de:8080" ' <- Your Proxy!
objXMLHTTP.Send ""
Set xmlPG = objXMLHTTP.responseXML 'Get the XML in xmlPg
If xmlPG Is Nothing Or xmlPG.documentElement Is Nothing Then
Set GetData = Nothing
Else
Set GetData = xmlPG.documentElement.selectNodes(searchterm)
End If
Set objXMLHTTP = Nothing
Set xmlPG = Nothing
End Function
Have Fun.
|