[原创] vbs 目录扫描器

copp_x

在这里学了好长时间了  终于可以拿出自己的东西了
虽然不是很好的东西 但是我自己亲自写的
本人vbs初学者 欢迎交流
blog：x0day.sinaapp.com

'author:DM_ ,dm_mystery@163.com
'date:2012,1,23
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
复制代码

忘了说了 url.txt中存放的是目录文件

canyuexiaolang

支持一个。我觉着批处理代码更简单一点。但是可控性不强