Skip to content

Update RegCleaner.au3 #20

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
ioa747 merged 6 commits into from
Jan 21, 2026
Merged

Update RegCleaner.au3 #20

Changes from all commits
Commits
Show all changes
6 commits
Select commit Hold shift + click to select a range
4354c21
Update RegCleaner.au3
mlipok Jan 21, 2026
17e6bae
Update RegCleaner.au3
mlipok Jan 21, 2026
166acd2
Update RegCleaner.au3
mlipok Jan 21, 2026
e04ee51
Update RegCleaner.au3
mlipok Jan 21, 2026
d584bca
$idBtnCancel better support
mlipok Jan 21, 2026
313c51e
Update RegCleaner.au3
mlipok Jan 21, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
187 changes: 106 additions & 81 deletions bin/RegCleaner.au3
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,97 +1,122 @@
#RequireAdmin
#AutoIt3Wrapper_Run_AU3Check=Y
#AutoIt3Wrapper_AU3Check_Stop_OnWarning=y
#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7
#Tidy_Parameters=/reel

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <MsgBoxConstants.au3>
#include <WindowsConstants.au3>

_Cleaner()

Func _Cleaner()
; === Configuration ===
Local $sSearchTerm = "NetWebView2"
Local $aTargets[2] = ["HKEY_LOCAL_MACHINE64\SOFTWARE\Classes", "HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Classes"]

; GUICreate
Local $iWidth = @DesktopWidth * 0.7, $iHeight = @DesktopHeight * 0.9
Local $hGUI = GUICreate("NetWebView2 - Registry Deep Cleaner", $iWidth, $iHeight)
#forceref $hGUI

GUISetFont(9, 400, 0, "Segoe UI")
$iWidth -= 20
$iHeight -= 90
Local $idListView = GUICtrlCreateListView("Registry Key Path|Details", 10, 10, $iWidth, $iHeight, $LVS_REPORT + $LVS_SHOWSELALWAYS)
_GUICtrlListView_SetExtendedListViewStyle($idListView, BitOR($LVS_EX_CHECKBOXES, $LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES))
_GUICtrlListView_SetColumnWidth($idListView, 0, $iWidth * 0.6)
_GUICtrlListView_SetColumnWidth($idListView, 1, $iWidth * 0.4)
$iHeight += 20
Local $idStatus = GUICtrlCreateLabel("Scanning registry... please wait...", 10, $iHeight, $iWidth - 210 - 10, 20)
$iHeight += 20
Local $idBtnCancel = GUICtrlCreateButton("Cancel", $iWidth - 100, $iHeight, 100, 40)
Local $idBtnDelete = GUICtrlCreateButton("Delete Selected", $iWidth - 210, $iHeight, 100, 40)
GUISetState(@SW_SHOW)

; Scan
Local $iTotalFound = 0
Local $bCanceled = False
For $sRoot In $aTargets
__Registry_Scan_Recursive($sRoot, $sSearchTerm, $idListView, $iTotalFound, $idStatus, $idBtnCancel)
If @error Then
$bCanceled = True
ExitLoop
EndIf
Next
If $bCanceled = True Then
GUICtrlSetData($idStatus, "Scan canceled. Found " & $iTotalFound & " keys.")
Else
GUICtrlSetData($idStatus, "Scan complete. Found " & $iTotalFound & " keys.")
EndIf

; === Configuration ===
Local $sSearchTerm = "NetWebView2"
Local $aTargets[2] = ["HKEY_LOCAL_MACHINE64\SOFTWARE\Classes", "HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Classes"]

; GUICreate
Local $iWidth = @DesktopWidth * 0.7 , $iHeight = @DesktopHeight * 0.9
Local $hGUI = GUICreate("NetWebView2 - Registry Deep Cleaner", $iWidth, $iHeight)
GUISetFont(9, 400, 0, "Segoe UI")
$iWidth -= 20
$iHeight -= 90
Local $idListView = GUICtrlCreateListView("Registry Key Path|Details", 10, 10, $iWidth, $iHeight, $LVS_REPORT + $LVS_SHOWSELALWAYS)
_GUICtrlListView_SetExtendedListViewStyle($idListView, BitOR($LVS_EX_CHECKBOXES, $LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES))
_GUICtrlListView_SetColumnWidth($idListView, 0, $iWidth * 0.6)
_GUICtrlListView_SetColumnWidth($idListView, 1, $iWidth * 0.4)
$iHeight += 20
Local $idStatus = GUICtrlCreateLabel("Scanning registry... please wait...", 10, $iHeight, $iWidth - 210 - 10, 20)
$iHeight += 20
Local $idBtnCancel = GUICtrlCreateButton("Cancel", $iWidth - 100, $iHeight, 100, 40)
Local $idBtnDelete = GUICtrlCreateButton("Delete Selected", $iWidth - 210, $iHeight, 100, 40)
GUISetState(@SW_SHOW)

; Scan
Local $iTotalFound = 0
For $sRoot In $aTargets
_Registry_Scan_Recursive($sRoot, $sSearchTerm, $idListView, $iTotalFound)
Next
GUICtrlSetData($idStatus, "Scan complete. Found " & $iTotalFound & " keys.")

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $idBtnCancel
Exit

