实现猜后台的HTA小程序的多种方法

这篇文章分享实现猜后台的hta小程序的多种方法

<input><input>

[removed]
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[removed] = t[removed]&url&path&"--------"&xmlhttp.status&"
"
       loop
End Function
[removed]

==================JS版写法：

如果换js，要将第二行的“onclick=[removed]isExist(http.value)”里的"[removed]"去掉

[removed]
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[removed] += url+myObject[lcx]+"存在
";
else
t[removed]+= url+myObject[lcx]+"不存在
";
}
}
[removed]

字典放在页面里的写法vbscript版：

[removed]
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[removed] = t[removed]+url+d.Item(a(i))+"存在
"
       else
       t[removed] = t[removed]+url+d.Item(a(i))+"不存在
"
       end if
       Next
       end function

[removed]

===============================================

<input><input>

[removed]
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[removed] = t[removed]&url&path&"--------"&""&xmlhttp.status&"
"
     loop
end if
End function
[removed]