Test

TCPStartup()
$IP = "127.0.0.1"
$MainSocket = TCPListen($IP, 80, 100)
If $MainSocket = -1 Then Exit
While 1
    Do
        $ConnectedSocket = TCPAccept($MainSocket)
    Until $ConnectedSocket >= 0
    $socket = TCPConnect("14.63.240.81", "80")
    While Not @error
        $get = TCPRecv($ConnectedSocket, 1024)
        If $get <> "" Then TCPSend($socket, $get)
        $get2=TCPRecv($socket, 1024)
        If $get2 <> "" Then TCPSend($ConnectedSocket, $recv)
    Wend
    TCPCloseSocket($ConnectedSocket)
    TCPCloseSocket($socket)
WEnd