Hier die Optionen von RegClean:
ZitatAlles anzeigenREGCLEAN: Windows Registry Analysis and Correction Version 4.1-a (7364.0001)
Copyright (C) 1994-1997 by Microsoft Corporation. All rights reserved.USAGE:
REGCLEAN
REGCLEAN [mode] [options]
Mode:
<none> : Standard mode
/A : Automatic (standard mode only, no prompting)
/S : Silent mode (no UI)
/D : Detail mode (full UI)Options:
/? : Display RegClean options
/Help : Display RegClean options/L [file] : Log all activity to file (default is REGCLEAN.LOG)
Script geändert, verwende WinGetText:
Spoiler anzeigen
#include <WindowsConstants.au3>
[/autoit] [autoit][/autoit] [autoit]$ProgressGUI = GUICreate("Form1", 545, 25, -1, -1, $WS_POPUP, $WS_EX_TOOLWINDOW)
$Progress = GUICtrlCreateProgress(0, 0, 545, 25)
GUISetState(@SW_SHOW)
Run(@ScriptDir & "\Tools\regclean\Regclean.exe /S",@ScriptDir & "\Tools\regclean")
[/autoit] [autoit][/autoit] [autoit]Global $ControlText = StringSplit("Loading Component Categories...|Loading Interface Identifiers...|Loading Type Library Identifiers...|Scanning Class Identifiers for errors...|Scanning Type Library Identifiers for errors...|Finished checking. Waiting to Fix Errors.", "|")
[/autoit] [autoit][/autoit] [autoit]For $i = 1 To 6
Do
Sleep(100)
Until WinGetText("Microsoft RegClean", 1013) = $ControlText[$i]
GUICtrlSetData($Progress, $i * 10)
Next
ControlClick("Microsoft RegClean", "", 1009)
[/autoit] [autoit][/autoit] [autoit]Do
Sleep(100)
Until WinGetText("Microsoft RegClean", 1013) = "Saving corrections to the registry..."
GUICtrlSetData($Progress, $Progress + 10)
While WinExists("Microsoft RegClean")
ControlClick("Microsoft RegClean", "", 1008)
WEnd
MsgBox(0, "", "fertig")
[/autoit]