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

[原创] VBS自动下载hosts,上google 网站必备

  1. Sub download(url,target)
  2. Const adTypeBinary = 1
  3. Const adTypeText = 2
  4. Const adSaveCreateOverWrite = 2
  5. Dim http,ado
  6. Set http = CreateObject("Msxml2.ServerXMLHTTP")
  7. http.SetOption 2,13056
  8. http.open "GET",url,False
  9. http.send
  10. Set ado = createobject("Adodb.Stream")
  11. ado.Type = adTypeBinary
  12. ado.Open
  13. ado.Write http.responseBody
  14. ado.SaveToFile target,adSaveCreateOverWrite
  15. ado.Close
  16. End Sub
  17. Set WshShell=CreateObject("WScript.Shell")
  18. WinDir =WshShell.ExpandEnvironmentStrings("%WinDir%")
  19. HostsFile = WinDir & "\System32\Drivers\etc\Hosts"
  20. Const hosts="https://smarthosts.googlecode.com/svn/trunk/hosts"
  21. download hosts,HostsFile
复制代码
1

评分人数

    • CrLf: 谢谢分享!技术 + 1

看起来很实用的样子,收藏了,谢谢分享

TOP

好东西啊,还准备自己写个呢,现在可以直接用了。

TOP

返回列表