افتح طريقة عرض المجلد ، ثم قم بتشغيل هذا التطبيق ، وانقر فوق init ، ويكتشف جميع الحالات. مجرد حفر لأسفل لرؤية خصائص الكائنات بشكل متكرر.
يمكنك الآن تحديث الخصائص واستدعاء الأساليب في تشغيل مثيلات!
اسم الملف: dom_explorer.hta
متطلب: أي 5.5 (لم يتم اختباره على IE5.1)
المؤلف: جان لوك أنطوان
المقدمة: 31/10/2001
محدث: 19/11/2001
الفئة: HTA
تذكر: تمديد الملف يجب أن يكون *.hta
代码如下:
<html>
<head>
<title> DOM Explorer </itlem>
<hta: التطبيق
ApplicationName = "dom_explorer"
الحدود = "سميكة" BordersTyle = "Normal"
Caption = "Yes" ContextMenu = "Yes"
ID = "Ohta" ALERT (OHTA.APPlicationName) ؛
innerborder = "yes" maximizedbutton = "yes" mailurebutton = "yes"
savigable = "no" scroll = "yes" scrollflat = "no"
Selection = "Yes" ShowIntaskBar = "Yes" SingleInstance = "NO"
sysmenu = "yes" version = "0.5" windowState = "Normal">
<لغة البرنامج النصي = vbscript>
الخيار صريح
خافت شاب
تعيين shapp = createObject ("shell.application")
وظيفة SP2 (الاسم ، OBJ ، RW ، OBJPATH) "الخصائص
سلسلة خافتة
Chaine = "<tr> <td>"
إذا isObject (OBJ) ثم
إذا لم يكن OBJ شيئًا بعد ذلك
إذا كان hidenull.checked ثم
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> غير مصحوب </font>"
الحالة 1'null 'إذا isnull (obj) ثم
إذا كان hidenull.checked ثم
SP2 = ""
وظيفة الخروج
إنهاء إذا
Chaine = Chaine & "<font color = Red> لا قيمة </font>"
الحالة 9'Object
Chaine = Chaine & "<font color = red> لا يمكن عرض </font>"
حالة أخرى
إذا كان rw = "قراءة/اكتب" ثم
Chaine = Chaine & "<span id =" "" & name & "" "contentIble = true> <b>" & _
استبدال (obj ، "<" ، "<") و "</b> </span> <a href = '#' onClick = 'vbscript:" & _
objpath & "." & name & "="
حدد Case Vartype (OBJ)
'CASE 2'VBINTEGER - CINT ()
'الحالة 3'vblong - clng ()