我有一个在 Internet Explorer 中使用上下文菜单扩展调用的 VB.NET 类。
代码可以访问页面的对象模型,读取数据不成问题。这是测试函数的代码...它更改状态栏文本(OK),打印页面 HTML(OK),通过添加文本更改 HTML 并再次打印页面 HTML(OK,在第二个 pop-我添加的文本在 HTML 中)
但 Internet Explorer 窗口不显示它。我在哪里做错了?
Public Sub CallingTest(ByRef Source As Object)
Dim D As mshtml.HTMLDocument = Source.document
Source.status = "Working..."
Dim H As String = D.documentElement.innerHTML()
MsgBox(H)
D.documentElement.insertAdjacentText("beforeEnd", "ThisIsATest")
H = D.documentElement.outerHTML()
MsgBox(H)
Source.status = ""
End Sub
该函数在 JavaScript 中是这样调用的:
<script>
var EB = new ActiveXObject("MyObject.MyClass");
EB.CallingTest(external.menuArguments);
</script>