Variablen löschen

YayYo

Hi, kann mir wer helen pls ? Ich bekomme die Variablen nicht "geleert", also deren Inhalt weg damit ich sie wieder neu benutzen kann, hab sie ganz oben auf Global. Danke wenns jemand weiss wie es funktioniert. Es ist nur Text in denen keine Zahlen oder sonst was.

[autoit]

$Delall = GUICtrlCreateButton("Del all $", 16, 320, 51, 16)
GUICtrlSetBkColor(-1, 0xFF0011)
GUICtrlSetOnEvent(-1,"_Delall")
Func _Delall()
GUICtrlSetData($a, 0)
GUICtrlSetData($b, 0)
GUICtrlSetData($c, 0)
GUICtrlSetData($d, 0)
GUICtrlSetData($text, 0)
EndFunc

[/autoit]

tkausl

Hast du am anfang des Scripts auch den onEvent-Modus eingeschaltet?

[autoit]

Opt("GUIOnEventMode", 1)

[/autoit]

Und ich würd es so machen:

[autoit]

GUICtrlSetData($a, "")

[/autoit]

**Oscar**

Zum Variablen "leeren" benötigt man doch kein GUICtrlSetData!?

Einfach so:

[autoit]

$a = 0
$b = 0
$c = 0
$d = 0

[/autoit]

tkausl

Zitat von Oscar

Zum Variablen "leeren" benötigt man doch kein GUICtrlSetData!?

Einfach so:
[autoit]

$a = 0
$b = 0
$c = 0
$d = 0
[/autoit]

Ach, jetzt wo ich den Text nochmal genau lese fällt mir auch auf, dass er das meint
Aber denk dran, dass löschen der Variablen nicht gleichzusetzen ist mit Löschen der GUI-Elemente.

**Oscar**

Ja, ich war auch etwas verwirrt von YayYos Schreibweise. Beim Skript könnte man meinen, es bezieht sich auf GUI-Elemente. Der Text lässt eher auf Variablen schliessen.
Das ganze Skript hätte in diesem Fall wirkliche Klarheit gebracht.

tkausl

Zitat von Oscar

ar auch etwas verwirrt von YayYos Schreibweise. Beim Skript könnte man meinen, es bezieht sich auf GUI-Elemente. Der Text lässt eher auf Variablen schliessen.

Wobei ich mir aber die Logik erfrage.
Was für einen Sinn macht es, die Variablen (Handler zu einem GUI-Element) zu löschen/leeren, das Element selbst aber stehen zu lassen?

YayYo

Ich habe GUIctrlSetData benutzt um gleichzeitig die Input Felder rein zu bekommen. Aber weder so oder so klappts. Bei $x = 0 wird diese zwar auf 0 gesetzt aber ich kann sie nicht weiter benutzen nur bei Neustart wieder.

Die Inputs werden nur gelöscht, welche die ich selber beschrieben habe. Nicht welche die eine $ benutzen

und ja, Opt("GUIOnEventMode",1) hab ich drin alle Funcs arbeiten sonst

tkausl

Zitat von YayYo

Bei $x = 0 wird diese zwar auf 0 gesetzt aber ich kann sie nicht weiter benutzen nur bei Neustart wieder.

Was genau meinst du damit?

[autoit]

$x = 5
msgbox(0, "", $x)

[/autoit]

sollte 5 ausgeben.
Also kannst du es auch "benutzen".
Wenn du mal dein ganzes Skript postest und sagst was du vorhast, können wir dir vll. besser helfen.

YayYo

Ja die 5 bekomme ich angezeigt.

Sind einige Fehler wohl drin, auch werden manche Inputs bei Maus Kontakt auf den alten Wert zurück gesetzt

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

#include <Enigma.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>

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

Opt("GUIOnEventMode",1)

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

Global $Exploit
Global $mykey
Global $a
Global $b
Global $c

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

