Merge pull request #113 from ioa747/updating---frame-examples

Updating   frame examples

Author: ioa747

NetWebView2Lib.au3

@@ -6,7 +6,7 @@
 
 #Tidy_Parameters=/tcb=-1
 
-; NetWebView2Lib.au3 - Script Version: 2026.2.23.9 🚩
+; NetWebView2Lib.au3 - Script Version: 2026.2.25.11 🚩
 
 #include <Array.au3>
 #include <GUIConstantsEx.au3>
@@ -1030,6 +1030,46 @@ Volatile Func _NetWebView2_SilentErrorHandler($oError)
 	$oError = 0 ; Explicitly release the COM reference inside the volatile scopeEndFunc
 EndFunc   ;==>_NetWebView2_SilentErrorHandler
 
+; #FUNCTION# ====================================================================================================================
+; Name...........: _WebView2_FrameGetHtmlSource
+; Description....: Synchronously retrieves the full HTML source of a frame.
+; Syntax.........: _WebView2_FrameGetHtmlSource($oFrame)
+; Parameters.....: $oFrame - The WebView2Frame object.
+; Return values..: Success - Clean HTML string.
+;                  Failure - Sets @error and returns empty string.
+; Author ........: ioa747
+; Modified ......:
+; Remarks .......:
+; Related .......:
+; Link ..........:
+; Example .......: No
+; ===============================================================================================================================
+Func _WebView2_FrameGetHtmlSource($oFrame)
+	If Not IsObj($oFrame) Then Return SetError(1, 0, "")
+
+	; Execute script synchronously
+	Local $sRaw = $oFrame.ExecuteScriptWithResult("document.documentElement.outerHTML")
+
+	; Basic validation
+	If $sRaw = "null" Or $sRaw = "" Then Return ""
+	If StringLeft($sRaw, 6) = "ERROR:" Then Return SetError(2, 0, "")
+
+	; Pre-process: Strip the mandatory JSON quotes BEFORE unescaping.
+	; This prevents the C# Parser from "double-wrapping" the string.
+	If StringLeft($sRaw, 1) = '"' And StringRight($sRaw, 1) = '"' Then
+		$sRaw = StringMid($sRaw, 2, StringLen($sRaw) - 2)
+	EndIf
+
+	; Initialize Parser from the library
+	Local $oJson = _NetJson_CreateParser()
+	If @error Then Return SetError(3, 0, "")
+
+	; Use the Parser's UnescapeString to handle all escapes (\uXXXX, \n, \", etc.)
+	Local $sClean = $oJson.UnescapeString($sRaw)
+
+	Return $sClean
+EndFunc   ;==>_WebView2_FrameGetHtmlSource
+
 #EndRegion ; New Core Method Wrappers
 
 #Region ; NetWebView2Lib UDF - _NetJson_* functions
@@ -2354,3 +2394,5 @@ EndFunc   ;==>__NetWebView2_Events__OnFrameWebMessageReceived
 
 #EndRegion ; === NetWebView2Lib UDF === EVENT HANDLERS ===
 
+
+

examples/006-DownloadDemo.au3

