实现猜后台的HTA小程序的多种方法
程序员文章站
2024-04-03 09:43:10
...
这篇文章分享实现猜后台的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)”里的"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 style="color:888888" value="[url]http://www.haiyangtop.net[/url]"> <input type=button onclick=isExist(http.value) value="打开字典进行猜解" style="color:888888"> <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>
=========最后一个比较好用
以上就是实现猜后台的HTA小程序的多种方法的详细内容,更多请关注其它相关文章!