(autoit) HTTP request

**Data nasterii :** **28/03/1993**

#include
#include "WinHTTP.au3"
#include

Opt('MustDeclareVars', 1)

_Main()

Func _Main()
Local $filemenu, $separator1, $web
Local $exititem, $aboutitem, $okbutton, $header, $link1, $way1, $ss, $ss1
Local $msg, $file, $link, $way, $hw_open, $hw_connect, $h_openrequest
#forceref $separator1

GUICreate("HTTP Request", 300, 150)

$filemenu = GUICtrlCreateMenu("File")
$aboutitem = GUICtrlCreateMenuItem("About", $filemenu)
$separator1 = GUICtrlCreateMenuItem("", $filemenu)
$exititem = GUICtrlCreateMenuItem("Exit", $filemenu)
guictrlcreatelabel ("Domain",10,10,50,20)
$link1 = guictrlcreateinput ("Your domain here (eg : rstcenter.com)", 70,10,200,20)
guictrlcreatelabel ("Path",10,40,50,20)
$way1 = guictrlcreateinput ("Path to page (eg : forum/doomclip.rst)",70, 40,200,20)
$okbutton = GUICtrlCreateButton("Header", 50, 90, 70, 20)
$ss = guictrlcreatebutton ("Source",180,90,70,20)

GUISetState()

While 1
$msg = GUIGetMsg()

Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop

Case $msg = $exititem
ExitLoop

case $msg = $ss
$way = guictrlread ($way1)
$link = guictrlread ($link1)
$web = $link & "/" & $way
$ss1 = _INetGetSource ($web)
clipput ($ss1)
msgbox (64,"Http Request", "The full source has been copied to clipboard." & @crlf & "Open a text editor and press CTRL+V to paste the code")

Case $msg = $okbutton
$way = guictrlread ($way1)
$link = guictrlread ($link1)

$hw_open = _WinHttpOpen()

$hw_connect = _WinHttpConnect($hw_open, $link)

$h_openRequest = _WinHttpOpenRequest($hw_connect, "GET", $way)

_WinHttpSendRequest($h_openRequest)

_WinHttpReceiveResponse($h_openRequest)

If _WinHttpQueryDataAvailable($h_openRequest) Then
$header = _WinHttpQueryHeaders($h_openRequest)
msgbox (64,"Header",$header)
EndIf

_WinHttpCloseHandle($h_openRequest)

_WinHttpCloseHandle($hw_connect)

_WinHttpCloseHandle($hw_open)

Case $msg = $aboutitem
MsgBox(0, "About", "Http Request by doomclip")
EndSelect
WEnd

GUIDelete()

Exit
EndFunc

Domain -> Domeniul tau (ex : www.dute-tun.com)
Path -> Calea catre fisier (ex : forum/doomclip.rst)