@@ -148,69 +148,3 @@ Volatile Func __UserEventHandler__OnAcceleratorKeyPressed($oWebV2M, $hGUI, $oArg
 
 	$oArgs = 0 ; Explicitly release the COM reference inside the volatile scope
 EndFunc   ;==>__UserEventHandler__OnAcceleratorKeyPressed
-
-; Advise using 'Volatile' for Event Handlers to ensure the WebView2 COM thread can interrupt the main script safely.
-Volatile Func __UserEventHandler__OnAcceleratorKeyPressed00($oWebV2M, $hGUI, $oArgs)
-	Local Const $sArgsList = '[VirtualKey=' & $oArgs.VirtualKey & _ ; The VK code of the key.
-			'; KeyEventKind=' & $oArgs.KeyEventKind & _             ; Type of key event (Down, Up, etc.).
-			'; Handled=' & $oArgs.Handled & _                       ; Set to `True` to stop the browser from processing the key.
-			'; RepeatCount=' & $oArgs.RepeatCount & _               ; The number of times the key has repeated.
-			'; ScanCode=' & $oArgs.ScanCode & _                     ; Hardware scan code.
-			'; IsExtendedKey=' & $oArgs.IsExtendedKey & _           ; True if it's an extended key (e.g., right Alt).
-			'; IsMenuKeyDown=' & $oArgs.IsMenuKeyDown & _           ; True if Alt is pressed.
-			'; WasKeyDown=' & $oArgs.WasKeyDown & _                 ; True if the key was already down.
-			'; IsKeyReleased=' & $oArgs.IsKeyReleased & _           ; True if the event is a key up.
-			'; KeyEventLParam=' & $oArgs.KeyEventLParam & ']'       ; Gets the LPARAM value that accompanied the window message.
-
-
-	Local Const $s_Prefix = "[USER:EVENT: OnAcceleratorKeyPressed]:: GUI:" & $hGUI & " ARGS: " & ((IsObj($oArgs)) ? ($sArgsList) : ('ERRROR'))
-
-;~  public uint VirtualKey { get; }
-;~  public int KeyEventLParam { get; }
-;~  public int KeyEventKind { get; }
-;~
-;~  public uint RepeatCount { get; }
-;~  public uint ScanCode { get; }
-;~  public bool IsExtendedKey { get; }
-;~  public bool IsMenuKeyDown { get; }
-;~  public bool WasKeyDown { get; }
-;~  public bool IsKeyReleased { get; }
-
-;~ 	https://learn.microsoft.com/en-us/dotnet/api/microsoft.web.webview2.core.corewebview2acceleratorkeypressedeventargs?view=webview2-dotnet-1.0.705.50
-;~ 	ConsoleWrite($oArgs.Handled & @CRLF) ; Indicates whether the AcceleratorKeyPressed event is handled by host.
-;~ 	ConsoleWrite($oArgs.KeyEventKind & @CRLF) ; Gets the key event kind that caused the event to run
-;~ 	ConsoleWrite($oArgs.KeyEventLParam & @CRLF) ; Gets the LPARAM value that accompanied the window message.
-;~ 	ConsoleWrite('>> PhysicalKeyStatus=' & $oArgs.PhysicalKeyStatus & @CRLF) ; Gets a CoreWebView2PhysicalKeyStatus representing the information passed in the LPARAM of the window message. ==> ; https://learn.microsoft.com/en-us/dotnet/api/microsoft.web.webview2.core.corewebview2physicalkeystatus?view=webview2-dotnet-1.0.705.50
-;~ 	ConsoleWrite($oArgs.VirtualKey & @CRLF) ; Gets the Win32 virtual key code of the key that was pressed or released.
-
-;~ 	If $oArgs.VirtualKey = 27 Then ; ESC 27 1b 033 Escape, next character is not echoed ; https://www.autoitscript.com/autoit3/docs/appendix/ascii.htm
-;~ 		$oWebV2M.CancelDownloads($_sURLDownload_InProgress)
-;~ 	EndIf
-
-	; Example of checking specific keys
-	Switch $oArgs.VirtualKey
-		Case Int($VK_F7)
-			ConsoleWrite("! Blocked: F7 caret browsing." & @CRLF)
-			$oArgs.Handled = True
-
-		Case Int($VK_N)
-			; Check if Ctrl is pressed (using IsMenuKeyDown if it concerns Alt or WinAPI for Ctrl)
-			; If we want to block Ctrl+N (New Window)
-			If _IsPressed("11") Then ; Need Misc.au3 for _IsPressed
-				ConsoleWrite("! Blocked: Ctrl+N shortcut." & @CRLF)
-				$oArgs.Handled = True
-
-			EndIf
-
-		Case Int($VK_ESCAPE) ; ESC 27 1b 033 Escape, next character is not echoed ; https://www.autoitscript.com/autoit3/docs/appendix/ascii.htm
-			; Cancels active downloads. If `uri` is empty or omitted, cancels all active downloads.
-			$oWebV2M.CancelDownloads()
-
-	EndSwitch
-
-	__NetWebView2_Log(@ScriptLineNumber, $s_Prefix, 0)
-	$oArgs = 0 ; Explicitly release the COM reference inside the volatile scopeEndFunc
-
-EndFunc   ;==>__UserEventHandler__OnAcceleratorKeyPressed00
-
-

examples/018-BasicFramesDemo.au3

@@ -1,4 +1,3 @@
-#WIP - this Example is imported from 1.5.0 UDF - and is in "WORK IN PROGRESS" state
 #AutoIt3Wrapper_UseX64=y
 #AutoIt3Wrapper_Run_AU3Check=Y
 #AutoIt3Wrapper_AU3Check_Stop_OnWarning=y
@@ -28,11 +27,11 @@ Func Main()
 
 	; Initialize WebView2 Manager and register events
 	Local $oWebV2M = _NetWebView2_CreateManager("Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/144.0.0.0 Safari/537.36 Edg/144.0.0.0", _
-			"MyHook_", "--disable-gpu, --mute-audio")
+			"", "--disable-gpu, --mute-audio")
 	If @error Then Return SetError(@error, @extended, $oWebV2M)
 
 	; Initialize JavaScript Bridge
