国产探花免费观看_亚洲丰满少妇自慰呻吟_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文件域址內容

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

圖片精選

主站蜘蛛池模板： 子洲县| 偏关县| 正蓝旗| 淅川县| 高密市| 龙江县| 饶阳县| 永嘉县| 汉源县| 栖霞市| 满城县| 英山县| 玉林市| 繁峙县| 肇州县| 兴山县| 文昌市| 来宾市| 平果县| 临安市| 通河县| 壶关县| 太保市| 尼玛县| 公安县| 滦平县| 博湖县| 大竹县| 汝阳县| 板桥市| 光山县| 思茅市| 海安县| 醴陵市| 汶上县| 大田县| 元江| 江山市| 汕尾市| 舒兰市| 通海县|