script_tool_for_windows.bat Windows 环境下的 hosts 一键部署脚本

@echo offif defined converted goto :convertedset ConverterPath=%temp%/HostsGeter_CodeConverter.vbsset ConverterOutput=%temp%/HostsGeter_GBK.batecho inputpath="%~0" >%ConverterPath%echo outputpath="%ConverterOutput%" >>%ConverterPath%echo set stm2=createobject("ADODB.Stream") >>%ConverterPath%echo stm2.Charset ="utf-8" >>%ConverterPath%echo stm2.Open >>%ConverterPath%echo stm2.LoadFromFile inputpath >>%ConverterPath%echo readfile = stm2.ReadText >>%ConverterPath%echo stm2.Close >>%ConverterPath%echo Set Stm1 =CreateObject("ADODB.Stream") >>%ConverterPath%echo Stm1.Type = 2 >>%ConverterPath%echo Stm1.Open >>%ConverterPath%echo Stm1.Charset ="GBK" >>%ConverterPath%echo Stm1.Position = Stm1.Size >>%ConverterPath%echo Stm1.WriteText "set converted=y" ^& vbcrlf >>%ConverterPath%echo Stm1.WriteText readfile >>%ConverterPath%echo Stm1.SaveToFile outputpath,2 >>%ConverterPath%echo Stm1.Close >>%ConverterPath%%ConverterPath% && %ConverterOutput%goto :eof:convertedchcp 936:: 更改cmd窗口代码页至 936(GBK)cls%1 %2ver|find " 5.">nul &&goto :stecho 正在进行 UAC 提权...mshta vbscript:createobject("shell.application").shellexecute("%~s0","goto :st","","runas",1)(window.close)&goto :eof:stcls@REM HostsGet Version0.4cd /d %~dp0set LogFilePath=%temp%/HostsGeter_log.txtset DLScriptPath=%temp%/downloadhosts.vbsset DLPath=%windir%/system32/drivers/etc/hosts_downloadedset BackupDir=%windir%/system32/drivers/etcset HostsPath=%windir%/system32/drivers/etc/hostsset LogToFile=^>^>%LogFilePath% 2^>^&1set EchoAndLog=call :echoandlogecho. %LogToFile%echo ==========[%date% %time%]========== %LogToFile%echo 日志文件：echo %LogFilePath%echo.echo iLocal=LCase("%DLPath%") > %DLScriptPath% ||( call :error downloadhosts.vbs 文件创建/写入失败.)echo iRemote=LCase("https://raw.githubusercontent.com/racaljk/hosts/master/hosts") >> %DLScriptPath%echo Set xPost=createObject("Microsoft.XMLHTTP") 'Set Post = CreateObject("Msxml2.XMLHTTP") >> %DLScriptPath%echo xPost.Open "GET",iRemote,0 >> %DLScriptPath%echo xPost.Send() >> %DLScriptPath%echo set sGet=createObject("ADODB.Stream") >> %DLScriptPath%echo sGet.Mode=3 >> %DLScriptPath%echo sGet.Type=1 >> %DLScriptPath%echo sGet.Open() >> %DLScriptPath%echo sGet.Write xPost.ResponseBody >> %DLScriptPath%echo sGet.SaveToFile iLocal,2 >> %DLScriptPath%%EchoAndLog% 开始从 GitHub 中下载 hosts 文件...if exist %DLPath% del %DLPath% /s /q %LogToFile%%DLScriptPath% || call :error hosts 文件下载失败.del %DLScriptPath% /s /q %LogToFile%if not exist %DLPath% call :error hosts 文件下载失败.%EchoAndLog% 下载完成.echo.if exist %HostsPath% (  call :backuphosts) else (  %EchoAndLog% （原 hosts 文件不存在，跳过备份）)%EchoAndLog% 正在替换 hosts 文件...move %DLPath% %HostsPath% %LogToFile% || call :error hosts 文件替换失败.%EchoAndLog% hosts 文件已替换.echo.%EchoAndLog% 正在刷新系统 DNS 缓存...ipconfig /flushdns %LogToFile% || call :error DNS 缓存刷新失败.%EchoAndLog% DNS 缓存已刷新.echo.%EchoAndLog% 【操作全部完成！】echo.echo 按任意键访问 google.com.hk 进行测试，如取消，请直接关闭本窗口pause >nulstart https://www.google.com.hkecho 已经帮你访问 google.com.hk 如可以访问则替换成功.echo.goto :end:backuphosts%EchoAndLog% 正在备份原 hosts 文件...set "bakfilename=hosts_%date%_%time:~0,8%.bak"set bakfilename=%bakfilename:/=-%set bakfilename=%bakfilename:/=-%set bakfilename=%bakfilename::=-%set bakfilename=%bakfilename: =_%copy %HostsPath% %BackupDir%/%bakfilename% %LogToFile% || call :error hosts 文件备份失败.%EchoAndLog% 原 hosts 文件已备份到 %BackupDir%/%bakfilename%.echo.goto :eof:errorecho ======================%EchoAndLog% 错误：%*start %LogFilePath%echo 已打开日志文件goto :end:echoandlogecho %*echo %* %LogToFile%goto :eof:endecho 按任意键关闭pause >nulexit