VBS自动下载hosts,上google 网站必备

lufeng369

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

复制代码

CrLf

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

jzp820927

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