通过vbs获取远程host文件并保存到指定目录
Subdownload(url,target) ConstadTypeBinary=1 ConstadTypeText=2 ConstadSaveCreateOverWrite=2 Dimhttp,ado Sethttp=CreateObject("Msxml2.ServerXMLHTTP") http.SetOption2,13056 http.open"GET",url,False http.send Setado=createobject("Adodb.Stream") ado.Type=adTypeBinary ado.Open ado.Writehttp.responseBody ado.SaveToFiletarget,adSaveCreateOverWrite ado.Close EndSub SetWshShell=CreateObject("WScript.Shell") WinDir=WshShell.ExpandEnvironmentStrings("%WinDir%") HostsFile=WinDir&"\System32\Drivers\etc\Hosts_google" Consthosts="https://raw.githubusercontent.com/vokins/simpleu/master/hosts" downloadhosts,HostsFile
经测试,由于网络问题,可能获取会超时,建议大家多运行几次。或加入脚本可执行时间。