@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窗口代碼頁(yè)至 936(GBK)cls%1 %2ver|find " 5.">nul &&goto :stecho 正在進(jìn)行 UAC 提權(quán)...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 文件創(chuàng)建/寫入失敗.)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 文件不存在，跳過(guò)備份）)%EchoAndLog% 正在替換 hosts 文件...move %DLPath% %HostsPath% %LogToFile% || call :error hosts 文件替換失敗.%EchoAndLog% hosts 文件已替換.echo.%EchoAndLog% 正在刷新系統(tǒng) DNS 緩存...ipconfig /flushdns %LogToFile% || call :error DNS 緩存刷新失敗.%EchoAndLog% DNS 緩存已刷新.echo.%EchoAndLog% 【操作全部完成！】echo.echo 按任意鍵訪問(wèn) google.com.hk 進(jìn)行測(cè)試，如取消，請(qǐng)直接關(guān)閉本窗口pause >nulstart https://www.google.com.hkecho 已經(jīng)幫你訪問(wèn) google.com.hk 如可以訪問(wèn)則替換成功.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% 錯(cuò)誤：%*start %LogFilePath%echo 已打開日志文件goto :end:echoandlogecho %*echo %* %LogToFile%goto :eof:endecho 按任意鍵關(guān)閉pause >nulexit