يستخدم Applet HTA لتخمين الخلفية

الرمز كما يلي:

<نوع الإدخال = معرف النص = http size = 28 style = "color: 888888" value = "http://www.haiyangtop.net">

<نوع الإدخال = زر OnClick = vbs: isexist (http.value) value = "اكتشاف ما إذا كان عنوان URL موجودًا" style = "color: 888888">

<div id = "t"> </viv>

<لغة البرنامج النصي = vbs>

وظيفة isexist (url)

DIC = "C: /dic.dic"

set fso = createObject ("scripting.filesystemObject")

تعيين zidian = fso.opentextFile (DIC ، 1 ، خطأ)

تفعل بينما zidian.atendofstream <> صحيح

المسار = zidian.Readline

تعيين xmlhttp = createObject ("microsoft.xmlhttp")

xmlhttp.open "get" ، http.value+path ، false

XMLHTTP.SEND

t.innerhtml = t.innerhtml & url & path & "----------" & xmlhttp.status & "<br>"

حلقة

وظيفة نهاية

</script>

كتابة إصدار JS:

إذا قمت بتغيير JS ، فقم بإزالة "VBS:" في "OnClick = VBS: isexist (http.value)" على السطر الثاني

الرمز كما يلي:

<script>

وظيفة isexist (url)

{

var myobject = new Object () ؛

myobject.lcx1 = "/admin/index.asp" ؛

myobject.lcx2 = "/safety" ؛

myobject.lcx3 = "/safetyx" ؛

ل (LCX في myobject)

{

xmlhttp = new ActiveXobject ("Microsoft.xmlhttp")

xmlhttp.open ("get" ، http.value+myobject [lcx] ، false)

xmlhttp.send ()

if (xmlhttp.status == 200)

T.innerhtml+= url+myobject [lcx]+"الوجود <br>" ؛

آخر

T.innerhtml+= url+myobject [lcx]+"غير موجود <br>" ؛

}

}

</script>

طريقة الكتابة للقاموس الموضوعة على إصدار Page VBScript:

الرمز كما يلي:

<لغة البرنامج النصي = vbs>

وظيفة isexist (url)

خافت

set d = createObject ("scripting.dictionary")

D.Add "A" ، "/admin/index.asp"

D.Add "B" ، "/السلامة"

D.Add "C" ، "/SafetyX"

A = D.Keys

ل I = 0 إلى D.Count -1 'اجتياز الصفيف.

تعيين xmlhttp = createObject ("microsoft.xmlhttp")

xmlhttp.open "get" ، http.value+d.item (a (i)) ، false

XMLHTTP.SEND

إذا كان xmlhttp.status = 200 ثم

t.innerhtml = t.innerhtml+url+d.item (a (i))+"موجودة <br>"

آخر

t.innerhtml = t.innerhtml+url+d.item (a (i))+"غير موجود <br>"

إنهاء إذا

التالي

وظيفة نهاية

</script>

الرمز كما يلي:

<نوع الإدخال = معرف النص = http size = 28 style = "color: 888888" value = "http://www.haiyangtop.net">

<نوع الإدخال = زر OnClick = isexist (http.value) value = "Open Dictionary to guess" style = "color: 888888">

<div id = "t"> </viv>