external.menuArguments.document.documentElement.innerHtml 这句一直出错:缺少对象

[oldhunter]

<script language="VBScript">
Sub OnContextMenu()

'On Error Resume Next
set ddd = external.menuArguments.document.documentElement.innerHtml
set shell = CreateObject("Wscript.Shell")
shell.Run "myapp.exe " + ddd
end sub

call OnContextMenu()

</script>

这句一直出错:缺少对象
set ddd = external.menuArguments.document.documentElement.innerHtml

发现脚本真是麻烦... 郁闷...

如果只是:
set ddd = external.menuArguments.document.documentElement

结果是:[object]

我是想要源代码

[cpp2017]

去掉 set

[oldhunter]

去掉 set 不出错了, 但程序打不开了.
我是想搞得像迅雷一样的, 通过IE右键菜单调我的程序. 请问应该是哪的问题?

[oldhunter]

up

[mydeman]

innerHTML

[oldhunter]

to mydeman:
innerHTML 怎么了？ 不对吗？