vbs 目录扫描器
在这里学了好长时间了 终于可以拿出自己的东西了虽然不是很好的东西 但是我自己亲自写的
本人vbs初学者 欢迎交流
blog：[url]x0day.sinaapp.com[/url][code]
'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
[/code]忘了说了 url.txt中存放的是目录文件 支持一个。我觉着批处理代码更简单一点。但是可控性不强
页:
[1]