Perhaps you can try the webview2 component of vbman2:
CDP Guide - Chrome DevTools Protocol Calling Guide | VB6 PRO DOCSCode:Dim wv As New cWebView2Host Private Sub Form_Load() wv.Initialize Me.hWnd, "https://vb6.pro/" End Sub Private Sub MenuSendCDP_Click() '--- 1. Get page title --- Dim sTitle As String sTitle = wv.CallDevToolsProtocolMethodSync("Runtime.evaluate", "{""expression"":""document.title""}") Debug.Print "[Sync] Title -> " & sTitle '--- 2. Get all cookies --- Dim sCookies As String sCookies = wv.CallDevToolsProtocolMethodSync("Network.getCookies", "{}") Debug.Print "[Sync] Cookies -> " & sCookies '--- 3. Get page URL --- Dim sUrl As String sUrl = wv.CallDevToolsProtocolMethodSync("Runtime.evaluate", "{""expression"":""document.URL""}") Debug.Print "[Sync] URL -> " & sUrl '--- 4. Get browser version --- Dim sVersion As String sVersion = wv.CallDevToolsProtocolMethodSync("Browser.getVersion", "{}") Debug.Print "[Sync] Browser Version -> " & sVersion '--- 5. Show title in MsgBox --- MsgBox "Title: " & sTitle, vbInformation, "CDP Sync Demo" End Sub
https://doc.vb6.pro/en/vbman2/webview2/cdp.html




Reply With Quote