站长网_站长创业_站长主页_站长之家_易采站长站

会员投稿 投稿指南 站长资讯通告: VBS中SendKeys的基本应用
搜索:
您的位置: 主页 > 教程 > 脚本教程 > VBS > » 正文

通过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

经测试,由于网络问题,可能获取会超时,建议大家多运行几次。或加入脚本可执行时间。

您可能感兴趣的文章:

用vbs实现防止计算机使用 LMHosts 文件Windows Script Host之用vbs实现[浏览文件夹]功能使用vbs删除host文件域址内容
Tags:
最新图文资讯
1 2 3 4 5 6
相关文章列表:
最新文章
易采站长站 - 联系我们 - 广告服务 - 友情链接 - 网站地图 - 版权声明 - 人才招聘 - 帮助 -