vb6 webview2 by IUnknown WebView2Loader.dll-Edge-Chromium

[yokesee]

have you made any further progress?

[xiaoyao]

webview ALSO can use for web ide

[Gusto]

i see the positive progress ..
however this code require the (installed) SDK + is limited to x32 due to the usage of the 32 Bit version of WebView2Loader.dll
In case the goal is e.g usage within Office:
* did you check office root folder ?
there is WebView2Host.dll and WebView2Loader.dll (within the correct bitness)
the first offer the entry CreateOfficeWebView2Environment and *Options (to configure the userfolder, and additional parms)

Now this Vtbl approach "just" need to be converted into x64 .. with some (conditional) LongPtr conversions and usage of the both within ".\Microsoft Office\root\Office16"

[xiaoyao]

office64 you can test ,and upload vba code to txt file or save to bas file.
WebView2Loader have x64 version,and vba also can support

https://globalcdn.nuget.org/packages....1774.30.nupkg
(rename to zip file,unzip it)

Microsoft.Web.WebView2.1.0.1774.30\build\native\x64
WebView2Loader.dll
WebView2Loader.dll.lib

[-Franky-]

@yokesee: I don't know if my answer to your private mail went out. Unfortunately, the number of characters is also limited, so I couldn't write everything there. So here again. I have a test project VBC_UwpWebView.zip on activevb.de in the up/download area. This creates a WebViewControl via WinRT. However, this is still based on the older Edge browser and not on WebView2. The WinRT WebViewControl returns the following UserAgent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; WebView/3.0) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/70.0.3538.102 Safari/537.36 Edge/18.19045. You were concerned with creating multiple browser instances. All you have to do is make a few small changes to the code.

Option Explicit


Private IsGetUserAgent As Boolean


' A WebViewControl array would probably be better here.
Private WithEvents WebViewControl As clsWVC
Private WithEvents WebViewControl1 As clsWVC ' <- new
Private WithEvents WebViewControlProcess As clsWVCP

and

Private Sub Form_Load()
    Me.ScaleMode = vbPixels
    cmdGoBack.Enabled = False
    cmdGoForward.Enabled = False
    Me.Caption = "WinRT-WebView:"
    Call lblInfo.Move(0, Me.ScaleHeight - 15, Me.ScaleWidth, 15)
    
    Set WebViewControlProcess = New clsWVCP
    
    If WebViewControlProcess.Create Then
        Set WebViewControl = WebViewControlProcess.CreateWebViewControlAsync(Me.hWnd, NewRect(0, 35, Me.ScaleWidth \ 2, Me.ScaleHeight - 50)) ' <- changed
        Set WebViewControl1 = WebViewControlProcess.CreateWebViewControlAsync(Me.hWnd, NewRect(Me.ScaleWidth \ 2, 35, Me.ScaleWidth \ 2, Me.ScaleHeight - 50)) ' <- new
        
        ' WebViewControl.Scaling = 0.8 '1 = 100%
        
        Dim UriRuntimeClass As New clsURC
        If UriRuntimeClass.CreateUri("https://www.google.de/") Then
            Call WebViewControl.Navigate(UriRuntimeClass)
        End If
    
        ' New
        Dim UriRuntimeClass1 As New clsURC
        If UriRuntimeClass1.CreateUri("https://www.vbforums.com/") Then
            Call WebViewControl1.Navigate(UriRuntimeClass1)
        End If
    
    End If
End Sub


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    WebViewControl1.Closing ' <- new
    WebViewControl.Closing
    WebViewControlProcess.Terminate
    Set WebViewControl1 = Nothing ' <- new
    Set WebViewControl = Nothing
    Set WebViewControlProcess = Nothing
End Sub


Private Sub Form_Resize()
    If Me.WindowState <> vbMinimized Then
        Call lblInfo.Move(0, Me.ScaleHeight - 15, Me.ScaleWidth, 15)
        WebViewControl.bounds = NewRect(0, 35, Me.ScaleWidth \ 2, Me.ScaleHeight - 50) ' <- changed
        WebViewControl1.bounds = NewRect(Me.ScaleWidth \ 2, 35, Me.ScaleWidth \ 2, Me.ScaleHeight - 50) ' <- new
    End If
End Sub

This creates two WebViewControl instances on the same form (hWnd). You can also use a TabControl where you then assign a WebViewControl instance to each tab.

[julian1104]

Set WebviewMethodDc = CallWebview2.MethodDictionary
Set WebviewMethodDc = MethodDictionary