$GUIEnigmainASCII = GUICreate("GUI Enigma used ASCII / GUI written by SL1030", 615, 438, 192, 124, -1, $WS_EX_TOPMOST)
GUISetOnEvent($GUI_EVENT_CLOSE, "Close")
;
$Delall = GUICtrlCreateButton("Del all $", 16, 320, 51, 16)
GUICtrlSetBkColor(-1, 0xFF0011)
GUICtrlSetOnEvent(-1,"_Delall")
;
$ExploitOut = GUICtrlCreateLabel("" , 514 , 48 , 80 , 36) ; Current Time Label
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif") ; Font Art from this
GUICtrlSetColor(-1, 0xFF0000) ; Font Color from this ( Red now )
;
$SetSuperKey = GUICtrlCreateButton("Set Super Key", 11, 8, 86, 33)
GUICtrlSetBkColor(-1, 0xDD11CF)
GUICtrlSetOnEvent(-1,"_SetKey")
$Supikey = GUICtrlCreateInput("", 104, 16, 489, 21)
Func _SetKey()
$mykey = GUICtrlRead($Supikey)
MsgBox(0 , "Confirm" , "'Your Super Key is now:' " & @crlf & _
@crlf & _
" >> " & $mykey & " << ")
EndFunc
;
$Zeike = GUICtrlCreateButton("Show Super Key", 11, 44, 86, 33)
GUICtrlSetBkColor(-1, 0xA333CF)
GUICtrlSetOnEvent(-1,"_ShowKey")
Func _ShowKey()
$Zeiko = GUICtrlCreateLabel($mykey, 108, 48, 400, 36)
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
EndFunc
;
$Encrypt = GUICtrlCreateButton("Encrypt", 16, 192, 73, 33)
GUICtrlSetBkColor(-1, 0xCCFFCF)
GUICtrlSetOnEvent(-1,"_Crypt")
$text = GUICtrlCreateInput("", 112, 196, 481, 26)
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
Func _Crypt()
Dim $WD[5][2] = [[4,4],[5000,200],[101,201],[3110,202],[11,203]]
$RD = 65042

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

$a = GUICtrlRead($text)
$crypter = _Enigma_Initialize($mykey, $WD, $RD)
$b = _Enigma_Crypt($crypter, $a)
$c = _Enigma_Crypt($crypter, $b)
MsgBox(0, "enTest", $b )
$Tar = GUICtrlCreateInput($b, 112, 224, 481, 26)
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
EndFunc
;
$Decrypt = GUICtrlCreateButton("Decrypt", 16, 268, 73, 33)
GUICtrlSetBkColor(-1, 0xDDFFCF)
GUICtrlSetOnEvent(-1,"_DeCrypt")
$autext = GUICtrlCreateInput("", 112, 271, 481, 26)
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
Func _DeCrypt()
Dim $WD[5][2] = [[4,4],[5000,200],[101,201],[3110,202],[11,203]]
$RD = 65042

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

$a = GUICtrlRead($autext)
$crypter = _Enigma_Initialize($mykey, $WD, $RD)
$b = _Enigma_Crypt($crypter, $a)
$c = _Enigma_Crypt($crypter, $b)
MsgBox(0, "deTest", $b )
$Dar = GUICtrlCreateInput($b, 112, 300, 481, 26)
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
EndFunc
;
$EXIT = GUICtrlCreateButton("EXIT", 16, 376, 581, 45)
GUICtrlSetFont(-1, 14, 800, 4, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x00FFCF)
GUICtrlSetOnEvent(-1,"_Exiter")
Func _Exiter()
MsgBox(0, "Enigma", "Enigma is now closed over Exit !" & @crlf & @crlf & "Thank you for using and have a Nice Day ")
Exit
EndFunc
;
GUICtrlCreateInput("hehe: ð ÙçÀ:þÙ@ðþ ®}:@µ ÙçÀ®@µþ ÙçÀ:@ð ÙçÀ: : Key is Proud", 16, 340, 581, 26)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
;
$OwnLabel = GUICtrlCreateLabel("Created by SL1030 at 01.11.2010" & " / Current Start Date/Time is : " & @mday & "." & @MON & "." & @YEAR & " / " & @hour & ":" & @min & ":" & @SEC, 16, 166, 588, 17)
GUICtrlSetBkColor(-1, 0xFFCC06)
GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif")
;
GUISetState(@SW_SHOW)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
GUICtrlCreateButton("Show Original", 16, 86, 81, 33)
GUICtrlSetBkColor(-1, 0xAAFFCF)
GUICtrlSetOnEvent(-1,"_ShowOrigin")
Func _ShowOrigin()
$tzz = GUICtrlCreateInput($b, 104, 90, 489, 26)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
EndFunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
GUICtrlCreateButton("Show Crypted", 16, 122, 81, 33)
GUICtrlSetBkColor(-1, 0xBBFFCF)
GUICtrlSetOnEvent(-1,"_ShowCry")
Func _ShowCry()
$zzt = GUICtrlCreateInput($c, 104, 127, 489, 26)
GUICtrlSetFont(-1, 12, 800, 1, "MS Sans Serif")
EndFunc
;;;
Func Close()
MsgBox(0, "Enigma", "Enigma is now closed over GUISetOnEvent($GUI_EVENT_CLOSE) und Exit !" & @crlf & @crlf & "Thank you for using and have a Nice Day ")
Exit
EndFunc ;==>Close
;;;;
Func _Delall()
GUICtrlSetData($Supikey, "" , $Supikey)
GUICtrlSetData($mykey, 0 , $mykey)
GUICtrlSetData($a, 0 , $a)
GUICtrlSetData($b, 0 , $b)
EndFunc
;;;;
While 1
$Exploit = Guictrlsetdata($ExploitOut,@Hour&":"&@Min&":"&@Sec)
Sleep(10)
WEnd

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

