Öffnen Sie eine Ordneransicht, starten Sie diese Anwendung, klicken Sie auf Init, sie erkennt alle Instanzen. Bohren Sie einfach nach unten, um die Eigenschaften der Objekte rekursiv zu sehen.
Sie können jetzt Eigenschaften aktualisieren und Methoden für Ausführung von Instanzen aufrufen!
Dateiname: dom_explorer.hta
Anforderung: dh 5.5 (nicht getestet auf IE5.1)
Autor: Jean-Luc Antoine
Eingereicht: 31/10/2001
Aktualisiert: 19/11/2001
Kategorie: HTA
Denken Sie daran: Die Dateierweiterung muss *.hta sein
代码如下::
<html>
<kopf>
<title> Dom Explorer </title>
<Hta: Anwendung
ApplicationName = "dom_explorer"
Border = "dick" BorderSyle = "Normal"
Caption = "yes" contextMenu = "Ja"
Id = "ohta" alarm (ohta.applicationName);
Innerborder = "Ja" maximizeButton = "Ja" minimizeButton = "Ja"
Navigable = "nein" scroll = "yes" scrollflat = "nein"
Selection = "yes" showIntaskbar = "yes" SingleInInstance = "Nein"
Sysmenu = "yes" Version = "0,5" windowState = "normal">
<script Language = vbScript>
Option explizit
Dim Shapp
Setzen Sie shapp = createObject ("Shell.Application")
Funktion SP2 (Name, OBJ, RW, ObjPath) 'Eigenschaften
Dunkelkette
Chaine = "<tr> <td>"
Wenn isObject (obj) dann
Wenn OBJ dann nichts ist
Wenn Hidenull.Conted dann
Sp2 = ""
Ausgangsfunktion
Ende wenn
Chaine = Chaine & Name
Elseif vartype (obj) = 0 dann
Chaine = Chaine & Name
Anders
Chaine = chaine & "<a href =" "#" "onclick = 'vbscript: showProp" & _
Objpath & "." & name & "," "" & objpath & ". & Name &_
"" 'title =' "& objpath &". & name & "'>" & name & "</a>"
Ende wenn
Anders
Chaine = Chaine & Name
Ende wenn
Chaine = chaine & "</td> <td>" & typename (obj) & "</td> <td>" & rw & "</td> <td>"
Wählen Sie den Fall Vartype (OBJ)
Fall 0'Empty
Chaine = chaine & "<font color = rot> nicht initialisiert </font>"
Fall 1'null 'Wenn isnull (obj) dann
Wenn Hidenull.Conted dann
Sp2 = ""
Ausgangsfunktion
Ende wenn
Chaine = chaine & "<font color = rot> kein Wert </font>"
Fall 9'Object
Chaine = chaine & "<font color = rot> kann </font> nicht anzeigen"
Fall sonst
Wenn rw = "lesen/schreiben", dann
Chaine = chaine & "<span id =" "" & name & "" "contenteditable = true> <b>" & _
Ersetzen (obj, "<", "<") & "</b> </span> <a href = '#' onclick = 'vbScript:" & _
Objpath & "." & name & "="
Wählen Sie den Fall Vartype (OBJ)
'Fall 2'VBInteger - Cint ()
'Fall 3'vblong - clng ()