Update 018-BasicFramesDemo.au3

Author: mlipok

examples/018-BasicFramesDemo.au3

@@ -52,12 +52,12 @@ Func Main()
 	#Region - Testing how to manage frames
 
 	_NetWebView2_Navigate($oWebV2M, 'https://www.w3schools.com/tags/tryit.asp?filename=tryhtml_iframe', $NETWEBVIEW2_MESSAGE__TITLE_CHANGED, "", 5000)
-	MsgBox($MB_TOPMOST, "TEST #" & @ScriptLineNumber, 1)
+	MsgBox($MB_TOPMOST, "TEST #" & @ScriptLineNumber, 'Wait till all frames are loaded')
 ;~ 	_Demo_NavigateCheckBanner($sSession, "https://www.w3schools.com/tags/tryit.asp?filename=tryhtml_iframe", '//*[@id="snigel-cmp-framework" and @class="snigel-cmp-framework"]')
 	If @error Then Return SetError(@error, @extended)
 
-	#Region ; Example part 1 - testing NetWebView2Lib new methodes: .GetFrameCount() .GetFrameUrl($IDX_Frame) .GetFrameName($IDX_Frame)
-	ConsoleWrite("+ Example part 1 - testing NetWebView2Lib new methodes: .GetFrameCount() .GetFrameUrl($IDX_Frame) .GetFrameName($IDX_Frame)" & @CRLF)
+	#Region ; Example part 1 - testing NetWebView2Lib methodes: .GetFrameCount() .GetFrameUrl($IDX_Frame) .GetFrameName($IDX_Frame)
+	ConsoleWrite("+ Example part 1 - testing NetWebView2Lib methodes: .GetFrameCount() .GetFrameUrl($IDX_Frame) .GetFrameName($IDX_Frame)" & @CRLF)
 
 	Local $iFrameCount = $oWebV2M.GetFrameCount()
 	ConsoleWrite(@CRLF)
@@ -68,17 +68,19 @@ Func Main()
 		ConsoleWrite("- NAME=" & $oWebV2M.GetFrameName($IDX_Frame) & @CRLF)
 		ConsoleWrite(@CRLF)
 	Next
-	#EndRegion ; Example part 1 - testing NetWebView2Lib new methodes: .GetFrameCount() .GetFrameUrl($IDX_Frame) .GetFrameName($IDX_Frame)
+	MsgBox($MB_TOPMOST, "TEST #" & @ScriptLineNumber, 'Example part 1 - testing NetWebView2Lib methodes: ' & @CRLF & '.GetFrameCount() .GetFrameUrl($IDX_Frame) .GetFrameName($IDX_Frame)' & @CRLF & 'End')
+	#EndRegion ; Example part 1 - testing NetWebView2Lib methodes: .GetFrameCount() .GetFrameUrl($IDX_Frame) .GetFrameName($IDX_Frame)
 
-	#Region ; Example part 2 - testing NetWebView2Lib new methodes: .GetFrameCount() .GetFrameUrl($IDX_Frame) .GetFrameName($IDX_Frame)
-	ConsoleWrite("+ Example part 2 - testing NetWebView2Lib new methodes: .GetFrameCount() .GetFrameUrl($IDX_Frame) .GetFrameName($IDX_Frame)" & @CRLF)
+	#Region ; Example part 2 - testing NetWebView2Lib methodes: .GetFrameCount() .GetFrameUrl($IDX_Frame) .GetFrameName($IDX_Frame)
+	ConsoleWrite("+ Example part 2 - testing NetWebView2Lib methodes: .GetFrameCount() .GetFrameUrl($IDX_Frame) .GetFrameName($IDX_Frame)" & @CRLF)
 
 	ConsoleWrite("! " & @ScriptLineNumber & " : GetFrameUrls() :" & @CRLF & $oWebV2M.GetFrameUrls() & @CRLF)
 	ConsoleWrite("! " & @ScriptLineNumber & " : GetFrameNames() :" & @CRLF & $oWebV2M.GetFrameNames() & @CRLF)
-	#EndRegion ; Example part 2 - testing NetWebView2Lib new methodes: .GetFrameCount() .GetFrameUrl($IDX_Frame) .GetFrameName($IDX_Frame)
+	MsgBox($MB_TOPMOST, "TEST #" & @ScriptLineNumber, 'Example part 2 - testing NetWebView2Lib methodes:' & @CRLF & '.GetFrameCount() .GetFrameUrl($IDX_Frame) .GetFrameName($IDX_Frame)' & @CRLF & 'End')
+	#EndRegion ; Example part 2 - testing NetWebView2Lib methodes: .GetFrameCount() .GetFrameUrl($IDX_Frame) .GetFrameName($IDX_Frame)
 
