欧美国产另类久热|951超碰伊人久久|伊人影视久久久久|色婷婷亚洲小电影|色东京热69XX|婷婷玖玖深爱网|加勒比东京热网站|无码A级毛片在线观看|一级a毛一级a看|中文字幕人妻欧美

最近需要訪問google聯(lián)盟后臺，但經(jīng)常無法訪問，看到有網(wǎng)友提供了一份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

經(jīng)測試，由于網(wǎng)絡(luò)問題，可能獲取會超時，建議大家多運(yùn)行幾次?；蚣尤肽_本可執(zhí)行時間。