ホームページ > 記事 > WeChat アプレット > 背景を推測するための HTA アプレットを実装するさまざまな方法
この記事では、背景を推測するための 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 ' 遍历数组。 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 サイトの他の関連記事を参照してください。