国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

通過vbs獲取遠程host文件并保存到指定目錄

2019-10-26 18:08:10
字體：大 中 小
來源：轉載
供稿：網友

復制代碼 代碼如下:

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文件域址內容

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板： 清水县| 白水县| 徐闻县| 新巴尔虎右旗| 平山县| 会同县| 梁河县| 香河县| 昆山市| 项城市| 明星| 资中县| 邵东县| 曲靖市| 阿城市| 泾源县| 漳浦县| 黑龙江省| 磐石市| 灵台县| 伊春市| 石嘴山市| 厦门市| 黎平县| 五常市| 河间市| 子洲县| 武乡县| 凌海市| 漳州市| 乐亭县| 黄骅市| 康马县| 德惠市| 亚东县| 武安市| 汽车| 青海省| 界首市| 镇平县| 天全县|