vb6 webview2 by IUnknown WebView2Loader.dll-Edge-Chromium

[xiaoyao]

HostObjectClass.cls , for eval js,get js result

a=Eval("document.title")
a=eval("33+44")

Public JsResult As String
Function Eval(js As String) As String
    JsResult = ""
    Dim Start As Long:Start = timeGetTime
    ExecuteScript "HostClassA2.ReturnVal(" & js & ")"
    
    While JsResult = "" And timeGetTime - Start < 1000
    DoEvents:    Wend
    Eval = JsResult
End Function

Public Sub ReturnVal(s)
    JsResult = s
End Sub