打開文件夾視圖,啟動此應用程序,單擊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()