记录黑客技术中优秀的内容, 传播黑客文化,分享黑客技术精华

vbs目录扫描器

2013-02-27 02:25

再改改,可以在某个时候用。

Dim url,arg,fso

Set arg = WScript.Arguments

Set fso = CreateObject("scripting.filesystemobject")

url = "http://"+arg.Item(0)

Set file = fso.GetFile ("url.txt")

Set f = file.OpenAsTextStream (1,-2)

Do

s=f.ReadLine

WScript.Echo (url+s)

status (url+s)

Loop Until f.atendofline

''''''''''''''function_area'''''''''''''''

Function status(url)

Set xml = CreateObject("msxml2.xmlhttp")

xml.open "get",url,False

xml.send()

WScript.Echo xml.statusText

End Function

知识来源: www.dllk.org/index.php/archives/242.html

阅读:72604 | 评论:0 | 标签:无

想收藏或者和大家分享这篇好文章→复制链接地址

“vbs目录扫描器”共有0条留言

发表评论

姓名:

邮箱:

网址:

验证码:

公告

关注公众号hackdig,学习最新黑客技术

推广

工具

标签云

本页关键词