Obtenez le fichier hôte distant via vbs et enregistrez-le dans le répertoire spécifié

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

Après le test, en raison de problèmes de réseau, l'acquisition peut expirer. Il est recommandé de l'exécuter plusieurs fois. Ou ajoutez le temps d'exécution du script.

Pour plus d'articles liés à X sur l'obtention du fichier hôte distant via vbs et son enregistrement dans le répertoire spécifié, veuillez faire attention au site Web PHP chinois !