Abra una vista de carpeta, inicie esta aplicación, haga clic en Init, detecta todas las instancias. Simplemente profundice para ver las propiedades de los objetos de manera recursiva.
¡Ahora puede actualizar las propiedades e invocar métodos en la ejecución de instancias!
Nombre del archivo: dom_explorer.hta
Requisito: IE 5.5 (no probado en IE5.1)
Autor: Jean-Luc Antoine
Enviado: 31/10/2001
Actualizado: 19/11/2001
Categoría: HTA
Recuerde: la extensión del archivo debe ser *.hta
代码如下:
<html>
<Evista>
<title> Dom Explorer </title>
<HTA: aplicación
ApplicationName = "DOM_Explorer"
Borde = "grueso" borderstyle = "normal"
Subtítulos = "Sí" contextMenu = "Sí"
Id = "ohta" alerta (ohta.applicationName);
InnerBorDer = "YES" MaximizeButton = "Sí" MinimizeButton = "Sí"
Navegable = "no" scroll = "sí" scrollflat = "no"
Selección = "sí" showInTaskBar = "YES" SingleInStance = "No"
Sysmenu = "YES" Versión = "0.5" WindowState = "Normal">
<Script Language = VBScript>
opción explícita
Dim Shapp
establecer shapp = createObject ("shell.Aplication")
Función SP2 (Nombre, Obj, RW, Objpath) 'Propiedades
Cadáver
Cadena = "<tr> <td>"
Si isObject (obj) entonces
Si OBJ no es nada, entonces
Si Hidenull, comprobado entonces
Sp2 = ""
función de salida
Final si
Cadena = cadena y nombre
Elseif vartype (obj) = 0 entonces
Cadena = cadena y nombre
Demás
Cadena = cadena & "<a href =" "#" "onClick = 'vBscript: showProp" & _
Objpath & "." & Name & "," "" & Objpath & "." & nombre &_
"" "'Title ='" & Objpath & "." & Name & "'>" & Name & "</a>"
Final si
Demás
Cadena = cadena y nombre
Final si
Cadáver = cadena & "</td> <td>" & typename (obj) & "</td> <td>" & rw & "</td> <td>"
Seleccione Case Vartype (OBJ)
Caso 0'empty
Chaine = Chaine & "<font color = rojo> no inicializado </font>"
Caso 1'null 'if isNull (obj) entonces
Si Hidenull, comprobado entonces
Sp2 = ""
función de salida
Final si
Cadena = cadena & "<font color = rojo> sin valor </font>"
Caso 9'Object
Chaine = Chaine & "<font color = rojo> no puedo mostrar </font>"
Caso
Si rw = "leer/escribir" entonces
Cadena = cadena y "<span id =" "" & name & "" "Contentedable = true> <b>" & _
Reemplazar (obj, "<", "<") & "</b> </span> <a href = '#' onClick = 'vBscript:" & _
Objpath & "." & name & "="
Seleccione Case Vartype (OBJ)
'Caso 2'vbinteger - Cint ()
'Caso 3'vblong - Clng ()