vbs 目录扫描器

copp_x

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

1. 
   
2. 'author:DM_ ,dm_mystery@163.com
   
3. 'date:2012,1,23
   
4. Dim url,arg,fso
   
5. Set arg = WScript.Arguments
   
6. Set fso = CreateObject("scripting.filesystemobject")
   
7. url = "http://"+arg.Item(0)
   
8. Set file = fso.GetFile ("url.txt")
   
9. Set f = file.OpenAsTextStream (1,-2)
   
10. Do
    
11. s=f.ReadLine
    
12. WScript.Echo (url+s)
    
13. status (url+s)
    
14. Loop Until f.atendofline
    
15. ''''''''''''''function_area'''''''''''''''
    
16. Function status(url)
    
17. Set xml = CreateObject("msxml2.xmlhttp")
    
18. xml.open "get",url,False
    
19. xml.send()
    
20. WScript.Echo xml.statusText
    
21. End Function
    

复制代码

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

canyuexiaolang

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