-	Local $oJSBridge = _NetWebView2_GetBridge($oWebV2M, "_BridgeMyEventsHandler_")
+	Local $oJSBridge = _NetWebView2_GetBridge($oWebV2M, "")
 	If @error Then Return SetError(@error, @extended, $oWebV2M)
 
 	Local $sProfileDirectory = @ScriptDir & "\NetWebView2Lib-UserDataFolder"
@@ -81,9 +80,12 @@ Func Main()
 
 	#Region ; Example part 3 - testing NetWebView2Lib methodes .GetFrameHtmlSource($IDX_Frame)
 	ConsoleWrite("+ Example part 3 - testing NetWebView2Lib methodes .GetFrameHtmlSource($IDX_Frame)" & @CRLF)
+	Local $oFrame, $sHtmlSource
 	For $IDX_Frame = 0 To $iFrameCount - 1
+		$oFrame = $oWebV2M.GetFrame($IDX_Frame)
+		$sHtmlSource = _WebView2_FrameGetHtmlSource($oFrame)
+		If @error Then ContinueLoop
 		ConsoleWrite(@CRLF & "======================================================" & @CRLF)
-		Local $sHtmlSource = Fire_And_Wait($oWebV2M.GetFrameHtmlSource($IDX_Frame), 5000) ; pair with "FRAME_HTML_SOURCE"
 		ConsoleWrite("! " & @ScriptLineNumber & " : GetFrameHtmlSource(" & $IDX_Frame & ") :" & @CRLF & $sHtmlSource & @CRLF)
 	Next
 	ConsoleWrite(@CRLF & "======================================================" & @CRLF)
@@ -181,92 +183,24 @@ Func _NetWebView2_GetAllFrames_AsArray($oWebV2M)
 	Local $aFrames[$iFrameCount][$FRAME__COUNTER]
 	Local $oFrame
 	For $IDX_Frame = 0 To $iFrameCount - 1
+
 		$oFrame = $oWebV2M.GetFrame($IDX_Frame)
+		If Not IsObj($oFrame) Then ContinueLoop
+
 		$aFrames[$IDX_Frame][$FRAME_IDX] = $IDX_Frame
 		$aFrames[$IDX_Frame][$FRAME_OBJECT] = $oFrame
 		$aFrames[$IDX_Frame][$FRAME_ID] = $oFrame.FrameId
 		$aFrames[$IDX_Frame][$FRAME_NAME] = $oFrame.Name
 		$aFrames[$IDX_Frame][$FRAME_URL] = $oFrame.Source
-		$aFrames[$IDX_Frame][$FRAME_DESTROYED] = $oFrame.IsDestroyed()
-		$aFrames[$IDX_Frame][$FRAME_HTML] = Fire_And_Wait($oWebV2M.GetFrameHtmlSource($IDX_Frame), 5000)
+		$aFrames[$IDX_Frame][$FRAME_DESTROYED] = $oFrame.IsDestroyed ;()
+		$aFrames[$IDX_Frame][$FRAME_HTML] = _WebView2_FrameGetHtmlSource($oFrame)
 	Next
 	Return $aFrames
 EndFunc   ;==>_NetWebView2_GetAllFrames_AsArray
 
