用来猜后台的HTA小程序

发布时间:2022-04-17 发布网站:脚本宝典
脚本宝典收集整理的这篇文章主要介绍了用来猜后台的HTA小程序脚本宝典觉得挺不错的,现在分享给大家,也给大家做个参考。

复制代码 代码如下:

<input tyPE=text id=http size=28 style="color:888888" value="http://www.haiyangtop.net">
<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")
&nbsp;      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>

@L_406_3@ 代码如下:

<input type=text id=http size=28 style="color:888888" value="http://www.haiyangtop.net">
<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小程序全部内容,希望文章能够帮你解决用来猜后台的HTA小程序所遇到的问题。

如果觉得脚本宝典网站内容还不错,欢迎将脚本宝典推荐好友。

本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。
标签: