AutoIt Français

Code : Tout sélectionner

TCPStartup ( )

Local $g_IP = TCPNameToIP("www.google.be")
MsgBox(0,'',$g_IP)

$socket = TCPConnect( $g_IP, 80 )
If $socket = -1 Then Exit

Local $str = ""
TCPSend ($socket,"GET "&"www.google.be"&@CRLF)

While 1
    $str = TCPRecv($socket,2048)
    If @error Then ExitLoop
    If $str <> "" Then MsgBox(0,'',$str)
WEnd
TCPShutdown()

Code : Tout sélectionner

#include <INet.au3>

Local $url = "http://www.google.be"
MsgBox(0,'',_INetGetSource($url))

Code : Tout sélectionner

Local $url = "http://www.google.be"
$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.Open("GET",$url)
$oHTTP.Send()
$HTMLSource = $oHTTP.Responsetext
MsgBox(0,'',$HTMLSource)

Code : Tout sélectionner

Local $sIP = "127.0.0.1"
Local $iPort = 80
Local $iMaxUsers = 15
Local $aSocket[$iMaxUsers]
Local $sServerName = "trolol"

For $x = 0 to UBound($aSocket)-1 ; Fills the entire socket array with -1 integers, so that the server knows they are empty.
    $aSocket[$x] = -1
Next

TCPStartup()

$iMainSocket = TCPListen($sIP,$iPort) ;create main listening socket
If @error Then ; if you fail creating a socket, exit the application
    MsgBox(0x20, "AutoIt Webserver","erreur")
    Exit
EndIf

while 1
    $iNewSocket = TCPAccept($iMainSocket) ; Tries to accept incoming connections

    If $iNewSocket >= 0 Then ; Verifies that there actually is an incoming connection
        For $x = 0 to UBound($aSocket)-1 ; Attempts to store the incoming connection
            If $aSocket[$x] = -1 Then
                $aSocket[$x] = $iNewSocket ;store the new socket
                ExitLoop
            EndIf
        Next
    EndIf

    For $x = 0 to UBound($aSocket)-1 ; A big loop to receive data from everyone connected
        If $aSocket[$x] = -1 Then ContinueLoop ; if the socket is empty, it will continue to the next iteration, doing nothing
        $sNewData = TCPRecv($aSocket[$x],1024) ; Receives a whole lot of data if possible
        If @error Then ; Client has disconnected
            $aSocket[$x] = -1 ; Socket is freed so that a new user may join
            ContinueLoop ; Go to the next iteration of the loop, not really needed but looks oh so good
        ElseIf $sNewData Then ; data received
            _HTTP_SendData($aSocket[$x],"<center>123</center>", "text/html")
            $aSocket[$x] = -1 ; the socket is automatically closed so we reset the socket so that we may accept new clients
        EndIf
    Next
WEnd

TCPShutdown()

Func _HTTP_SendData($hSocket, $bData, $sMimeType, $sReply = "200 OK")
    $sPacket = Binary("HTTP/1.1 " & $sReply & @CRLF & _
    "Server: " & $sServerName & @CRLF & _
    "Connection: close" & @CRLF & _
    "Content-Lenght: " & BinaryLen($bData) & @CRLF & _
    "Content-Type: " & $sMimeType & @CRLF & _
    @CRLF)
    TCPSend($hSocket,$sPacket) ; Send start of packet

    While BinaryLen($bData) ; Send data in chunks (most code by Larry)
        $a = TCPSend($hSocket, $bData) ; TCPSend returns the number of bytes sent
        $bData = BinaryMid($bData, $a+1, BinaryLen($bData)-$a)
    WEnd

    $sPacket = Binary(@CRLF & @CRLF) ; Finish the packet
    TCPSend($hSocket,$sPacket)

    TCPCloseSocket($hSocket)
EndFunc