Code:
Function CheckSetupOk() As Boolean
'It takes 10 seconds to check whether the edge runtime component is installed successfully. Is there a faster method?
Dim WV As cWebView2
Set WV = New_c.WebView2
CheckSetupOk = WV.BindTo(Me.hWnd) <> 0
Set WV = Nothing
End Function
Function DonwSetupTool() As Boolean
Dim URL As String
URL = "https://go.microsoft.com/fwlink/p/?LinkId=2124703"
'xmlhttp download***
'save as :Edge_Webview2RunTime.exe
Dim Size1 As Long
Size1 = FileLen(App.Path & "\Edge_Webview2RunTime.exe")
DonwSetupTool = Size1 > 1024 ^ 2
end functionI dont know if there is a silent installation parameter to prevent him from displaying the download and installation interface
MicrosoftEdgeWebview2Setup.exe /silent /install
check Registry information：
Microsoft Edge WebView2 Runtim(92.0.902.8)
HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\EdgeUpdate\Clients\{F3017226-FE2A-4295-8BDF-00C3A9A7E4C5}
get string value(PV and name)
Can be used with：VB6 WebView2-Binding (Edge-Chromium)-VBForums
https://www.vbforums.com/showthread....Edge-Chromium)