Board logo

标题: [原创] vbs 目录扫描器 [打印本页]

作者: copp_x    时间: 2012-1-23 02:30     标题: 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中存放的是目录文件
作者: canyuexiaolang    时间: 2012-1-23 20:29

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




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2