[Ошибки] Ошибка исполняемого файла после скачивания autoit'овским скриптом

[Rakim]

В чём может быть ошибка ?
Компилю этот код :

#RequireAdmin
InetGet("http://GunGame.ucoz.ru/Game.exe","Game.exe","Game.exe")

После скачивания запускаю программу и она выдаёт вот эту ошибку:

А если скачивать с браузера, то всё норм. В чём же проблема ?

 

[kaster]

Rakim [?]

В чём же проблема ?

а справку почитать для команды, которую используешь, не? никак?

 

[Rakim]

Дак вот в том то и фишка что читал раз 6 и не чего не смог исправить )

 

[kaster]

Rakim
да ну? и что же делает третий параметр InetGet?

 

[Rakim]

Re: [Ошибки] Ошибка исполняемого файла после скачивания autoit\'овским скриптом

Вообще я делал так :

#RequireAdmin
InetGet("http://GunGame.ucoz.ru/Game.exe","Game.exe")

Но на левом форуме нашёл код и там название файла прописывалось 2 раза и я тоже изменил. Но все равно эта ошибка.


Добавлено:

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

Блин ну помоги пожалуйста )

 

[CreatoR]

Rakim [?]

все равно эта ошибка

Видимо там перенаправление, оригинальную ссылку можно увидеть?

 

[Rakim]

http://urfmail.ucoz.ru/AutoIt_v3_Script.exe

 

[CreatoR]

Там требуется подтверждение, можно так попробовать:

$sHead = _HTTPGet("urfmail.ucoz.ru", "/AutoIt_v3_Script.exe")

$hFile = FileOpen(@DesktopDir & '\AutoIt v3 Script.exe', 2+16)
FileWrite($sHead, StringRegExpReplace($sHead, '(?s)^.*?\r?\n(0x)', '\1'))
FileClose($hFile)

Func _HTTPGet($sHost, $sPage)
    TCPStartup()
    
    Local $sName_To_IP = TCPNameToIP($sHost)
    Local $iSocket = TCPConnect($sName_To_IP, 80)
    
    If $iSocket = -1 Then
        TCPShutdown()
        Return SetError(1, 0, "")
    EndIf
    
    Local $sCommand = "GET " & $sPage & " HTTP/1.1" & @CRLF
    $sCommand &= "Host: " & $sHost & @CRLF
    $sCommand &= "User-Agent: AutoIt/" & @AutoItVersion & " (Windows; U; Windows NT 5.1; en-US; rv:1.8.1)" & @CRLF
    $sCommand &= "Referer: " & $sHost & @CRLF
    $sCommand &= "Accept: text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1" & @CRLF
    $sCommand &= "Accept-Charset: iso-8859-1, utf-8, utf-16, *;q=0.1" & @CRLF
    $sCommand &= "Accept-Encoding: gzip, deflate, identity, *;q=0" & @CRLF
    $sCommand &= "Cookies: ucvid=OBSpT2tDTQ" & @CRLF
    $sCommand &= "Cookies2: $Version=1" & @CRLF
    $sCommand &= "Connection: Keep-Alive, TE" & @CRLF
    $sCommand &= "TE: deflate, gzip, chunked, identity, trailers" & @CRLF & @CRLF
    
    Local $BytesSent = TCPSend($iSocket, $sCommand)
    
    If $BytesSent = 0 Then
        TCPShutdown()
        Return SetError(2, @error, 0)
    EndIf
    
    Local $sRecv = "", $sCurrentRecv
    
    While 1
        $sCurrentRecv = TCPRecv($iSocket, 1024)
        If @error <> 0 Then ExitLoop
		
        If $sCurrentRecv <> "" Then
			$sRecv &= $sCurrentRecv
		EndIf
    WEnd
    
    TCPCloseSocket($iSocket)
    TCPShutdown()
    
    Return $sRecv
EndFunc

Проверить не могу, т.к у меня почему то сервер не отвечает.

 

[CreatoR]

А вообще, если это твой сайт, то лучше заливать с другим расширением, например «AutoIt_v3_Script.efe», а после скачивания переименовывать файл.

 

[Rakim]

Переименновывать в ручную или же скриптом ?

 

[CreatoR]

Rakim [?]

Переименновывать в ручную или же скриптом ?

Скриптом конечно.

 

[Rakim]

Можешь кинуть пример скрипта ? Или же хотя бы название функции которую нужно использовать. Ибо щас искал Rename в справке и не чего не нашёл.

 

[kaster]

FileMove

 

[Rakim]

Всем спасибо ) Всё получилось )