手机
当前位置:查字典教程网 >脚本专栏 >hta >用来猜后台的HTA小程序
用来猜后台的HTA小程序
摘要:复制代码代码如下:functionisExist(url)dic="c:dic.dic"Setfso=CreateObject("Scrip...

复制代码 代码如下:

<input type=text id=http size=28 value="http://www.haiyangtop.net">

<input type=button onclick=vbs:isExist(http.value) value="检测url是否存在">

<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 value="http://www.haiyangtop.net">

<input type=button onclick=isExist(http.value) value="打开字典进行猜解">

<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编辑HOST文件的脚本

javascript操作xml(增删改查)例子代码hta版

用hta实现的远程桌面连接脚本

用hta做的好玩的小程序(固定在桌面)

hta编写的软件管理工具0.1(IE7.0测试通过)

hta实现的定时关机小程序

hta编写的消费记录程序

XMLHttps

hta(vbs)列目录树代码

适用于hta的Sleep函数

精品推荐
分类导航