用来猜后台的HTA小程序

用来猜后台的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")
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="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小程序