| 标题 | 用来猜后台的HTA小程序 |
| 范文 | 代码如下: <input type=text id=http size=28 value="http://www.haiyangtop.net"> <input type=button onclick=vbs:isExist(http.value) value="检测url是否存在"> <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)”里的"vbs:"去掉 代码如下: <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> 字典放在页面里的写法vbscript版： 代码如下: <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> 代码如下: <input type=text id=http size=28 value="http://www.haiyangtop.net"> <input type=button onclick=isExist(http.value) value="打开字典进行猜解"> <div id="t"></div> <script language=vbs> function isExist(url) set objFile = CreateObject("SAFRCFileDlg.FileOpen") intRet = objFile.OpenFileOpenDlg if intret then dic= objFile.filename end if if dic<>"" then Set fso = CreateObject("Scripting.FileSystemObject") set zidian=fso.OpenTextFile(dic,1,False) If 2 = MsgBox( "字典为：" & objFile.filename & vbCrLf & " 您确定吗？", 32 + 1, "请确认" ) Then isExist(http.value) 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&"--------"&"<font color=red>"&xmlhttp.status&"</font><br>" loop end if End function </script> 最后一个比较好用 |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。