Откройте представление о папке, запустите это приложение, нажмите на init, он обнаруживает все экземпляры. Просто поверните, чтобы увидеть свойства объектов рекурсивно.
Теперь вы можете обновить свойства и вызывать методы на запуска экземпляров!
Имя файла: dom_explorer.hta
Требование: т.е. 5.5 (не тестируется на IE5.1)
Автор: Жан-Люк Антуан
Представлено: 31/10/2001
Обновлено: 19/11/2001
Категория: HTA
Помните: расширение файла должно быть *.hta
代码如下:
<html>
<голова>
<Title> Dom Explorer </title>
<HTA: Приложение
ApplicationName = "dom_explorer"
Border = "толстый" BordersTyle = "Нормальный"
Подпись = "Да" contextmenu = "Да"
ID = "OHTA" оповещение (OHTA.ApplicationName);
Innerborder = "Да" максимизировать, что "да" минимизируется, но "да"
Навигал = "нет" scroll = "yes" scrollflat = "Нет"
Selection = "yes" showintaskbar = "yes" singleinstance = "Нет"
Sysmenu = "yes" version = "0,5" windowstate = "Нормальный">
<script language = vbscript>
опция явная
Dim Shapp
Установить shapp = createObject ("shell.application")
Функция sp2 (имя, obj, rw, objpath). 'Свойства
Dim Chaine
Chaine = "<tr> <td>"
Если isobject (obj), тогда
Если OBJ - это ничто, то
Если hidenull.cecked then
Sp2 = ""
Выходная функция
Конец, если
Chaine = chaine & name
Elseif vartype (obj) = 0 тогда
Chaine = chaine & name
Еще
Chaine = chaine & "<a href =" "#" "onclick = 'vbscript: showprop" & _
Objpath & "." & name & "," "" & objpath & "." & имя &_
"" "'title ='" & objpath & ". & name & "'>" & name & "</a>"
Конец, если
Еще
Chaine = chaine & name
Конец, если
Chaine = chaine & "</td> <td>" & typename (obj) & "</td> <td>" & rw & "</td> <td>"
Выберите Case Vartype (OBJ)
Случай 0' -импти
Chaine = chaine & "<font color = red> incinitialized </font>"
Случай 1'null 'if isnull (obj), тогда
Если hidenull.cecked then
Sp2 = ""
Выходная функция
Конец, если
Chaine = chaine & "<font color = red> Нет значения </font>"
Случай 9'object
Chaine = chaine & "<font color = red> не может отображать </font>"
Случай еще
Если rw = "Читать/написать", тогда
Chaine = chaine & "<span id =" "" & name & "" "Coteededitable = true> <b>" & _
Заменить (obj, "<", "<") & "</b> </span> <a href = '#' onclick = 'vbscript:" & _
Objpath & "." & name & "="
Выберите Case Vartype (OBJ)
'Case 2'vbinteger - cint ()
Случай 3'vblong - clng ()