Hallo,
habe ein Problem beim Scripten.
Undzwar möchte ich eine Audio-Datei in ein Script einbinden und dieses durch ein Passwort schützen.
Die Datei sollte nach der passwort eingabe in einen temporären ordner exportiert und geöffnet werden und sobald die Datei geschlossen wird, soll der Ordner auch wieder gelöscht werden.
Nur Leider klappt das mit dem von mir erstellten script nicht.
Weiss vllt. einer weiter ?
Danke schonmal.
Hier der Quellcode:
Spoiler anzeigen
$neuesverzeichnis = "C:\Temp\TestOrdner\"
$GUI = GUICreate("Login",210,80,-1,-1,0x16C80000,0x00000181)
$PASSWORD = GUICtrlCreateInput("Password",5,30,200,20,0x21)
$LOGIN = GUICtrlCreateButton("Login",50,55,100,20)
GUISetState(@SW_SHOW,$GUI)
While 1
$MSG = GUIGetMsg()
If $MSG = $LOGIN Then
If GUICtrlRead($PASSWORD) == "Test" Then
MsgBox(0,"Login","You are logged in")
Else
MsgBox(0,"Login","Fehler!")
EndIf
ElseIf $MSG = -3 Then
Exit
EndIf
Sleep(20)
Wend
Func _Func1 ()
WinKill("Login")
DirCreate($neuesverzeichnis)
FileSetAttrib($neuesverzeichnis,"+H")
sleep(10)
If FileExists($neuesverzeichnis) Then MsgBox(8192, "Test", $neuesverzeichnis" wurde angelegt.")
If FileExists($neuesverzeichnis) Then FileInstall ("C:\Dokumente und Einstellungen\Benutzer\Desktop\Audio.mp3", $neuesverzeichnis)
sleep(10)
ShellExecute ($datei)
ProcessWaitClose("Excel.exe")
DirRemove($neuesverzeichnis, 1)
sleep(10)
If FileExists($neuesverzeichnis) Then MsgBox(8192, "Ergebnis:", "Schlecht -.-")
If not FileExists($neuesverzeichnis) Then MsgBox(8192, "Ergebnis:", "Gut :-)")
EndFunc