Text soll nicht über den Rand hinaus gehen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <file.au3>
#include <string.au3>
#Include <GuiEdit.au3>
#include <ScrollBarConstants.au3>
#NoTrayIcon

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

HotKeySet("{F4}", "hide")
HotKeySet("{F3}", "show")

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

MsgBox(262208, "Wichtige Information", "Der Schulchat kann mit der Taste <F4> versteckt werden und anschließend wieder mit der Taste <F3> sichtbar gemacht werden")
$pfad = @DesktopDir & "\NetControl.new"
$user = @UserName

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

#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Schul-Chat 1.0 Beta", 467, 442, 405, 112)
Global $Edit1 = GUICtrlCreateEdit("", 12, 12, 442, 298, BitOR($ES_AUTOVSCROLL, $ES_READONLY, $ES_WANTRETURN, $WS_VSCROLL))
GUICtrlSetCursor (-1, 2)
GUICtrlSetBkColor(-1, 0xA0A0A1)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
Global $Edit2 = GUICtrlCreateEdit("", 12, 324, 442, 73, $ES_AUTOVSCROLL)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
Global $Edit3 = GUICtrlCreateEdit("", 205, 410, 54, 17, BitOR($ES_AUTOVSCROLL, $ES_READONLY))
GUICtrlSetCursor (-1, 2)
GUICtrlSetState(-1, $GUI_DISABLE)
Global $Button1 = GUICtrlCreateButton("Senden", 348, 407, 105, 25, $WS_GROUP)
Global $Button2 = GUICtrlCreateButton("Chatverlauf löschen", 12, 407, 110, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
Global $Form1_AccelTable[1][2] = [["{ENTER}", $Button1]]
GUISetAccelerators($Form1_AccelTable)
#EndRegion ### END Koda GUI section ###

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

Send("... ist dem Schul-Chat um " & @HOUR & ":" & @MIN & " Uhr beigetreten. {ENTER}")

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

While 1
$read3 = @HOUR & ":" & @MIN & " Uhr"
If $read3 <> GUICtrlRead($Edit3) Then
GUICtrlSetData($Edit3, $read3)
EndIf
$read2 = _StringEncrypt(0, FileRead($pfad), "1")
If $read2 <> GuiCtrlRead($Edit1) Then
GUICtrlSetData($Edit1, $read2)
_GUICtrlEdit_Scroll($Edit1, $SB_PAGEDOWN)
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$read = GUICtrlRead($Edit2)
If $read = "" Then
MsgBox(64, "Information", "Du kannst keine Nachricht ohne Inhalt senden!")
Else
FileDelete($pfad)
FileWrite($pfad, _StringEncrypt(1, $read2 & $user & ": " & $read & @CRLF, "1"))
GUICtrlSetData($Edit2, "")
EndIf
Case $Button2
$msgbox = Msgbox(52, "Warnung", "Bist du dir sicher, dass du den Chatverlauf von ALLEN Computern löschen willst?")
If $msgbox = 6 Then
FileDelete($pfad)
EndIf
EndSwitch
WEnd

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

Func hide()
winsetstate("Schul-Chat 1.0 Beta", "", @SW_HIDE)
EndFunc

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

Func show()
winsetstate("Schul-Chat 1.0 Beta", "", @SW_SHOW)
EndFunc

[/autoit]