Merge pull request #94 from mlipok/patch-1

RegCleaner.au3 + Register_web2.au3 + Unregister.au3 - modification

Author: ioa747

bin/RegCleaner.au3

@@ -8,10 +8,15 @@
 #include <GuiListView.au3>
 #include <MsgBoxConstants.au3>
 #include <WindowsConstants.au3>
+#include "..\NetWebView2Lib.au3"
+
+Global $_g_s_ELEMENTs = ''
 
 _Cleaner()
 
 Func _Cleaner()
+	ConsoleWrite("! MicrosoftEdgeWebview2 : version check: " & _NetWebView2_IsAlreadyInstalled() & ' ERR=' & @error & ' EXT=' & @extended & @CRLF)
+
 	; === Configuration ===
 	Local $sSearchTerm = "NetWebView2"
 	Local $aTargets[2] = ["HKEY_LOCAL_MACHINE64\SOFTWARE\Classes", "HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Classes"]
@@ -51,6 +56,9 @@ Func _Cleaner()
 		GUICtrlSetData($idStatus, "Scan complete. Found " & $iTotalFound & " keys.")
 	EndIf
 
+	ConsoleWrite($_g_s_ELEMENTs & @CRLF)
+
+
 	While 1
 		Switch GUIGetMsg()
 			Case $GUI_EVENT_CLOSE
@@ -96,7 +104,9 @@ Func __Registry_Scan_Recursive($sKey, $sSearch, $hLV, ByRef $iCount, $idStatus,
 		If StringInStr($sSubKey, $sSearch) Or StringInStr($sData, $sSearch) Then
 			$iCount += 1
 			Local $sDisplayData = ($sData <> "" ? $sData : "Folder/Container")
-			GUICtrlCreateListViewItem($sFull & "|" & $sDisplayData, $hLV)
+			Local $s_ELEMENT = $sFull & "|" & $sDisplayData
+			$_g_s_ELEMENTs &= $sFull & "|" & $sDisplayData & @CRLF
+			GUICtrlCreateListViewItem($s_ELEMENT, $hLV)
 			_GUICtrlListView_SetItemChecked($hLV, _GUICtrlListView_GetItemCount($hLV) - 1)
 		EndIf
 

bin/Register_web2.au3

@@ -5,10 +5,13 @@
 #Tidy_Parameters=/reel
 
 #include <MsgBoxConstants.au3>
+#include "..\NetWebView2Lib.au3"
 
 _Register()
 
 Func _Register()
+	ConsoleWrite("! MicrosoftEdgeWebview2 : version check: " & _NetWebView2_IsAlreadyInstalled() & ' ERR=' & @error & ' EXT=' & @extended & @CRLF)
+
 	; === Configuration ===
 	Local $sDllName = "NetWebView2Lib.dll"
 	Local $sNet4_x86 = "C:\Windows\Microsoft.NET\Framework\v4.0.30319\RegAsm.exe"

bin/Unregister.au3

@@ -5,10 +5,13 @@
 #Tidy_Parameters=/reel
 
 #include <MsgBoxConstants.au3>
+#include "..\NetWebView2Lib.au3"
 
 _Unregister()
 
 Func _Unregister()
+	ConsoleWrite("! MicrosoftEdgeWebview2 : version check: " & _NetWebView2_IsAlreadyInstalled() & ' ERR=' & @error & ' EXT=' & @extended & @CRLF)
+
 	; === Configuration ===
 	Local $sDllName = "NetWebView2Lib.dll"
 	Local $sTlbName = "NetWebView2Lib.tlb"