hallo
habe oben genanntes prob und egal was ich mache er sagt immer das die reg nicht ausgeführt werden kann bzw zeile 16 nicht stimmig ist.
helft mir bitte.
Spoiler anzeigen
Code
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.1.1 (beta)
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
;~ Optionen setzen
Opt("WinTitleMatchMode", 2)
Opt("SendKeyDelay", 100)
$neustart = @ScriptDir & "\neustart.txt" ;Nachdem Rebootet wurde
If FileExists($neustart) Then ;Das ließt er ein wenn der PC rebootet hat!
$fso = FileOpen($neustart,0)
$value = FileReadLine($fso)
FileClose($fso)
FileDelete($neustart)
FileDelete(@StartupDir & "\autoitscriptneustart.lnk")
Switch $value
Case "Nachneustart1"
Nachneustart1()
Case Else
EXIT 5
EndSwitch
Else
Main()
EndIf
Exit
;Ändern der UAC!
Dim $AUS = 0x00000000
Dim $EIN = 0x00000001
Func Main() ;Das wird die Neustartdatei nachdem die Regestry umgestellt und die Messagebox ein ok gibt!
RegWrite ("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System", "EnableLUA", "REG_DWORD", $AUS) Then ;Regestrycode zum ändern der UAC!
$result = msgbox ("48","Message","Achtung! Es wird Neugestartet") ;Bei Bestätigung der MSG wird eine neustartdatei geschrieben!
If $result = 1 Then
CreateRestart("Nachneustart1")
Send("{ENTER}")
$Ergebnis1 = $result - 1
If $Ergebnis1 = 0 then Main2 ()
Exit 0
EndIf
EndFunc
; Hier wird der RestartPrüfpunkt gesetzt
Func CreateRestart($Nachneustart1)
$fso = FileOpen($neustart,2)
FileWriteLine($fso,$Nachneustart1)
FileClose($fso)
FileCreateShortcut(@ScriptFullPath,@StartupDir & "\autoitscriptneustart.lnk",@ScriptDir)
EndFunc
Dim $search = FileExists(@StartupDir & "\autoitscriptneustart.lnk")
; Prüfen, ob die Datei in autostart gepackt wurde!
Func Main2()
Sleep(3000)
If $search = -1 Then
MsgBox(0, "Fehler", "Es wurden keine Dateien/Verzeichnisse gefunden, die zu dem Suchmuster passen")
Exit
EndIf
While 1
$file = FileExists($search)
If @error Then ExitLoop
Shutdown (2)
MsgBox(4096, "Gefunden!", $file)
WEnd
; Handle für Suche schliessen
FileClose($search)
Endfunc
Func Nachneustart1() ;Was der PC nach dem Reboot machen soll!
If ControlShow ("Trayclockwclass","",303) Then
sleep(6000)
Run ("notepad.exe")
endif
Exit 0
EndFunc
