ZnilTools:Telnet SMTP Test Tool: Unterschied zwischen den Versionen

Aktuelle Version vom 7. April 2022, 13:07 Uhr

Changelog:
xx.05.2011 erste Version
10.06.2021 Veröffentlichung Quellcode
07.04.2022 hinweis auf SSL
Download

Vorwort

Mit dem Tool könnt Ihr den Mailversand beobachten - um zu prüfen ob der Server die Emails überhaupt annimmt.

Das Tool erklärt sich hoffentlich von selbst - es gibt einen Hilfe-Button der das ganze auch noch mal erklärt.
Beim Start ermittelt es die Sprachversion des Betriebsystems - ist diese Deutsch, so startet das Tool auch auf Deutsch, ansonsten auf Englisch. Im Setup könnt Ihr das aber selber wieder umstellen. Die Logdatei ist eine HTML Datei im selben Verzeichnis wie das Tool. Sollte für diesen Ort keine Schreibrechte vorhanden sein wird der Temporäre Ordner genommen.

und noch das Setup:
[Datei:TelnetSMTP-TestTool-003.gif]]
Download (noch einmal)

Download: TelnetSMTP-TestTool.exe‎
TLS

Am TLS Support arbeite ich noch - mit OpenSSL geht es. Eventuell baue ich einen Warpper oder kann Bibliotheken davon nutzen:
https://www.stevenrombauts.be/2018/12/test-smtp-with-telnet-or-openssl/
Quellcode

Das ist eines der ersten Programme die ich überhaupt mit AutoIt erstellt habe. Ich bin nicht besonders stolz auf den Quellcode, inzwischen sieht der bei mir schöner aus - und ich habe mir auch ein paar andere Techniken/Vorgehensweisen angewöhnt.
Geschrieben in AutoIt: https://www.autoitscript.com/site/ oder https://autoit.de
Da der Quellcode von 2011 ist könnte es sein das man mit der aktuellen AutoIt-Version noch ein paar Anpassungen vornehmen müsste. Scheinbar hatte ich den Quellcode mal 2007 überarbeitet
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=znil.ico
#AutoIt3Wrapper_Outfile=TelnetSMTP-TestTool.exe
#AutoIt3Wrapper_Res_Description=TelnetSMTP-TestTool
#AutoIt3Wrapper_Res_Fileversion=2.0.0.3
#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=p
#AutoIt3Wrapper_Res_LegalCopyright=2011 von Bernhard Linz http://znil.net
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Res_File_Add=flagge_deutschland.bmp, rt_bitmap, flagge_deutschland_bmp
#AutoIt3Wrapper_Res_File_Add=flagge_england.bmp, rt_bitmap, flagge_england_bmp
#AutoIt3Wrapper_Res_File_Add=znilwiki.bmp, rt_bitmap, znilwiki_bmp
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;2011 Bernhard Linz
#Region    ;************ Includes ************
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiConstants.au3>;~~~
#include <IE.au3>
#include <Constants.au3>
#include <Misc.au3>
#include <Array.au3>
#include <GUIListBox.au3>
#include <INet.au3>
#include <String.au3>
#include "resources.au3"
#EndRegion ;************ Includes ************



#Region ------ Variablen Dimensonieren ------------------------------
Dim $Logfilename
Dim $Verbindungsstatus = "getrennt"
Dim $Mailserver
Dim $ZeigerVerbindung
Dim $Empfangspuffer
Dim $Tastenpreller = 0
Dim $Betreffzeile = ""
Dim $HilfePosH
Dim $HilfePosV
Dim $HauptfensterPosH
Dim $HauptfensterPosV
Dim $ButtonHilfeSchliessen
Dim $FormSMTPHelp
Dim $AbmessungenEditCtrl[4]
#EndRegion --- Variablen Dimensonieren ------------------------------