tkausl

1. Ich bekomme augenkrebs :x bitte mal in Autoit-Tags packen.
2. Du bekommst die 5 angezeigt? Was meinst du denn dann damit, du kannst sie nicht benutzen?

GE IXI TIM

Ich denke er meint:
GuiSetData($x, "iwas") = wird verändert
$x = 0, ControlID kann nicht benutzt werden, wie auch?

misterspeed

Dachte ja meine ersten autoit Quellcodes sahen schlimm aus, aber das da oben ist schon sehr unübersichtlich.

Also mal einige Sachen die mir aufgefallen sind:

1. Die Variablen $a , $b , $c und $mykey verweisen nicht auf GUI Controls, sondern enthalten Daten, somit kannst du diese auch nicht mit guictrlsetdata reseten
2. In der Funktion _Decrypt werden die selben Methoden Benutzt wie in der Funktion _Crypt. Sollte in der enigma.au3 nicht auch eine _Enigma_DeCrypt() Funktion existieren?
3. Da du die enigma.au3 nicht hier angehängt hast kann man dein Script nicht ohne weiteres testen.
4. close() und _exiter() kann man auch zu einer Funktion zusammenfassen

Jetzt zu deinem Problem:

Ich vermute dir geht es um die Funktion _Delall() und du möchtest erreichen, dass das Programm wieder in den Ursprungszustand versetzt wird bevor irgendwelche Eingaben gemacht wurden?
In dem Fall solltest du evtl auch die Inputboxen löschen die du in den Funktionen crypt, decrypt, showorigin und showcry jedesmal erstellst, was eigentlich Unsinn ist, denn es wäre viel sinnvoller diese Inputboxen bereits bei Programmstart zu erstellen, mit @SW_HIDE unsichtbar zu machen, bei Bedarf mit guictrlsetdata deren Inhalt festzusetzten und danach mit @SW_SHOW sichtbar zumachen.

Die Variablen $a , $b , $c und $mykey brauchst du überhaupt nicht reseten, denn das machen deine Funktionen beim erneuten Aufruf. Was du reseten musst ist der Inhalt der Inputboxen $text und $autext. Dies kannst du mit guictrlsetdata machen. Dabei würd ich mal den dritten Parameter weglassen, also nur:

[autoit]

GUICtrlSetData($text, "" )
GUICtrlSetData($autext, "" )

[/autoit]

Wie schon erwähnt musst du das evtl auch mit den Inputboxen $Tar, $Dar, $tzz und $zzt machen. Dazu sollte aber gewährleistet sein, dass diese jederzeit existent sind. Deswegen wie gesagt bereits am Anfang ohne Inhalt versteckt erstellen und in den zughörigen Funktionen dann nur mit guictrlsetdata einen Wert setzen und einblenden.

Deine deletall Funktion könnte also so ausschaun:

[autoit]

GUICtrlSetData($Supikey, "" )
GUICtrlSetData($text, "" )
GUICtrlSetData($autext, "" )
GUICtrlSetData($Tar, "" )
GUICtrlSetData($Dar, "" )
GUICtrlSetData($tzz, "" )
GUICtrlSetData($zzt, "" )
GUICtrlSetState($Tar,@SW_HIDE)
GUICtrlSetState($Dar,@SW_HIDE)
GUICtrlSetState($tzz,@SW_HIDE)
GUICtrlSetState($zzt,@SW_HIDE)

[/autoit]

Da die enigma.au3 aber fehlt und ich nicht weiss wo man diese herbekommt ist das nicht getestet. Wenn du mehr Hilfe brauchst solltest du diese hier anhängen oder eine Downloadquelle dafür angeben.

EDIT:

