TCP Fehler --- kein Internet

    Ich wollte ein kleines Chatprog machen, mitdem ich mit meinem Bruder "chatten" kann.

    Mein Script sieht so aus:

    Spoiler anzeigen


    Server + Client gleichzeitig

    [autoit]

    #include <Array.au3>
    global $Socket[80]
    TCPstartup()
    Local $ServerIP = "xxx.xxx.xxx.xxx" ; meine IP
    $port = "5900"; Port
    $mainsocket = TCPConnect($serverip,$port) ; gucken ob ich an
    if $mainsocket = -1 then
    msgbox(0,"","Server ist down")
    exit(1)
    endif

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

    Hotkeyset("{F10}","_sendtext")

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

    $listen2 = TCPListen(@ipaddress1,$port) ; ob ich was schreibe

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

    while 1
    $recv = TCPRecv($mainsocket,2048) ; empfängt meine Sachen
    if $recv <> "" then
    msgbox(0,"Chat",$recv) ; zeigt meine Nachricht
    endif
    ;empfangen

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

    $accept = TCPAccept($listen2) ; schickt mir
    if $accept <> -1 Then
    $socket = $accept
    endif

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

    WEnd

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

    Func _sendtext()
    $in = inputbox("Chat","Gebe hier deinen Text ein.","Hi")
    if $in <> "" then
    TCPSend($accept,$in)
    endif
    endfunc

    [/autoit]

    Ich habe im Nahinein einfach die Ips geändert und compiliert. Nachdem ich es bei meinem Bruder gestartet habe und ich versucht habe ihm was zu schicken, was nicht klappte, kommt mein Bruder nicht mehr ins Internet.
    Woran kann das liegen? Ist irgendwo ein Fehler?

    PS: Mein Bruder hat Vista und ich konnte von ihm aus den Router pingen.


    Help pls

    Ich glaube da fehlt mal ein TCPCloseSocket($ConnectedSocket).
    Aber genau kann ich es leider net sagen.

    Wieso nutzt Ihr nicht einfach ICQ oder vergleichbare Chatprogramme?
    Die funktionieren und man kann sie einfach nutzen.

    MfG
    Der_Doc

    Ich wollte es mal versuchen, und man hat nicht immer diese Großen Fenster im Bild, da ich es über Hotkeys F10 gemacht habe...

    Kann trotzdem jemand helfen?