Liste von denen die im Chat sind

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>

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

Global $port = 7892, $broadcast = StringLeft(@IPAddress1, StringInStr(@IPAddress1, ".", 0, 3)) & "255"

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

#Region ### START Koda GUI section ### Form=C:\Users\Burak\Desktop\Programme\AutoIt v3\Projekte\UltiChat\Form1.kxf
$Form1 = GUICreate("UltraChat", 442, 245)
GUISetBkColor(0x99B4D1)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 345, 201, BitOR($ES_AUTOVSCROLL, $ES_READONLY, $ES_WANTRETURN, $WS_VSCROLL))
GUICtrlSetData(-1, "Willkommen im UltraChat (c) by Burak")
GUICtrlSetCursor(-1, 5)
$Input1 = GUICtrlCreateInput("", 8, 216, 345, 21, 0)
GUICtrlSetCursor(-1, 5)
$Button1 = GUICtrlCreateButton("Senden", 360, 216, 75, 21, BitOR($BS_DEFPUSHBUTTON, $WS_GROUP))
GUICtrlSetBkColor(-1, 0x00FFFF)
$List1 = GUICtrlCreateList("", 360, 8, 74, 205)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

If IniRead(@ScriptDir & "\benutzername.ini", "chat", "benutzername", "") = "" Then
Do
$NeuerBenutzername = InputBox("Benutzername", "Sie haben noch keinen Benutzernamen festgelegt. Bitte geben Sie hier einen neuen Benutzernamen ein:")
Until $NeuerBenutzername <> ""
IniWrite(@ScriptDir & "\benutzername.ini", "chat", "benutzername", $NeuerBenutzername)
$Benutzername = IniRead(@ScriptDir & "\benutzername.ini", "chat", "benutzername", "")
Else
$Benutzername = IniRead(@ScriptDir & "\benutzername.ini", "chat", "benutzername", "")
EndIf

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

UDPStartup()
$socket1 = UDPBind(@IPAddress1, $port)
If @error <> 0 Then
MsgBox(16, "Fehler", "IP-Adresse konnte nicht gefunden werden!")
Exit
EndIf
Schreiben("- " & $Benutzername & " ist dem Chat beigetreten")

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

Do
$recv = UDPRecv($socket1, 1024)
If $recv <> "" Then
_GUICtrlEdit_AppendText($Edit1, @CRLF & $recv)
EndIf
$nMsg = GUIGetMsg()
If $nMsg = $Button1 Then
$buffer = GUICtrlRead($Input1)
If $buffer <> "" Then
GUICtrlSetData($Input1, "")
Schreiben("<" & $Benutzername & ">: " & $buffer)
EndIf
EndIf
Until $nMsg = $GUI_EVENT_CLOSE

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

Func Schreiben($sNachricht)
$socket2 = UDPOpen($broadcast, $port)
If @error = 0 Then
UDPSend($socket2, $sNachricht)
EndIf
UDPCloseSocket($socket2)
EndFunc ;==>Schreiben

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

Func OnAutoItExit()
Schreiben("-" & $Benutzername & " ist aus dem Chat ausgetreten.")
UDPShutdown()
EndFunc ;==>OnAutoItExit

[/autoit]