AutoIt Français

Code : Tout sélectionner

Authorization: xxxxxxxxxxxxxxxxxxxx

Code : Tout sélectionner

#include "WinHttp.au3"

$hOpen = _WinHttpOpen()
$hConnect = _WinHttpConnect($hOpen, "www.monsite.com")
$hRequest = _WinHttpOpenRequest($hConnect, 'GET', "/dossier/?user=kiki", Default, "http://www.monsite.com/", Default, $WINHTTP_FLAG_SECURE)
_WinHttpAddRequestHeaders($hRequest, "Authorization: xxxxxxxxxxxxxxxxxxxx")
_WinHttpSendRequest($hRequest, Default)

; Wait for the response
_WinHttpReceiveResponse($hRequest)
If @error Then
    MsgBox(48, "Error", "Error waiting for the response from the server.")
    _WinHttpCloseHandle($hRequest)
    _WinHttpCloseHandle($hConnect)
    _WinHttpCloseHandle($hOpen)
    Exit 5
EndIf

; See if there is data to read
Global $sChunk, $sData
If _WinHttpQueryDataAvailable($hRequest) Then
    ; Read
    While 1
        $sChunk = _WinHttpReadData($hRequest)
        If @error Then ExitLoop
        $sData &= $sChunk
    WEnd
	; Enregistrement fichier ZIP
	$hFile = FileOpen(@ScriptDir & "\files.zip", 18)
	FileWrite($hFile, $sData)
	FileClose($hFile)
Else
    MsgBox(48, "Error", "Site is experiencing problems.")
EndIf

; Close handles
_WinHttpCloseHandle($hRequest)
_WinHttpCloseHandle($hConnect)
_WinHttpCloseHandle($hOpen)