从 vb.net 访问 JavaScript 对象答案

【问题标题】：Accessing JavaScript Objects from vb.net从 vb.net 访问 JavaScript 对象
【发布时间】：2012-08-14 16:19:35
【问题描述】：

我正在开发一个 vb.net 应用程序，该应用程序与（第三方提供的）网络应用程序交互以提供附加功能（例如，删除菜单项、从页面中提取信息等）。该网络应用完全由 javascript 驱动，但托管在 asp.net 中，并且仅与 Internet Explorer 一起使用。

我正在尝试从 javascript 对象中读取属性并执行其中的一些功能。我已经设法通过获取脚本所在 iframe 的 mshtml.HTMLDocument 并使用以下代码来获取 javascript 对象：

Dim jsObject as Object
jsObject = htmldoc.Script.jsObject

jsObject 作为 {System.__ComObject} 存在，我可以使用它来执行它的任何功能或读取它的属性，如下所示：

Dim value as String = jsObject.FunctionThatReturnsAString()
jsObject.FunctionTHatDoesSomethingInWebApp("Param1", "Param2")

这很好用。但是，当我离开带有 jsObject 的页面/框架并返回它时，当再次从框架中获取 javascript 对象时（即执行以下行），相同的代码会引发异常：

jsObject = htmldoc.Script.jsObject

例外：未找到成员。（来自 HRESULT 的异常：0x80020003 (DISP_E_MEMBERNOTFOUND)）

如果我停止调试并重新启动，它会再次工作（直到我离开页面等）。就我的应用程序而言，我不确定发生了什么导致 javascript 对象消失。我假设这是由于我的应用程序持有对 COM 对象的引用，我需要以某种方式释放它（特别是因为它具有 MarshalByRefObject 的基本类型 - 这很有意义，因为它在应用程序域之间传递）。

为什么会这样？有没有更好的方法来访问 javascript 对象，它的属性和函数？

【问题讨论】：

标签： vb.net mshtml dom marshalbyrefobject comobject

【解决方案1】：

在我的情况下，我发现了一种更好的方式来实现我的需要。我不是直接将 jsObject 作为 COM 对象访问（并担心编组等），而是使用：

execScript 调用没有返回值的函数或
在我正在工作的框架中创建一个隐藏的 div 元素，将该 div 的 innerHTML 设置为我对使用 execScript 感兴趣的任何 javascript 变量/函数返回值，然后从 DOM 中单独读取该值

要读取变量/函数返回值，我使用以下 vb.net 函数：

Private Function getJScriptVariable(ByVal JScript As String)
    Dim command As New StringBuilder()
    command.Append("var e = document.getElementById('Matt_JScriptReturn');")
    command.Append("if (e == null) {")
    command.Append("var e = document.createElement('div');")
    command.Append("e.id = 'Matt_JScriptReturn';")
    command.Append("e.type = 'hidden';")
    command.Append("document.body.appendChild(e);")
    command.Append("}")
    command.Append("e.innerHTML = ")
    command.Append(JScript)
    command.Append(";")

    'fMaster is the frame containing the javascript's mshtml.IHTMLWindow2
    fMaster.execScript(command.ToString(), "JScript")

    'N.B. fMaster_Document is the fMaster's mshtml.HTMLDocument
    Return fMaster_Document.getElementById("Matt_JScriptReturn").innerHTML

    'Optionally execScript to remove element from DOM at this point
End Function

然后我将按如下方式使用该函数（尊重我在原始问题中的示例）：

Dim value as String = getJScriptVariable("jsObject.FunctionThatReturnsAString()")

要执行 javascript 代码而不需要返回值，我只需按如下方式执行：

fMaster.execScript("jsObject.FunctionTHatDoesSomethingInWebApp('Param1', 'Param2')")

我仍然很想知道为什么我之前遇到了 javascipt 对象在离开页面并返回后无法访问的问题，但是这解决了我的问题，所以我现在很高兴！我希望这可以在某个时候对其他人有所帮助。

【讨论】：