Hallo zusammen,
ich bin ziemlich ratlos und hoffe das vllt. jemand den Effekt kennt bzw. weiss woran es liegen könnte ....
Problem:
Ich habe ein Script welches ich im Scite aufrufe und mittels F5 starte.
Das Script läuft los und zeigt mir auch die Eingabemaske (es handelt sich um das Verschlüsseln/Entschlüsseln eines Passwortes)
Nach den notwendigen Eingaben wird der Button Verschlüsseln od. Entschlüsseln gedrückt. Soweit OK.
Danach wir in der GUi ein erstes 'GUICtrlSetData($EditText, "Bitte warten während der Text verschlüsselt bzw. entschlüsselt wird.")' durchgeführt, was auch noch funktioniert.
Der nächste Schritt landet dann allerdings im Nirvana ....und das Script ist somit beendet
WARUM ?
Anm. Dieses - genau dieses Script lief bereits in genau dieser Umgebung .... bis gestern
#include <GuiConstantsEx.au3>
#include <String.au3>
Opt("MustDeclareVars", 1)
_Main()
Func _Main()
Local $WinMain, $EditText, $InputPass, $InputLevel, $UpDownLevel, $EncryptButton, $DecryptButton, $string, $x, $cdeInputPass, $cdeInputLevel
; GUI und String Sachen
$WinMain = GUICreate('Verschlüsselungsprogramm', 400, 400)
; Erstellt ein Fenster
$EditText = GUICtrlCreateEdit('', 5, 5, 380, 350)
; Erstellt das Haupt-Edit-Feld
$InputPass = GUICtrlCreateInput('', 5, 360, 100, 20, 0x21)
; Erstellt das Passwortfeld mit der versteckten zentrierten Eingabe
$InputLevel = GUICtrlCreateInput(1, 110, 360, 50, 20, 0x2001)
$UpDownLevel = GUICtrlSetLimit(GUICtrlCreateUpdown($InputLevel), 10, 1)
; Dies erstellt die Stufeneingabe mit Hoch|Runter-Fähigkeit
$EncryptButton = GUICtrlCreateButton('Verschlüsseln', 170, 360, 105, 35)
; Encryptbutton
$DecryptButton = GUICtrlCreateButton('Entschlüsseln', 285, 360, 105, 35)
; Decryptbutton
GUICtrlCreateLabel('Passwort', 5, 385)
GUICtrlCreateLabel('Stufe', 110, 385)
; Einfache Textlabels
GUISetState()
; Zeigt das Fenster
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $EncryptButton
GUISetState(@SW_DISABLE, $WinMain) ; Bewahrt vor jeglichen Änderungen
$string = GUICtrlRead($EditText) ; Speichert den Inhalt der Editbox für später
$cdeInputPass = GUICtrlRead($InputPass)
$cdeInputLevel = GUICtrlRead($InputLevel)
MsgBox(0,"","wait 1 ..."); das klappt
GUICtrlSetData($EditText, "Bitte warten während der Text verschlüsselt bzw. entschlüsselt wird.") ; Freundliche Nachricht
MsgBox(0,"","wait 2 ..."); das klappt auch noch
GUICtrlSetData($EditText, _StringEncrypt(1, $string, GUICtrlRead($InputPass), GUICtrlRead($InputLevel)))
MsgBox(0,"","wait 3 ..."); hier endet das Script
$x = _StringEncrypt(1, $string, $cdeInputPass, $cdeInputLevel)
MsgBox(0,"",$x)
; Ruft das Verschlüsseln auf. Setzt die Daten der Editbox mit dem verschlüsselten String
; Das Verschlüsseln beginnt mit 1/0 um mitzuteilen ob es verschlüsselt/entschlüsselt wird
; Das Verschlüsseln hat dann den String welchen man für später von der Editbox gespeichert hat
; Dann wird die Passwort-Box und die Levelbox gelesen
GUISetState(@SW_ENABLE, $WinMain) ; Dies holt das Fenster zurück
FileDelete("CDEReadMe.cfg")
IniWriteSection(@ScriptDir & "\CDEReadMe.cfg","Global", $x)
IniWriteSection(@ScriptDir & "\CDEReadMe.cfg","Level", $cdeInputLevel)
Case $DecryptButton
GUISetState(@SW_DISABLE, $WinMain) ; Bewahrt vor jeglichen Änderung
$string = GUICtrlRead($EditText) ; Speichert den Inhalt der Editbox für später
GUICtrlSetData($EditText, "Bitte warten während der Text verschlüsselt bzw. entschlüsselt wird.") ; Freundliche Nachricht
GUICtrlSetData($EditText, _StringEncrypt(0, $string, GUICtrlRead($InputPass), GUICtrlRead($InputLevel)))
; Ruft das Entschlüsseln auf. Setzt die Daten der Editbox mit dem entschlüsselten String
; Das Entschlüsseln beginnt mit 1/0 um mitzuteilen ob es verschlüsselt/entschlüsselt wird
; Das Entschlüsseln hat dann den String welchen man für später von der Editbox gespeichert hat
; Dann wird die Passwort-Box und die Stufen-Box gelesen
GUISetState(@SW_ENABLE, $WinMain) ; Dies holt das Fenster zurück
EndSwitch
WEnd ; Läuft, bis das Fenster geschlossen wird
Exit
EndFunc ;==>_Main
Alles anzeigen
Für jeden Tip wäre ich dankbar
mfg
ugt100