[Sp01LeR]

Многие пробовали, и ни у кого ничего не вышло, autoit просто не создан для этого »

значит не так пробовали, потому что -
autoit не может быть "просто не создан для этого", так как использует стандартную либу wsock32.dll для функций работы с сокетами..

Я скачивал демо-версии пары снифферов »

Какой толк качать демо, если есть фришный комбайн WireShark - там WinPcap в комплекте

Что вбить в гугл, чтобы почитать об этом подробнее »

Ничего вбивать не надо - есть хорошее описание на ru.wiki

[Creat0R]

autoit не может быть "просто не создан для этого", так как использует стандартную либу wsock32.dll для функций работы с сокетами »

В теорий всё хорошо, на практике всё иначе .

[Creat0R]

Вот что получилось на основе информаций с wiki:

Код:

Test()

Func Test()
    $oHTTP = ObjCreate("winhttp.winhttprequest.5.1")

    $sBoundary = Hex(Random(1, 2^30, 1), 8) & '_Synapse_boundary'

    $sFile = @ScriptDir & "\test.png"
    $sServer = "http://turboupload.com/cgi-bin/upload.cgi?upload_id="

    $sFileName = StringRegExpReplace($sFile, "^.*\\", "")
    $sFileExt = StringRegExpReplace($sFile, "^.*\.", "")
    $sHost = StringRegExpReplace($sServer, "http://(.*?)/.*", "\1")

    $hFile = FileOpen($sFile, 16)
    $sReadFile = StringTrimLeft(FileRead($hFile), 2)
    FileClose($hFile)

    $sPost_Data = ""
    $sPost_Data &= "--" & $sBoundary & @CRLF
    $sPost_Data &= 'Content-Disposition: form-data; name="file"; filename="' & $sFileName & '"' & @CRLF
    $sPost_Data &= 'Content-Type: image/' & $sFileExt & @CRLF & @CRLF & @CRLF
    $sPost_Data &= $sReadFile & @CRLF
    $sPost_Data &= "--" & $sBoundary & @CRLF

    $oHTTP.Open("POST", $sServer)
    $oHTTP.setTimeouts(5000, 5000, 15000, 15000)
    $oHTTP.SetRequestHeader("Host", $sHost)
    $oHTTP.SetRequestHeader("Referer", $sServer)
    $oHTTP.SetRequestHeader("User-Agent", "AutoIt/3")
    $oHTTP.SetRequestHeader("Content-Type", 'multipart/form-data; boundary="' & $sBoundary & '"')
    $oHTTP.SetRequestHeader("Content-Length", StringLen($sPost_Data))

    $oHTTP.Send($sPost_Data)
    $oHTTP.WaitForResponse

    If Not @error Then
        $sResponse = $oHTTP.Responsetext
        ConsoleWrite($sResponse)
        ShellExecute(StringRegExpReplace($sResponse, "(?s).*(http://.*)\n.*", "\1"))
    EndIf
EndFunc

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

[Sp01LeR]

$oHTTP = ObjCreate("winhttp.winhttprequest.5.1") »

хех, я имел ввиду не отправку через обьект "winhttp", а напрямую через функции работы с сокетами - TCPSend() и TCPRecv() - это самый надежный способ...

файл заливается, но не очень корректно »

возможно, что неправильный реальный размер $sPost_Data в байтах, там нулевой байт(0x00) тоже должен учитыватся...
Цитата(источник: http://frolov-lib.ru/programming/art...oad/index.html):

Извлечение текстовых данных и файлов из полей формы следует выполнять в цикле. Соответствующий алгоритм должен применять бинарное сравнение для поиска разделителей, например при помощи функции memcpi. Заметим, что использование функции сравнения текстовых строк strcpi не приведет к успеху, так как в теле принятых файлов могут находиться нулевые байты.

[Creat0R]

я имел ввиду не отправку через обьект "winhttp", а напрямую через функции работы с сокетами - TCPSend() и TCPRecv() - это самый надежный способ »

На данный момент разницы особой нету, если оно сработает с «winhttp» то переписать под TCP будет не сложно.

возможно, что неправильный реальный размер $sPost_Data в байтах, там нулевой байт(0x00) тоже должен учитыватся... »

Пробовал по разному, размер файл вообще в два раза больше почему то, даже если указать его реальный размер.

[Sp01LeR]

Код:

#include <string.au3>
$sFile = "твоя картинка"
$size = FileGetSize($sFile)
$hFile = FileOpen($sFile, 16)
    $sReadFile = StringTrimLeft(FileRead($hFile), 2)
FileClose($hFile)
$sReadFile=_HexToString($sReadFile)
MsgBox(0, "Оригинальный размер:", $size, 45)
MsgBox(0, "Размер $sReadFile:", StringLen($ReadFile), 45)
MsgBox(0, "Начальные байты:", $sReadFile, 45)

простым чтением FileOpen($sFile, 0) из GIF-картинки пропадало 2 байта...

На данный момент разницы особой нету, если оно сработает с «winhttp» то переписать под TCP будет не сложно. »

лучше сразу писать под TCP - через wsock32.dll передача больших обьемов данных побыстрее будет, если хочешь - сравни передачу файла весом 5-7mb через сокет и через обьект winhttp..

[Creat0R]

простым чтением FileOpen($sFile, 0) из GIF-картинки пропадало 2 байта »

У меня тут png, и размеры совпадают, т.ч проблема не в этом.

лучше сразу писать под TCP - через wsock32.dll передача больших обьемов данных побыстрее будет »

Я не за скоростью гонюсь (пока), мне лично нужен рабочий вариант, чтобы не использовать dll'ку.