| 标题 | 通过vbs获取远程host文件并保存到指定目录 |
| 范文 | 最近需要访问google联盟后台，但经常无法访问，看到有网友提供了一份vbs版本的获取host并保存到指定目录的代码，特分享下 代码如下: Sub download(url,target) Const adTypeBinary = 1 Const adTypeText = 2 Const adSaveCreateOverWrite = 2 Dim http,ado Set http = CreateObject("Msxml2.ServerXMLHTTP") http.SetOption 2,13056 http.open "GET",url,False http.send Set ado = createobject("Adodb.Stream") ado.Type = adTypeBinary ado.Open ado.Write http.responseBody ado.SaveToFile target,adSaveCreateOverWrite ado.Close End Sub Set WshShell=CreateObject("WScript.Shell") WinDir =WshShell.ExpandEnvironmentStrings("%WinDir%") HostsFile = WinDir & "\System32\Drivers\etc\Hosts_google" Const hosts="https://raw.githubusercontent.com/vokins/simpleu/master/hosts" download hosts,HostsFile 经测试，由于网络问题，可能获取会超时，建议大家多运行几次。或加入脚本可执行时间。 |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。