-; ==============================================================================
-; MyHook_ Events
-; ==============================================================================
-Func MyHook_OnMessageReceived($oWebV2M, $hGUI, $sMsg)
-	#forceref $oWebV2M, $hGUI
-	ConsoleWrite("> [MyHook] OnMessageReceived: GUI:" & $hGUI & " Msg: " & (StringLen($sMsg) > 30 ? StringLeft($sMsg, 30) & "..." : $sMsg) & @CRLF)
-	Local $iSplitPos = StringInStr($sMsg, "|")
-	Local $sCommand = $iSplitPos ? StringStripWS(StringLeft($sMsg, $iSplitPos - 1), 3) : $sMsg
-	Local $sData = $iSplitPos ? StringTrimLeft($sMsg, $iSplitPos) : ""
-;~ 	Local $aParts
-
-	Switch $sCommand
-		Case "INIT_READY"
-
-		Case "FRAME_HTML_SOURCE"
-			$iSplitPos = StringInStr($sData, "|")
-			Local $sIDX = StringLeft($sData, $iSplitPos - 1)
-			ConsoleWrite(" >> $sIDX=" & $sIDX & @CRLF)
-			Local $sHtmlSource = StringTrimLeft($sData, $iSplitPos)
-			If $sHtmlSource = "null" Then $sHtmlSource = "!! <Inaccessible>"
-			Fire_And_Wait($sHtmlSource)
-	EndSwitch
-EndFunc   ;==>MyHook_OnMessageReceived
-
 Func __Example_Log($s_ScriptLineNumber, $sString, $iError = @error, $iExtended = @extended)
 	ConsoleWrite(@ScriptName & ' SLN=' & $s_ScriptLineNumber & ' [' & $iError & '/' & $iExtended & '] ::: ' & $sString & @CRLF)
 	Return SetError($iError, $iExtended, '')
 EndFunc   ;==>__Example_Log
 
-; #FUNCTION# ====================================================================================================================
-; Name...........: Fire_And_Wait
-; Description....: Synchronizes asynchronous events by waiting for a response or a timeout.
-; Syntax.........: Fire_And_Wait([$sData = "" [, $iTimeout = 5000]])
-; Parameters.....: $sData     - [Optional] Data string.
-;                               If provided: Acts as a "Signal" (setter) from the Event Handler.
-;                               If empty: Acts as a "Listener" (getter) from the Main Script.
-;                  $iTimeout  - [Optional] Maximum wait time in milliseconds (Default is 5000ms).
-; Return values..: Success    - Returns the stored data string.
-;                               Sets @extended to the duration of the wait in ms.
-;                  Failure    - Returns an empty string and sets @error:
-;                               |1 - Timeout reached.
-; Author.........: YourName
-; Modified.......: 2026-02-23
-; Remarks........: This function uses static variables to bridge the gap between async COM events and sync script execution.
-;                  It effectively pauses the script execution until the WebView2 event fires back with data.
-; ===============================================================================================================================
-
-Func Fire_And_Wait($sData = "", $iTimeout = 5000)
-	Local Static $vStoredData = ""
-	Local Static $hJobTimer = 0
-
-	; === Part A: Response (From Event Handler) ===
-	If $sData <> "" Then
-		$vStoredData = $sData
-		Return True
-	EndIf
-
-	; === Part B: Fire and Wait (From Main Script) ===
-	$vStoredData = ""
-	$hJobTimer = TimerInit()
-
-	While $vStoredData = ""
-		If TimerDiff($hJobTimer) > $iTimeout Then
-			ConsoleWrite("! Fire_And_Wait | TIMEOUT after " & Round(TimerDiff($hJobTimer), 2) & " ms" & @CRLF)
-			Return SetError(1, 0, "")
-		EndIf
-		Sleep(10)
-	WEnd
-
-	Local $fDuration = TimerDiff($hJobTimer)
-	Local $vResult = $vStoredData
-	$vStoredData = "" ; Reset for next use
-
-	ConsoleWrite("> Fire_And_Wait | Duration: " & Round($fDuration, 0) & " ms | Status: SUCCESS" & @CRLF)
 
-	Return SetError(0, Int($fDuration), $vResult)
-EndFunc   ;==>Fire_And_Wait