Buka tampilan folder, luncurkan aplikasi ini, klik init, mendeteksi semua contoh. Hanya menelusuri untuk melihat sifat-sifat objek secara rekursif.
Anda sekarang dapat memperbarui properti dan memohon metode dalam menjalankan instance!
Nama file: dom_explorer.hta
Persyaratan: IE 5.5 (tidak diuji pada IE5.1)
Penulis: Jean-Luc Antoine
Dikirim: 31/10/2001
Diperbarui: 19/11/2001
Kategori: HTA
Ingat: ekstensi file harus *.hta
代码如下:
<Html>
<head>
<title> dom explorer </iteme>
<HTA: Aplikasi
ApplicationName = "dom_explorer"
Border = "tebal" Borderstyle = "Normal"
Keterangan = "Ya" ContextMenu = "Ya"
ID = "OHTA" ALERT (OHTA.ApplicationName);
Innerborder = "Ya" MaximizeButton = "Ya" MinimizeButton = "Ya"
Navigable = "no" scroll = "yes" scrollflat = "no"
Seleksi = "ya" showInkBar = "ya" singleinstance = "tidak"
Sysmenu = "ya" versi = "0,5" windowstate = "normal">
<bahasa skrip = vbscript>
opsi eksplisit
redup shapp
Set Shapp = CreateObject ("Shell.Application")
Fungsi SP2 (Nama, OBJ, RW, Objpath) 'Properties
Rantai redup
Rantai = "<tr> <td>"
Jika IsObject (OBJ) maka
Jika OBJ bukan apa -apa
Jika Hidenull.Checked maka
Sp2 = ""
fungsi keluar
Akhiri jika
Rantai = rantai & nama
Elseif vartype (obj) = 0 lalu
Rantai = rantai & nama
Kalau tidak
Chaine = rantai & "<a href =" "#" "onClick = 'vbscript: showprop" & _
Objpath & "." & Name & "," "" & Objpath & "." & Nama & _
"" "'title ='" & objpath & "." & Nama & "'>" & Nama & "</a>"
Akhiri jika
Kalau tidak
Rantai = rantai & nama
Akhiri jika
Rantai = rantai & "</td> <td>" & typename (obj) & "</td> <td>" & rw & "</td> <td>"
SELECT CASE VARTYPE (OBJ)
Kasus 0'empty
Chaine = rantai & "<font color = red> uninitialized </font>"
Kasus 1'null 'if isnull (obj) lalu
Jika Hidenull.Checked maka
Sp2 = ""
fungsi keluar
Akhiri jika
Rantai = rantai & "<font color = red> tidak ada nilai </font>"
Kasus 9'Object
Rantai = rantai & "<font color = red> tidak dapat menampilkan </font>"
Kasus lain
Jika rw = "baca/tulis" lalu
Rantai = rantai & "<span id =" "" & name & "" "ContentEditable = true> <b>" & _
Ganti (obj, "<", "<") & "</b> </span> <a href = '#' onclick = 'vbscript:" & _
Objpath & "." & Nama & "="
SELECT CASE VARTYPE (OBJ)
'Case 2'vbinteger - cint ()
'Case 3'vblong - clng ()