-	#Region ; Example part 3 - testing NetWebView2Lib new methodes .GetFrameHtmlSource($IDX_Frame)
-	ConsoleWrite("+ Example part 3 - testing NetWebView2Lib new methodes .GetFrameHtmlSource($IDX_Frame)" & @CRLF)
+	#Region ; Example part 3 - testing NetWebView2Lib methodes .GetFrameHtmlSource($IDX_Frame)
+	ConsoleWrite("+ Example part 3 - testing NetWebView2Lib methodes .GetFrameHtmlSource($IDX_Frame)" & @CRLF)
 	For $IDX_Frame = 0 To $iFrameCount - 1
 		ConsoleWrite(@CRLF & "======================================================" & @CRLF)
 		Local $sHtmlSource = Fire_And_Wait($oWebV2M.GetFrameHtmlSource($IDX_Frame), 5000) ; pair with "FRAME_HTML_SOURCE"
@@ -87,8 +89,8 @@ Func Main()
 	ConsoleWrite(@CRLF & "======================================================" & @CRLF)
 	ConsoleWrite(@CRLF)
 	ConsoleWrite(@CRLF)
-	#EndRegion ; Example part 3 - testing NetWebView2Lib new methodes .GetFrameHtmlSource($IDX_Frame)
-
+	MsgBox($MB_TOPMOST, "TEST #" & @ScriptLineNumber, 'Example part 3 - testing NetWebView2Lib methodes : ' & @CRLF & '.GetFrameHtmlSource($IDX_Frame)' & @CRLF & 'End')
+	#EndRegion ; Example part 3 - testing NetWebView2Lib methodes .GetFrameHtmlSource($IDX_Frame)
 
 	#Region ; Example part 4 - Direct Frame Interaction
 
@@ -106,6 +108,8 @@ Func Main()
 
 		ConsoleWrite("VarGetType($oFrame0)=" & VarGetType($oFrame0) & @CRLF)
 		ConsoleWrite("$oFrame0.Name=" & $oFrame0.Name & @CRLF & @CRLF)
+		ConsoleWrite("$oFrame0.FrameId=" & $oFrame0.FrameId & @CRLF & @CRLF)
+		ConsoleWrite("$oFrame0.IsDestroyed()=" & $oFrame0.IsDestroyed() & @CRLF & @CRLF)
 
 		; Direct script execution in the iframe without involving the central Manager
 		$oFrame0.ExecuteScript("document.body.style.backgroundColor = 'red';")
@@ -118,12 +122,19 @@ Func Main()
 	Else
 		ConsoleWrite("! Error: $oFrame0 is not a valid COM Object" & @CRLF)
 	EndIf
-
+	MsgBox($MB_TOPMOST, "TEST #" & @ScriptLineNumber, 'Example part 4 - Direct Frame Interaction: ' & @CRLF & '' & @CRLF & 'End')
 	#EndRegion ; Example part 4 - Direct Frame Interaction
 
+	#Region ; Example part 5 - Get all Frames as array
+	Local $aFrames
+	Do
+		$aFrames = _NetWebView2_GetAllFrames_AsArray($oWebV2M)
+		_ArrayDisplay($aFrames, @ScriptLineNumber & ' $aFrames : Example part 5 - Get all Frames as array')
+	Until ($IDNO = MsgBox($MB_YESNO + $MB_TOPMOST + $MB_ICONQUESTION + $MB_DEFBUTTON2, "Question", "Check again all frames ?"))
 
-	#EndRegion - Testing how to manage frames
+	#EndRegion ; Example part 5 - Get all Frames as array
 
+	#EndRegion - Testing how to manage frames
 
 	; Main Loop
 	While 1
@@ -135,46 +146,58 @@ Func Main()
 
 	GUIDelete($hGUI)
 
-
 	_NetWebView2_CleanUp($oWebV2M, $oJSBridge)
 EndFunc   ;==>Main
 
