ZnilTools:Telnet SMTP Test Tool: Unterschied zwischen den Versionen
Aus znilwiki
BLinz (Diskussion | Beiträge) KKeine Bearbeitungszusammenfassung |
BLinz (Diskussion | Beiträge) K (→Linksammlung) |
||
| Zeile 1.766: | Zeile 1.766: | ||
* https://www.autoitscript.com/forum/topic/21889-ssl-gmail-with-openssl/page/1/ | * 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.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== | ==Kommentare== | ||
<comments /> | <comments /> | ||
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
Download: TelnetSMTP-TestTool.exe
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:
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:<" & GUICtrlRead($InputAbsenderadresse) & ">" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
Else
_Chatbox_SetData($EditAusgabebox, "MAIL FROM:<" & GUICtrlRead($InputAbsenderadresse) & ">", $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:<" & GUICtrlRead($InputAbsenderadresse) & ">" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
Else
_Chatbox_SetData($EditAusgabebox, "MAIL FROM:<" & GUICtrlRead($InputAbsenderadresse) & ">", $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:<" & GUICtrlRead($InputEmpfaenger) & ">" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
Else
_Chatbox_SetData($EditAusgabebox, "RCPT TO:<" & GUICtrlRead($InputEmpfaenger) & ">", $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:<" & GUICtrlRead($InputEmpfaenger) & ">" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
Else
_Chatbox_SetData($EditAusgabebox, "RCPT TO:<" & GUICtrlRead($InputEmpfaenger) & ">", $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:<" & GUICtrlRead($InputEmpfaenger2) & ">" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
Else
_Chatbox_SetData($EditAusgabebox, "RCPT TO:<" & GUICtrlRead($InputEmpfaenger2) & ">", $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), "@", "-") & " <" & GUICtrlRead($InputAbsenderadresse) & ">" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
_Chatbox_SetData($EditAusgabebox, "<i> nicht verbunden: " & "To: " & StringReplace(GUICtrlRead($InputEmpfaenger), "@", "-") & " <" & GUICtrlRead($InputEmpfaenger) & ">" & "</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), "@", "-") & " <" & GUICtrlRead($InputAbsenderadresse) & ">", $FarbeSenden, $SchriftgroesseSenden, $Schriftart)
_Chatbox_SetData($EditAusgabebox, "To: " & StringReplace(GUICtrlRead($InputEmpfaenger), "@", "-") & " <" & GUICtrlRead($InputEmpfaenger) & ">", $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), "@", "-") & " <" & GUICtrlRead($InputAbsenderadresse) & ">" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
Else
_Chatbox_SetData($EditAusgabebox, "From: " & StringReplace(GUICtrlRead($InputAbsenderadresse), "@", "-") & " <" & GUICtrlRead($InputAbsenderadresse) & ">", $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), "@", "-") & " <" & GUICtrlRead($InputEmpfaenger) & ">" & "</i>", $FarbeOffline, $SchriftgroesseOffline, $Schriftart)
Else
_Chatbox_SetData($EditAusgabebox, "From: " & StringReplace(GUICtrlRead($InputEmpfaenger), "@", "-") & " <" & GUICtrlRead($InputEmpfaenger) & ">", $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
WEndZusä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
- 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
Loading comments...