Nachdem ich mal die Funktionen der enigma.au3 umgangen hab und mir die GUI angesehen hab, vielleicht noch die Anmerkung, dass die Farbwahl doch sehr "gewöhnungsbedürftig" ist
Du solltest im übrigen das sleep() in deiner while Schleife höher setzen, da die Uhr nur sekundengenau ist macht es keinen Sinn das Element 100 mal in der Sekunde zu erneuern. Das schaut bescheiden aus, weil man die GUI refreshes erkennen kann. eine Pause von 1000 Milisekunden reicht völlig um die Uhr korrekt darzustellen.

YayYo

[autoit]

#include <Enigma.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>
Global $Exploit
Global $mykey
Global $a
Global $b
Global $c
$GUIEnigmainASCII = GUICreate("GUI Enigma used ASCII", 615, 438, 192, 124, -1, $WS_EX_TOPMOST)
;
GUISetState(@SW_SHOW)
;
$Decrypt = GUICtrlCreateButton("Decrypt", 16, 268, 73, 33)
GUICtrlSetBkColor(-1, 0xDDFFCF)
$r = GUICtrlCreateInput("", 112, 271, 481, 26) ; Decrypt Button Input 2
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
;
$Encrypt = GUICtrlCreateButton("Encrypt", 16, 192, 73, 33)
GUICtrlSetBkColor(-1, 0xCCFFCF)
$u = GUICtrlCreateInput("", 112, 196, 481, 26) ; Encrypt Button Input
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Encrypt
$mykey = "Zippity Doo Da" ;my super-secret passkey
Dim $WD[5][2] = [[4,4],[5000,200],[101,201],[3110,202],[11,203]] ;the wheel data array
$RD = 65042 ;the reflector plate

$a = GUICtrlRead($u)
$crypter = _Enigma_Initialize($mykey, $WD, $RD) ;get the enigma object
$b = _Enigma_Crypt($crypter, $a) ;Encrypt the original string
$c = _Enigma_Crypt($crypter, $b) ;Decrypt the encrypted string
MsgBox(0, "enTest", $b )
$Tar = GUICtrlCreateInput($b, 112, 224, 481, 26) ; Encrypt ready
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
;
Case $Decrypt()
$mkey = "Zippity Doo Da" ;my super-secret passkey
Dim $WD[5][2] = [[4,4],[5000,200],[101,201],[3110,202],[11,203]] ;the wheel data array
$RD = 65042 ;the reflector plate

$a = GUICtrlRead($r)
$crypter = _Enigma_Initialize($mykey, $WD, $RD) ;get the enigma object
$b = _Enigma_Crypt($crypter, $a) ;Encrypt the original string
$c = _Enigma_Crypt($crypter, $b) ;Decrypt the encrypted string
MsgBox(0, "deTest", $b )
$Dar = GUICtrlCreateInput($b, 112, 300, 481, 26) ; Decrypt ready
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
EndSwitch
Sleep(1000)
WEnd

[/autoit]

No way, ich habs mal bis auf das reduziert. Aber Maus Bewegung auf $Dar und $Tar stellt immer wieder das alte Ergebnis her und macht ein Benutzen ohne Neustart unmöglich. Ich gebs auf, bin noch zu neu in AutoIT. Wollte zu der Funktion mir auch nur eine passende GUI basteln.

Die Source dazu und Enigma.au3 gibts da ---> http://www.autoitscript.com/forum/topic/12…enigma-machine/ Wär echt super wenns jemand hinbekäme.

tkausl

Was für ein Problem tritt denn noch auf?

PS:

[autoit]

GUICtrlCreateInput($b, 112, 300, 481, 26)

[/autoit]

Du erstellst nach jedem Durchlauf ein neues Inputfeld.
Nach 10 Durchläufen hast du 10 Inputfelder.
Solltest du nicht lieber am anfang eins erstellen und nach den durchläufen neu füllen?

Achja:

Setz mal den Sleep n bisschen runter, 1000 ist eindeutig übertrieben und solltest du nur bei GUIOnEvent-Modus nutzen...
Bei mir klappts ohne dieses hohe sleep ohne Probleme (habs bei mir auf 10 gesetzt)

misterspeed

Hier mal eine überarbeitete Fassung deiner ersten Version mit OnEvent Mode. Um mehr Übersicht reinzubringen wurden nahezu alle Variablen anständig benannt und die GUI Erstellung besser strukturiert. Vielleicht kannst du damit ja etwas anfangen. Einige Dinge würde ich aber rausschmeissen, wenn auch nicht so radikal wie in deiner 2. Version

Spoiler anzeigen

[autoit]

#include <Enigma.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>