폴더보기를 열고,이 응용 프로그램을 시작하고, init를 클릭하고, 모든 인스턴스를 감지합니다. 물체의 속성을 재귀 적으로보기 위해 드릴 다운하면됩니다.
이제 실행중인 인스턴스에서 속성을 업데이트하고 메소드를 호출 할 수 있습니다!
파일 이름 : dom_explorer.hta
요구 사항 : IE 5.5 (IE5.1에서 테스트되지 않음)
저자 : Jean-Luc Antoine
제출 : 2001 년 31/10
업데이트 : 2001 년 11 월 19 일
카테고리 : HTA
기억하십시오 : 파일 확장자는 *.hta 여야합니다
代码如下 :
<html>
<헤드>
<title> Dom Explorer </title>
<HTA : 응용 프로그램
ApplicationName = "dom_explorer"
Border = "Deich"Borderstyle = "정상"
캡션 = "예"ContextMenu = "예"
id = "OHTA"ALERT (OHTA.APPLICATIONNAME);
Innerborder = "Yes"MaximizeButton = "Yes"MinimizeButton = "Yes"
navigable = "no"scroll = "yes"scrollflat = "no"
선택 = "예"showintaskbar = "예"Singleinstance = "No"
sysmenu = "예"버전 = "0.5"Windowstate = "Normal">
<script language = vbscript>
옵션 명시 적
희미한 맵
SET SHAPP = CreateObject ( "Shell.Application")
함수 sp2 (이름, obj, rw, objpath) '속성
희미한 체인
Chaine = "<tr> <td>"
isobject (obj)라면
OBJ가 아무것도 없다면
Hidenull이면 체크인 경우
sp2 = ""
종료 기능
끝 If
Chaine = Chaine & Name
elseif vartype (obj) = 0입니다
Chaine = Chaine & Name
또 다른
chaine = chaine & "<a href =" "#" "onclick = 'vbscrip : showprop"& _
objpath & "." & name & "," ""& objpath & "." & 이름 &_
"" " 'title ='"& objpath & "." & name & " '>"& name & "</a>"
끝 If
또 다른
Chaine = Chaine & Name
끝 If
chaine = chaine & "</td> <td>"& typename (obj) & "</td> <td>"& rw & "</td> <td>"
Case Vartype (OBJ) 선택
케이스 0'empty
chaine = chaine & "<font color = red> 비 초기화 </font>"
CASE 1'NULL 'IF ISNULL (OBJ)
Hidenull이면 체크인 경우
sp2 = ""
종료 기능
끝 If
Chaine = Chaine & "<font color = red> 값 없음 </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 ()