用来猜后台的HTA小程序

admin hta

2023-12-05 0 528

复制代码代码如下:<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>

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>\”;elset.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.OpenFileOpenDlgif intret then dic= objFile.filenameend ifif dic<>\”\” thenSet 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 <> truepath=zidian.readlineset 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>\” loopend ifEnd function</script>

最后一个比较好用