ホームページ >WeChat アプレット >ミニプログラム開発 >背景を推測するための HTA アプレットを実装するさまざまな方法

背景を推測するための HTA アプレットを実装するさまざまな方法

高洛峰
高洛峰オリジナル
2017-03-24 13:24:092060ブラウズ

この記事では、背景を推測するための HTA アプレットを実装するためのさまざまな方法を共有します

<input type=text id=http size=28 style="color:888888" value="[url]http://www.haiyangtop.net[/url]">
<input type=button onclick=vbs:isExist(http.value) value="检测url是否存在" style="color:888888">
<div id="t"></div>
<script language=vbs>
function isExist(url)
dic="c:\dic.dic"
Set fso = CreateObject("Scripting.FileSystemObject")
set zidian=fso.OpenTextFile(dic,1,False)
Do While 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>"
       loop
End Function
</script>

==================== JS 版の記述方法:

js に変更する場合最初の「onclick=vbs:isExist(http.value)」の 2 行目の「vbs:」を削除し、vbscript バージョンをページに配置する必要があります:

<script>
function isExist(url) 
{
var myObject = new Object();
myObject.lcx1 = "/admin/index.asp";
myObject.lcx2 = "/safety";
myObject.lcx3 = "/safetyx";
for (lcx in 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>";
else
t.innerHTML+= url+myObject[lcx]+"不存在<br>";
}
}
</script>

===。 ========= ===================================

<script language=vbs>
function isExist(url)
Dim d   
       Set d = CreateObject("Scripting.Dictionary")
       d.Add "a","/admin/index.asp" 
       d.Add "b", "/safety"
       d.Add "c", "/safetyx"
       a = d.Keys 
       For i = 0 To d.Count -1 &#39; 遍历数组。
       set xmlhttp = CreateObject("Microsoft.XMLHTTP")
       xmlhttp.open "GET",http.value+d.Item(a(i)),false
       xmlhttp.send
       if xmlhttp.status=200 then
       t.innerHTML = t.innerHTML+url+d.Item(a(i))+"存在<br>"
       else
       t.innerHTML = t.innerHTML+url+d.Item(a(i))+"不存在<br>"
       end if
       Next
       end function

</script>

=== =======最後の比較 使いやすい

以上が背景を推測するための HTA アプレットを実装するさまざまな方法の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。

声明:
この記事の内容はネチズンが自主的に寄稿したものであり、著作権は原著者に帰属します。このサイトは、それに相当する法的責任を負いません。盗作または侵害の疑いのあるコンテンツを見つけた場合は、admin@php.cn までご連絡ください。