Abra uma exibição de pasta, inicie este aplicativo, clique no init, ele detecta todas as instâncias. Basta perfurar para ver as propriedades dos objetos recursivamente.
Agora você pode atualizar propriedades e chamar métodos para executar instâncias!
Nome do arquivo: dom_explorer.hta
Requisito: ou seja, 5.5 (não testado no IE5.1)
Autor: Jean-Luc Antoine
Enviado: 31/10/2001
Atualizado: 19/11/2001
Categoria: HTA
Lembre -se: a extensão do arquivo deve ser *.hta
代码如下:
<html>
<head>
<title> Dom Explorer </title>
<HTA: Aplicação
ApplicationName = "Dom_explorer"
Border = "grossa" BordersTyle = "Normal"
Legenda = "sim" contextmenu = "sim"
Id = "Ohta" Alert (Ohta.ApplicationName);
INNERBORDER = "Sim" MaximizeButton = "Sim" MinimizeButton = "Sim"
Navegável = "não" scroll = "sim" scrollfllat = "não"
Selection = "Sim" ShowIssaskbar = "Sim" SingleInstance = "Não"
Sysmenu = "sim" versão = "0.5" windowstate = "normal">
<idioma de script = vBScript>
opção explícita
Dim Shapp
set shapp = createObject ("shell.application")
Função sp2 (nome, obj, rw, objpath) 'Propriedades
Dim Chain
Chainne = "<tr> <td>"
Se Isobject (OBJ) então
Se obj não é nada então
Se hidenull.Comecia então
Sp2 = ""
função de saída
Final se
Chainne = Chaine & Name
Elseif Vartype (obj) = 0 então
Chainne = Chaine & Name
Outro
Chainne = Chanene & "<a href =" "#" "OnClick = 'VBScript: ShowProp" & _
Objpath & "." & Name & "," "" & Objpath & "." & nome &_
"" "" título = '"e objpath &". " & Nome & "'>" & Name & "</a>"
Final se
Outro
Chainne = Chaine & Name
Final se
Chainne = Chanene & "</td> <td>" & typename (obj) & "</td> <td>" & rw & "</td> <td>"
Selecione Case Vartype (OBJ)
Caso 0'Empty
Chainne = Chaine & "<font color = Red> Univialized </font>"
Caso 1'null 'se isNull (obj) então
Se hidenull.Comecia então
Sp2 = ""
função de saída
Final se
Chainne = Chaine & "<font color = Red> sem valor </font>"
Caso 9'Object
Chelane = Chaine & "<font color = Red> Não é possível exibir </font>"
Caso mais
Se rw = "Leia/gravar" então
Chainne = Chanene & "<span id =" "" e nome e "" contentedabable = true> <b> "& _
Substituir (obj, "<", "<") & "</b> </span> <a href = '#' onclick = 'vbscript:" & _
Objpath & "." & Nome & "="
Selecione Case Vartype (OBJ)
'Caso 2'vbinteger - Cint ()
'Caso 3'vblong - Clng ()