Case $idBtnDelete
Local $iCheckedCount = 0
; Count checked items first
For $i = 0 To _GUICtrlListView_GetItemCount($idListView) - 1
If _GUICtrlListView_GetItemChecked($idListView, $i) Then $iCheckedCount += 1
Next

If $iCheckedCount = 0 Then
MsgBox($MB_ICONEXCLAMATION, "Nothing selected", "Please check the keys you want to remove.")
ContinueLoop
EndIf

If MsgBox($MB_YESNO + $MB_ICONWARNING, "Confirm Deletion", "Are you sure you want to delete the " & $iCheckedCount & " selected keys?") = $IDYES Then
_Delete_Checked_Items($idListView)
MsgBox($MB_ICONINFORMATION, "Done", "Cleanup finished successfully.")
Exit
EndIf
EndSwitch
WEnd
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit

Case $idBtnDelete
Local $iCheckedCount = 0
; Count checked items first
For $i = 0 To _GUICtrlListView_GetItemCount($idListView) - 1
If _GUICtrlListView_GetItemChecked($idListView, $i) Then $iCheckedCount += 1
Next

If $iCheckedCount = 0 Then
MsgBox($MB_ICONEXCLAMATION, "Nothing selected", "Please check the keys you want to remove.")
ContinueLoop
EndIf

If MsgBox($MB_YESNO + $MB_ICONWARNING, "Confirm Deletion", "Are you sure you want to delete the " & $iCheckedCount & " selected keys?") = $IDYES Then
__Delete_Checked_Items($idListView)
MsgBox($MB_ICONINFORMATION, "Done", "Cleanup finished successfully.")
Exit
EndIf
EndSwitch
WEnd

EndFunc ;==>_Cleaner

;---------------------------------------------------------------------------------------
Func _Registry_Scan_Recursive($sKey, $sSearch, $hLV, ByRef $iCount)
Local $iIndex = 1
While 1
Local $sSubKey = RegEnumKey($sKey, $iIndex)
If @error Then ExitLoop
Func __Registry_Scan_Recursive($sKey, $sSearch, $hLV, ByRef $iCount, $idStatus, $idBtnCancel)
Local $iIndex = 1
While 1
Local $sSubKey = RegEnumKey($sKey, $iIndex)
If @error Then ExitLoop

If Mod($iIndex, 100) = 0 Then
GUICtrlSetData($idStatus, "Scanning: " & $iIndex & " keys in " & StringLeft($sKey, 40) & "...")
If GUIGetMsg() = $idBtnCancel Then Return SetError(1)
EndIf

Local $sFull = $sKey & "\" & $sSubKey
Local $sData = RegRead($sFull, "")
Local $sFull = $sKey & "\" & $sSubKey
Local $sData = RegRead($sFull, "")

If StringInStr($sSubKey, $sSearch) Or StringInStr($sData, $sSearch) Then
$iCount += 1
Local $sDisplayData = ($sData <> "" ? $sData : "Folder/Container")
GUICtrlCreateListViewItem($sFull & "|" & $sDisplayData, $hLV)
_GUICtrlListView_SetItemChecked($hLV, _GUICtrlListView_GetItemCount($hLV) - 1)
EndIf
If StringInStr($sSubKey, $sSearch) Or StringInStr($sData, $sSearch) Then
$iCount += 1
Local $sDisplayData = ($sData <> "" ? $sData : "Folder/Container")
GUICtrlCreateListViewItem($sFull & "|" & $sDisplayData, $hLV)
_GUICtrlListView_SetItemChecked($hLV, _GUICtrlListView_GetItemCount($hLV) - 1)
EndIf

__Registry_Scan_Recursive($sFull, $sSearch, $hLV, $iCount, $idStatus, $idBtnCancel)
If @error Then Return SetError(1)

$iIndex += 1
WEnd
EndFunc ;==>__Registry_Scan_Recursive

_Registry_Scan_Recursive($sFull, $sSearch, $hLV, $iCount)
$iIndex += 1
WEnd
EndFunc
;---------------------------------------------------------------------------------------
Func _Delete_Checked_Items($hLV)
; backwards deletion to avoid index shifting
For $i = _GUICtrlListView_GetItemCount($hLV) - 1 To 0 Step -1
If _GUICtrlListView_GetItemChecked($hLV, $i) Then
Local $sKeyPath = _GUICtrlListView_GetItemText($hLV, $i)
If RegDelete($sKeyPath) Then
ConsoleWrite("[-] Deleted: " & $sKeyPath & @CRLF)
EndIf
EndIf
Next
EndFunc
Func __Delete_Checked_Items($hLV)
; backwards deletion to avoid index shifting
For $i = _GUICtrlListView_GetItemCount($hLV) - 1 To 0 Step -1
If _GUICtrlListView_GetItemChecked($hLV, $i) Then
Local $sKeyPath = _GUICtrlListView_GetItemText($hLV, $i)
If RegDelete($sKeyPath) Then
ConsoleWrite("[-] Deleted: " & $sKeyPath & @CRLF)
EndIf
EndIf
Next
EndFunc ;==>__Delete_Checked_Items
;---------------------------------------------------------------------------------------