Public Function MethodDictionary() As Dictionary
    Set MethodDictionary = New Dictionary
    MethodDictionary.CompareMode = TextCompare
    MethodDictionary.Add "get_Settings", 1
    MethodDictionary.Add "get_Source", 2
    MethodDictionary.Add "Navigate", 3
    MethodDictionary.Add "NavigateToString", 4
    MethodDictionary.Add "add_NavigationStarting", 5
    MethodDictionary.Add "remove_NavigationStarting", 6
    MethodDictionary.Add "add_ContentLoading", 7
    MethodDictionary.Add "remove_ContentLoading", 8
    MethodDictionary.Add "add_SourceChanged", 9
    MethodDictionary.Add "remove_SourceChanged", 10
    MethodDictionary.Add "add_HistoryChanged", 11
    MethodDictionary.Add "remove_HistoryChanged", 12
    MethodDictionary.Add "add_NavigationCompleted", 13
    MethodDictionary.Add "remove_NavigationCompleted", 14
    MethodDictionary.Add "add_FrameNavigationStarting", 15
    MethodDictionary.Add "remove_FrameNavigationStarting", 16
    MethodDictionary.Add "add_FrameNavigationCompleted", 17
    MethodDictionary.Add "remove_FrameNavigationCompleted", 18
    MethodDictionary.Add "add_ScriptDialogOpening", 19
    MethodDictionary.Add "remove_ScriptDialogOpening", 20
    MethodDictionary.Add "add_PermissionRequested", 21
    MethodDictionary.Add "remove_PermissionRequested", 22
    MethodDictionary.Add "add_ProcessFailed", 23
    MethodDictionary.Add "remove_ProcessFailed", 24
    MethodDictionary.Add "AddScriptToExecuteOnDocumentCreated", 25
    MethodDictionary.Add "RemoveScriptToExecuteOnDocumentCreated", 26
    MethodDictionary.Add "ExecuteScript", 27
    MethodDictionary.Add "CapturePreview", 28
    MethodDictionary.Add "Reload", 29
    MethodDictionary.Add "PostWebMessageAsJson", 30
    MethodDictionary.Add "PostWebMessageAsString", 31
    MethodDictionary.Add "add_WebMessageReceived", 32
    MethodDictionary.Add "remove_WebMessageReceived", 33
    MethodDictionary.Add "CallDevToolsProtocolMethod", 34
    MethodDictionary.Add "get_BrowserProcessId", 35
    MethodDictionary.Add "get_CanGoBack", 36
    MethodDictionary.Add "get_CanGoForward", 37
    MethodDictionary.Add "GoBack", 38
    MethodDictionary.Add "GoForward", 39
    MethodDictionary.Add "GetDevToolsProtocolEventReceiver", 40
    MethodDictionary.Add "Stop", 41
    MethodDictionary.Add "add_NewWindowRequested", 42
    MethodDictionary.Add "remove_NewWindowRequested", 43
    MethodDictionary.Add "add_DocumentTitleChanged", 44
    MethodDictionary.Add "remove_DocumentTitleChanged", 45
    MethodDictionary.Add "get_DocumentTitle", 46
    MethodDictionary.Add "AddHostObjectToScript", 47
    MethodDictionary.Add "RemoveHostObjectFromScript", 48
    MethodDictionary.Add "OpenDevToolsWindow", 49
    MethodDictionary.Add "add_ContainsFullScreenElementChanged", 50
    MethodDictionary.Add "remove_ContainsFullScreenElementChanged", 51
    MethodDictionary.Add "get_ContainsFullScreenElement", 52
    MethodDictionary.Add "add_WebResourceRequested", 53
    MethodDictionary.Add "remove_WebResourceRequested", 54
    MethodDictionary.Add "AddWebResourceRequestedFilter", 55
    MethodDictionary.Add "RemoveWebResourceRequestedFilter", 56
    MethodDictionary.Add "add_WindowCloseRequested", 57
    MethodDictionary.Add "remove_WindowCloseRequested", 58
End Function

Hi,I am running a script which allows me to extract information from a website and view it directly in the Google Chrome console. Now I want to extract said information or store it in a variable but I can't find a way since according to what I have consulted I require one of these 3 options but I don't know how to implement it directly in my code since the function declarations do not appear

this is th script:
script = "var divsListAds = document.querySelectorAll('.mt-ListAds');" & vbCrLf & _
"var hrefArray = [];" & vbCrLf & _
"divsListAds.forEach(function(div) {" & vbCrLf & _
" var enlaces = div.querySelectorAll('a');" & vbCrLf & _
" enlaces.forEach(function(enlace) {" & vbCrLf & _
" hrefArray.push(enlace.getAttribute('href'));" & vbCrLf & _
" });" & vbCrLf & _
"});" & vbCrLf & _
"alert(hrefArray);" & vbCrLf & _
"window.chrome.webview.postMessage(JSON.stringify(hrefArray));"

WV.ExecuteScript script


i need implement this:
PostWebMessageAsJson"
"PostWebMessageAsString"
"add_WebMessageReceived"


If anyone can help me I would greatly appreciate it.

[xiaoyao]

Very good work.
Is it possible to add extensions?
thanks

WebView 2 support extends Part of what WebView 2 has been missing is support for extensions, and today I saw on its github that it already supports extensions APIs: experimental extensions APIs Although it is only a preview function at present, the probability of formal inclusion is still relatively large. Try it when you are free.

2023-12-11
https://learn.microsoft.com/en-us/mi...ental-features

CoreWebView2Profile Class:

CoreWebView2Profile.AddBrowserExtensionAsync Method
CoreWebView2Profile.GetBrowserExtensionsAsync Method