Zuerstmal das Script
Spoiler anzeigen
#cs Beschreibung
Ich habe hier ein Script, welches ein Passwort abfragt, um den Rest des Scriptes weiter ausführenzukönnen
(Die restliche Ausführung im Script kommt natürlich erst rein, wenn es Fertig ist ;))
#ce
#include
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Passwortabfrage", 338, 188, 193, 125)
$Input1 = GUICtrlCreateInput("", 24, 40, 241, 21,"*")
$Input2 = GUICtrlCreateInput("", 24, 120, 241, 21,"*")
$Button1 = GUICtrlCreateButton("Weiter", 24, 152, 105, 33)
$Button2 = GUICtrlCreateButton("Abbruch", 160, 152, 105, 33)
$Passworteigeben = GUICtrlCreateLabel("Passwort", 24, 8, 109, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Passwortwiederholen = GUICtrlCreateLabel("Passwort wiederholen", 24, 80, 132, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$res1 = $Input1
$res2 = $Input2
;Das Passwort "passwort" ist nur sporadisch gedacht und hat keinerlei Hintergrund
;(diese erstellte .ini-Datei hat ebenso keinerlei Hintergrund....[Das spätere Passwort wird in das kompilierte Script installiert und soll versteckt bleiben, damit man dieses Script nur mit meinem Wissen anwenden kann])
If Not FileExists("pws.ini") Then
IniWrite("pws.ini","Allgemein","PW","passwort")
EndIf
;Halt was wie wo passieren soll......
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Input1
If IniRead("pws.ini","Allgemein","PW","passwort") <> $res1 Then
GUICtrlCreatePic("C:\Users\User\Pictures\Icons für AutoIT\kreuz.jpg", 272, 32, 41, 33)
ElseIf IniRead("pws.ini","Allgemein","PW","passwort") = $res1 Then
GUICtrlCreatePic("C:\Users\User\Pictures\Icons für AutoIT\richtig-haken.jpg", 272, 32, 41, 33)
EndIf
Case $Input2
If IniRead("pws.ini","Allgemein","PW","passwort") = $res2 Then
GUICtrlCreatePic("C:\Users\User\Pictures\Icons für AutoIT\richtig-haken.jpg", 272, 112, 41, 41)
ElseIf IniRead("pws.ini","Allgemein","PW","passwort") <> $res2 Then
GUICtrlCreatePic("C:\Users\User\Pictures\Icons für AutoIT\kreuz.jpg", 272, 112, 41, 41)
EndIf
Case $Button1
WinClose("Passwortabfrage")
If $Input1 & $Input2 <> IniRead("pws.ini","Allgemein","PW","passwort") Then Exit
Case $Button2
Exit
EndSwitch
WEnd
;Natürlich ist dies auch sporadisch gedacht
MsgBox(64,"","Es hat funktioniert")
#cs
Koords der Pics für Gleichstellung beider Bilder pro Pictureanweisung
GUICtrlCreatePic("C:\Users\User\Pictures\Icons für AutoIT\kreuz.jpg", 272, 32, 41, 33)
GUICtrlCreatePic("C:\Users\User\Pictures\Icons für AutoIT\richtig-haken.jpg", 272, 112, 41, 41)
#ce
Hier die Bilderlinks
Spoiler anzeigen
http://sam.marketing-trendinformationen.de/mut/lgl/003/haken-check.jpg
http://madeonapc.de/wp-content/the…-2010/kreuz.png
Das 2. bitte vorher in eine Andere Bilddatei umwandeln
Ich wollte eigentlich eine Passwortsicherung für bestimmte Scripte, damit nicht jeder Zugriff darauf hat, aber es wirft mi Probleme auf:
1. Die Pictures werden nicht richtig angewannt, wenn das Passwort mit der ini.Datei übereinstimmt
2. Um das Script fortzusetzten, muss der Butten "Weiter" gedrückt werden. Es soll aber nur dann vortgeführt werden, wenn die Passwörter mit dem aus der ini.Datei und der Inputboxen übereinstimmen.(Die Überprüfungen unter den Input-Variablen sollen nur für die Pictures zuständig sein, welche bei Richtig oder Falsch zugeordnet und verwendet werden sollen)
3. Hinzu zeigt mir die Ausführungskontrolle einen Fehler an, wenn ich eine weitere Func unter den Button "Abbruch" setzte.(Diese soll über den Button "A" auf der Tastatur funktionieren)
Dann hätt ich noch die bitte, mir den Verlauf einer Passwortverschlüsselung in bzw für die .ini-Datei(diese Verschüsselung mit MDL5hash oder so...) oder der Verschlüsselung der .ini-Datei unter Eigenschaften --> Attribute --> Erweitert --> Datei verschlüssen(wird bei mir als grau abgestuft und daher kann ch diese nicht aktivieren. Ich wüsste halt gern, woran das liegen könnte)
Gruß
(Sry wenn es etwas unverständlich ausgedrückt sein sollte)