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 !