Private Sub cmdJsFunc_Click()
Dim retVal As String
Call WebBrowser1.Document.parentWindow.execScript("v = function(){return 3.14;}; tempJsVar=v();")
retVal = WebBrowser1.Document.Script.tempJsVar
MsgBox retVal
End Sub
webbrowser 通过匿名函数返回值
最新推荐文章于 2024-06-02 13:39:30 发布