เปิดมุมมองโฟลเดอร์เปิดแอปพลิเคชันนี้คลิกที่ init มันตรวจจับทุกอินสแตนซ์ เพียงแค่เจาะลึกเพื่อดูคุณสมบัติของวัตถุซ้ำ
ตอนนี้คุณสามารถอัปเดตคุณสมบัติและเรียกใช้วิธีการในอินสแตนซ์ที่กำลังทำงานอยู่!
ชื่อไฟล์: dom_explorer.hta
ข้อกำหนด: IE 5.5 (ไม่ได้ทดสอบใน IE5.1)
ผู้แต่ง: Jean-Luc Antoine
ส่ง: 31/10/2001
อัปเดต: 19/11/2001
หมวดหมู่: HTA
ข้อควรจำ: ส่วนขยายไฟล์จะต้องเป็น *.hta
代码如下:
<html>
<head>
<title> Dom Explorer </title>
<HTA: แอปพลิเคชัน
ApplicationName = "DOM_EXPLORER"
border = "หนา" borderStyle = "ปกติ"
caption = "ใช่" contextMenu = "ใช่"
id = การแจ้งเตือน "OHTA" (OHTA.ApplicationName);
innerBorder = "ใช่" maximizeButton = "ใช่" minimizeButton = "ใช่"
Navigable = "no" scroll = "ใช่" scrollflat = "ไม่"
selection = "ใช่" showintaskbar = "ใช่" singleinstance = "ไม่"
sysmenu = "ใช่" เวอร์ชัน = "0.5" windowstate = "ปกติ">
<ภาษาสคริปต์ = vbscript>
ตัวเลือกอย่างชัดเจน
สลัว Shapp
ตั้งค่า shapp = createObject ("shell.application")
ฟังก์ชัน sp2 (ชื่อ, obj, rw, objpath) 'คุณสมบัติ
เชนสลัว
chaine = "<tr> <td>"
ถ้า isobject (obj) แล้ว
ถ้า OBJ ไม่มีอะไรแล้ว
ถ้า hidenull ตรวจสอบแล้ว
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'Empty
chaine = chaine & "<font color = red> uninitialized </font>"
กรณี 1'null 'ถ้า isnull (obj) แล้ว
ถ้า hidenull ตรวจสอบแล้ว
sp2 = ""
ฟังก์ชั่นออก
สิ้นสุดถ้า
chaine = chaine & "<font color = สีแดง> ไม่มีค่า </font>"
กรณี 9'Object
chaine = chaine & "<font color = red> ไม่สามารถแสดง </font>"
กรณีอื่น
ถ้า rw = "อ่าน/เขียน" แล้ว
chaine = chaine & "<span id =" "" & name & "" "contenteditable = true> <b>" & _
แทนที่ (obj, "<", "<") & "</b> </span> <a href = '#' onclick = 'vbscript:" & _
objpath & "." & name & "="
เลือก Case Vartype (OBJ)
'กรณี 2'vbinteger - cint ()
'กรณี 3'vblong - clng ()