[HOW-TO]Server Programmieren in AutoIT + TCP Infos

Tekumi

Zitat

[COLOR="DeepSkyBlue"]das ist nicht geleecht. Es ist sein guide seine copyrights stehen drunter ich hab kein problem damit wenn leute sachen von mir klauen solangse mein copyright drunter setzn is mirs wurst :P.
Jedenfalls hat er den guide hier gepostet und somit bleibt dieser guide hier ! er soll sich nichso kindisch benehmen , er weiß das ich recht habe nur hat keine lust das zuzugeben :P.[/COLOR]

[COLOR="#ffa500"]Orange = Ich[/COLOR]
[COLOR="DeepSkyBlue"]Blau = Kasoki[/COLOR]

Ich finds echt unverschähmt was er da abzieht.

*electriZer*

Naja..

gez :: *electriZer*

Tekumi

Hab mal nen Server+Chat gebastelt.

Läuft per Hamachi, wenn ich Nachrichten sende, gehts nicht, wenn er sendet, schon.
Ich hab XP, er Vista.

Mein Code:

Code

#include <GuiConstants.au3>


TCPStartup()


GuiCreate("ChatClient v1.0",300,235)
$Edit = GUICtrlCreateEdit("",0,0,300,200)
$OK  = GUICtrlCreateButton("Senden",100,203,100,30)
GUISetState()


$MainSocket = TCPListen("5.155.29.212",3000,3)


While 1
    $NewSocket = TCPAccept($MainSocket)
    If $NewSocket >= 0 Then
        Do
            $Recv = TCPRecv($NewSocket,2048)
        Until $Recv <> ""
        ConsoleWrite("Empfangen : " & $Recv)
		MsgBox (0, "Nachricht", "" & $Recv)
    EndIf


	$nMsg = GuiGetMsg()
	Switch $nMsg
		Case -3
			Exit
		Case $OK
			$MainSocket = TCPConnect("5.200.122.30","3000")
			TCPSend($MainSocket,GUICtrlRead($Edit))
			MsgBox (0, "Info", "Datei gesendet")
	EndSwitch
WEnd

Alles anzeigen

Code von dem Tool für ihn:

Code

#include <GuiConstants.au3>


TCPStartup()


GuiCreate("ChatClient v1.0",300,235)
$Edit = GUICtrlCreateEdit("",0,0,300,200)
$OK  = GUICtrlCreateButton("Senden",100,203,100,30)
GUISetState()


$MainSocket = TCPListen("5.200.122.30",3000,3)


While 1
    $NewSocket = TCPAccept($MainSocket)
    If $NewSocket >= 0 Then
        Do
            $Recv = TCPRecv($NewSocket,2048)
        Until $Recv <> ""
        ConsoleWrite("Empfangen : " & $Recv)
		MsgBox (0, "Nachricht", "" & $Recv)
    EndIf


	$nMsg = GuiGetMsg()
	Switch $nMsg
		Case -3
			Exit
		Case $OK
			$MainSocket = TCPConnect("5.155.29.212","3000")
			TCPSend($MainSocket,GUICtrlRead($Edit))
			MsgBox (0, "Info", "Datei gesendet")
	EndSwitch
WEnd

Alles anzeigen

Evtl wegen Vista?

*electriZer*

öhm ne
bei beiden scripts, wird ein TCP Socket erstellt und beide empfangen verbindungen und bauen welche auf.
du braucht ein Main Server und ein Client der zum MAin Server verbindet
Also einma nur TCPListen und TCPAccept ( Server)
und einme TCPConnect ( Client )
ließ mal das erste im How To ( Einführung in TCP )
da steht was bei so ner TCP verbundung alles passiert

gez :: *electriZer*

Tekumi

Also brauch ich nur einen Server und einen Chat client? Dann kann aber doch nur einer Daten kriegen, der mit dem Server.

Das was du meintest hab ich durchgelesen, aber naja. :P

*electriZer*

nenene
TCPSend läuft auf beiden
sonst hätte das ganze ja keinen Sinn.
Wie es da steht, wird bei einer TCP verbundung ein virtueller Tunnel erstellt.
Aber der Server das is sowas wie ein Haus und die ganzen Clients sind die BEsucher de können dann mit dme Haus reden x) ( ja das macht denn der ClientHandler, die Hauptfunktion in einem Server Script, die alle daten verarbeitet, muss net sein,sollte aber )
Jo und wenn du 2 Häuser hast, dann kann auch nur eins in das ander, nähmlich das zweitgeborene, wenn du da serv als erstes aufgesetzt hast (bildlichdargestellt, ist es dann älter und gröer^^) dann verbindet dein freund als erstes zu dir und er empfängt keine Nachrichten sondern verbindungen.

Bei dem Cleint wird anstatt "TCPAccept" in der Whilschleife "TCPREcv" eingesetzt ;)

gez :: *electriZer*

[HOW-TO]Server Programmieren in AutoIT + TCP Infos

Jetzt mitmachen!

SCHNELLZUGRIFF

HILFE & COMMUNITY

RECHTLICHES