Dim objHttp Set objHttp = CreateObject("Msxml2.ServerXMLHTTP") objHttp.Open "GET", "http://google.com", False objHttp.Send output = objHttp.responseText MsgBox Output Set objHttp = Nothing
Advertisements
Dim objHttp Set objHttp = CreateObject("Msxml2.ServerXMLHTTP") objHttp.Open "GET", "http://google.com", False objHttp.Send output = objHttp.responseText MsgBox Output Set objHttp = Nothing