AutoIt Français

Code : Tout sélectionner

Func _HTTPPostFile($host, $page, $socket = -1, $file = "", $champ = "file", $extradata)
    Dim $command

    If $socket == -1 Then
        If $_HTTPLastSocket == -1 Then
            SetError(1)
            Return
        EndIf
        $socket = $_HTTPLastSocket
    EndIf

    $contenttype = _HTTPPost_contenttype($file)

Dim $boundary = "-----------------------------" + _TimeToTicks(@HOUR, @MIN, @SEC)

    $fileread = _HTTPEncodeString(StringTrimLeft(FileRead(FileOpen($file, 16)),2))
    FileClose($fileread)

    $extradata = _HTTPEncodeString($extradata)
    
    $multipost_cmd = "--"&$boundary&@CRLF
    $multipost_cmd &= "Content-Disposition: form-data; name="""&$champ&"""; filename=""" & $file & """" &@CRLF
    $multipost_cmd &= "Content-Type: "&$contenttype&@CRLF&@CRLF
    $multipost_cmd &= $fileread&@CRLF
    $multipost_cmd &= "--"&$boundary&"--"

    Dim $datasize = StringLen($multipost_cmd) + StringLen($extradata)

    $command = "POST "&$page&" HTTP/1.1"&@CRLF
    $command &= "Host: " &$host&@CRLF
    $command &= "User-Agent: "&$_HTTPUserAgent&@CRLF
    $command &= "Connection: close"&@CRLF
    $command &= "Content-Type: multipart/form-data; boundary="&$boundary&@CRLF
    $command &= "Content-Length: "&$datasize&@CRLF
    $command &= ""&@CRLF    
    $command &= $extradata&@CRLF
    $command &= $multipost_cmd

    If FileExists("output.txt") Then FileDelete("output.txt")
    $file = FileOpen("output.txt", 1)
    FileWrite($file, $command)
    FileClose($file)

    Dim $bytessent = TCPSend($socket, $command)

    If $bytessent == 0 Then
        SetExtended(@error)
        SetError(2)
        return 0
    EndIf

    SetError(0)
    Return $bytessent
EndFunc

Func _HTTPPost_contenttype($file = "")
    $fileextension = StringRight($file,4)
    Switch $fileextension
        Case ".txt"
            $contenttype = "text/plain"
        Case ".jpg"
            $contenttype = "image/jpg"
        Case ".png"
            $contenttpye = "image/png"
        Case Else
            $contenttype = "application/octet-stream"
        EndSwitch
    Return $contenttype
EndFunc
 

Code : Tout sélectionner

POST /api/scan_file.json HTTP/1.1
Host: http://www.virustotal.com
User-Agent: AutoItScript/3.3.6.1
Connection: close
Content-Type: multipart/form-databoundary=44535000
Content-Length: 10859


key=clée d'api
--44535000
Content-Disposition: form-dataname="file"filename="C:\Documents and Settings\Jean Yves\Mes documents\zrs.exe"
Content-Type: application/octet-stream


[Hexa - Faisait planter l'envoi du post]
--44535000--HTTP/1.0 500 Internal Server Error
Date: Mon, 25 Jul 2011 10:18:38 GMT
Server: Apache
Content-Length: 21
Content-Type: text/html
X-Cache: MISS from viruskill2.hispasec.com
Via: 1.1 viruskill2.hispasec.com:80 (squid/2.7.STABLE9)
Connection: close


internal server error