script_tool_for_windows.bat Windows 環(huán)境下的 hosts 一鍵部署腳本
我們提供了一系列工具讓您除了手動(dòng)以 復(fù)制/粘貼 的方式部署和更新 hosts 之外,有一種方便、一鍵式的方式來應(yīng)用我們的 hosts 。
我們現(xiàn)有的工具可以在下列平臺(tái)上工作:
Microsoft Windows (.bat script; Qt GUI tool; console (service type) tool)
另外,我們還推薦使用跨平臺(tái)的 Hozz 來管理、自動(dòng)更新 hosts 。
目前,我們共有:
Hozz: 跨平臺(tái)的 hosts 自動(dòng) 管理/更新 工具。是 @ppoffice 的項(xiàng)目。
項(xiàng)目主頁
項(xiàng)目Github主頁 https://github.com/racaljk/hosts/tree/master/hosts_tools
HostTool: Windows 環(huán)境下的 hosts 自動(dòng)更新應(yīng)用,使用 C++ 構(gòu)建, GUI 基于 Qt 。由 @racaljk 貢獻(xiàn)。
HostToolforMac: Mac 環(huán)境下的 hosts 自動(dòng)部署更新應(yīng)用(適用于 OS X 10.10 或以上),基于 Swift 開發(fā)。由 @ZzzM 貢獻(xiàn)。
HostsToolforWindows: Windows console環(huán)境下的 hosts 自動(dòng)更新應(yīng)用(作為系統(tǒng)服務(wù)),使用 C++ 構(gòu)建。由 @Too-Naive 貢獻(xiàn)。
script_tool_for_windows.bat: Windows 環(huán)境下的 hosts 一鍵部署腳本,由 @redapple0204 與 @lizongzeshunshun 貢獻(xiàn)。以及 @lideming 提供的重要更新。
@echo off if defined converted goto :converted set ConverterPath=%temp%\HostsGeter_CodeConverter.vbs set ConverterOutput=%temp%\HostsGeter_GBK.bat echo 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 :converted chcp 936 :: 更改cmd窗口代碼頁至 936(GBK) cls %1 %2 ver|find " 5.">nul &&goto :st echo 正在進(jìn)行 UAC 提權(quán)... mshta vbscript:createobject("shell.application").shellexecute("%~s0","goto :st","","runas",1)(window.close)&goto :eof :st cls @REM HostsGet Version0.4 cd /d %~dp0 set LogFilePath=%temp%\HostsGeter_log.txt set DLScriptPath=%temp%\downloadhosts.vbs set DLPath=%windir%\system32\drivers\etc\hosts_downloaded set BackupDir=%windir%\system32\drivers\etc set HostsPath=%windir%\system32\drivers\etc\hosts set LogToFile=^>^>%LogFilePath% 2^>^&1 set EchoAndLog=call :echoandlog echo. %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 文件不存在,跳過備份) ) %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 按任意鍵訪問 google.com.hk 進(jìn)行測試,如取消,請(qǐng)直接關(guān)閉本窗口 pause >nul start https://www.google.com.hk echo 已經(jīng)幫你訪問 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 :error echo ====================== %EchoAndLog% 錯(cuò)誤:%* start %LogFilePath% echo 已打開日志文件 goto :end :echoandlog echo %* echo %* %LogToFile% goto :eof :end echo 按任意鍵關(guān)閉 pause >nul exit
相關(guān)文章
命令行窗口自動(dòng)居中之批處理版實(shí)現(xiàn)代碼(娛樂)
這篇文章主要介紹了命令行窗口自動(dòng)居中之批處理版實(shí)現(xiàn)代碼(娛樂),需要的朋友可以參考下2023-07-07批處理+Rar實(shí)現(xiàn)批量獨(dú)立壓縮目錄和解壓目錄
一把情況下,如果當(dāng)前目錄較多想分別壓縮,如果一個(gè)一個(gè)的壓縮肯定受不了,不妨用下面的代碼試試。2010-03-03bat批處理徹底隱藏文件的方法(使用虛擬磁盤實(shí)現(xiàn))
這篇文章主要介紹了bat批處理徹底隱藏文件的方法,本文使用創(chuàng)建虛擬磁盤的方法實(shí)現(xiàn),虛擬磁盤的盤符定為X盤,會(huì)出現(xiàn)在我的電腦中,使用時(shí)顯示,不用時(shí)隱藏2014-06-06