IRC Proxy Server

  • Ich möchte das der Server Multiuser fähig wird und bei jedem User der connected eine extra Verbindung zum irc-server herstellt und auch die Daten die vom Server kommen an den Client schickt.

    [autoit][/autoit][autoit][/autoit][autoit]

    TCPStartup()
    $IP = "127.0.0.1"
    $IRCSERVER = TCPNameToIP("us.quakenet.org")
    $PORT = "6667"

    [/autoit][autoit][/autoit][autoit]

    $MainSocket = TCPListen($IP, 6669, 100)
    If $MainSocket = -1 Then Exit
    While 1
    Do
    $ConnectedSocket = TCPAccept($MainSocket)

    Until $ConnectedSocket >= 0
    $socket = TCPConnect($IRCSERVER, $PORT)
    While Not @error
    $recv = TCPRecv($ConnectedSocket, 1024)
    If $recv <> "" Then TCPSend($socket, $recv)
    $recv2=TCPRecv($socket, 1024)
    If $recv2 <> "" Then TCPSend($ConnectedSocket, $recv2)
    Wend
    TCPCloseSocket($ConnectedSocket)
    TCPCloseSocket($socket)
    WEnd

    [/autoit]

    Bezahlung per PayPal