vbs를 통해 원격 호스트 파일을 가져와서 지정된 디렉터리에 저장합니다.

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를 통해 원격 호스트 파일을 가져와 지정된 디렉터리에 저장하는 방법에 대한 더 많은 X 관련 기사를 보려면 PHP 중국어 웹사이트에 주목하세요!