打开文件夹视图，启动此应用程序，单击INIT，它检测所有实例。只需向下钻取以递归查看对象的特性即可。
您现在可以更新属性并在运行实例中调用方法！
文件名：dom_explorer.hta
要求：IE 5.5（未在IE5.1上测试）
作者：让·卢克·安托万（Jean-Luc Antoine）
提交：2001年10月31日
更新：2001年11月11日
类别：HTA
请记住：文件扩展名必须为 *.hta
代码如下：
<html>
<头>
<title> dom Explorer </title>
<hta：应用程序
applicationName =“ dom_explorer”
border =“厚” borderstyle =“正常”
字幕=“是” ContextMenu =“是”
id =“ ohta”警报（ohta.applicationName）;
innerborder =“ yes” maximizebutton =“ yes” minimizebutton =“ yes”
navigable =“ no” scroll =“是” scrollflat =“ no”
选择=“是” showintaskbar =“ yes” singleInstance =“ no”
sysmenu =“是”版本=“ 0.5” windowState =“ normal”>
<脚本语言= vbscript>
选项显式
昏暗的shapp
设置shapp = createObject（“ shell.application”）
功能SP2（名称，OBJ，RW，OBJPATH）'属性
昏暗的链
链=“ <tr> <td>”
如果是isobject（obj），则
如果OBJ一无所有
如果hidenull。然后检查了
sp2 =“”
退出功能
如果结束
链条=链条和名称
elseif vartype（obj）= 0
链条=链条和名称
别的
chaine =链
objpath＆”。 ＆name＆“，”“”＆objpath＆“”。 ＆ 姓名 ＆_
“”“''title ='”＆objpath＆“”。 ＆name＆“''>”＆name＆“ </a>”
如果结束
别的
链条=链条和名称
如果结束
chaine = Chaine＆“ </td> <td>”＆typeName（obj）＆“ </td> <td>”＆rw＆“ </td> <td> <td>”
选择CASE VARTYPE（OBJ）
案例0'emptim
链条=链条＆“ <font color =红色>非初始化</font>”
案例1'null'如果Isnull（obj），则
如果hidenull。然后检查了
sp2 =“”
退出功能
如果结束
链条=链条＆“ <font color =红色>无值</font>”
案例9'Object
链条=链条＆“ <font color =红色>无法显示</font>”
其他情况
如果rw =“读/写”，则
chaine =链条＆“ <span ID =”“”“＆name＆”“”“ contentedialitable = true> <b>”＆_
替换（obj，“ <”，“ <”）
objpath＆”。 ＆名称＆“ =”
选择CASE VARTYPE（OBJ）
'case 2'vbinteger -cint（）
'case 3'vblong -clng（）