HTA Applet используется для угадывания фона

Код заключается в следующем:

<input type = text id = http size = 28 style = "color: 888888" value = "http://www.hiyangtop.net">

<input type = кнопка onclick = vbs: isexist (http.value) value = "Обнаружение того, существует ли URL" Style = "Color: 888888">

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

<script language = VBS>

функция ISexist (URL)

dic = "c: /dic.dic"

Установить fso = createObject ("scripting.filesystemobject")

SET ZIDIAN = FSO.OPENTEXTFILE (DIC, 1, FALSE)

Делать, пока Zidian.atendofstream <> true

path = Zidian.readline

set 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)» на второй строке

Код заключается в следующем:

<Скрипт>

функция 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 ("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>

Метод написания словаря, размещенный на версии VBScript Page:

Код заключается в следующем:

<script language = 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 'Переезд на массив.

set xmlhttp = createObject ("microsoft.xmlhttp")

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

xmlhttp.send

Если xmlhttp.status = 200 then

t.innerhtml = t.innerhtml+url+d.item (a (i))+"существует <br>"

еще

t.innerhtml = t.innerhtml+url+d.item (a (i))+"не существует <br>"

конец, если

Следующий

конечная функция

</script>

Код заключается в следующем:

<input type = text id = http size = 28 style = "color: 888888" value = "http://www.hiyangtop.net">

<input type = кнопка onclick = isexist (http.value) value = "Открыть словарь, чтобы угадать" style = "color: 888888">

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