-; ==============================================================================
-; ; Function to update a text element inside the WebView UI
-; ==============================================================================
-Func UpdateWebUI($oWebV2M, $sElementId, $sNewText)
-	If Not IsObj($oWebV2M) Then Return ''
-
-	; Escape backslashes, single quotes and handle new lines for JavaScript safety
-	Local $sCleanText = StringReplace($sNewText, "\", "\\")
-	$sCleanText = StringReplace($sCleanText, "'", "\'")
-	$sCleanText = StringReplace($sCleanText, @CRLF, "\n")
-	$sCleanText = StringReplace($sCleanText, @LF, "\n")
-
-	Local $sJavaScript = "document.getElementById('" & $sElementId & "').innerText = '" & $sCleanText & "';"
-	_NetWebView2_ExecuteScript($oWebV2M, $sJavaScript)
-EndFunc   ;==>UpdateWebUI
-
-; ==============================================================================
-; MY EVENT HANDLER: Bridge (JavaScript Messages)
-; ==============================================================================
-Func _BridgeMyEventsHandler_OnMessageReceived($oWebV2M, $hGUI, $sMessage)
-	Local Static $iMsgCnt = 0
+; #FUNCTION# ====================================================================================================================
+; Name ..........: _NetWebView2_GetAllFrames_AsArray
+; Description ...: Get all Frames as array
+; Syntax ........: _NetWebView2_GetAllFrames_AsArray($oWebV2M)
+; Parameters ....: $oWebV2M             - an object.
+; Return values .: None
+; Author ........: mLipok
+; Modified ......:
+; Remarks .......:
+; Related .......:
+; Link ..........:
+; Example .......: No
+; ===============================================================================================================================
+Func _NetWebView2_GetAllFrames_AsArray($oWebV2M)
+	Local Const $s_Prefix = "[_NetWebView2_GetAllFrames_AsArray]:"
+	Local $oMyError = ObjEvent("AutoIt.Error", __NetWebView2_COMErrFunc) ; Local COM Error Handler
+	#forceref $oMyError, $s_Prefix
+
+	Local Enum _
+			$FRAME_IDX, _
+			$FRAME_OBJECT, _
+			$FRAME_ID, _
+			$FRAME_NAME, _
+			$FRAME_URL, _
+			$FRAME_DESTROYED, _
+			$FRAME_HTML, _
+			$FRAME__COUNTER
 
-	If $sMessage = "CLOSE_APP" Then
-		If MsgBox(36, "Confirm", "Exit Application?", 0, $hGUI) = 6 Then Exit
-	Else
-		MsgBox(64, "JS Notification", "Message from Browser: " & $sMessage)
-		$iMsgCnt += 1
-		UpdateWebUI($oWebV2M, "mainTitle", $iMsgCnt & " Hello from AutoIt!")
-	EndIf
-EndFunc   ;==>_BridgeMyEventsHandler_OnMessageReceived
+	Local $iFrameCount = $oWebV2M.GetFrameCount()
+	Local $aFrames[$iFrameCount][$FRAME__COUNTER]
+	Local $oFrame
+	For $IDX_Frame = 0 To $iFrameCount - 1
+		$oFrame = $oWebV2M.GetFrame($IDX_Frame)
+		$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] = $oWebV2M.Name
+		$aFrames[$IDX_Frame][$FRAME_URL] = $oWebV2M.GetFrameUrl($IDX_Frame)
+		$aFrames[$IDX_Frame][$FRAME_DESTROYED] = $oFrame.IsDestroyed()
+		$aFrames[$IDX_Frame][$FRAME_HTML] = $oWebV2M.GetFrameHtmlSource($IDX_Frame)
+	Next
+	Return $aFrames
+EndFunc   ;==>_NetWebView2_GetAllFrames_AsArray
 
 ; ==============================================================================
 ; MyHook_ Events
 ; ==============================================================================
 Func MyHook_OnMessageReceived($oWebV2M, $hGUI, $sMsg)
-	#forceref $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
@@ -194,27 +217,6 @@ Func MyHook_OnMessageReceived($oWebV2M, $hGUI, $sMsg)
 	EndSwitch
 EndFunc   ;==>MyHook_OnMessageReceived
 
-; ==============================================================================
-; HELPER: Demo HTML Content
-; ==============================================================================
-Func __GetDemoHTML()
-	Local $sH = _
-			'<html><head><style>' & _
-			'body { font-family: "Segoe UI", sans-serif; background: #202020; color: white; padding: 40px; text-align: center; }' & _
-			'.card { background: #2d2d2d; padding: 20px; border-radius: 8px; border: 1px solid #444; }' & _
-			'button { padding: 12px 24px; cursor: pointer; background: #0078d4; color: white; border: none; border-radius: 4px; font-size: 16px; margin: 5px; }' & _
-			'button:hover { background: #005a9e; }' & _
-			'</style></head><body>' & _
-			'<div class="card">' & _
-			'  <h1 id="mainTitle">WebView2 + AutoIt .NET Manager</h1>' & _     ; Fixed ID attribute
-			'  <p id="statusMsg">The communication is now 100% Event-Driven (No Sleep needed).</p>' & _
-			'  <button onclick="window.chrome.webview.postMessage(''Hello from JavaScript!'')">Send Ping</button>' & _
-			'  <button onclick="window.chrome.webview.postMessage(''CLOSE_APP'')">Exit App</button>' & _
-			'</div>' & _
-			'</body></html>'
-	Return $sH
-EndFunc   ;==>__GetDemoHTML
-
 Func __Example_Log($s_ScriptLineNumber, $sString, $iError = @error, $iExtended = @extended)
 	ConsoleWrite(@ScriptName & ' SLN=' & $s_ScriptLineNumber & ' [' & $iError & '/' & $iExtended & '] ::: ' & $sString & @CRLF)
 	Return SetError($iError, $iExtended, '')
@@ -237,6 +239,7 @@ EndFunc   ;==>__Example_Log
 ; 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