;Variablen für das Setup - mühsam ins Script eingepflegt - nächstes mal gleich so machen :-(

Dim $FarbeEmpfangen = 0xEE6666
Dim $FarbeSenden = 0x00DD00
Dim $FarbeOffline = 0xDDDDDD
Dim $SchriftgroesseEmpfangen = 2
Dim $SchriftgroesseSenden = 2
Dim $SchriftgroesseOffline = 2
Dim $FarbeHintergund = 0x000000
Dim $Schriftart = "Courier New"

;Variablen für die Sprachumschaltung zwischen Deutsch und Englisch
; xxx[0] ist immer Deutsch
; xxx[1] ist immer Englisch
Dim $sprache = "deutsch"
Dim $sprachezahl = 0
Global $sprache_Setup_GroupSprache[2] = [" Sprache ", " Language "]
Global $sprache_Setup_GroupVorschau[2] = [" Vorschau ", " Preview "]
Global $sprache_Setup_GroupEmpfangen[2] = [" empfangene Nachrichten ", " Received Messages "]
Global $sprache_Setup_GroupSenden[2] = [" gesendete Nachrichten ", " Messages sent "]
Global $sprache_Setup_GroupOffline[2] = [" Offline Nachrichten ", " Messages offline "]
Global $sprache_Setup_GroupHintergrundfarbe[2] = [" Hintergrundfarbe ", " Background Color "]
Global $sprache_Setup_GroupInfo[2] = [" Info ", " Info "]
Global $sprache_Setup_ButtonSpeichern[2] = ["Speichern", "Save"]
Global $sprache_Setup_ButtonAbbrechen[2] = ["Abbrechen", "Cancel"]
Global $sprache_Setup_ButtonStandard[2] = ["Standardwerte", "Defaults"]
Global $sprache_Setup_Schriftgroesse[2] = ["Schriftgrösse", "Font Size"]
Dim $sprache_Main_ButtonVerbinden[2] = ["Verbinden", "Connect"]
Dim $sprache_Main_ButtonTrennen[2] = ["Trennen", "Disconnect"]
Dim $sprache_Main_Group_1_Server_des_Absenders[2] = [" 1. Server des Absenders ", " 1. Sending Server "]
Dim $sprache_Main_Group_2_Authentifizierung[2] = [" 2. eventuelle Authentifizierung (ansonsten überspringen) ", " 2. possible Authentication (otherwise skip) "]
Dim $sprache_Main_Group_3_Absenderadresse[2] = [" 3. Absenderadresse ", " 3. Senders Mail Address "]
Dim $sprache_Main_Group_4_Empfaenger[2] = [" 4. Empfängeradresse ", " 4. Recipient Mail Address "]
Dim $sprache_Main_Group_5_Bereit_fuer_Maildaten[2] = [" 5. Bereit für Maildaten ", " 5. Ready for Mail Body "]
Dim $sprache_Main_LabelButtonData[2] = ["Abschluss der Empfängereingabe", "Completion Recipients"]
Dim $sprache_Main_Group_6_Betreffzeile[2] = [" 6. Betreffzeile ", " 6. Subject Line "]
Dim $sprache_Main_Group_7_Inhalt_der_Mail[2] = [" 7. Inhalt der Mail / Nachricht / Mailtext ", " 7. Content of the mail message "]
Dim $sprache_Main_LabelButtonMailtext[2] = ["Leerzeile + '.' wird automatisch gesetzt", "Blank Line + '.' will added automatic"]
Dim $sprache_Main_Group_8_Fertig_abmelden[2] = [" 8. Fertig - wieder Abmelden vom Server ", " 8. Finished - Logout and Disconnect "]
Dim $sprache_Main_LabelButtonQUIT[2] = ["Beenden der Sitzung", "Logout and Disconnect"]
Dim $sprache_Main_Checkbox_In_Registry_speichern[2] = ["Einstellungen in Registry speichern", "Save Settings in Registry"]
Dim $sprache_Main_Checkbox_Log_Datei_loeschen[2] = ["Log-Datei löschen", "delete Logfile"]
Dim $sprache_Main_LabelJahrundName[2] = ["2011 - Bernhard Linz für", "2011 - Bernhard Linz for"]
Dim $sprache_Main_Label_das[2] = ["- das znilwiki über Windows, VMware und mehr", "- znilwiki, a german IT-Wiki"]
Dim $sprache_Main_ButtonHilfe[2] = ["Hilfe", "Help"]
Dim $sprache_Main_ButtonAbsenden[2] = ["Absenden", "Send"]
Dim $sprache_Main_LabelStatus[2] = ["Pfad zur Logdatei: ", "Path Logfile: "]
Dim $sprache_Hilfe_HilfeLabelTextHELO[2] = ["Begrüßung, erster Befehl, mit Angabe des Servernames, Standard SMTP", "first command, own servername, Standard SMTP"]
Dim $sprache_Hilfe_HilfeLabelTextEHLO[2] = ["Alternative Begrüßung, Extended SMTP (ESMTP)", "Alternative, the Extended SMTP Protocol"]
Dim $sprache_Hilfe_HilfeLabelTextAUTHLOGIN1[2] = ["Einleitung der Anmeldung (bei Bedarf), es folgen in jeweils einer Zeile der", "Start login process (if needed), Username and Password will"]
Dim $sprache_Hilfe_HilfeLabelTextAUTHLOGIN1[2] = ["Benutzername und das Passwort in Base64 umgerechnet", "will follow (coded in Base64) in separat lines."]
Dim $sprache_Hilfe_HilfeLabelTextMAILFROM[2] = ["Absenderadresse, eingefasst in < >", "Sender Address, framed in < >"]
Dim $sprache_Hilfe_HilfeLabelTextRCTPTO1[2] = ["Empfängeradresse, eingefasst in < >, für weitere Empfänger jeweils einen", "Recipient Mail Address, framed in < >, add additional"]
Dim $sprache_Hilfe_HilfeLabelTextRCTPTO2[2] = ["weiteren RCPT TO: Eintrag vornehmen", "lines with RCPT TO: for each recipient"]
Dim $sprache_Hilfe_HilfeLabelTextDATA[2] = ["Beginn der eigentlichen Nachrichtenübertragung", "Start of message body transmission"]
Dim $sprache_Hilfe_HilfeLabelTextFromNameSender[2] = ["Unmittelbar nach Data, Anzeigename Absender und <Antwortadresse>", "Immediately after DATA, Display name and return address"]
Dim $sprache_Hilfe_HilfeLabelTextAnzeigename[2] = ["Anzeigename Empfänger", "Display Name Recipient"]
Dim $sprache_Hilfe_HilfeLabelSubject[2] = ["Subject:Der Betreff", "Subject:Text"]
Dim $sprache_Hilfe_HilfeLabelTextBetreffzeile[2] = ["Betreffzeile. Der eigentliche Mailtext beginnt nach einer einzelnen Leerzeile", "Subject line. Mail Text begins after a single blank line"]
Dim $sprache_Hilfe_HilfeLabelLeerzeileundPunkt[2] = ["Leerzeile + ein einzelner Punkt '.'", "Blank line and a single dot '.'"]
Dim $sprache_Hilfe_HilfeLabelTextLeerzeile[2] = ["Damit wird die nachricht beendet und zum Senden übergeben.", "Ends the Mail body and send"]
Dim $sprache_Hilfe_HilfeLabelTextQUIT[2] = ["Beendet die Verbindung", "Close Session and Disconnect"]
Dim $sprache_Hilfe_HilfeLabelTextRSET[2] = ["Reset - nochm zurück auf Anfang", "Reset and start again"]
Dim $sprache_Hilfe_HilfeLabelTextNOOP[2] = ["NO Operation - macht nichts ausser sich ein '250 OK' abzuholen", "NO OPeration, do nothing but get a '250 OK'"]
Dim $sprache_Hilfe_HilfeLabelTextHELP[2] = ["Listet Befehle auf, auch z.B. HELP DATA - nicht zuviel erwarten ...", "Display Commands and Help - don't expect too much ..."]
Dim $sprache_Hilfe_HilfeLabelHinweis[2] = ["Die Befehle oben sind anklickbar!", "The commands above are clickable!"]
Dim $sprache_Hilfe_HilfeCheckboxBefehleNurEintragen[2] = ["Befehle nur in Eingabezeile eintragen statt direkt zu senden", "Only enter commands in command line rather than sending directly"]
Dim $sprache_Hilfe_ButtonHilfeSchliessen[2] = ["Schliessen", "Close Help Window"]

;===============================================================================
; Function Name:   _Chatbox_Create($hWnd, $iLeft, $iTop, $iWidth, $iHeight[, $iBgColor][, $sLogfile][, $sImgPath][, $sScrollbar])
; Description::    erstellt eine Chatbox
; Parameter(s):    $hWnd = Handle des Fensters, auf dem die Box erstellt werden soll
;                  $iLeft, $iTop = Position der Box
;                  $iWidth, $iHeight = Größe der Box
;                  $iBgColor = Hintergrundfarbe der Box
;                  $sLogfile = Logfile-Dateiname (inkl. Pfad). Ergebnis ist eine HTML-Datei.
;                  $sImgPath = Verzeichnispfad zu den Smiley-PNGs, Standard: @ScriptDir & '\png\'
;                  $sScrollbar = Vertikale Scrollbar anzeigen?
;                                auto = nur wenn benötigt
;                                yes = ja, immer
;                                no = nie anzeigen
; Requirement(s):  #include <IE.au3>
; Return Value(s): bei Erfolg = Array, für den Aufruf der anderen Funktionen
;                  bei Fehler = Rückgabe: Null
;                  und @error = 1 (embedded IE konnte nicht erstellt werden)
;                               2 (das GUI-Objekt für den IE konnte nicht erstellt werden)
; Author(s):       Oscar (www.autoit.de)
;===============================================================================
Func _Chatbox_Create($hWnd, $iLeft, $iTop, $iWidth, $iHeight, $iBgColor = 0xffffff, $sLogfile = '', $sImgPath = '', $sScrollbar = 'auto')
	Local $ahChat[5], $sTempFile, $oBody
	$ahChat[0] = _IECreateEmbedded()
	If @error Then Return SetError(1, 0, 0)
	GUISwitch($hWnd)
	$ahChat[1] = GUICtrlCreateObj($ahChat[0], $iLeft, $iTop, $iWidth, $iHeight)
	GUICtrlSetResizing(-1, 1)
	If $ahChat[1] = 0 Then Return SetError(2, 0, 0)
	If Not FileExists($sImgPath) Then $sImgPath = @ScriptDir & '\png\'
	If StringRight($sImgPath, 1) <> '\' Then $sImgPath &= '\'
	$ahChat[2] = '<html>' & @CRLF & '<head>' & @CRLF & '<title>Chatbox</title>' & @CRLF & '<style type="text/css">body { background-color:#' & Hex($iBgColor, 6)
	$ahChat[2] &= '; padding:0px; margin:4px; } p { margin:4px; }</style>' & @CRLF & '</head>' & @CRLF
	$ahChat[2] &= '<body scroll="' & $sScrollbar & '">' & @CRLF & '</body>' & @CRLF & '</html>'
	$sTempFile = @TempDir & '\Telnet-SMTP-TestTool-Temp.html'
	$hFile = FileOpen($sTempFile, 2)
	FileWrite($hFile, $ahChat[2])
	FileClose($hFile)
	_IENavigate($ahChat[0], $sTempFile)
	$ahChat[3] = ''
	If $sLogfile <> '' Then
		If FileCopy($sTempFile, $sLogfile, 9) Then $ahChat[3] = $sLogfile
	EndIf
	FileDelete($sTempFile)
	$ahChat[4] = $sImgPath
	Return $ahChat
EndFunc   ;==>_Chatbox_Create

Func _Chatbox_Update(ByRef $ahChat)
	;_IENavigate($ahChat[0], @TempDir & '\Telnet-SMTP-TestTool-Temp.html')
	_IENavigate($ahChat[0], $ahChat[3])
	;_IEAction($ahChat[0], "refresh")
EndFunc   ;==>_Chatbox_Update

;===============================================================================
; Function Name:   _Chatbox_SetData($ahChat, $sMsg[, $iColor][, $iSize][,$SFont][, $iImgSize])
; Description::    Funktion zum schreiben in die Chatbox
; Parameter(s):    $ahChat = das Rückgabe-Array von _Chatbox_Create()
;                  $sMsg = die Textzeile, die in die Chatbox geschrieben werden soll
;                  $iColor = Schriftfarbe (Standard = 0x000000, schwarz)
;                  $iSize = Größe der Schrift (Werte von 1 bis 7, Standard = 2)
;                  $sFont = Schriftart, Ausweichschriftart mit Kommans getrennt angeben
;                           z.B. "Courier,Arial"
;                  $iImgSize = Größe der Smilies (Standard = 19 pixel)
; Requirement(s):  #include <IE.au3>
; Return Value(s): bei Erfolg = 1
;                  bei Fehler = 0
;                  und @error = 1 ($ahChat ist kein Array)
;                               2 ($ahChat besitzt nicht die richtigen Array-Dimensionen)
;                               3 (Logfile konnte nicht geschrieben werden)
; Author(s):       Oscar (www.autoit.de)
; Modifiziert:	   Bernhard Linz: Schriftarten eingebaut, was nicht gebraucht wurde rausgeworfen
;===============================================================================
Func _Chatbox_SetData(ByRef $ahChat, $sMsg, $iColor = 0x000000, $iSize = 2, $sFont = "Arial", $iImgSize = 19, $fAppend = False)
	If Not IsArray($ahChat) Then Return SetError(1, 0, 0)
	If UBound($ahChat) <> 5 Then Return SetError(2, 0, 0)
	Local $hFile, $oBody
	;$sMsg = StringRegExpReplace($sMsg, '(?s)<.*?>', '')
	;$sMsg = StringRegExpReplace($sMsg, '(?s)(?i)\[hr\]', '<hr>')
	;$sMsg = StringRegExpReplace($sMsg, '(?s)(?i)\[(\/*b|\/*i|\/*u)\]', '<$1>')
	;$sMsg = StringRegExpReplace($sMsg, '(?s)(?i)\[(color=.+?)\](.*?)\[\/(color)\]', '<font $1>$2</font>')
	;$sMsg = StringRegExpReplace($sMsg, '(?s)(?i)\[(size=.+?)\](.*?)\[\/(size)\]', '<font $1>$2</font>')
	$sMsg = '<p><font color="#' & Hex($iColor, 6) & '" size="' & $iSize & '" face="' & $sFont & '">' & $sMsg & '</font></p>'
	$sMsg = StringReplace($sMsg, @CRLF, '<br>')
	;$sMsg = _Chatbox_ConvertSmilies($sMsg, $ahChat[4], $iImgSize)
	;$sMsg = _Chatbox_ConvertMailto($sMsg)
	;$sMsg = _Chatbox_ConvertHyperlink($sMsg)
	$oBody = _IETagNameGetCollection($ahChat[0], 'body', 0)
	_IEDocInsertHTML($oBody, $sMsg)
	$oBody.scrollTop = 0x5FFFFFFF
	If $ahChat[3] <> '' Then
		$ahChat[2] = StringRegExpReplace($ahChat[2], '(?s)(.+<body.+?>.*)(</body>.+</html>)', '$1' & $sMsg & @CRLF & '$2')
		$hFile = FileOpen($ahChat[3], 2)
		If $hFile = -1 Then Return SetError(3, 0, 0)
		FileWrite($hFile, $ahChat[2])
		FileClose($hFile)
	EndIf
	Return 1
EndFunc   ;==>_Chatbox_SetData

; #FUNCTION# ;===============================================================================
;
; Name...........: _Base64Encode
; Description ...: Returns the given strinng encoded as a Base64 string.
; Syntax.........: _Base64Encode($sData)
; Parameters ....: $sData
; Return values .: Success - Base64 encoded string.
;                  Failure - Returns 0 and Sets @Error:
;                  |0 - No error.
;                  |1 - Could not create DOMDocument
;                  |2 - Could not create Element
;                  |3 - No string to return
; Author ........: turbov21
; Modified.......:
; Remarks .......:
; Related .......: _Base64Decode
; Link ..........;
; Example .......; Yes
;
; ;==========================================================================================
Func _Base64Encode($sData)
	Local $oXml = ObjCreate("Msxml2.DOMDocument")
	If Not IsObj($oXml) Then
		SetError(1, 1, 0)
	EndIf

	Local $oElement = $oXml.createElement("b64")
	If Not IsObj($oElement) Then
		SetError(2, 2, 0)
	EndIf

	$oElement.dataType = "bin.base64"
	$oElement.nodeTypedValue = Binary($sData)
	Local $sReturn = $oElement.Text

	If StringLen($sReturn) = 0 Then
		SetError(3, 3, 0)
	EndIf

	Return $sReturn
EndFunc   ;==>_Base64Encode

;===============================================================================
; Function Name:   _Warte-auf-Antwort(byRef $ZeigerTCPVerbindung)
; Description::    Wartet auf die Antwort und schreibt in die Chatbox
; Parameter(s):    $ZeigerTCPVerbindung = Zeiger auf die bereits offene TCP Verbindung
; Requirement(s):
; Return Value(s):
; Author(s):       Bernhard Linz
;===============================================================================


;Dim $FarbeEmpfangen = 0xEE6666
;Dim $FarbeSenden = 0x00DD00
;Dim $FarbeOffline = 0xDDDDDD
;Dim $SchriftgroesseEmpfangen = 2
;Dim $SchriftgroesseSenden = 2
;Dim $SchriftgroesseOffline = 2
;Dim $FarbeHintergund = 0x000000
;Dim $Schriftart = "Courier"

Func _TelnetSMTPTestToolSETUP(ByRef $setFarbeEmpfangen, ByRef $setFarbeSenden, ByRef $setFarbeOffline, _
		ByRef $setSchriftgroesseEmpfangen, ByRef $setSchriftgroesseSenden, _
		ByRef $setSchriftgroesseOffline, ByRef $setFarbeHintergund, ByRef $setSchriftart, ByRef $setsprache)

	Dim $setSchriftgroesse[6]
	$setSchriftgroesse[1] = 8
	$setSchriftgroesse[2] = 12
	$setSchriftgroesse[3] = 14
	$setSchriftgroesse[4] = 16
	$setSchriftgroesse[5] = 18
	Dim $tempFarbe
	Dim $tempsetFarbeEmpfangen = $setFarbeEmpfangen
	Dim $tempsetFarbeSenden = $setFarbeSenden
	Dim $tempsetFarbeOffline = $setFarbeOffline
	Dim $tempsetSchriftgroesseEmpfangen = $setSchriftgroesseEmpfangen
	Dim $tempsetSchriftgroesseSenden = $setSchriftgroesseSenden
	Dim $tempsetSchriftgroesseOffline = $setSchriftgroesseOffline
	Dim $tempsetFarbeHintergund = $setFarbeHintergund
	Dim $tempsetSchriftart = $setSchriftart
	Dim $tempsetsprache = $setsprache


	#Region ### START Koda GUI section ### Form=C:\_AutoIT\SMPT_und_POP_Tester\FormSetup.kxf
	$FormSetup = GUICreate("Telnet-SMTP-TestTool Setup", 505, 640, -1, -1)
	GUISetBkColor(0xA6CAF0)
	$ButtonSetupSPEICHERN = GUICtrlCreateButton("Speichern", 152, 600, 113, 30, $WS_GROUP)
	$ButtonSetupABBRECHEN = GUICtrlCreateButton("Abbrechen", 268, 600, 113, 30, $WS_GROUP)
	$ButtonSetupSTANDARD = GUICtrlCreateButton("Standardwerte", 384, 600, 113, 30, $WS_GROUP)
	$GroupEmpfang = GUICtrlCreateGroup(" empfange Nachrichten ", 8, 240, 313, 57)
	$LabelFarbauswahlEmpfang = GUICtrlCreateLabel("", 16, 256, 32, 32, BitOR($SS_CENTER, $SS_CENTERIMAGE, $SS_SUNKEN, $WS_BORDER))
	GUICtrlSetBkColor(-1, 0xFF0000)
	GUICtrlSetCursor(-1, 0)
	$LabelSchriftgroesseEmpfang = GUICtrlCreateLabel("Schriftgrösse:", 56, 264, 68, 17)
	$Radio1Empfang = GUICtrlCreateRadio("1", 136, 262, 33, 17)
	$Radio2Empfang = GUICtrlCreateRadio("2", 173, 262, 33, 17)
	$Radio3Empfang = GUICtrlCreateRadio("3", 211, 262, 33, 17)
	$Radio4Empfang = GUICtrlCreateRadio("4", 248, 262, 33, 17)
	$Radio5Empfang = GUICtrlCreateRadio("5", 285, 262, 33, 17)
	GUICtrlCreateGroup("", -99, -99, 1, 1)
	$GroupVorschau = GUICtrlCreateGroup(" Vorschau ", 8, 88, 489, 145)
	$LabelVorschauEmpfang = GUICtrlCreateLabel(" 220 testserver.znil.net", 16, 104, 476, 40, $SS_CENTERIMAGE)
	GUICtrlSetFont(-1, 10, 400, 0, "Courier")
	GUICtrlSetColor(-1, 0xFF0000)
	GUICtrlSetBkColor(-1, 0x000000)
	$LabelVorschauSenden = GUICtrlCreateLabel(" HELO meinmailserver.ich.test", 16, 144, 476, 40, $SS_CENTERIMAGE)
	GUICtrlSetFont(-1, 10, 400, 0, "Courier")
	GUICtrlSetColor(-1, 0x00FF00)
	GUICtrlSetBkColor(-1, 0x000000)
	$LabelVorschauOffline = GUICtrlCreateLabel(" nicht verbunden: NOOP", 16, 184, 476, 40, $SS_CENTERIMAGE)
	GUICtrlSetFont(-1, 10, 400, 2, "Courier")
	GUICtrlSetColor(-1, 0xC0C0C0)
	GUICtrlSetBkColor(-1, 0x000000)
	GUICtrlCreateGroup("", -99, -99, 1, 1)
	$GroupGesendeteNachrichten = GUICtrlCreateGroup(" gesendete Nachrichten ", 7, 305, 313, 57)
	$LabelFarbauswahlSenden = GUICtrlCreateLabel("", 15, 321, 32, 32, BitOR($SS_CENTER, $SS_CENTERIMAGE, $SS_SUNKEN, $WS_BORDER))
	GUICtrlSetBkColor(-1, 0x00FF00)
	GUICtrlSetCursor(-1, 0)
	$LabelSchriftgroessenSenden = GUICtrlCreateLabel("Schriftgrösse:", 55, 329, 68, 17)
	$Radio1Senden = GUICtrlCreateRadio("1", 135, 327, 33, 17)
	$Radio2Senden = GUICtrlCreateRadio("2", 172, 327, 33, 17)
	$Radio3Senden = GUICtrlCreateRadio("3", 210, 327, 33, 17)
	$Radio4Senden = GUICtrlCreateRadio("4", 247, 327, 33, 17)
	$Radio5Senden = GUICtrlCreateRadio("5", 284, 327, 33, 17)
	GUICtrlCreateGroup("", -99, -99, 1, 1)
	$GroupOffline = GUICtrlCreateGroup(" Offline Nachrichten  ", 8, 370, 313, 57)
	$LabelFarbauswahlOffline = GUICtrlCreateLabel("", 16, 386, 32, 32, BitOR($SS_CENTER, $SS_CENTERIMAGE, $SS_SUNKEN, $WS_BORDER))
	GUICtrlSetBkColor(-1, 0xA0A0A4)
	GUICtrlSetCursor(-1, 0)
	$LabelSchriftgroesseOffline = GUICtrlCreateLabel("Schriftgrösse:", 56, 394, 68, 17)
	$Radio1Offline = GUICtrlCreateRadio("1", 136, 392, 33, 17)
	$Radio2Offline = GUICtrlCreateRadio("2", 173, 392, 33, 17)
	$Radio3Offline = GUICtrlCreateRadio("3", 211, 392, 33, 17)
	$Radio4Offline = GUICtrlCreateRadio("4", 248, 392, 33, 17)
	$Radio5Offline = GUICtrlCreateRadio("5", 285, 392, 33, 17)
	GUICtrlCreateGroup("", -99, -99, 1, 1)
	$ListSchriftenauswahl = GUICtrlCreateList("", 328, 248, 169, 240)
	$GroupHintergrundfarbe = GUICtrlCreateGroup(" Hintergrundfarbe ", 8, 435, 313, 57)
	$LabelFarbauswahlHintergrund = GUICtrlCreateLabel("", 16, 451, 296, 32, BitOR($SS_CENTER, $SS_CENTERIMAGE, $SS_SUNKEN, $WS_BORDER))
	GUICtrlSetBkColor(-1, 0x000A15)
	GUICtrlSetCursor(-1, 0)
	GUICtrlCreateGroup("", -99, -99, 1, 1)
	$GroupSprache = GUICtrlCreateGroup(" Sprache ", 8, 8, 489, 73)
	$PicDeutsch = GUICtrlCreatePic("", 40, 28, 75, 45, BitOR($SS_NOTIFY, $WS_GROUP, $WS_BORDER))
	GUICtrlSetCursor(-1, 0)
	$PicEnglisch = GUICtrlCreatePic("", 271, 28, 75, 45, BitOR($SS_NOTIFY, $WS_GROUP, $WS_BORDER))
	GUICtrlSetCursor(-1, 0)
	$LabelDeutsch = GUICtrlCreateLabel("Deutsch", 120, 28, 108, 45, $SS_CENTERIMAGE)
	GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
	GUICtrlSetCursor(-1, 0)
	$RadioDeutsch = GUICtrlCreateRadio("", 24, 28, 15, 45)
	GUICtrlSetState(-1, $GUI_CHECKED)
	GUICtrlSetCursor(-1, 0)
	$LabelEnglisch = GUICtrlCreateLabel("English", 350, 28, 108, 45, $SS_CENTERIMAGE)
	GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
	GUICtrlSetCursor(-1, 0)
	$RadioEnglisch = GUICtrlCreateRadio("", 255, 28, 15, 45)
	GUICtrlSetCursor(-1, 0)
	GUICtrlCreateGroup("", -99, -99, 1, 1)
	$Picznilwiki = GUICtrlCreatePic("", 8, 496, 135, 135, BitOR($SS_NOTIFY, $WS_GROUP, $WS_BORDER))
	GUICtrlSetTip(-1, "http://znil.net/index.php?title=ZnilTools")
	GUICtrlSetCursor(-1, 0)
	$GroupSetupInfo = GUICtrlCreateGroup(" Info ", 152, 504, 345, 89)
	$LabelBezeichnungToolname = GUICtrlCreateLabel("Toolname:", 156, 520, 80, 17)
	GUICtrlSetFont(-1, 10, 400, 0, "Courier")
	$LabelBezeichnungVersion = GUICtrlCreateLabel("Version:", 156, 537, 80, 17)
	GUICtrlSetFont(-1, 10, 400, 0, "Courier")
	$LabelBezeichnungAuthor = GUICtrlCreateLabel("Author:", 156, 554, 80, 17)
	GUICtrlSetFont(-1, 10, 400, 0, "Courier")
	$LabelBezeichnungWeblink = GUICtrlCreateLabel("Weblink:", 156, 571, 80, 17)
	GUICtrlSetFont(-1, 10, 400, 0, "Courier")
	$LabelToolname = GUICtrlCreateLabel("Telnet SMTP Test Tool", 241, 520, 248, 17)
	GUICtrlSetFont(-1, 10, 400, 0, "Courier")
	$LabelVersion = GUICtrlCreateLabel("2.0", 241, 537, 248, 17)
	GUICtrlSetFont(-1, 10, 400, 0, "Courier")
	$LabelAuthor = GUICtrlCreateLabel("Bernhard Linz", 241, 554, 248, 17)
	GUICtrlSetFont(-1, 10, 400, 4, "Courier")
	GUICtrlSetColor(-1, 0x0000FF)
	GUICtrlSetTip(-1, "mailto:Bernhard@znil.net")
	GUICtrlSetCursor(-1, 0)
	$LabelWeblink = GUICtrlCreateLabel("Link to 'Tools by znilwiki'", 241, 571, 248, 17)
	GUICtrlSetFont(-1, 10, 400, 4, "Courier")
	GUICtrlSetColor(-1, 0x0000FF)
	GUICtrlSetTip(-1, "http://znil.net/index.php?title=ZnilTools")
	GUICtrlSetCursor(-1, 0)
	GUICtrlCreateGroup("", -99, -99, 1, 1)
	GUISetState(@SW_SHOW)
	#EndRegion ### END Koda GUI section ###

	_ResourceSetImageToCtrl($Picznilwiki, "znilwiki_bmp", $RT_BITMAP)
	_ResourceSetImageToCtrl($PicDeutsch, "flagge_deutschland_bmp", $RT_BITMAP)
	_ResourceSetImageToCtrl($PicEnglisch, "flagge_england_bmp", $RT_BITMAP)

	;So, wir wurden gerade gestartet, die GUI steht - nun schreiben wir überall die bisherigen Werte rein ...
	GUICtrlSetBkColor($LabelFarbauswahlEmpfang, $setFarbeEmpfangen)
	GUICtrlSetBkColor($LabelFarbauswahlSenden, $setFarbeSenden)
	GUICtrlSetBkColor($LabelFarbauswahlOffline, $setFarbeOffline)
	GUICtrlSetBkColor($LabelFarbauswahlHintergrund, $setFarbeHintergund)
	GUICtrlSetColor($LabelVorschauEmpfang, $setFarbeEmpfangen)
	GUICtrlSetColor($LabelVorschauSenden, $setFarbeSenden)
	GUICtrlSetColor($LabelVorschauOffline, $setFarbeOffline)
	GUICtrlSetBkColor($LabelVorschauEmpfang, $setFarbeHintergund)
	GUICtrlSetBkColor($LabelVorschauSenden, $setFarbeHintergund)
	GUICtrlSetBkColor($LabelVorschauOffline, $setFarbeHintergund)
	Switch $SchriftgroesseEmpfangen
		Case 1
			GUICtrlSetState($Radio1Empfang, $GUI_CHECKED)
			GUICtrlSetFont($LabelVorschauEmpfang, $setSchriftgroesse[$SchriftgroesseEmpfangen], 400, 1, $tempsetSchriftart)
		Case 2
			GUICtrlSetState($Radio2Empfang, $GUI_CHECKED)
			GUICtrlSetFont($LabelVorschauEmpfang, $setSchriftgroesse[$SchriftgroesseEmpfangen], 400, 1, $tempsetSchriftart)
		Case 3
			GUICtrlSetState($Radio3Empfang, $GUI_CHECKED)
			GUICtrlSetFont($LabelVorschauEmpfang, $setSchriftgroesse[$SchriftgroesseEmpfangen], 400, 1, $tempsetSchriftart)
		Case 4
			GUICtrlSetState($Radio4Empfang, $GUI_CHECKED)
			GUICtrlSetFont($LabelVorschauEmpfang, $setSchriftgroesse[$SchriftgroesseEmpfangen], 400, 1, $tempsetSchriftart)
		Case 5
			GUICtrlSetState($Radio5Empfang, $GUI_CHECKED)
			GUICtrlSetFont($LabelVorschauEmpfang, $setSchriftgroesse[$SchriftgroesseEmpfangen], 400, 1, $tempsetSchriftart)
	EndSwitch
	Switch $SchriftgroesseSenden
		Case 1
			GUICtrlSetState($Radio1Senden, $GUI_CHECKED)
			GUICtrlSetFont($LabelVorschauSenden, $setSchriftgroesse[$SchriftgroesseSenden], 400, 1, $tempsetSchriftart)
		Case 2
			GUICtrlSetState($Radio2Senden, $GUI_CHECKED)
			GUICtrlSetFont($LabelVorschauSenden, $setSchriftgroesse[$SchriftgroesseSenden], 400, 1, $tempsetSchriftart)
		Case 3
			GUICtrlSetState($Radio3Senden, $GUI_CHECKED)
			GUICtrlSetFont($LabelVorschauSenden, $setSchriftgroesse[$SchriftgroesseSenden], 400, 1, $tempsetSchriftart)
		Case 4
			GUICtrlSetState($Radio4Senden, $GUI_CHECKED)
			GUICtrlSetFont($LabelVorschauSenden, $setSchriftgroesse[$SchriftgroesseSenden], 400, 1, $tempsetSchriftart)
		Case 5
			GUICtrlSetState($Radio5Senden, $GUI_CHECKED)
			GUICtrlSetFont($LabelVorschauSenden, $setSchriftgroesse[$SchriftgroesseSenden], 400, 1, $tempsetSchriftart)
	EndSwitch
	Switch $SchriftgroesseOffline
		Case 1
			GUICtrlSetState($Radio1Offline, $GUI_CHECKED)
			GUICtrlSetFont($LabelVorschauOffline, $setSchriftgroesse[$SchriftgroesseOffline], 400, 1, $tempsetSchriftart)
		Case 2
			GUICtrlSetState($Radio2Offline, $GUI_CHECKED)
			GUICtrlSetFont($LabelVorschauOffline, $setSchriftgroesse[$SchriftgroesseOffline], 400, 1, $tempsetSchriftart)
		Case 3
			GUICtrlSetState($Radio3Offline, $GUI_CHECKED)
			GUICtrlSetFont($LabelVorschauOffline, $setSchriftgroesse[$SchriftgroesseOffline], 400, 1, $tempsetSchriftart)
		Case 4
			GUICtrlSetState($Radio4Offline, $GUI_CHECKED)
			GUICtrlSetFont($LabelVorschauOffline, $setSchriftgroesse[$SchriftgroesseOffline], 400, 1, $tempsetSchriftart)
		Case 5
			GUICtrlSetState($Radio5Offline, $GUI_CHECKED)
			GUICtrlSetFont($LabelVorschauOffline, $setSchriftgroesse[$SchriftgroesseOffline], 400, 1, $tempsetSchriftart)
	EndSwitch

	; Und der Schriftendialog:
	;GUICtrlSetData($ListSchriftenauswahl,$setAuswahlanSchriften,$tempsetSchriftart)

	;Schrifarten zusammenstellen
	Dim $sAllFonts = @CRLF
	Dim $setschleife = 1
	While True
		$sFont = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts", $setschleife)
		If @error Then ExitLoop
		$setschleife = $setschleife + 1
		$sAllFonts &= $sFont & @CRLF
	WEnd

	$aTrueType = StringRegExp($sAllFonts, '(.+?\(TrueType\))\r', 3)
	_ArraySort($aTrueType)
	;_ArrayDisplay($aTrueType, 'True Type')
	;MsgBox(4096,"",$setschleife & " - " & UBound($aTrueType))
	_GUICtrlListBox_BeginUpdate($ListSchriftenauswahl)
	;For $i = 1 To $setAnzahlSchriften
	For $i = 0 To UBound($aTrueType) - 1
		;MsgBox(4096,$i,"-->" & StringReplace($aTrueType[$i]," (TrueType)","") & "<--")
		_GUICtrlListBox_AddString($ListSchriftenauswahl, StringReplace($aTrueType[$i], " (TrueType)", ""))

	Next
	_GUICtrlListBox_EndUpdate($ListSchriftenauswahl)
	_GUICtrlListBox_SelectString($ListSchriftenauswahl, $tempsetSchriftart)

	;Und die Sprache einstellen
	If $tempsetsprache = "deutsch" Then
		GUICtrlSetData($GroupSprache, $sprache_Setup_GroupSprache[0])
		GUICtrlSetData($GroupVorschau, $sprache_Setup_GroupVorschau[0])
		GUICtrlSetData($GroupEmpfang, $sprache_Setup_GroupEmpfangen[0])
		GUICtrlSetData($GroupGesendeteNachrichten, $sprache_Setup_GroupSenden[0])
		GUICtrlSetData($GroupOffline, $sprache_Setup_GroupOffline[0])
		GUICtrlSetData($GroupHintergrundfarbe, $sprache_Setup_GroupHintergrundfarbe[0])
		GUICtrlSetData($GroupSetupInfo, $sprache_Setup_GroupInfo[0])
		GUICtrlSetData($ButtonSetupSPEICHERN, $sprache_Setup_ButtonSpeichern[0])
		GUICtrlSetData($ButtonSetupABBRECHEN, $sprache_Setup_ButtonAbbrechen[0])
		GUICtrlSetData($ButtonSetupSTANDARD, $sprache_Setup_ButtonStandard[0])
		GUICtrlSetData($LabelSchriftgroesseEmpfang, $sprache_Setup_Schriftgroesse[0])
		GUICtrlSetData($LabelSchriftgroessenSenden, $sprache_Setup_Schriftgroesse[0])
		GUICtrlSetData($LabelSchriftgroesseOffline, $sprache_Setup_Schriftgroesse[0])
		GUICtrlSetState($RadioDeutsch, $GUI_CHECKED)
		GUICtrlSetState($RadioEnglisch, $GUI_UNCHECKED)
	Else
		GUICtrlSetData($GroupSprache, $sprache_Setup_GroupSprache[1])
		GUICtrlSetData($GroupVorschau, $sprache_Setup_GroupVorschau[1])
		GUICtrlSetData($GroupEmpfang, $sprache_Setup_GroupEmpfangen[1])
		GUICtrlSetData($GroupGesendeteNachrichten, $sprache_Setup_GroupSenden[1])
		GUICtrlSetData($GroupOffline, $sprache_Setup_GroupOffline[1])
		GUICtrlSetData($GroupHintergrundfarbe, $sprache_Setup_GroupHintergrundfarbe[1])
		GUICtrlSetData($GroupSetupInfo, $sprache_Setup_GroupInfo[1])
		GUICtrlSetData($ButtonSetupSPEICHERN, $sprache_Setup_ButtonSpeichern[1])
		GUICtrlSetData($ButtonSetupABBRECHEN, $sprache_Setup_ButtonAbbrechen[1])
		GUICtrlSetData($ButtonSetupSTANDARD, $sprache_Setup_ButtonStandard[1])
		GUICtrlSetData($LabelSchriftgroesseEmpfang, $sprache_Setup_Schriftgroesse[1])
		GUICtrlSetData($LabelSchriftgroessenSenden, $sprache_Setup_Schriftgroesse[1])
		GUICtrlSetData($LabelSchriftgroesseOffline, $sprache_Setup_Schriftgroesse[1])
		GUICtrlSetState($RadioEnglisch, $GUI_CHECKED)
		GUICtrlSetState($RadioDeutsch, $GUI_UNCHECKED)
	EndIf


	; Hauptschleife ----------------------------------------------------------------------------------------
	While 1
		$nMsg = GUIGetMsg()
		Switch $nMsg
			Case $GUI_EVENT_CLOSE
				GUIDelete($FormSetup)
				Return 84

			Case $ButtonSetupSPEICHERN
				$setFarbeEmpfangen = $tempsetFarbeEmpfangen
				$setFarbeSenden = $tempsetFarbeSenden
				$setFarbeOffline = $tempsetFarbeOffline
				$setSchriftgroesseEmpfangen = $tempsetSchriftgroesseEmpfangen
				$setSchriftgroesseSenden = $tempsetSchriftgroesseSenden
				$setSchriftgroesseOffline = $tempsetSchriftgroesseOffline
				$setFarbeHintergund = $tempsetFarbeHintergund
				$setSchriftart = $tempsetSchriftart
				$setsprache = $tempsetsprache
				GUIDelete($FormSetup)
				Return 42

			Case $ButtonSetupABBRECHEN
				GUIDelete($FormSetup)
				Return 84

			Case $ButtonSetupSTANDARD
				$tempsetSchriftart = "Courier New"
				_GUICtrlListBox_SelectString($ListSchriftenauswahl, $tempsetSchriftart)
				;GUICtrlSetData($ListSchriftenauswahl,$setAuswahlanSchriften,$tempsetSchriftart)
				$tempsetFarbeEmpfangen = 0xEE6666
				$tempsetFarbeSenden = 0x00DD00
				$tempsetFarbeOffline = 0xDDDDDD
				$tempsetSchriftgroesseEmpfangen = 2
				GUICtrlSetState($Radio2Empfang, $GUI_CHECKED)
				GUICtrlSetFont($LabelVorschauEmpfang, $setSchriftgroesse[2], 400, 1, $tempsetSchriftart)
				$tempsetSchriftgroesseSenden = 2
				GUICtrlSetState($Radio2Senden, $GUI_CHECKED)
				GUICtrlSetFont($LabelVorschauSenden, $setSchriftgroesse[2], 400, 1, $tempsetSchriftart)
				$tempsetSchriftgroesseOffline = 2
				GUICtrlSetState($Radio2Offline, $GUI_CHECKED)
				GUICtrlSetFont($LabelVorschauOffline, $setSchriftgroesse[2], 400, 1, $tempsetSchriftart)
				$tempsetFarbeHintergund = 0x000000
				GUICtrlSetColor($LabelVorschauEmpfang, $tempsetFarbeEmpfangen)
				GUICtrlSetBkColor($LabelFarbauswahlEmpfang, $tempsetFarbeEmpfangen)
				GUICtrlSetColor($LabelVorschauSenden, $tempsetFarbeSenden)
				GUICtrlSetBkColor($LabelFarbauswahlSenden, $tempsetFarbeSenden)
				GUICtrlSetColor($LabelVorschauOffline, $tempsetFarbeOffline)
				GUICtrlSetBkColor($LabelFarbauswahlOffline, $tempsetFarbeOffline)
				GUICtrlSetBkColor($LabelVorschauEmpfang, $tempsetFarbeHintergund)
				GUICtrlSetBkColor($LabelVorschauSenden, $tempsetFarbeHintergund)
				GUICtrlSetBkColor($LabelVorschauOffline, $tempsetFarbeHintergund)
				GUICtrlSetBkColor($LabelFarbauswahlHintergrund, $tempsetFarbeHintergund)

			Case $PicDeutsch, $LabelDeutsch, $RadioDeutsch
				GUICtrlSetState($RadioDeutsch, $GUI_CHECKED)
				GUICtrlSetState($RadioEnglisch, $GUI_UNCHECKED)
				$tempsetsprache = "deutsch"
				GUICtrlSetData($GroupSprache, $sprache_Setup_GroupSprache[0])
				GUICtrlSetData($GroupVorschau, $sprache_Setup_GroupVorschau[0])
				GUICtrlSetData($GroupEmpfang, $sprache_Setup_GroupEmpfangen[0])
				GUICtrlSetData($GroupGesendeteNachrichten, $sprache_Setup_GroupSenden[0])
				GUICtrlSetData($GroupOffline, $sprache_Setup_GroupOffline[0])
				GUICtrlSetData($GroupHintergrundfarbe, $sprache_Setup_GroupHintergrundfarbe[0])
				GUICtrlSetData($GroupSetupInfo, $sprache_Setup_GroupInfo[0])
				GUICtrlSetData($ButtonSetupSPEICHERN, $sprache_Setup_ButtonSpeichern[0])
				GUICtrlSetData($ButtonSetupABBRECHEN, $sprache_Setup_ButtonAbbrechen[0])
				GUICtrlSetData($ButtonSetupSTANDARD, $sprache_Setup_ButtonStandard[0])
				GUICtrlSetData($LabelSchriftgroesseEmpfang, $sprache_Setup_Schriftgroesse[0])
				GUICtrlSetData($LabelSchriftgroessenSenden, $sprache_Setup_Schriftgroesse[0])
				GUICtrlSetData($LabelSchriftgroesseOffline, $sprache_Setup_Schriftgroesse[0])

			Case $PicEnglisch, $LabelEnglisch, $RadioEnglisch
				GUICtrlSetState($RadioEnglisch, $GUI_CHECKED)
				GUICtrlSetState($RadioDeutsch, $GUI_UNCHECKED)
				$tempsetsprache = "english"
				GUICtrlSetData($GroupSprache, $sprache_Setup_GroupSprache[1])
				GUICtrlSetData($GroupVorschau, $sprache_Setup_GroupVorschau[1])
				GUICtrlSetData($GroupEmpfang, $sprache_Setup_GroupEmpfangen[1])
				GUICtrlSetData($GroupGesendeteNachrichten, $sprache_Setup_GroupSenden[1])
				GUICtrlSetData($GroupOffline, $sprache_Setup_GroupOffline[1])
				GUICtrlSetData($GroupHintergrundfarbe, $sprache_Setup_GroupHintergrundfarbe[1])
				GUICtrlSetData($GroupSetupInfo, $sprache_Setup_GroupInfo[1])
				GUICtrlSetData($ButtonSetupSPEICHERN, $sprache_Setup_ButtonSpeichern[1])
				GUICtrlSetData($ButtonSetupABBRECHEN, $sprache_Setup_ButtonAbbrechen[1])
				GUICtrlSetData($ButtonSetupSTANDARD, $sprache_Setup_ButtonStandard[1])
				GUICtrlSetData($LabelSchriftgroesseEmpfang, $sprache_Setup_Schriftgroesse[1])
				GUICtrlSetData($LabelSchriftgroessenSenden, $sprache_Setup_Schriftgroesse[1])
				GUICtrlSetData($LabelSchriftgroesseOffline, $sprache_Setup_Schriftgroesse[1])

			Case $LabelFarbauswahlEmpfang, $LabelVorschauEmpfang
				$tempFarbe = _ChooseColor(2, $tempsetFarbeEmpfangen, 2)
				If $tempFarbe <> -1 Then
					$tempsetFarbeEmpfangen = $tempFarbe
					GUICtrlSetColor($LabelVorschauEmpfang, $tempsetFarbeEmpfangen)
					GUICtrlSetBkColor($LabelFarbauswahlEmpfang, $tempsetFarbeEmpfangen)
				EndIf

			Case $Radio1Empfang
				GUICtrlSetFont($LabelVorschauEmpfang, $setSchriftgroesse[1], 400, 1, $tempsetSchriftart)
				$tempsetSchriftgroesseEmpfangen = 1
			Case $Radio2Empfang
				GUICtrlSetFont($LabelVorschauEmpfang, $setSchriftgroesse[2], 400, 1, $tempsetSchriftart)
				$tempsetSchriftgroesseEmpfangen = 2
			Case $Radio3Empfang
				GUICtrlSetFont($LabelVorschauEmpfang, $setSchriftgroesse[3], 400, 1, $tempsetSchriftart)
				$tempsetSchriftgroesseEmpfangen = 3
			Case $Radio4Empfang
				GUICtrlSetFont($LabelVorschauEmpfang, $setSchriftgroesse[4], 400, 1, $tempsetSchriftart)
				$tempsetSchriftgroesseEmpfangen = 4
			Case $Radio5Empfang
				GUICtrlSetFont($LabelVorschauEmpfang, $setSchriftgroesse[5], 400, 1, $tempsetSchriftart)
				$tempsetSchriftgroesseEmpfangen = 5

			Case $LabelFarbauswahlSenden, $LabelVorschauSenden
				$tempFarbe = _ChooseColor(2, $tempsetFarbeSenden, 2)
				If $tempFarbe <> -1 Then
					$tempsetFarbeSenden = $tempFarbe
					GUICtrlSetColor($LabelVorschauSenden, $tempsetFarbeSenden)
					GUICtrlSetBkColor($LabelFarbauswahlSenden, $tempsetFarbeSenden)
				EndIf

			Case $Radio1Senden
				GUICtrlSetFont($LabelVorschauSenden, $setSchriftgroesse[1], 400, 1, $tempsetSchriftart)
				$tempsetSchriftgroesseSenden = 1
			Case $Radio2Senden
				GUICtrlSetFont($LabelVorschauSenden, $setSchriftgroesse[2], 400, 1, $tempsetSchriftart)
				$tempsetSchriftgroesseSenden = 2
			Case $Radio3Senden
				GUICtrlSetFont($LabelVorschauSenden, $setSchriftgroesse[3], 400, 1, $tempsetSchriftart)
				$tempsetSchriftgroesseSenden = 3
			Case $Radio4Senden
				GUICtrlSetFont($LabelVorschauSenden, $setSchriftgroesse[4], 400, 1, $tempsetSchriftart)
				$tempsetSchriftgroesseSenden = 4
			Case $Radio5Senden
				GUICtrlSetFont($LabelVorschauSenden, $setSchriftgroesse[5], 400, 1, $tempsetSchriftart)
				$tempsetSchriftgroesseSenden = 5

			Case $LabelFarbauswahlOffline, $LabelVorschauOffline
				$tempFarbe = _ChooseColor(2, $tempsetFarbeOffline, 2)
				If $tempFarbe <> -1 Then
					$tempsetFarbeOffline = $tempFarbe
					GUICtrlSetColor($LabelVorschauOffline, $tempsetFarbeOffline)
					GUICtrlSetBkColor($LabelFarbauswahlOffline, $tempsetFarbeOffline)
				EndIf

			Case $Radio1Offline
				GUICtrlSetFont($LabelVorschauOffline, $setSchriftgroesse[1], 400, 1, $tempsetSchriftart)
				$tempsetSchriftgroesseOffline = 1
			Case $Radio2Offline
				GUICtrlSetFont($LabelVorschauOffline, $setSchriftgroesse[2], 400, 1, $tempsetSchriftart)
				$tempsetSchriftgroesseOffline = 2
			Case $Radio3Offline
				GUICtrlSetFont($LabelVorschauOffline, $setSchriftgroesse[3], 400, 1, $tempsetSchriftart)
				$tempsetSchriftgroesseOffline = 3
			Case $Radio4Offline
				GUICtrlSetFont($LabelVorschauOffline, $setSchriftgroesse[4], 400, 1, $tempsetSchriftart)
				$tempsetSchriftgroesseOffline = 4
			Case $Radio5Offline
				GUICtrlSetFont($LabelVorschauOffline, $setSchriftgroesse[5], 400, 1, $tempsetSchriftart)
				$tempsetSchriftgroesseOffline = 5

			Case $ListSchriftenauswahl
				$tempsetSchriftart = GUICtrlRead($ListSchriftenauswahl)
				GUICtrlSetFont($LabelVorschauEmpfang, $setSchriftgroesse[$tempsetSchriftgroesseEmpfangen], 400, 1, $tempsetSchriftart)
				GUICtrlSetFont($LabelVorschauSenden, $setSchriftgroesse[$tempsetSchriftgroesseSenden], 400, 1, $tempsetSchriftart)
				GUICtrlSetFont($LabelVorschauOffline, $setSchriftgroesse[$tempsetSchriftgroesseOffline], 400, 1, $tempsetSchriftart)

			Case $LabelFarbauswahlHintergrund
				$tempFarbe = _ChooseColor(2, $tempsetFarbeHintergund, 2)
				If $tempFarbe <> -1 Then
					$tempsetFarbeHintergund = $tempFarbe
					GUICtrlSetBkColor($LabelVorschauEmpfang, $tempsetFarbeHintergund)
					GUICtrlSetBkColor($LabelVorschauSenden, $tempsetFarbeHintergund)
					GUICtrlSetBkColor($LabelVorschauOffline, $tempsetFarbeHintergund)
					GUICtrlSetBkColor($LabelFarbauswahlHintergrund, $tempsetFarbeHintergund)
				EndIf

				; Weblinks / Info --------------------------------------------------------------------------------------------------------------
			Case $Picznilwiki
				$Internetexplorer = _IECreate("http://znil.net/index.php?title=ZnilTools", 0, 1, 0, 1)

			Case $LabelWeblink
				$Internetexplorer = _IECreate("http://znil.net/index.php?title=ZnilTools", 0, 1, 0, 1)

			Case $LabelAuthor
				_INetMail("Bernhard@znil.net", "- Telnet SMTP Test Tool -", "")

		EndSwitch
	WEnd
EndFunc   ;==>_TelnetSMTPTestToolSETUP

#Region ### START Koda GUI section ### Form=C:\_AutoIT\SMPT_und_POP_Tester\FormSMTPHilfe.kxf
$FormSMTPHelp = GUICreate("Telnet SMTP Test Tool Hilfe", 401, 615, 592, 155, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_GROUP, $WS_BORDER, $WS_CLIPSIBLINGS), BitOR($WS_EX_TOOLWINDOW, $WS_EX_WINDOWEDGE))
$ButtonHilfeSchliessen = GUICtrlCreateButton("Schliessen", 4, 584, 392, 25, $WS_GROUP)
$HilfeLabelHELO = GUICtrlCreateLabel("HELO mail.znil.net", 4, 4, 148, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Courier")
GUICtrlSetCursor(-1, 0)
$HilfeLabelEHLO = GUICtrlCreateLabel("EHLO mail.znil.net", 4, 40, 148, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Courier")
GUICtrlSetCursor(-1, 0)
$HilfeLabelAUTHLOGIN = GUICtrlCreateLabel("AUTH LOGIN", 4, 76, 84, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Courier")
GUICtrlSetCursor(-1, 0)
$HilfeLabelMAILFROM = GUICtrlCreateLabel("MAIL FROM:<Sender@znil.net>", 4, 130, 220, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Courier")
GUICtrlSetCursor(-1, 0)
$HilfeLabelRCPTO = GUICtrlCreateLabel("RCPT TO:<Emfaenger@znil.net>", 4, 166, 228, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Courier")
GUICtrlSetCursor(-1, 0)
$HilfeLabelDATA = GUICtrlCreateLabel("DATA", 4, 220, 36, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Courier")
GUICtrlSetCursor(-1, 0)
$HilfeLabelFromNameAbsender = GUICtrlCreateLabel("From: Name Sender <Antwort@adresse.net>", 4, 256, 316, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Courier")
GUICtrlSetCursor(-1, 0)
$HilfeLabelToEmpfaenger = GUICtrlCreateLabel("To: Emfaenger", 4, 292, 108, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Courier")
GUICtrlSetCursor(-1, 0)
$HilfeLabelSubject = GUICtrlCreateLabel("Subject:Der Betreff", 4, 328, 156, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Courier")
GUICtrlSetCursor(-1, 0)
$HilfeLabelLeerzeileundPunkt = GUICtrlCreateLabel("Leerzeile + ein einzelner Punkt", 4, 364, 252, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Courier")
GUICtrlSetCursor(-1, 0)
$HilfeLabelQUIT = GUICtrlCreateLabel("QUIT", 4, 400, 36, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Courier")
GUICtrlSetCursor(-1, 0)
$HilfeLabelRSET = GUICtrlCreateLabel("RSET", 4, 436, 36, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Courier")
GUICtrlSetCursor(-1, 0)
$HilfeLabelNOOP = GUICtrlCreateLabel("NOOP", 4, 472, 36, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Courier")
GUICtrlSetCursor(-1, 0)
$HilfeLabelHELP = GUICtrlCreateLabel("HELP", 4, 508, 36, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Courier")
GUICtrlSetCursor(-1, 0)
$HilfeLabelTextHELO = GUICtrlCreateLabel("Begrüßung, erster Befehl, mit Angabe des Servernamens, Standard SMTP", 16, 22, 360, 17)
GUICtrlSetColor(-1, 0x008000)
$HilfeLabelTextEHLO = GUICtrlCreateLabel("Alternative Begrüßung, Extended SMTP (ESMTP)", 16, 58, 337, 17)
GUICtrlSetColor(-1, 0x008000)
$HilfeLabelTextAUTHLOGIN1 = GUICtrlCreateLabel("Einleitung der Anmeldung (bei Bedarf), es folgen in jeweils einer Zeile der", 16, 94, 360, 17)
GUICtrlSetColor(-1, 0x008000)
$HilfeLabelTextAUTHLOGIN2 = GUICtrlCreateLabel("Benutzername und das Passwort in Base64 umgerechnet", 16, 112, 340, 17)
GUICtrlSetColor(-1, 0x008000)
$HilfeLabelTextMAILFROM = GUICtrlCreateLabel("Absenderadresse, eingefasst in < >", 16, 148, 169, 17)
GUICtrlSetColor(-1, 0x008000)
$HilfeLabelTextRCTPTO1 = GUICtrlCreateLabel("Empfängeradresse, eingefasst in < >, für weitere Empfänger jeweils einen", 16, 184, 347, 17)
GUICtrlSetColor(-1, 0x008000)
$HilfeLabelTextRCTPTO2 = GUICtrlCreateLabel("RCTP TO: Eintrag vornehmen", 16, 202, 146, 17)
GUICtrlSetColor(-1, 0x008000)
$HilfeLabelTextDATA = GUICtrlCreateLabel("Beginn der eigentlichen Nachrichtenübertragung", 16, 238, 233, 17)
GUICtrlSetColor(-1, 0x008000)
$HilfeLabelTextFromNameSender = GUICtrlCreateLabel("Unmittelbar nach Data, Anzeigename Absender und <Antwortadresse>", 16, 274, 337, 17)
GUICtrlSetColor(-1, 0x008000)
$HilfeLabelTextAnzeigename = GUICtrlCreateLabel("Anzeigename Empfänger", 16, 310, 122, 17)
GUICtrlSetColor(-1, 0x008000)
$HilfeLabelTextBetreffzeile = GUICtrlCreateLabel("Betreffzeile. Der eigentliche Mailtext beginnt nach einer einzelnen Leerzeile", 16, 346, 356, 17)
GUICtrlSetColor(-1, 0x008000)
$HilfeLabelTextLeerzeile = GUICtrlCreateLabel("Damit wird die Nachricht beenden und zum Senden übergeben.", 16, 382, 304, 17)
GUICtrlSetColor(-1, 0x008000)
$HilfeLabelTextQUIT = GUICtrlCreateLabel("Beendet die Verbindung.", 16, 418, 121, 17)
GUICtrlSetColor(-1, 0x008000)
$HilfeLabelTextRSET = GUICtrlCreateLabel("Reset - noch mal zurück auf Anfang", 16, 454, 174, 17)
GUICtrlSetColor(-1, 0x008000)
$HilfeLabelTextNOOP = GUICtrlCreateLabel("NO OPeration - macht nichts ausser sich ein 250 OK abzuholen", 16, 490, 303, 17)
GUICtrlSetColor(-1, 0x008000)
$HilfeLabelTextHELP = GUICtrlCreateLabel("Listet Befehle auf, auch z.B. mit HELP DATA - nicht zu viel erwarten ...", 16, 526, 337, 17)
GUICtrlSetColor(-1, 0x008000)
$HilfeLabelHinweis = GUICtrlCreateLabel("Die Befehle oben sind anklickbar!", 4, 544, 392, 20, BitOR($SS_CENTER, $SS_CENTERIMAGE, $WS_BORDER))
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xC0DCC0)
$HilfeCheckboxBefehleNurEintragen = GUICtrlCreateCheckbox("Befehle nur in Eingabezeile eintragen statt direkt zu senden", 4, 566, 385, 17)
;GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUISetState(@SW_HIDE, $FormSMTPHelp)

#Region ### START Koda GUI section ### Form=C:\_AutoIT\SMPT_und_POP_Tester\FormSMTP.kxf
$FormSMTP = GUICreate("Telnet SMTP Test Tool", 844, 636, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_SYSMENU, $WS_DLGFRAME, $WS_GROUP, $WS_CLIPSIBLINGS))
GUISetBkColor(0xA6CAF0)
$InputServername = GUICtrlCreateInput("smtp.1und1.de", 61, 6, 217, 21)
GUICtrlSetLimit($InputServername, 255)
GUICtrlSetTip($InputServername, "DNS-Name oder IP-Adresse")
$InputServerPort = GUICtrlCreateInput("25", 324, 6, 49, 21)
$Group_1_Server_des_Absenders = GUICtrlCreateGroup(" 1. Server des Absenders ", 544, 1, 290, 48)
$ButtonHELO = GUICtrlCreateButton("HELO", 548, 17, 44, 25, BitOR($BS_DEFPUSHBUTTON, $BS_CENTER, $BS_VCENTER, $WS_GROUP))
GUICtrlSetFont($ButtonHELO, 10, 400, 0, "Courier")
$ButtonEHLO = GUICtrlCreateButton("EHLO", 592, 17, 44, 25, BitOR($BS_DEFPUSHBUTTON, $BS_CENTER, $BS_VCENTER, $WS_GROUP))
GUICtrlSetFont($ButtonEHLO, 10, 400, 0, "Courier")
$InputAbsendername = GUICtrlCreateInput("test.znil.net", 644, 19, 183, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group_2_Authentifizierung = GUICtrlCreateGroup(" 2. eventuell Authentifizierung (ansonsten überspringen) ", 544, 57, 290, 72)
$ButtonAUTH_LOGIN = GUICtrlCreateButton("AUTH LOGIN", 548, 73, 88, 25, BitOR($BS_DEFPUSHBUTTON, $BS_CENTER, $BS_VCENTER, $WS_GROUP))
GUICtrlSetFont($ButtonAUTH_LOGIN, 10, 400, 0, "Courier")
$InputBenutzername = GUICtrlCreateInput("Benutzername", 644, 75, 183, 21)
$InputPasswort = GUICtrlCreateInput("Passwort", 644, 101, 183, 21, BitOR($ES_PASSWORD, $ES_AUTOHSCROLL))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group_3_Absenderadresse = GUICtrlCreateGroup(" 3. Absenderadresse ", 544, 137, 290, 48)
$ButtonMAILFROM = GUICtrlCreateButton("MAIL FROM:", 548, 153, 88, 25, BitOR($BS_DEFPUSHBUTTON, $BS_CENTER, $BS_VCENTER, $WS_GROUP))
GUICtrlSetFont($ButtonMAILFROM, 10, 400, 0, "Courier")
$InputAbsenderadresse = GUICtrlCreateInput("max.mustermann@znil.net", 644, 155, 183, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group_4_Empfaenger = GUICtrlCreateGroup(" 4. Empfänger ", 544, 193, 290, 72)
$ButtonRCPT_TO = GUICtrlCreateButton("RCPT TO:", 548, 209, 88, 25, BitOR($BS_DEFPUSHBUTTON, $BS_CENTER, $BS_VCENTER, $WS_GROUP))
GUICtrlSetFont($ButtonRCPT_TO, 10, 400, 0, "Courier")
$InputEmpfaenger = GUICtrlCreateInput("bernhard@znil.de", 644, 211, 183, 21)
$ButtonRCPT_TO2 = GUICtrlCreateButton("RCPT TO:", 548, 236, 88, 25, BitOR($BS_DEFPUSHBUTTON, $BS_CENTER, $BS_VCENTER, $WS_GROUP))
GUICtrlSetFont($ButtonRCPT_TO2, 10, 400, 0, "Courier")
GUICtrlSetState($ButtonRCPT_TO2, $GUI_DISABLE)
$InputEmpfaenger2 = GUICtrlCreateInput("2ter Empfänger ...", 644, 238, 183, 21)
GUICtrlSetColor($InputEmpfaenger2, 0x808080)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group_5_Bereit_fuer_Maildaten = GUICtrlCreateGroup(" 5. Bereit für Maildaten ", 544, 273, 290, 48)
$ButtonDATA = GUICtrlCreateButton("DATA", 548, 289, 89, 25, BitOR($BS_DEFPUSHBUTTON, $BS_CENTER, $BS_VCENTER, $WS_GROUP))
GUICtrlSetFont($ButtonDATA, 10, 400, 0, "Courier")
$LabelButtonData = GUICtrlCreateLabel("Abschluss der Empfängereingabe", 644, 289, 183, 21, $SS_CENTERIMAGE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group_6_Betreffzeile = GUICtrlCreateGroup(" 6. Betreffzeile ", 544, 329, 290, 48)
$ButtonSubject = GUICtrlCreateButton("Subject:", 548, 345, 88, 25, BitOR($BS_DEFPUSHBUTTON, $BS_CENTER, $BS_VCENTER, $WS_GROUP))
GUICtrlSetFont($ButtonSubject, 10, 400, 0, "Courier")
GUICtrlSetTip($ButtonSubject, "Verwenden Sie hh:mm:ss für aktuelle Uhrzeit")
$InputBetreffzeile = GUICtrlCreateInput("Testmail hh:mm:ss", 644, 347, 183, 21)
GUICtrlSetTip($InputBetreffzeile, "Verwenden Sie hh:mm:ss für aktuelle Uhrzeit")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group_7_Inhalt_der_Mail = GUICtrlCreateGroup(" 7. Inhalt der Mail / Nachricht / Mailtext ", 544, 385, 290, 112)
$ButtonMailtext = GUICtrlCreateButton("Mailbody", 548, 401, 88, 25, BitOR($BS_DEFPUSHBUTTON, $BS_CENTER, $BS_VCENTER, $WS_GROUP))
GUICtrlSetFont($ButtonMailtext, 10, 400, 0, "Courier")
$Edit_Mailtext = GUICtrlCreateEdit("", 552, 433, 273, 57, BitOR($ES_AUTOVSCROLL, $ES_WANTRETURN, $WS_VSCROLL))
GUICtrlSetLimit($Edit_Mailtext, 32000)
GUICtrlSetData($Edit_Mailtext, StringFormat("Der Lieutnant von Laeuten, befahl seinen Leuten, nicht eher zu laeuten,\r\nbis der Lieutnant von Laeuten, seinen Leuten, das Laeuten befahl."))
$LabelButtonMailtext = GUICtrlCreateLabel("Leerzeile + '.' wird automatisch gesetzt", 640, 405, 190, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ButtonVerbinden_und_Trennen = GUICtrlCreateButton("Verbinden", 385, 6, 153, 25, $WS_GROUP)
GUICtrlSetFont($ButtonVerbinden_und_Trennen, 8, 800, 0, "MS Sans Serif")
$Group_8_Fertig_abmelden = GUICtrlCreateGroup(" 8. Fertig - wieder Abmelden vom Server", 544, 505, 290, 48)
$ButtonQUIT = GUICtrlCreateButton("QUIT", 548, 521, 89, 25, BitOR($BS_DEFPUSHBUTTON, $BS_CENTER, $BS_VCENTER, $WS_GROUP))
GUICtrlSetFont($ButtonQUIT, 10, 400, 0, "Courier")
$LabelButtonQUIT = GUICtrlCreateLabel("Beenden der Sitzung", 644, 521, 183, 21, $SS_CENTERIMAGE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$InputEigenerBefehl = GUICtrlCreateInput("Eigenen Befehl eingeben ....", 8, 530, 345, 21)
GUICtrlSetFont($InputEigenerBefehl, 10, 400, 0, "Courier")
GUICtrlSetColor($InputEigenerBefehl, 0x808080)
$LabelServer = GUICtrlCreateLabel("Server:", 8, 8, 54, 20)
GUICtrlSetFont($LabelServer, 10, 800, 0, "MS Sans Serif")
$LabelServerPort = GUICtrlCreateLabel("Port:", 288, 8, 36, 20)
GUICtrlSetFont($LabelServerPort, 10, 800, 0, "MS Sans Serif")
$Checkbox_In_Registry_speichern = GUICtrlCreateCheckbox("Einstellungen in Registry merken", 544, 560, 185, 17)
GUICtrlSetState($Checkbox_In_Registry_speichern, $GUI_CHECKED)
$Checkbox_Log_Datei_loeschen = GUICtrlCreateCheckbox("Log-Datei löschen", 728, 560, 105, 17)
GUICtrlSetState($Checkbox_Log_Datei_loeschen, $GUI_CHECKED)
$LabelJahrundName = GUICtrlCreateLabel("2011 - Bernhard Linz für", 8, 560, 117, 17)
$Label_znilwikil_link = GUICtrlCreateLabel("http://znil.net", 128, 560, 83, 17)
GUICtrlSetFont($Label_znilwikil_link, 8, 800, 4, "MS Sans Serif")
GUICtrlSetColor($Label_znilwikil_link, 0x0000FF)
GUICtrlSetCursor($Label_znilwikil_link, 0)
$Label_das = GUICtrlCreateLabel("- das znilwiki über Windows, VMware und mehr", 215, 560, 226, 17)
$LabelStatus = GUICtrlCreateLabel("Pfad zur Logdatei:", 8, 588, 825, 17, $SS_SUNKEN)
GUICtrlSetBkColor($LabelStatus, 0xE3E3E3)
$ButtonHilfe = GUICtrlCreateButton("Hilfe", 447, 528, 89, 25, BitOR($BS_DEFPUSHBUTTON, $BS_CENTER, $BS_VCENTER, $WS_GROUP))
GUICtrlSetFont($ButtonHilfe, 10, 800, 0, "MS Sans Serif")
GUICtrlSetTip($ButtonHilfe, "Blendet Fenster mit möglichen Befehlen ein")
GUICtrlSetCursor($ButtonHilfe, 4)
$ButtonSETUP = GUICtrlCreateButton("Setup", 447, 556, 89, 25, BitOR($BS_DEFPUSHBUTTON, $BS_CENTER, $BS_VCENTER, $WS_GROUP))
GUICtrlSetFont($ButtonSETUP, 10, 400, 0, "MS Sans Serif")
GUICtrlSetTip($ButtonSETUP, "Schriftgrößen, Farben, Pfade")
$ButtonAbsenden = GUICtrlCreateButton("Absenden", 357, 528, 89, 25, BitOR($BS_DEFPUSHBUTTON, $BS_CENTER, $BS_VCENTER, $WS_GROUP))
GUICtrlSetFont($ButtonAbsenden, 10, 400, 0, "MS Sans Serif")
$EditAusgabebox = GUICtrlCreateEdit("", 8, 34, 529, 489)
GUICtrlSetData($EditAusgabebox, "Edit1")
GUICtrlSetFont($EditAusgabebox, 10, 400, 0, "Courier")
GUICtrlSetColor($EditAusgabebox, 0xFF0000)
GUICtrlSetBkColor($EditAusgabebox, 0x000A15)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###




;Schritt 1: Wir wollen die GUICtrlCreateEdit durch eine ChatBox ersetzen.
;Anstatt gleich den Eintrag oben zu ersetzen machen wir das nachträglich - warum?
;Damit wir immer noch brav Änderungen mit dem Koda Form Designer machen können
;Leider habe ich noch nichts gefunden die aktuellen Maße aus zu lesen
;$EditAusgabebox = GUICtrlCreateEdit("", 8, 34, 529, 489)
$Logfilename = "\LOG " & @YEAR & "-" & @MON & "-" & @MDAY & "--" & @HOUR & "h" & @MIN & "m" & @SEC & "s.html"

;Und unseren Pfad zur Logdatei unten im Fenster eintragen
GUICtrlSetData($LabelStatus, $sprache_Main_LabelStatus[0] & @ScriptDir & $Logfilename)

;Daten ggf. aus der Registry auslesen falls dort etwas gespeichert ist
If RegRead("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$Checkbox_In_Registry_speichern") = $GUI_UNCHECKED Then
	GUICtrlSetState($Checkbox_In_Registry_speichern, $GUI_UNCHECKED)
ElseIf RegRead("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$Checkbox_In_Registry_speichern") = 0 Then
	GUICtrlSetState($Checkbox_In_Registry_speichern, $GUI_CHECKED)
Else
	GUICtrlSetState($Checkbox_Log_Datei_loeschen, RegRead("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$Checkbox_Log_Datei_loeschen"))
	GUICtrlSetData($InputServername, RegRead("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$InputServername"))
	GUICtrlSetData($InputServerPort, RegRead("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$InputServerPort"))
	GUICtrlSetData($InputAbsendername, RegRead("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$InputAbsendername"))
	GUICtrlSetData($InputBenutzername, RegRead("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$InputBenutzername"))
;~ 	GUICtrlSetData($InputPasswort, _StringEncrypt(0, RegRead("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$InputPasswort"), "dummy&6"))
	GUICtrlSetData($InputAbsenderadresse, RegRead("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$InputAbsenderadresse"))
	GUICtrlSetData($InputEmpfaenger, RegRead("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$InputEmpfaenger"))
	GUICtrlSetData($InputEmpfaenger2, RegRead("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$InputEmpfaenger2"))
	If GUICtrlRead($InputEmpfaenger2) <> "2ter Empfänger ..." Then
		GUICtrlSetColor($InputEmpfaenger2, 0x000000)
		GUICtrlSetState($ButtonRCPT_TO2, $GUI_ENABLE)
	EndIf
	GUICtrlSetData($InputBetreffzeile, RegRead("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$InputBetreffzeile"))
	GUICtrlSetData($Edit_Mailtext, RegRead("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$Edit_Mailtext"))
	; Neu dazu Farben, Größen und Schriftarten
	$FarbeEmpfangen = RegRead("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$FarbeEmpfangen")
	$FarbeSenden = RegRead("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$FarbeSenden")
	$FarbeOffline = RegRead("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$FarbeOffline")
	$SchriftgroesseEmpfangen = RegRead("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$SchriftgroesseEmpfangen")
	$SchriftgroesseSenden = RegRead("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$SchriftgroesseSenden")
	$SchriftgroesseOffline = RegRead("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$SchriftgroesseOffline")
	$FarbeHintergund = RegRead("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$FarbeHintergund")
	$Schriftart = RegRead("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$Schriftart")
EndIf
; gespeicherte Sprache gemäß aus Registry auslesen, schlägt das Fehl prüfen ob der Rechner in Deutschland steht
$sprache = RegRead("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$sprache")
If @error Then
	If RegRead("HKEY_CURRENT_USER\Control Panel\International", "sCountry") = "Deutschland" Then
		$sprache = "deutsch"
		;MsgBox(0,"","1")
	ElseIf RegRead("HKEY_CURRENT_USER\Control Panel\International", "sCountry") = "Germany" Then
		$sprache = "deutsch"
		;MsgBox(0,"","2")
	Else
		$sprache = "english"
		;MsgBox(0,"","3")
	EndIf
EndIf
;msgbox(4096,"",$sprache)
If $sprache = "deutsch" Then
	GUICtrlSetData($ButtonVerbinden_und_Trennen, $sprache_Main_ButtonVerbinden[0])
	GUICtrlSetData($Group_1_Server_des_Absenders, $sprache_Main_Group_1_Server_des_Absenders[0])
	GUICtrlSetData($Group_2_Authentifizierung, $sprache_Main_Group_2_Authentifizierung[0])
	GUICtrlSetData($Group_3_Absenderadresse, $sprache_Main_Group_3_Absenderadresse[0])
	GUICtrlSetData($Group_4_Empfaenger, $sprache_Main_Group_4_Empfaenger[0])
	GUICtrlSetData($Group_5_Bereit_fuer_Maildaten, $sprache_Main_Group_5_Bereit_fuer_Maildaten[0])
	GUICtrlSetData($LabelButtonData, $sprache_Main_LabelButtonData[0])
	GUICtrlSetData($Group_6_Betreffzeile, $sprache_Main_Group_6_Betreffzeile[0])
	GUICtrlSetData($Group_7_Inhalt_der_Mail, $sprache_Main_Group_7_Inhalt_der_Mail[0])
	GUICtrlSetData($LabelButtonMailtext, $sprache_Main_LabelButtonMailtext[0])
	GUICtrlSetData($Group_8_Fertig_abmelden, $sprache_Main_Group_8_Fertig_abmelden[0])
	GUICtrlSetData($LabelButtonQUIT, $sprache_Main_LabelButtonQUIT[0])
	GUICtrlSetData($Checkbox_In_Registry_speichern, $sprache_Main_Checkbox_In_Registry_speichern[0])
	GUICtrlSetData($Checkbox_Log_Datei_loeschen, $sprache_Main_Checkbox_Log_Datei_loeschen[0])
	GUICtrlSetData($LabelJahrundName, $sprache_Main_LabelJahrundName[0])
	GUICtrlSetData($Label_das, $sprache_Main_Label_das[0])
	GUICtrlSetData($ButtonHilfe, $sprache_Main_ButtonHilfe[0])
	GUICtrlSetData($ButtonAbsenden, $sprache_Main_ButtonAbsenden[0])
	GUICtrlSetData($LabelStatus, $sprache_Main_LabelStatus[0] & @ScriptDir & $Logfilename)
	GUICtrlSetData($HilfeLabelTextHELO, $sprache_Hilfe_HilfeLabelTextHELO[0])
	GUICtrlSetData($HilfeLabelTextEHLO, $sprache_Hilfe_HilfeLabelTextEHLO[0])
	GUICtrlSetData($HilfeLabelTextAUTHLOGIN1, $sprache_Hilfe_HilfeLabelTextAUTHLOGIN1[0])
	GUICtrlSetData($HilfeLabelTextAUTHLOGIN1, $sprache_Hilfe_HilfeLabelTextAUTHLOGIN1[0])
	GUICtrlSetData($HilfeLabelTextMAILFROM, $sprache_Hilfe_HilfeLabelTextMAILFROM[0])
	GUICtrlSetData($HilfeLabelTextRCTPTO1, $sprache_Hilfe_HilfeLabelTextRCTPTO1[0])
	GUICtrlSetData($HilfeLabelTextRCTPTO2, $sprache_Hilfe_HilfeLabelTextRCTPTO2[0])
	GUICtrlSetData($HilfeLabelTextDATA, $sprache_Hilfe_HilfeLabelTextDATA[0])
	GUICtrlSetData($HilfeLabelTextFromNameSender, $sprache_Hilfe_HilfeLabelTextFromNameSender[0])
	GUICtrlSetData($HilfeLabelTextAnzeigename, $sprache_Hilfe_HilfeLabelTextAnzeigename[0])
	GUICtrlSetData($HilfeLabelSubject, $sprache_Hilfe_HilfeLabelSubject[0])
	GUICtrlSetData($HilfeLabelTextBetreffzeile, $sprache_Hilfe_HilfeLabelTextBetreffzeile[0])
	GUICtrlSetData($HilfeLabelLeerzeileundPunkt, $sprache_Hilfe_HilfeLabelLeerzeileundPunkt[0])
	GUICtrlSetData($HilfeLabelTextLeerzeile, $sprache_Hilfe_HilfeLabelTextLeerzeile[0])
	GUICtrlSetData($HilfeLabelTextQUIT, $sprache_Hilfe_HilfeLabelTextQUIT[0])
	GUICtrlSetData($HilfeLabelTextRSET, $sprache_Hilfe_HilfeLabelTextRSET[0])
	GUICtrlSetData($HilfeLabelTextNOOP, $sprache_Hilfe_HilfeLabelTextNOOP[0])
	GUICtrlSetData($HilfeLabelTextHELP, $sprache_Hilfe_HilfeLabelTextHELP[0])
	GUICtrlSetData($HilfeLabelHinweis, $sprache_Hilfe_HilfeLabelHinweis[0])
	GUICtrlSetData($HilfeCheckboxBefehleNurEintragen, $sprache_Hilfe_HilfeCheckboxBefehleNurEintragen[0])
	GUICtrlSetData($ButtonHilfeSchliessen, $sprache_Hilfe_ButtonHilfeSchliessen[0])
Else
	GUICtrlSetData($ButtonVerbinden_und_Trennen, $sprache_Main_ButtonVerbinden[1])
	GUICtrlSetData($Group_1_Server_des_Absenders, $sprache_Main_Group_1_Server_des_Absenders[1])
	GUICtrlSetData($Group_2_Authentifizierung, $sprache_Main_Group_2_Authentifizierung[1])
	GUICtrlSetData($Group_3_Absenderadresse, $sprache_Main_Group_3_Absenderadresse[1])
	GUICtrlSetData($Group_4_Empfaenger, $sprache_Main_Group_4_Empfaenger[1])
	GUICtrlSetData($Group_5_Bereit_fuer_Maildaten, $sprache_Main_Group_5_Bereit_fuer_Maildaten[1])
	GUICtrlSetData($LabelButtonData, $sprache_Main_LabelButtonData[1])
	GUICtrlSetData($Group_6_Betreffzeile, $sprache_Main_Group_6_Betreffzeile[1])
	GUICtrlSetData($Group_7_Inhalt_der_Mail, $sprache_Main_Group_7_Inhalt_der_Mail[1])
	GUICtrlSetData($LabelButtonMailtext, $sprache_Main_LabelButtonMailtext[1])
	GUICtrlSetData($Group_8_Fertig_abmelden, $sprache_Main_Group_8_Fertig_abmelden[1])
	GUICtrlSetData($LabelButtonQUIT, $sprache_Main_LabelButtonQUIT[1])
	GUICtrlSetData($Checkbox_In_Registry_speichern, $sprache_Main_Checkbox_In_Registry_speichern[1])
	GUICtrlSetData($Checkbox_Log_Datei_loeschen, $sprache_Main_Checkbox_Log_Datei_loeschen[1])
	GUICtrlSetData($LabelJahrundName, $sprache_Main_LabelJahrundName[1])
	GUICtrlSetData($Label_das, $sprache_Main_Label_das[1])
	GUICtrlSetData($ButtonHilfe, $sprache_Main_ButtonHilfe[1])
	GUICtrlSetData($ButtonAbsenden, $sprache_Main_ButtonAbsenden[1])
	GUICtrlSetData($LabelStatus, $sprache_Main_LabelStatus[1] & @ScriptDir & $Logfilename)
	GUICtrlSetData($HilfeLabelTextHELO, $sprache_Hilfe_HilfeLabelTextHELO[1])
	GUICtrlSetData($HilfeLabelTextEHLO, $sprache_Hilfe_HilfeLabelTextEHLO[1])
	GUICtrlSetData($HilfeLabelTextAUTHLOGIN1, $sprache_Hilfe_HilfeLabelTextAUTHLOGIN1[1])
	GUICtrlSetData($HilfeLabelTextAUTHLOGIN1, $sprache_Hilfe_HilfeLabelTextAUTHLOGIN1[1])
	GUICtrlSetData($HilfeLabelTextMAILFROM, $sprache_Hilfe_HilfeLabelTextMAILFROM[1])
	GUICtrlSetData($HilfeLabelTextRCTPTO1, $sprache_Hilfe_HilfeLabelTextRCTPTO1[1])
	GUICtrlSetData($HilfeLabelTextRCTPTO2, $sprache_Hilfe_HilfeLabelTextRCTPTO2[1])
	GUICtrlSetData($HilfeLabelTextDATA, $sprache_Hilfe_HilfeLabelTextDATA[1])
	GUICtrlSetData($HilfeLabelTextFromNameSender, $sprache_Hilfe_HilfeLabelTextFromNameSender[1])
	GUICtrlSetData($HilfeLabelTextAnzeigename, $sprache_Hilfe_HilfeLabelTextAnzeigename[1])
	GUICtrlSetData($HilfeLabelSubject, $sprache_Hilfe_HilfeLabelSubject[1])
	GUICtrlSetData($HilfeLabelTextBetreffzeile, $sprache_Hilfe_HilfeLabelTextBetreffzeile[1])
	GUICtrlSetData($HilfeLabelLeerzeileundPunkt, $sprache_Hilfe_HilfeLabelLeerzeileundPunkt[1])
	GUICtrlSetData($HilfeLabelTextLeerzeile, $sprache_Hilfe_HilfeLabelTextLeerzeile[1])
	GUICtrlSetData($HilfeLabelTextQUIT, $sprache_Hilfe_HilfeLabelTextQUIT[1])
	GUICtrlSetData($HilfeLabelTextRSET, $sprache_Hilfe_HilfeLabelTextRSET[1])
	GUICtrlSetData($HilfeLabelTextNOOP, $sprache_Hilfe_HilfeLabelTextNOOP[1])
	GUICtrlSetData($HilfeLabelTextHELP, $sprache_Hilfe_HilfeLabelTextHELP[1])
	GUICtrlSetData($HilfeLabelHinweis, $sprache_Hilfe_HilfeLabelHinweis[1])
	GUICtrlSetData($HilfeCheckboxBefehleNurEintragen, $sprache_Hilfe_HilfeCheckboxBefehleNurEintragen[1])
	GUICtrlSetData($ButtonHilfeSchliessen, $sprache_Hilfe_ButtonHilfeSchliessen[1])
EndIf

;$AbmessungenEditCtrl = _GUICtrlEdit_GetRECT($EditAusgabebox)
;MsgBox(4096,"","X=" & $AbmessungenEditCtrl[0] & " Y=" & $AbmessungenEditCtrl[1] & @CRLF & "X2=" & $AbmessungenEditCtrl[2] & " Y2=" & $AbmessungenEditCtrl[3])
GUICtrlDelete($EditAusgabebox)
$EditAusgabebox = _Chatbox_Create($FormSMTP, 8, 34, 529, 489, $FarbeHintergund, @ScriptDir & $Logfilename)

;Nachfolgend einmal Fenster unsichtbar und wieder sichtbar - sonst ist manchmal unsere EditAusgabebox nicht gleichmäßig gefüllt
;_Chatbox_SetData($EditAusgabebox, "", 0x00FF00, 3, "Courier")
;GUISetState(@SW_HIDE,$FormSMTPHelp)
;GUISetState(@SW_HIDE,$FormSMTP)
;GUISetState(@SW_SHOW,$FormSMTP)
GUISetState(@SW_HIDE, $FormSMTP)
GUISetState(@SW_SHOW, $FormSMTP)
Sleep(1000)
GUISetState(@SW_RESTORE, $FormSMTP)
;WinActivate("Telnet SMTP Test Tool")
;WinActivate("Telnet SMTP Test Tool")

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
		Case $GUI_EVENT_CLOSE
			;nachfolgenden Wert schreiben wir immer in die Registry - woher sollen wir sonst wissen ob wir speichern sollen oder nicht
			;Alternativ wäre .ini Datei im selben Verzeichnis - aber dagegen entschieden
			RegWrite("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$Checkbox_In_Registry_speichern", "REG_DWORD", GUICtrlRead($Checkbox_In_Registry_speichern))
			RegWrite("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$sprache", "REG_SZ", $sprache)
			If GUICtrlRead($Checkbox_Log_Datei_loeschen) = $GUI_CHECKED Then
				FileDelete(@ScriptDir & $Logfilename)
			EndIf
			If GUICtrlRead($Checkbox_In_Registry_speichern) = $GUI_CHECKED Then
				;Alles in Registry speichern
				;Combobox Servernamen auslesen:
				;MsgBox(4096,"",_GUICtrlComboBox_GetList($InputServername) & " und " & GUICtrlRead($InputServername))
				RegWrite("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$InputServername", "REG_SZ", GUICtrlRead($InputServername))
				RegWrite("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$InputServerPort", "REG_SZ", GUICtrlRead($InputServerPort))
				RegWrite("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$InputAbsendername", "REG_SZ", GUICtrlRead($InputAbsendername))
				RegWrite("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$InputBenutzername", "REG_SZ", GUICtrlRead($InputBenutzername))
;~ 				RegWrite("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$InputPasswort", "REG_SZ", _StringEncrypt(1, GUICtrlRead($InputPasswort), "dummy&6"))
				RegWrite("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$InputAbsenderadresse", "REG_SZ", GUICtrlRead($InputAbsenderadresse))
				RegWrite("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$InputEmpfaenger", "REG_SZ", GUICtrlRead($InputEmpfaenger))
				RegWrite("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$InputEmpfaenger2", "REG_SZ", GUICtrlRead($InputEmpfaenger2))
				RegWrite("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$InputBetreffzeile", "REG_SZ", GUICtrlRead($InputBetreffzeile))
				RegWrite("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$Edit_Mailtext", "REG_MULTI_SZ", GUICtrlRead($Edit_Mailtext))
				RegWrite("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$Checkbox_Log_Datei_loeschen", "REG_DWORD", GUICtrlRead($Checkbox_Log_Datei_loeschen))
				; und neu dazu Farben, Größen und Schriftarten
				RegWrite("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$FarbeEmpfangen", "REG_DWORD", $FarbeEmpfangen)
				RegWrite("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$FarbeSenden", "REG_DWORD", $FarbeSenden)
				RegWrite("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$FarbeOffline", "REG_DWORD", $FarbeOffline)
				RegWrite("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$SchriftgroesseEmpfangen", "REG_DWORD", $SchriftgroesseEmpfangen)
				RegWrite("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$SchriftgroesseSenden", "REG_DWORD", $SchriftgroesseSenden)
				RegWrite("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$SchriftgroesseOffline", "REG_DWORD", $SchriftgroesseOffline)
				RegWrite("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$FarbeHintergund", "REG_DWORD", $FarbeHintergund)
				RegWrite("HKEY_CURRENT_USER\Software\znilwiki\Telnet-SMTP-Tester", "$Schriftart", "REG_SZ", $Schriftart)
			EndIf
			Exit

			;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
		Case $ButtonVerbinden_und_Trennen
			If $Verbindungsstatus = "getrennt" Then
				TCPStartup()
				$Mailserver = TCPNameToIP(GUICtrlRead($InputServername))
				$ZeigerVerbindung = TCPConnect($Mailserver, GUICtrlRead($InputServerPort))
				If @error Then
					MsgBox(262160, "Verbindungsfehler", "Server '" & GUICtrlRead($InputServername) & "' mit der IP-Adresse '" & $Mailserver & "' auf Port '" & GUICtrlRead($InputServerPort) & "' konnte nicht erreicht werden!")
					TCPShutdown()
					ContinueCase
				EndIf
				$Verbindungsstatus = "verbunden"
				If $sprache = "deutsch" Then
					GUICtrlSetData($ButtonVerbinden_und_Trennen, $sprache_Main_ButtonTrennen[0])
				Else
					GUICtrlSetData($ButtonVerbinden_und_Trennen, $sprache_Main_ButtonTrennen[1])
				EndIf
				GUICtrlSetState($InputServername, $GUI_DISABLE)
				GUICtrlSetState($InputServerPort, $GUI_DISABLE)
			Else
				If $sprache = "deutsch" Then
					GUICtrlSetData($ButtonVerbinden_und_Trennen, $sprache_Main_ButtonVerbinden[0])
				Else
					GUICtrlSetData($ButtonVerbinden_und_Trennen, $sprache_Main_ButtonVerbinden[1])
				EndIf
				GUICtrlSetState($InputServername, $GUI_ENABLE)
				GUICtrlSetState($InputServerPort, $GUI_ENABLE)
				$Verbindungsstatus = "getrennt"
				TCPShutdown()
			EndIf

			;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
		Case $InputEigenerBefehl
			If GUICtrlRead($InputEigenerBefehl) <> "" And GUICtrlRead($InputEigenerBefehl) <> "Eigenen Befehl eingeben ...." Then
				If $Verbindungsstatus = "getrennt" Then
					_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & GUICtrlRead($InputEigenerBefehl) & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
				Else
					_Chatbox_SetData($EditAusgabebox, GUICtrlRead($InputEigenerBefehl), $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
					TCPSend($ZeigerVerbindung, GUICtrlRead($InputEigenerBefehl) & Chr(13) & Chr(10))
				EndIf
				GUICtrlSetData($InputEigenerBefehl, "")
				ControlFocus("Telnet SMTP Tester", "", "Edit11")
			EndIf

			;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
		Case $ButtonAbsenden
			If GUICtrlRead($InputEigenerBefehl) <> "" And GUICtrlRead($InputEigenerBefehl) <> "Eigenen Befehl eingeben ...." Then
				If $Verbindungsstatus = "getrennt" Then
					_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & GUICtrlRead($InputEigenerBefehl) & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
				Else
					_Chatbox_SetData($EditAusgabebox, GUICtrlRead($InputEigenerBefehl), $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
					TCPSend($ZeigerVerbindung, GUICtrlRead($InputEigenerBefehl) & Chr(13) & Chr(10))
				EndIf
				GUICtrlSetData($InputEigenerBefehl, "")
			EndIf

			;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
		Case $ButtonHELO
			If $Verbindungsstatus = "getrennt" Then
				_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "HELO " & GUICtrlRead($InputAbsendername) & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
			Else
				_Chatbox_SetData($EditAusgabebox, "HELO " & GUICtrlRead($InputAbsendername), $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
				TCPSend($ZeigerVerbindung, "HELO " & GUICtrlRead($InputAbsendername) & Chr(13) & Chr(10))
			EndIf

			;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
		Case $HilfeLabelHELO
			If GUICtrlRead($HilfeCheckboxBefehleNurEintragen) = $GUI_CHECKED Then
				GUICtrlSetData($InputEigenerBefehl, "HELO")
			Else
				If $Verbindungsstatus = "getrennt" Then
					_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "HELO " & GUICtrlRead($InputAbsendername) & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
				Else
					_Chatbox_SetData($EditAusgabebox, "HELO " & GUICtrlRead($InputAbsendername), $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
					TCPSend($ZeigerVerbindung, "HELO " & GUICtrlRead($InputAbsendername) & Chr(13) & Chr(10))
				EndIf
			EndIf

			;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
		Case $ButtonEHLO
			If $Verbindungsstatus = "getrennt" Then
				_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "EHLO " & GUICtrlRead($InputAbsendername) & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
			Else
				_Chatbox_SetData($EditAusgabebox, "EHLO " & GUICtrlRead($InputAbsendername), $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
				TCPSend($ZeigerVerbindung, "EHLO " & GUICtrlRead($InputAbsendername) & Chr(13) & Chr(10))
			EndIf

			;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
		Case $HilfeLabelEHLO
			If GUICtrlRead($HilfeCheckboxBefehleNurEintragen) = $GUI_CHECKED Then
				GUICtrlSetData($InputEigenerBefehl, "EHLO")
			Else
				If $Verbindungsstatus = "getrennt" Then
					_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "EHLO " & GUICtrlRead($InputAbsendername) & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
				Else
					_Chatbox_SetData($EditAusgabebox, "EHLO " & GUICtrlRead($InputAbsendername), $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
					TCPSend($ZeigerVerbindung, "EHLO " & GUICtrlRead($InputAbsendername) & Chr(13) & Chr(10))
				EndIf
			EndIf

			;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
		Case $ButtonAUTH_LOGIN
			If $Verbindungsstatus = "getrennt" Then
				_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "AUTH LOGIN" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
				_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & _Base64Encode(GUICtrlRead($InputBenutzername)) & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
				_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & _Base64Encode(GUICtrlRead($InputPasswort)) & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
			Else
				_Chatbox_SetData($EditAusgabebox, "AUTH LOGIN", $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
				TCPSend($ZeigerVerbindung, "AUTH LOGIN" & Chr(13) & Chr(10))
				For $i = 1 To 2000
					Sleep(50) ; Mit diesem Kniff warten wir max. 10 Sekunden - machen aber sofort weiter wenn daten kommen
					$Empfangspuffer = TCPRecv($ZeigerVerbindung, 4096, 0)
					If $Empfangspuffer <> "" Then
						_Chatbox_SetData($EditAusgabebox, $Empfangspuffer, $FarbeEmpfangen, $SchriftgroesseEmpfangen, $Schriftart)
						ExitLoop
					EndIf
				Next
				_Chatbox_SetData($EditAusgabebox, _Base64Encode(GUICtrlRead($InputBenutzername)), $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
				TCPSend($ZeigerVerbindung, _Base64Encode(GUICtrlRead($InputBenutzername)) & Chr(13) & Chr(10))
				For $i = 1 To 2000
					Sleep(50) ; Mit diesem Kniff warten wir max. 10 Sekunden - machen aber sofort weiter wenn daten kommen
					$Empfangspuffer = TCPRecv($ZeigerVerbindung, 4096, 0)
					If $Empfangspuffer <> "" Then
						_Chatbox_SetData($EditAusgabebox, $Empfangspuffer, $FarbeEmpfangen, $SchriftgroesseEmpfangen, $Schriftart)
						ExitLoop
					EndIf
				Next
				_Chatbox_SetData($EditAusgabebox, _Base64Encode(GUICtrlRead($InputPasswort)), $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
				TCPSend($ZeigerVerbindung, _Base64Encode(GUICtrlRead($InputPasswort)) & Chr(13) & Chr(10))
				For $i = 1 To 2000
					Sleep(50) ; Mit diesem Kniff warten wir max. 10 Sekunden - machen aber sofort weiter wenn daten kommen
					$Empfangspuffer = TCPRecv($ZeigerVerbindung, 4096, 0)
					If $Empfangspuffer <> "" Then
						_Chatbox_SetData($EditAusgabebox, $Empfangspuffer, $FarbeEmpfangen, $SchriftgroesseEmpfangen, $Schriftart)
						ExitLoop
					EndIf
				Next
			EndIf

			;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
		Case $HilfeLabelAUTHLOGIN
			If GUICtrlRead($HilfeCheckboxBefehleNurEintragen) = $GUI_CHECKED Then
				GUICtrlSetData($InputEigenerBefehl, "AUTH LOGIN")
			Else
				If $Verbindungsstatus = "getrennt" Then
					_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "AUTH LOGIN" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
					_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & _Base64Encode(GUICtrlRead($InputBenutzername)) & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
					_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & _Base64Encode(GUICtrlRead($InputPasswort)) & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
				Else
					_Chatbox_SetData($EditAusgabebox, "AUTH LOGIN", $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
					TCPSend($ZeigerVerbindung, "AUTH LOGIN" & Chr(13) & Chr(10))
					For $i = 1 To 2000
						Sleep(50) ; Mit diesem Kniff warten wir max. 10 Sekunden - machen aber sofort weiter wenn daten kommen
						$Empfangspuffer = TCPRecv($ZeigerVerbindung, 4096, 0)
						If $Empfangspuffer <> "" Then
							_Chatbox_SetData($EditAusgabebox, $Empfangspuffer, $FarbeEmpfangen, $SchriftgroesseEmpfangen, $Schriftart)
							ExitLoop
						EndIf
					Next
					_Chatbox_SetData($EditAusgabebox, _Base64Encode(GUICtrlRead($InputBenutzername)), $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
					TCPSend($ZeigerVerbindung, _Base64Encode(GUICtrlRead($InputBenutzername)) & Chr(13) & Chr(10))
					For $i = 1 To 2000
						Sleep(50) ; Mit diesem Kniff warten wir max. 10 Sekunden - machen aber sofort weiter wenn daten kommen
						$Empfangspuffer = TCPRecv($ZeigerVerbindung, 4096, 0)
						If $Empfangspuffer <> "" Then
							_Chatbox_SetData($EditAusgabebox, $Empfangspuffer, $FarbeEmpfangen, $SchriftgroesseEmpfangen, $Schriftart)
							ExitLoop
						EndIf
					Next
					_Chatbox_SetData($EditAusgabebox, _Base64Encode(GUICtrlRead($InputPasswort)), $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
					TCPSend($ZeigerVerbindung, _Base64Encode(GUICtrlRead($InputPasswort)) & Chr(13) & Chr(10))
					For $i = 1 To 2000
						Sleep(50) ; Mit diesem Kniff warten wir max. 10 Sekunden - machen aber sofort weiter wenn daten kommen
						$Empfangspuffer = TCPRecv($ZeigerVerbindung, 4096, 0)
						If $Empfangspuffer <> "" Then
							_Chatbox_SetData($EditAusgabebox, $Empfangspuffer, $FarbeEmpfangen, $SchriftgroesseEmpfangen, $Schriftart)
							ExitLoop
						EndIf
					Next
				EndIf
			EndIf

			;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
		Case $ButtonMAILFROM
			If $Verbindungsstatus = "getrennt" Then
				_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "MAIL FROM:&lt;" & GUICtrlRead($InputAbsenderadresse) & "&gt;" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
			Else
				_Chatbox_SetData($EditAusgabebox, "MAIL FROM:&lt;" & GUICtrlRead($InputAbsenderadresse) & "&gt;", $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
				TCPSend($ZeigerVerbindung, "MAIL FROM:<" & GUICtrlRead($InputAbsenderadresse) & ">" & Chr(13) & Chr(10))
			EndIf

		Case $HilfeLabelMAILFROM
			If GUICtrlRead($HilfeCheckboxBefehleNurEintragen) = $GUI_CHECKED Then
				GUICtrlSetData($InputEigenerBefehl, "MAIL FROM:<>")
			Else
				If $Verbindungsstatus = "getrennt" Then
					_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "MAIL FROM:&lt;" & GUICtrlRead($InputAbsenderadresse) & "&gt;" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
				Else
					_Chatbox_SetData($EditAusgabebox, "MAIL FROM:&lt;" & GUICtrlRead($InputAbsenderadresse) & "&gt;", $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
					TCPSend($ZeigerVerbindung, "MAIL FROM:<" & GUICtrlRead($InputAbsenderadresse) & ">" & Chr(13) & Chr(10))
				EndIf
			EndIf

			;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
		Case $ButtonRCPT_TO
			If $Verbindungsstatus = "getrennt" Then
				_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "RCPT TO:&lt;" & GUICtrlRead($InputEmpfaenger) & "&gt;" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
			Else
				_Chatbox_SetData($EditAusgabebox, "RCPT TO:&lt;" & GUICtrlRead($InputEmpfaenger) & "&gt;", $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
				TCPSend($ZeigerVerbindung, "RCPT TO:<" & GUICtrlRead($InputEmpfaenger) & ">" & Chr(13) & Chr(10))
			EndIf

		Case $HilfeLabelRCPTO
			If GUICtrlRead($HilfeCheckboxBefehleNurEintragen) = $GUI_CHECKED Then
				GUICtrlSetData($InputEigenerBefehl, "RCPT TO:<>")
			Else
				If $Verbindungsstatus = "getrennt" Then
					_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "RCPT TO:&lt;" & GUICtrlRead($InputEmpfaenger) & "&gt;" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
				Else
					_Chatbox_SetData($EditAusgabebox, "RCPT TO:&lt;" & GUICtrlRead($InputEmpfaenger) & "&gt;", $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
					TCPSend($ZeigerVerbindung, "RCPT TO:<" & GUICtrlRead($InputEmpfaenger) & ">" & Chr(13) & Chr(10))
				EndIf
			EndIf

			;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
		Case $ButtonRCPT_TO2
			If $Verbindungsstatus = "getrennt" Then
				_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "RCPT TO:&lt;" & GUICtrlRead($InputEmpfaenger2) & "&gt;" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
			Else
				_Chatbox_SetData($EditAusgabebox, "RCPT TO:&lt;" & GUICtrlRead($InputEmpfaenger2) & "&gt;", $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
				TCPSend($ZeigerVerbindung, "RCPT TO:<" & GUICtrlRead($InputEmpfaenger2) & ">" & Chr(13) & Chr(10))
			EndIf

			;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
		Case $ButtonDATA
			If $Verbindungsstatus = "getrennt" Then
				_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "DATA" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
			Else
				_Chatbox_SetData($EditAusgabebox, "DATA", $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
				TCPSend($ZeigerVerbindung, "DATA" & Chr(13) & Chr(10))
			EndIf

		Case $HilfeLabelDATA
			If GUICtrlRead($HilfeCheckboxBefehleNurEintragen) = $GUI_CHECKED Then
				GUICtrlSetData($InputEigenerBefehl, "DATA")
			Else
				If $Verbindungsstatus = "getrennt" Then
					_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "DATA" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
				Else
					_Chatbox_SetData($EditAusgabebox, "DATA", $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
					TCPSend($ZeigerVerbindung, "DATA" & Chr(13) & Chr(10))
				EndIf
			EndIf

			;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
		Case $ButtonSubject
			$Betreffzeile = StringReplace(GUICtrlRead($InputBetreffzeile), "hh:mm:ss", @HOUR & ":" & @MIN & ":" & @SEC)
			If @error Then
				$Betreffzeile = GUICtrlRead($InputBetreffzeile)
			EndIf
			If $Verbindungsstatus = "getrennt" Then
				_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "From: " & StringReplace(GUICtrlRead($InputAbsenderadresse), "@", "-") & " &lt;" & GUICtrlRead($InputAbsenderadresse) & "&gt;" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
				_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "To: " & StringReplace(GUICtrlRead($InputEmpfaenger), "@", "-") & " &lt;" & GUICtrlRead($InputEmpfaenger) & "&gt;" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
				_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "Subject: " & $Betreffzeile & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
				_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "{Leerzeile}" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
			Else
				_Chatbox_SetData($EditAusgabebox, "From: " & StringReplace(GUICtrlRead($InputAbsenderadresse), "@", "-") & " &lt;" & GUICtrlRead($InputAbsenderadresse) & "&gt;", $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
				_Chatbox_SetData($EditAusgabebox, "To: " & StringReplace(GUICtrlRead($InputEmpfaenger), "@", "-") & " &lt;" & GUICtrlRead($InputEmpfaenger) & "&gt;", $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
				_Chatbox_SetData($EditAusgabebox, "Subject: " & $Betreffzeile, $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
				_Chatbox_SetData($EditAusgabebox, "<i>{Leerzeile}</i>", $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
				TCPSend($ZeigerVerbindung, "From: " & StringReplace(GUICtrlRead($InputAbsenderadresse), "@", "-") & " <" & GUICtrlRead($InputAbsenderadresse) & ">" & Chr(13) & Chr(10))
				TCPSend($ZeigerVerbindung, "To: " & StringReplace(GUICtrlRead($InputEmpfaenger), "@", "-") & " <" & GUICtrlRead($InputEmpfaenger) & ">" & Chr(13) & Chr(10))
				TCPSend($ZeigerVerbindung, "Subject: " & $Betreffzeile & Chr(13) & Chr(10))
				TCPSend($ZeigerVerbindung, Chr(13) & Chr(10))
			EndIf

		Case $HilfeLabelFromNameAbsender
			If GUICtrlRead($HilfeCheckboxBefehleNurEintragen) = $GUI_CHECKED Then
				GUICtrlSetData($InputEigenerBefehl, "From: " & StringReplace(GUICtrlRead($InputAbsenderadresse), "@", "-") & " <" & GUICtrlRead($InputAbsenderadresse) & ">")
			Else
				If $Verbindungsstatus = "getrennt" Then
					_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "From: " & StringReplace(GUICtrlRead($InputAbsenderadresse), "@", "-") & " &lt;" & GUICtrlRead($InputAbsenderadresse) & "&gt;" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
				Else
					_Chatbox_SetData($EditAusgabebox, "From: " & StringReplace(GUICtrlRead($InputAbsenderadresse), "@", "-") & " &lt;" & GUICtrlRead($InputAbsenderadresse) & "&gt;", $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
					TCPSend($ZeigerVerbindung, "From: " & StringReplace(GUICtrlRead($InputAbsenderadresse), "@", "-") & " <" & GUICtrlRead($InputAbsenderadresse) & ">" & Chr(13) & Chr(10))
				EndIf
			EndIf

		Case $HilfeLabelToEmpfaenger
			If GUICtrlRead($HilfeCheckboxBefehleNurEintragen) = $GUI_CHECKED Then
				GUICtrlSetData($InputEigenerBefehl, "From: " & StringReplace(GUICtrlRead($InputEmpfaenger), "@", "-") & " <" & GUICtrlRead($InputEmpfaenger) & ">")
			Else
				If $Verbindungsstatus = "getrennt" Then
					_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "From: " & StringReplace(GUICtrlRead($InputEmpfaenger), "@", "-") & " &lt;" & GUICtrlRead($InputEmpfaenger) & "&gt;" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
				Else
					_Chatbox_SetData($EditAusgabebox, "From: " & StringReplace(GUICtrlRead($InputEmpfaenger), "@", "-") & " &lt;" & GUICtrlRead($InputEmpfaenger) & "&gt;", $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
					TCPSend($ZeigerVerbindung, "From: " & StringReplace(GUICtrlRead($InputEmpfaenger), "@", "-") & " <" & GUICtrlRead($InputEmpfaenger) & ">" & Chr(13) & Chr(10))
				EndIf
			EndIf

		Case $HilfeLabelSubject
			If GUICtrlRead($HilfeCheckboxBefehleNurEintragen) = $GUI_CHECKED Then
				GUICtrlSetData($InputEigenerBefehl, "Subject:")
			Else
				$Betreffzeile = StringReplace(GUICtrlRead($InputBetreffzeile), "hh:mm:ss", @HOUR & ":" & @MIN & ":" & @SEC)
				If @error Then
					$Betreffzeile = GUICtrlRead($InputBetreffzeile)
				EndIf
				If $Verbindungsstatus = "getrennt" Then
					_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "Subject: " & $Betreffzeile & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
					_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "{Leerzeile}" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
				Else
					_Chatbox_SetData($EditAusgabebox, "Subject: " & $Betreffzeile, $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
					_Chatbox_SetData($EditAusgabebox, "<i>{Leerzeile}</i>", $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
					TCPSend($ZeigerVerbindung, "Subject: " & $Betreffzeile & Chr(13) & Chr(10))
					TCPSend($ZeigerVerbindung, Chr(13) & Chr(10))
				EndIf
			EndIf

			;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
		Case $ButtonMailtext
			If $Verbindungsstatus = "getrennt" Then
				_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & GUICtrlRead($Edit_Mailtext) & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
				_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "{Leerzeile}" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
				_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "." & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
			Else
				_Chatbox_SetData($EditAusgabebox, GUICtrlRead($Edit_Mailtext), $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
				_Chatbox_SetData($EditAusgabebox, "{Leerzeile} ", $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
				_Chatbox_SetData($EditAusgabebox, ".", $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
				TCPSend($ZeigerVerbindung, GUICtrlRead($Edit_Mailtext) & Chr(13) & Chr(10))
				TCPSend($ZeigerVerbindung, Chr(13) & Chr(10))
				TCPSend($ZeigerVerbindung, "." & Chr(13) & Chr(10))
			EndIf

		Case $HilfeLabelLeerzeileundPunkt
			If GUICtrlRead($HilfeCheckboxBefehleNurEintragen) = $GUI_CHECKED Then
				GUICtrlSetData($InputEigenerBefehl, @CRLF & ".")
			Else
				If $Verbindungsstatus = "getrennt" Then
					_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & GUICtrlRead($Edit_Mailtext) & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
					_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "{Leerzeile}" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
					_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "." & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
				Else
					_Chatbox_SetData($EditAusgabebox, GUICtrlRead($Edit_Mailtext), $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
					_Chatbox_SetData($EditAusgabebox, "{Leerzeile} ", $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
					_Chatbox_SetData($EditAusgabebox, ".", $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
					TCPSend($ZeigerVerbindung, GUICtrlRead($Edit_Mailtext) & Chr(13) & Chr(10))
					TCPSend($ZeigerVerbindung, Chr(13) & Chr(10))
					TCPSend($ZeigerVerbindung, "." & Chr(13) & Chr(10))
				EndIf
			EndIf

			;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
		Case $ButtonQUIT
			If $Verbindungsstatus = "getrennt" Then
				_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "QUIT" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
			Else
				_Chatbox_SetData($EditAusgabebox, "QUIT", $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
				TCPSend($ZeigerVerbindung, "QUIT" & Chr(13) & Chr(10))
				For $i = 1 To 2000
					Sleep(50) ; Mit diesem Kniff warten wir max. 10 Sekunden - machen aber sofort weiter wenn daten kommen
					$Empfangspuffer = TCPRecv($ZeigerVerbindung, 4096, 0)
					If $Empfangspuffer <> "" Then
						_Chatbox_SetData($EditAusgabebox, $Empfangspuffer, $FarbeEmpfangen, 2, $Schriftart)
						ExitLoop
					EndIf
				Next
				GUICtrlSetData($ButtonVerbinden_und_Trennen, "Verbinden")
				GUICtrlSetState($InputServername, $GUI_ENABLE)
				GUICtrlSetState($InputServerPort, $GUI_ENABLE)
				$Verbindungsstatus = "getrennt"
				TCPShutdown()
			EndIf

		Case $HilfeLabelQUIT
			If GUICtrlRead($HilfeCheckboxBefehleNurEintragen) = $GUI_CHECKED Then
				GUICtrlSetData($InputEigenerBefehl, "QUIT")
			Else
				If $Verbindungsstatus = "getrennt" Then
					_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "QUIT" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
				Else
					_Chatbox_SetData($EditAusgabebox, "QUIT", $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
					TCPSend($ZeigerVerbindung, "QUIT" & Chr(13) & Chr(10))
					For $i = 1 To 2000
						Sleep(50) ; Mit diesem Kniff warten wir max. 10 Sekunden - machen aber sofort weiter wenn daten kommen
						$Empfangspuffer = TCPRecv($ZeigerVerbindung, 4096, 0)
						If $Empfangspuffer <> "" Then
							_Chatbox_SetData($EditAusgabebox, $Empfangspuffer, $FarbeEmpfangen, 2, $Schriftart)
							ExitLoop
						EndIf
					Next
					GUICtrlSetData($ButtonVerbinden_und_Trennen, "Verbinden")
					GUICtrlSetState($InputServername, $GUI_ENABLE)
					GUICtrlSetState($InputServerPort, $GUI_ENABLE)
					$Verbindungsstatus = "getrennt"
					TCPShutdown()
				EndIf
			EndIf

			;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
		Case $HilfeLabelRSET
			If GUICtrlRead($HilfeCheckboxBefehleNurEintragen) = $GUI_CHECKED Then
				GUICtrlSetData($InputEigenerBefehl, "RSET")
			Else
				If $Verbindungsstatus = "getrennt" Then
					_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "RSET" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
				Else
					_Chatbox_SetData($EditAusgabebox, "RSET", $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
					TCPSend($ZeigerVerbindung, "RSET" & Chr(13) & Chr(10))
				EndIf
			EndIf

		Case $HilfeLabelNOOP
			If GUICtrlRead($HilfeCheckboxBefehleNurEintragen) = $GUI_CHECKED Then
				GUICtrlSetData($InputEigenerBefehl, "NOOP")
			Else
				If $Verbindungsstatus = "getrennt" Then
					_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "NOOP" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
				Else
					_Chatbox_SetData($EditAusgabebox, "NOOP", $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
					TCPSend($ZeigerVerbindung, "NOOP" & Chr(13) & Chr(10))
				EndIf
			EndIf

		Case $HilfeLabelHELP
			If GUICtrlRead($HilfeCheckboxBefehleNurEintragen) = $GUI_CHECKED Then
				GUICtrlSetData($InputEigenerBefehl, "HELP")
			Else
				If $Verbindungsstatus = "getrennt" Then
					_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "HELP" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
				Else
					_Chatbox_SetData($EditAusgabebox, "HELP", $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
					TCPSend($ZeigerVerbindung, "HELP" & Chr(13) & Chr(10))
				EndIf
			EndIf

			;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
		Case $Label_znilwikil_link
			;Jemand hat auf den blauen "Link" zum znilwiki gedrückt - öffnen wir den Standard Webbrowser mit der Seite
			$Internetexplorer = _IECreate("http://znil.net", 0, 1, 0, 1)

			;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
		Case $ButtonHilfe
			;Optimale Positionen ermitteln
			;Unser Hauptfenster ist844 breit und 630 hoch
			If @DesktopWidth < 844 Or @DesktopHeight < 680 Then
				MsgBox($MB_OK + $MB_ICONEXCLAMATION + 262144, "Bildschirmauflösung zu gering", "Die Bildschirmauflösung beträgt nur " & @DesktopWidth & "x" & @DesktopHeight & " Pixel." & @CRLF & "Um das Hilfe Fenster neben dem Hauptfenster" & @CRLF & "wird eine Auflösung von 1280x768 benötigt." & @CRLF & "Hilfe Fenster wird deshalb zentriert dargestellt.", 30)
				$HilfePosH = -1
				$HilfePosV = -1
				GUISetState(@SW_SHOW, $FormSMTPHelp)
				;WinMove("Telnet SMTP Test Tool Hilfe","", $HilfePosH,$HilfePosV)
			Else
				$HauptfensterPosH = Round((@DesktopWidth - (844 + 384)) / 2, 0)
				$HauptfensterPosV = Round((@DesktopHeight - 630) / 2)
				$HilfePosH = $HauptfensterPosH + 844 + 20
				$HilfePosV = $HauptfensterPosV
				WinMove("Telnet SMTP Test Tool", "", $HauptfensterPosH, $HauptfensterPosV)
				GUISetState(@SW_SHOW, $FormSMTPHelp)
				WinMove("Telnet SMTP Test Tool Hilfe", "", $HilfePosH, $HilfePosV)

			EndIf

			;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
		Case $ButtonHilfeSchliessen
			GUISetState(@SW_HIDE, $FormSMTPHelp)

		Case $GUI_EVENT_RESTORE
			;MsgBox(4096,"","wieder da")
			;GUISetState(@SW_HIDE,$FormSMTP)
			;GUISetState(@SW_SHOW,$FormSMTP)
			;GUISetState(@SW_RESTORE,$FormSMTP)
			_Chatbox_Update($EditAusgabebox)
			GUISetState(@SW_RESTORE, $FormSMTPHelp)

		Case $GUI_EVENT_MINIMIZE
			GUISetState(@SW_MINIMIZE, $FormSMTPHelp)

			;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
		Case $ButtonSETUP
			If $Verbindungsstatus = "getrennt" Then
				;_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "QUIT" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
			Else
				_Chatbox_SetData($EditAusgabebox, "QUIT", $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
				TCPSend($ZeigerVerbindung, "QUIT" & Chr(13) & Chr(10))
				For $i = 1 To 2000
					Sleep(50) ; Mit diesem Kniff warten wir max. 10 Sekunden - machen aber sofort weiter wenn daten kommen
					$Empfangspuffer = TCPRecv($ZeigerVerbindung, 4096, 0)
					If $Empfangspuffer <> "" Then
						_Chatbox_SetData($EditAusgabebox, $Empfangspuffer, $FarbeEmpfangen, 2, $Schriftart)
						ExitLoop
					EndIf
				Next
				GUICtrlSetData($ButtonVerbinden_und_Trennen, "Verbinden")
				GUICtrlSetState($InputServername, $GUI_ENABLE)
				GUICtrlSetState($InputServerPort, $GUI_ENABLE)
				$Verbindungsstatus = "getrennt"
				TCPShutdown()
			EndIf
			; 42 = ok, es wurde was geändert
			; 84 = abbrechen wurde gedrückt
			If _TelnetSMTPTestToolSETUP($FarbeEmpfangen, $FarbeSenden, $FarbeOffline, $SchriftgroesseEmpfangen, $SchriftgroesseSenden, $SchriftgroesseOffline, $FarbeHintergund, $Schriftart, $sprache) = 42 Then
				GUICtrlDelete($EditAusgabebox)
				FileDelete(@ScriptDir & $Logfilename)
				$EditAusgabebox = _Chatbox_Create($FormSMTP, 8, 34, 529, 489, $FarbeHintergund, @ScriptDir & $Logfilename)
				;Nachfolgend einmal Fenster unsichtbar und wieder sichtbar - sonst ist manchmal unsere EditAusgabebox nicht gleichmnäßig gefüllt
				;GUISetState(@SW_HIDE,$FormSMTP)
				;sleep(2000)
				;_Chatbox_SetData($EditAusgabebox, "     ", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
				;GUISetState(@SW_RESTORE,$FormSMTP)
				_Chatbox_Update($EditAusgabebox)
			EndIf
			If $sprache = "deutsch" Then
				GUICtrlSetData($ButtonVerbinden_und_Trennen, $sprache_Main_ButtonVerbinden[0])
				GUICtrlSetData($Group_1_Server_des_Absenders, $sprache_Main_Group_1_Server_des_Absenders[0])
				GUICtrlSetData($Group_2_Authentifizierung, $sprache_Main_Group_2_Authentifizierung[0])
				GUICtrlSetData($Group_3_Absenderadresse, $sprache_Main_Group_3_Absenderadresse[0])
				GUICtrlSetData($Group_4_Empfaenger, $sprache_Main_Group_4_Empfaenger[0])
				GUICtrlSetData($Group_5_Bereit_fuer_Maildaten, $sprache_Main_Group_5_Bereit_fuer_Maildaten[0])
				GUICtrlSetData($LabelButtonData, $sprache_Main_LabelButtonData[0])
				GUICtrlSetData($Group_6_Betreffzeile, $sprache_Main_Group_6_Betreffzeile[0])
				GUICtrlSetData($Group_7_Inhalt_der_Mail, $sprache_Main_Group_7_Inhalt_der_Mail[0])
				GUICtrlSetData($LabelButtonMailtext, $sprache_Main_LabelButtonMailtext[0])
				GUICtrlSetData($Group_8_Fertig_abmelden, $sprache_Main_Group_8_Fertig_abmelden[0])
				GUICtrlSetData($LabelButtonQUIT, $sprache_Main_LabelButtonQUIT[0])
				GUICtrlSetData($Checkbox_In_Registry_speichern, $sprache_Main_Checkbox_In_Registry_speichern[0])
				GUICtrlSetData($Checkbox_Log_Datei_loeschen, $sprache_Main_Checkbox_Log_Datei_loeschen[0])
				GUICtrlSetData($LabelJahrundName, $sprache_Main_LabelJahrundName[0])
				GUICtrlSetData($Label_das, $sprache_Main_Label_das[0])
				GUICtrlSetData($ButtonHilfe, $sprache_Main_ButtonHilfe[0])
				GUICtrlSetData($ButtonAbsenden, $sprache_Main_ButtonAbsenden[0])
				GUICtrlSetData($LabelStatus, $sprache_Main_LabelStatus[0] & @ScriptDir & $Logfilename)
				GUICtrlSetData($HilfeLabelTextHELO, $sprache_Hilfe_HilfeLabelTextHELO[0])
				GUICtrlSetData($HilfeLabelTextEHLO, $sprache_Hilfe_HilfeLabelTextEHLO[0])
				GUICtrlSetData($HilfeLabelTextAUTHLOGIN1, $sprache_Hilfe_HilfeLabelTextAUTHLOGIN1[0])
				GUICtrlSetData($HilfeLabelTextAUTHLOGIN1, $sprache_Hilfe_HilfeLabelTextAUTHLOGIN1[0])
				GUICtrlSetData($HilfeLabelTextMAILFROM, $sprache_Hilfe_HilfeLabelTextMAILFROM[0])
				GUICtrlSetData($HilfeLabelTextRCTPTO1, $sprache_Hilfe_HilfeLabelTextRCTPTO1[0])
				GUICtrlSetData($HilfeLabelTextRCTPTO2, $sprache_Hilfe_HilfeLabelTextRCTPTO2[0])
				GUICtrlSetData($HilfeLabelTextDATA, $sprache_Hilfe_HilfeLabelTextDATA[0])
				GUICtrlSetData($HilfeLabelTextFromNameSender, $sprache_Hilfe_HilfeLabelTextFromNameSender[0])
				GUICtrlSetData($HilfeLabelTextAnzeigename, $sprache_Hilfe_HilfeLabelTextAnzeigename[0])
				GUICtrlSetData($HilfeLabelSubject, $sprache_Hilfe_HilfeLabelSubject[0])
				GUICtrlSetData($HilfeLabelTextBetreffzeile, $sprache_Hilfe_HilfeLabelTextBetreffzeile[0])
				GUICtrlSetData($HilfeLabelLeerzeileundPunkt, $sprache_Hilfe_HilfeLabelLeerzeileundPunkt[0])
				GUICtrlSetData($HilfeLabelTextLeerzeile, $sprache_Hilfe_HilfeLabelTextLeerzeile[0])
				GUICtrlSetData($HilfeLabelTextQUIT, $sprache_Hilfe_HilfeLabelTextQUIT[0])
				GUICtrlSetData($HilfeLabelTextRSET, $sprache_Hilfe_HilfeLabelTextRSET[0])
				GUICtrlSetData($HilfeLabelTextNOOP, $sprache_Hilfe_HilfeLabelTextNOOP[0])
				GUICtrlSetData($HilfeLabelTextHELP, $sprache_Hilfe_HilfeLabelTextHELP[0])
				GUICtrlSetData($HilfeLabelHinweis, $sprache_Hilfe_HilfeLabelHinweis[0])
				GUICtrlSetData($HilfeCheckboxBefehleNurEintragen, $sprache_Hilfe_HilfeCheckboxBefehleNurEintragen[0])
				GUICtrlSetData($ButtonHilfeSchliessen, $sprache_Hilfe_ButtonHilfeSchliessen[0])
			Else
				GUICtrlSetData($ButtonVerbinden_und_Trennen, $sprache_Main_ButtonVerbinden[1])
				GUICtrlSetData($Group_1_Server_des_Absenders, $sprache_Main_Group_1_Server_des_Absenders[1])
				GUICtrlSetData($Group_2_Authentifizierung, $sprache_Main_Group_2_Authentifizierung[1])
				GUICtrlSetData($Group_3_Absenderadresse, $sprache_Main_Group_3_Absenderadresse[1])
				GUICtrlSetData($Group_4_Empfaenger, $sprache_Main_Group_4_Empfaenger[1])
				GUICtrlSetData($Group_5_Bereit_fuer_Maildaten, $sprache_Main_Group_5_Bereit_fuer_Maildaten[1])
				GUICtrlSetData($LabelButtonData, $sprache_Main_LabelButtonData[1])
				GUICtrlSetData($Group_6_Betreffzeile, $sprache_Main_Group_6_Betreffzeile[1])
				GUICtrlSetData($Group_7_Inhalt_der_Mail, $sprache_Main_Group_7_Inhalt_der_Mail[1])
				GUICtrlSetData($LabelButtonMailtext, $sprache_Main_LabelButtonMailtext[1])
				GUICtrlSetData($Group_8_Fertig_abmelden, $sprache_Main_Group_8_Fertig_abmelden[1])
				GUICtrlSetData($LabelButtonQUIT, $sprache_Main_LabelButtonQUIT[1])
				GUICtrlSetData($Checkbox_In_Registry_speichern, $sprache_Main_Checkbox_In_Registry_speichern[1])
				GUICtrlSetData($Checkbox_Log_Datei_loeschen, $sprache_Main_Checkbox_Log_Datei_loeschen[1])
				GUICtrlSetData($LabelJahrundName, $sprache_Main_LabelJahrundName[1])
				GUICtrlSetData($Label_das, $sprache_Main_Label_das[1])
				GUICtrlSetData($ButtonHilfe, $sprache_Main_ButtonHilfe[1])
				GUICtrlSetData($ButtonAbsenden, $sprache_Main_ButtonAbsenden[1])
				GUICtrlSetData($LabelStatus, $sprache_Main_LabelStatus[1] & @ScriptDir & $Logfilename)
				GUICtrlSetData($HilfeLabelTextHELO, $sprache_Hilfe_HilfeLabelTextHELO[1])
				GUICtrlSetData($HilfeLabelTextEHLO, $sprache_Hilfe_HilfeLabelTextEHLO[1])
				GUICtrlSetData($HilfeLabelTextAUTHLOGIN1, $sprache_Hilfe_HilfeLabelTextAUTHLOGIN1[1])
				GUICtrlSetData($HilfeLabelTextAUTHLOGIN1, $sprache_Hilfe_HilfeLabelTextAUTHLOGIN1[1])
				GUICtrlSetData($HilfeLabelTextMAILFROM, $sprache_Hilfe_HilfeLabelTextMAILFROM[1])
				GUICtrlSetData($HilfeLabelTextRCTPTO1, $sprache_Hilfe_HilfeLabelTextRCTPTO1[1])
				GUICtrlSetData($HilfeLabelTextRCTPTO2, $sprache_Hilfe_HilfeLabelTextRCTPTO2[1])
				GUICtrlSetData($HilfeLabelTextDATA, $sprache_Hilfe_HilfeLabelTextDATA[1])
				GUICtrlSetData($HilfeLabelTextFromNameSender, $sprache_Hilfe_HilfeLabelTextFromNameSender[1])
				GUICtrlSetData($HilfeLabelTextAnzeigename, $sprache_Hilfe_HilfeLabelTextAnzeigename[1])
				GUICtrlSetData($HilfeLabelSubject, $sprache_Hilfe_HilfeLabelSubject[1])
				GUICtrlSetData($HilfeLabelTextBetreffzeile, $sprache_Hilfe_HilfeLabelTextBetreffzeile[1])
				GUICtrlSetData($HilfeLabelLeerzeileundPunkt, $sprache_Hilfe_HilfeLabelLeerzeileundPunkt[1])
				GUICtrlSetData($HilfeLabelTextLeerzeile, $sprache_Hilfe_HilfeLabelTextLeerzeile[1])
				GUICtrlSetData($HilfeLabelTextQUIT, $sprache_Hilfe_HilfeLabelTextQUIT[1])
				GUICtrlSetData($HilfeLabelTextRSET, $sprache_Hilfe_HilfeLabelTextRSET[1])
				GUICtrlSetData($HilfeLabelTextNOOP, $sprache_Hilfe_HilfeLabelTextNOOP[1])
				GUICtrlSetData($HilfeLabelTextHELP, $sprache_Hilfe_HilfeLabelTextHELP[1])
				GUICtrlSetData($HilfeLabelHinweis, $sprache_Hilfe_HilfeLabelHinweis[1])
				GUICtrlSetData($HilfeCheckboxBefehleNurEintragen, $sprache_Hilfe_HilfeCheckboxBefehleNurEintragen[1])
				GUICtrlSetData($ButtonHilfeSchliessen, $sprache_Hilfe_ButtonHilfeSchliessen[1])
			EndIf


	EndSwitch
	;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
	$Empfangspuffer = TCPRecv($ZeigerVerbindung, 4096, 0)
	If $Empfangspuffer <> "" Then
		_Chatbox_SetData($EditAusgabebox, $Empfangspuffer, $FarbeEmpfangen, $SchriftgroesseEmpfangen, $Schriftart)
	EndIf


	;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
	If GUICtrlRead($InputEigenerBefehl) = "Eigenen Befehl eingeben ...." And ControlGetFocus("Telnet SMTP Test Tool") = "Edit11" Then
		GUICtrlSetData($InputEigenerBefehl, "")
		GUICtrlSetColor($InputEigenerBefehl, 0x000000)
	EndIf

	;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
	If GUICtrlRead($InputEmpfaenger2) = "2ter Empfänger ..." And ControlGetFocus("Telnet SMTP Test Tool") = "Edit8" Then
		GUICtrlSetData($InputEmpfaenger2, "")
		GUICtrlSetColor($InputEmpfaenger2, 0x000000)
		GUICtrlSetState($ButtonRCPT_TO2, $GUI_ENABLE)
	EndIf

WEnd
Zusätzlich wird die Resource UDF benötigt: https://www.autoitscript.com/forum/topic/51103-resources-udf/
Linksammlung

Hier sammle ich ein paar Links für eine neue Version mit TLS-Support. Per Wrapper wäre zwar relativ schnell gemacht, aber nativ wie bei Telnet oder per DLL wäre mir lieber
Kommentare

Loading comments...
@@ Zeile 3: / Zeile 3: @@
 * xx.05.2011 erste Version
 * 10.06.2021 Veröffentlichung Quellcode
+* 07.04.2022 hinweis auf SSL
 ----
 ==Download==
@@ Zeile 18: / Zeile 19: @@
 ==Download (noch einmal)==
 <big>Download: '''[[Media:TelnetSMTP-TestTool.exe‎|TelnetSMTP-TestTool.exe‎]]'''</big>
+<br>
+----
+==TLS==
+Am TLS Support arbeite ich noch - mit '''OpenSSL''' geht es. Eventuell baue ich einen Warpper oder kann Bibliotheken davon nutzen:<br>
+* https://www.stevenrombauts.be/2018/12/test-smtp-with-telnet-or-openssl/
 <br>
 ----
@@ Zeile 23: / Zeile 29: @@
 Das ist eines der ersten Programme die ich überhaupt mit AutoIt erstellt habe. Ich bin nicht besonders stolz auf den Quellcode, inzwischen sieht der bei mir schöner aus - und ich habe mir auch ein paar andere Techniken/Vorgehensweisen angewöhnt.<br>
 Geschrieben in AutoIt: https://www.autoitscript.com/site/ oder https://autoit.de<br>
-Da der Quellcode von 2011 ist könnte es sein das man mit der aktuellen AutoIt-version noch ein paar Anpassungen vornehmen müsste.<br>
+Da der Quellcode von 2011 ist könnte es sein das man mit der aktuellen AutoIt-Version noch ein paar Anpassungen vornehmen müsste. Scheinbar hatte ich den Quellcode mal 2007 überarbeitet<br>
-<source lang="au3">
+<source lang="autoit">
 #NoTrayIcon
 #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
@@ Zeile 42: / Zeile 48: @@
 #include <ButtonConstants.au3>
 #include <EditConstants.au3>
-;~ #include <GUIConstantsEx.au3>;~~~
 #include <StaticConstants.au3>
-;~ #include <ComboConstants.au3>;~~~
 #include <StaticConstants.au3>
 #include <WindowsConstants.au3>
 #include <GuiConstants.au3>;~~~
-;~ #include <File.au3>;~~~
-;~ #include <GDIPlus.au3>;~~~
 #include <IE.au3>
-;~ #include <Date.au3>;~~~
 #include <Constants.au3>
-;~ #include <GuiComboBox.au3>;~~~
-;~ #include <GuiEdit.au3>;~~~
 #include <Misc.au3>
 #include <Array.au3>
@@ Zeile 1.762: / Zeile 1.761: @@
 </source>
 Zusätzlich wird die Resource UDF benötigt: https://www.autoitscript.com/forum/topic/51103-resources-udf/ <br>
+----
+==Linksammlung==
+Hier sammle ich ein paar Links für eine neue Version mit TLS-Support. Per Wrapper wäre zwar relativ schnell gemacht, aber nativ wie bei Telnet oder per DLL wäre mir lieber
+* https://www.autoitscript.com/forum/topic/21889-ssl-gmail-with-openssl/page/1/
+* https://www.stevenrombauts.be/2018/12/test-smtp-with-telnet-or-openssl/
+* https://www.autoitscript.com/forum/topic/145480-is-there-an-easy-way-to-implement-ssltls-into-autoit-sockets/
 ----
 ==Kommentare==
 <comments />