[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[原创] vbs 目录扫描器

在这里学了好长时间了  终于可以拿出自己的东西了
虽然不是很好的东西 但是我自己亲自写的
本人vbs初学者 欢迎交流
blog:x0day.sinaapp.com
  1. 'author:DM_ ,dm_mystery@163.com
  2. 'date:2012,1,23
  3. Dim url,arg,fso
  4. Set arg = WScript.Arguments
  5. Set fso = CreateObject("scripting.filesystemobject")
  6. url = "http://"+arg.Item(0)
  7. Set file = fso.GetFile ("url.txt")
  8. Set f = file.OpenAsTextStream (1,-2)
  9. Do
  10. s=f.ReadLine
  11. WScript.Echo (url+s)
  12. status (url+s)
  13. Loop Until f.atendofline
  14. ''''''''''''''function_area'''''''''''''''
  15. Function status(url)
  16. Set xml = CreateObject("msxml2.xmlhttp")
  17. xml.open "get",url,False
  18. xml.send()
  19. WScript.Echo xml.statusText
  20. End Function
复制代码
忘了说了 url.txt中存放的是目录文件
1

评分人数

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

TOP

返回列表