#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <file.au3>
#include <string.au3>
HotKeySet("{F4}", "schliessen") 
MsgBox(48, "Information", "Zum schließen des Schul-Chats einfach nur <F4> drücken")
$pfad = @desktopdir&"\NetControl.new"
$user = @UserName
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Schul-Chat", 467, 442, 405, 112)
Global $Edit1 = GUICtrlCreateEdit("", 9, 6, 442, 298, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL))
Global $Edit2 = GUICtrlCreateEdit("", 12, 318, 442, 73, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
Global $Button1 = GUICtrlCreateButton("Senden", 351, 405, 103, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
Global $Form1_AccelTable[1][2] = [["{ENTER}", $Button1]]
GUISetAccelerators($Form1_AccelTable)
#EndRegion ### END Koda GUI section ###

While 1
	GUICtrlSetData($Edit1, "")
	$read2 = fileread($pfad,_StringEncrypt(0, $user&": "&$read&@CRLF, "1"))
	GUICtrlSetData($Edit1, $read2)
	Sleep(80)
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
  Case $Button1
   $read = GUICtrlRead($Edit2)
   If $read = "" then
		msgbox(48, "Information", "Du kannst keine Nachricht ohne Inhalt senden!")
	   else	   
		FileWrite($pfad,_StringEncrypt(1, $user&": "&$read&@CRLF, "1"))
		GUICtrlSetData($Edit2, "")
	EndIf 
 EndSwitch
WEnd

func schliessen()
	Exit
EndFunc