Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim oXMLHTTP
- Dim oStream
- Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP.3.0")
- oXMLHTTP.Open "GET", "http://www.google.com", False
- oXMLHTTP.Send
- If oXMLHTTP.Status = 200 Then
- Set oStream = CreateObject("ADODB.Stream")
- oStream.Open
- oStream.Type = 1
- oStream.Write oXMLHTTP.responseBody
- oStream.SaveToFile "C:UsersuserDesktoptest2"
- oStream.Close
- End If
Add Comment
Please, Sign In to add comment