Веб программирование

Скачивание файла скриптом(MSXML2.XMLHTTP) VBS

 
 

Простой пример, демонстрирующий способ скачивания файла по ссылке.

Set a = CreateObject("MSXML2.XMLHTTP")
a.Open "GET", "http://im0-tub-ru.yandex.net/i?id=124138663-07-72", 0
a.Send
Set b = CreateObject("ADODB.Stream")
b.Mode = 3
b.Type = 1
b.Open
b.Write a.ResponseBody
b.SaveToFile "123.jpg", 2

Внимание: на этот код могут "ругаться" некоторые антирирусы, но поскольку исходник у всех перед глазами, думаю, проблемы не возникнут ;)


Есть вопросы? Спроси на нашем форуме!!
DIGIUS470 [12.05.2014 22:19]

То что не у всех есть время модерировать, спасибо.



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.