| Вопрос: Сохранение файла при помощи VBS | Добавлено: 22.09.04 00:03 |
Автор вопроса:  Shinobi
|
| Подскажите, пожалуйста, можно ли при помощи VBS загрузить из сети файп (к примеру - http://www.ya.ru/logo.gif) и сохранить его на диск в указанный каталог (например, c:\pic)? |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  ISpy Разработчик Offline Client Вопросов: 47 Ответов: 621 |
Web-сайт: Профиль | | #1 | Добавлено: 22.09.04 14:21 |
| Мне тоже интересно. | ||
|
Номер ответа: 2 Автор ответа: ШпионICQ: 250543104 Вопросов: 13 Ответов: 118 |
Профиль | | #2 | Добавлено: 13.10.06 18:56 |
|
можно. есть вполне рабочий пример. в понедельник выложу - сейчас домой ушел
напомни в понедельник в аську |
||
|
Номер ответа: 3 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #3 | Добавлено: 13.10.06 23:44 |
| Нельзя. Если было бы можно, и если есть вполне рабочий пример, его можно считать эксплоитом. | ||
|
Номер ответа: 4 Автор ответа: ШпионICQ: 250543104 Вопросов: 13 Ответов: 118 |
Профиль | | #4 | Добавлено: 16.10.06 09:50 |
|
Прошу считать код боевым эксполитом, т.к. я с его помощью выкачиваю через HTTP обновления для "Консультант-Плюс" и обновляю его
sub DL_File(link_name, local_name) ' print "  ownloading file:" & link_name
' ' Скачиваем файл ' Set oHTTP = WScript.CreateObject("Microsoft.XMLHTTP" 
oHTTP.Open "GET", link_name, bGetAsAsync, Username, Password oHTTP.Send Set oStream = CreateObject("ADODB.Stream"
oStream.Type = adTypeBinary oStream.Open z = oHTTP.responseBody oStream.Write z ' ' Сохраняем файл локально (с перезаписью) ' 'print "Saved as " & local_name oStream.Savetofile local_name, adSaveCreateOverwrite Set oStream = Nothing Set oHTTP = Nothing end sub |
||
Страница: 1 |