HTA Applet ใช้ในการเดาพื้นหลัง

รหัสมีดังนี้:

<ประเภทอินพุต = ข้อความข้อความ = http size = 28 style = "สี: 888888" value = "http://www.haiyangtop.net">

<อินพุตประเภท = ปุ่ม onClick = VBS: isExist (http.value) ค่า = "การตรวจจับว่า URL มีอยู่หรือไม่" สไตล์ = "สี: 888888">

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

<ภาษาสคริปต์ = VBS>

ฟังก์ชั่น isExist (URL)

dic = "c: /dic.dic"

ตั้งค่า fso = createObject ("Scripting.filesystemObject")

ตั้งค่า zidian = fso.opentextfile (dic, 1, false)

ทำในขณะที่ zidian.atendofstream <> true

path = 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 = "/ความปลอดภัย";

myObject.lcx3 = "/safetyx";

สำหรับ (LCX ใน myObject)

-

xmlhttp = new ActiveXObject ("Microsoft.xmlhttp"))

xmlhttp.open ("รับ", http.value+myobject [lcx], false)

xmlhttp.send ()

if (xmlhttp.status == 200)

t.innerhtml+= url+myobject [lcx]+"การดำรงอยู่ <br>";

อื่น

t.innerhtml+= url+myobject [lcx]+"ไม่มีอยู่ <br>";

-

-

</script>

วิธีการเขียนของพจนานุกรมที่วางไว้ในหน้า VBScript หน้า:

รหัสมีดังนี้:

<ภาษาสคริปต์ = VBS>

ฟังก์ชั่น isExist (URL)

สลัว

ตั้งค่า 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 = "สี: 888888" value = "http://www.haiyangtop.net">

<อินพุต type = ปุ่ม onclick = isExist (http.value) value = "Open Dictionary to Guess" style = "สี: 888888">

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