autoit chat mit tcp wie ??

[Hacker Friends]

hey ich wollte fragen wie mann einen chat mit tcp erstellen kann. Ohne anmeldung und registrierung und so ??

[derpo]

Schau dir folgende Befehle an :
TCPStartup
TCPShutdown
TCPListen
TCPAccept
TCPConnect
TCPCloseSocket

[ZeraPain]

gibts ja auch erst so wenige beispiele für..

[Avatri]

Originally Posted by ZeraPain

gibts ja auch erst so wenige beispiele für..

Es gibt genug. Einfach via Google mal nach 'Autoit chat tcp' suchen und du wirst fündig.

[ZeraPain]

*ironie*

[TrickGamer]

google mal nach ein paar tuts und bei manchen pc´s musste die ports erst im pc aktivieren

[derpo]

Originally Posted by TrickGamer

bei manchen pc´s musste die ports erst im pc aktivieren

Das hat nichts mit dem PC zu tun, sondern mit dem Router/Modem

Hier mal Beispiele (Es währe schön, wenn du das selbst machen würdest) :

Client-Beispiel :

 Spoiler

PHP Code:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
TCPStartup()
$socket = TCPConnect("IP","Port")
If $socket = -1 Then
    MsgBox(0,"Chat","Fehler : Konnte nicht mit dem Server verbinden!")
    Exit
EndIf
$Form1 = GUICreate("Form1", 628, 368, 192, 124)
$Chatlog = GUICtrlCreateEdit("", 0, 0, 625, 337, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_HSCROLL,$WS_VSCROLL))
GUICtrlSetData(-1, "Chatlog")
$Senden = GUICtrlCreateButton("Senden", 528, 342, 97, 25, $WS_GROUP)
$Input = GUICtrlCreateInput("", 0, 344, 521, 21)
GUISetState(@SW_SHOW)
While 1
    $nMsg = GUIGetMsg()
    If $nMsg = $GUI_EVENT_CLOSE Then
        TCPCloseSocket($socket)
        TCPShutdown()
        Exit
    ElseIf $nMsg = $Senden Then
        $Text = GUICtrlRead($Input)
        If $Text Then
            TCPSend($socket,$Text)
        EndIf
    EndIf
    Sleep(10)
WEnd 


Server-Beispiel :

 Spoiler

PHP Code:

TCPStartup()
$Listen = TCPListen("IP","PORT")
Global $accept[2000]
$Nummer = 0
While 1
    $accept[$Nummer] = TCPAccept($Listen)
    If $accept[$Nummer] <> -1 Then
        TCPSend($accept[$Nummer],"Hallo!")
        $Nummer = $Nummer + 1
    EndIf
    If $Nummer > 0 Then
        For $i = 0 To $Nummer Step 1
            $recv = TCPRecv($Listen,75)
            If $recv Then
                If $recv = "logout" Then TCPCloseSocket($accept[$i])
                For $send = 0 To $Nummer Step 1
                    TCPSend($accept[$send],$recv)
                Next
            EndIf
        Next
    EndIf
    Sleep(10)
WEnd 


[SCORNI]

Da gab es mal so eine Tutorial das mir auch sehr geholfen hat. Da werden die Grundfunktionen für ein Client und für einen Server gezeigt.