Chat Programm über TCP

;===< Server >=============================================

;===< Variablen >==========================================

#include <Inet.au3>

Opt("TCPTimeout",1000)  

$ipadress = _GetIP()
$port = "54321"  
$maxuser = 100
For $num = 1 To $maxuser
   Assign("socket"&$num,-1)  
Next

;===< Start >==============================================

;===< TCP starten und Socke erstellen >====================

TCPStartup()
$mainsocket = TCPListen($ipadress,$port,$maxuser)

;===< GUI erstellen >======================================

GUICreate("Server",120,100)  
   GUICtrlCreateLabel($ipadress,1,1,118,68)
   $button = GUICtrlCreateButton("Beenden",1,71,118,28)  
GUISetState()

;===< Aktionen ausführen >=================================

Do

;===< Verbindungen annehmen >==============================

   For $num = 1 To $maxuser
	  If Eval("socket"&$num) > -1 Then  
		 ContinueLoop
	  Else
		 $socket = TCPAccept($mainsocket)
		 Assign("socket"&$num,$socket)  
		 ExitLoop
	  EndIf
   Next

;===< Nachrichten weiterleiten >===========================

   For $num1 = 1 To $maxuser
	  $recv = TCPRecv(Eval("socket"&$num1),2048)  
	  If $recv <> "" Then  
		 For $num2 = 1 To $maxuser
			$send = TCPSend(Eval("socket"&$num2),$recv)  
			If @error Then
			   Assign("socket"&$num2,-1)  
			EndIf
		 Next
	  Else
		 ContinueLoop
	  EndIf
   Next

;===< GUI überprüfen und beenden >=========================

   $msg = GUIGetMsg()
Until $msg = $button

GUIDelete()
TCPCloseSocket($mainsocket)
TCPShutdown()

;===< Ende >===============================================

;===< Client >=============================================

;===< Variablen >==========================================

#include <GUIConstantsEx.au3>

Opt("TCPTimeout",1000)  

$ipadress = InputBox("","Server-IP eingeben:","XXX.XXX.XXX.XXX")  
$port = "54321"  
$name = InputBox("","Name eingeben:")  

;===< Start >==============================================

;===< TCP starten und Verbindung herstellen >==============

TCPStartup()
$mainsocket = TCPConnect($ipadress,"54321")  

For $try = 1 To 10
   If $mainsocket > 0 Then
	  $data = "Verbunden mit: "&$ipadress  
   Else
	  If $try < 10 Then ContinueLoop
	  MsgBox(0,"Fehler","Es konnte keine Verbindung hergestellt werden")  
	  Exit
   EndIf
Next

;===< GUI erstellen >======================================

GUICreate("Chatprogramm",500,500)  
   $display = GUICtrlCreateEdit($data,0,0,500,470)
   $input = GUICtrlCreateInput("",0,470,450,30)  
   $button = GUICtrlCreateButton("Senden",450,470,50,30)  
GUISetState()

;===< Aktionen ausführen >=================================

Do
   $msg = GUIGetMsg()

;===< Nachricht senden >===================================

   If $msg = $button Then
	  TCPSend($mainsocket,$name&": "&GUICtrlRead($input))  
   EndIf

;===< Nachrichten empfangen >==============================

   $recv = TCPRecv($mainsocket,2048)
   If $recv <> "" Then  
	  $data = $data&@CRLF&$recv
	  GUICtrlSetData($display,$data)
   EndIf

Until $msg = $GUI_Event_Close

;===< Ende >===============================================