免费SS | 加入收藏 | 设为首页 | 会员中心 | 我要投稿 | 赞助本站 | RSS
 

freefq.comfree——免费、自由fq——翻墙

困在墙内,请发邮件到freefqcom#gmail.com获得最新免费翻墙方法!
您当前的位置:首页 > 网络翻墙技巧

运用windows批处理实现一键翻墙

←分享
时间:2016-11-18  来源:  作者: ★推荐请点击G+1→

运用windows批处理实现一键科学上网sI0免费翻墙网

一键翻墙hosts文件.rar
文件类型: .rar f67869d7793d82a9eadd25a8164b9b60.rar (1.73 KB)
sI0免费翻墙网

@echo offsI0免费翻墙网
if defined converted goto :convertedsI0免费翻墙网
sI0免费翻墙网
set ConverterPath=%temp%\HostsGeter_CodeConverter.vbssI0免费翻墙网
set ConverterOutput=%temp%\HostsGeter_GBK.batsI0免费翻墙网
sI0免费翻墙网
echo inputpath="%~0" >%ConverterPath%sI0免费翻墙网
echo outputpath="%ConverterOutput%" >>%ConverterPath%sI0免费翻墙网
echo set stm2=createobject("ADODB.Stream") >>%ConverterPath%sI0免费翻墙网
echo stm2.Charset ="utf-8" >>%ConverterPath%sI0免费翻墙网
echo stm2.Open >>%ConverterPath%sI0免费翻墙网
echo stm2.LoadFromFile inputpath >>%ConverterPath%sI0免费翻墙网
echo readfile = stm2.ReadText >>%ConverterPath%sI0免费翻墙网
echo stm2.Close >>%ConverterPath%sI0免费翻墙网
echo Set Stm1 =CreateObject("ADODB.Stream") >>%ConverterPath%sI0免费翻墙网
echo Stm1.Type = 2 >>%ConverterPath%sI0免费翻墙网
echo Stm1.Open >>%ConverterPath%sI0免费翻墙网
echo Stm1.Charset ="GBK" >>%ConverterPath%sI0免费翻墙网
echo Stm1.Position = Stm1.Size >>%ConverterPath%sI0免费翻墙网
echo Stm1.WriteText "set converted=y" ^& vbcrlf >>%ConverterPath%sI0免费翻墙网
echo Stm1.WriteText readfile >>%ConverterPath%sI0免费翻墙网
echo Stm1.SaveToFile outputpath,2 >>%ConverterPath%sI0免费翻墙网
echo Stm1.Close >>%ConverterPath%sI0免费翻墙网
%ConverterPath% && %ConverterOutput%sI0免费翻墙网
goto :eofsI0免费翻墙网
sI0免费翻墙网
:convertedsI0免费翻墙网
sI0免费翻墙网
chcp 936sI0免费翻墙网
:: 更改cmd窗口代码页至 936(GBK)sI0免费翻墙网
sI0免费翻墙网
clssI0免费翻墙网
%1 %2sI0免费翻墙网
ver|find " 5.">nul &&goto :stsI0免费翻墙网
echo 正在进行 UAC 提权...sI0免费翻墙网
mshta vbscript:createobject("shell.application").shellexecute("%~s0","goto :st","","runas",1)(window.close)&goto :eofsI0免费翻墙网
:stsI0免费翻墙网
sI0免费翻墙网
clssI0免费翻墙网
sI0免费翻墙网
@REM HostsGet Version0.4sI0免费翻墙网
cd /d %~dp0sI0免费翻墙网
sI0免费翻墙网
set LogFilePath=%temp%\HostsGeter_log.txtsI0免费翻墙网
set DLScriptPath=%temp%\downloadhosts.vbssI0免费翻墙网
set DLPath=%windir%\system32\drivers\etc\hosts_downloadedsI0免费翻墙网
set BackupDir=%windir%\system32\drivers\etcsI0免费翻墙网
set HostsPath=%windir%\system32\drivers\etc\hostssI0免费翻墙网
sI0免费翻墙网
set LogToFile=^>^>%LogFilePath% 2^>^&1sI0免费翻墙网
set EchoAndLog=call :echoandlogsI0免费翻墙网
echo. %LogToFile%sI0免费翻墙网
echo ==========[%date% %time%]========== %LogToFile%sI0免费翻墙网
echo 日志文件:sI0免费翻墙网
echo %LogFilePath%sI0免费翻墙网
echo.sI0免费翻墙网
sI0免费翻墙网
echo iLocal=LCase("%DLPath%") > %DLScriptPath% ||(sI0免费翻墙网
 call :error downloadhosts.vbs 文件创建/写入失败.sI0免费翻墙网
)sI0免费翻墙网
echo iRemote=LCase("https://coding.net/u/scaffrey/p/hosts/git/raw/master/hosts") >> %DLScriptPath%sI0免费翻墙网
echo Set xPost=createObject("Microsoft.XMLHTTP") 'Set Post = CreateObject("Msxml2.XMLHTTP") >> %DLScriptPath%sI0免费翻墙网
echo xPost.Open "GET",iRemote,0 >> %DLScriptPath%sI0免费翻墙网
echo xPost.Send() >> %DLScriptPath%sI0免费翻墙网
echo set sGet=createObject("ADODB.Stream") >> %DLScriptPath%sI0免费翻墙网
echo sGet.Mode=3 >> %DLScriptPath%sI0免费翻墙网
echo sGet.Type=1 >> %DLScriptPath%sI0免费翻墙网
echo sGet.Open() >> %DLScriptPath%sI0免费翻墙网
echo sGet.Write xPost.ResponseBody >> %DLScriptPath%sI0免费翻墙网
echo sGet.SaveToFile iLocal,2 >> %DLScriptPath%sI0免费翻墙网
sI0免费翻墙网
%EchoAndLog% 开始从 GitHub 中下载 hosts 文件...sI0免费翻墙网
if exist %DLPath% del %DLPath% /s /q %LogToFile%sI0免费翻墙网
%DLScriptPath% || call :error hosts 文件下载失败.sI0免费翻墙网
del %DLScriptPath% /s /q %LogToFile%sI0免费翻墙网
if not exist %DLPath% call :error hosts 文件下载失败.sI0免费翻墙网
%EchoAndLog% 下载完成.sI0免费翻墙网
echo.sI0免费翻墙网
sI0免费翻墙网
if exist %HostsPath% (sI0免费翻墙网
    call :backuphostssI0免费翻墙网
) else (sI0免费翻墙网
    %EchoAndLog% (原 hosts 文件不存在,跳过备份)sI0免费翻墙网
)sI0免费翻墙网
%EchoAndLog% 正在替换 hosts 文件...sI0免费翻墙网
move %DLPath% %HostsPath% %LogToFile% || call :error hosts 文件替换失败.sI0免费翻墙网
%EchoAndLog% hosts 文件已替换.sI0免费翻墙网
echo.sI0免费翻墙网
sI0免费翻墙网
%EchoAndLog% 正在刷新系统 DNS 缓存...sI0免费翻墙网
ipconfig /flushdns %LogToFile% || call :error DNS 缓存刷新失败.sI0免费翻墙网
%EchoAndLog% DNS 缓存已刷新.sI0免费翻墙网
echo.sI0免费翻墙网
%EchoAndLog% 【操作全部完成!】sI0免费翻墙网
echo.sI0免费翻墙网
sI0免费翻墙网
echo 按任意键访问 google.com.hk 进行测试,如取消,请直接关闭本窗口sI0免费翻墙网
pause >nulsI0免费翻墙网
start https://www.google.com.hksI0免费翻墙网
echo 已经帮你访问 google.com.hk 如可以访问则替换成功.sI0免费翻墙网
echo.sI0免费翻墙网
goto :endsI0免费翻墙网
sI0免费翻墙网
:backuphostssI0免费翻墙网
%EchoAndLog% 正在备份原 hosts 文件...sI0免费翻墙网
set "bakfilename=hosts_%date%_%time:~0,8%.bak"sI0免费翻墙网
set bakfilename=%bakfilename:/=-%sI0免费翻墙网
set bakfilename=%bakfilename:\=-%sI0免费翻墙网
set bakfilename=%bakfilename::=-%sI0免费翻墙网
set bakfilename=%bakfilename: =_%sI0免费翻墙网
copy %HostsPath% %BackupDir%\%bakfilename% %LogToFile% || call :error hosts 文件备份失败.sI0免费翻墙网
%EchoAndLog% 原 hosts 文件已备份到 %BackupDir%\%bakfilename%.sI0免费翻墙网
echo.sI0免费翻墙网
goto :eofsI0免费翻墙网
sI0免费翻墙网
:errorsI0免费翻墙网
echo ======================sI0免费翻墙网
%EchoAndLog% 错误:%*sI0免费翻墙网
start %LogFilePath%sI0免费翻墙网
echo 已打开日志文件sI0免费翻墙网
goto :endsI0免费翻墙网
sI0免费翻墙网
:echoandlogsI0免费翻墙网
echo %*sI0免费翻墙网
echo %* %LogToFile%sI0免费翻墙网
goto :eofsI0免费翻墙网
sI0免费翻墙网
:endsI0免费翻墙网
echo 按任意键关闭sI0免费翻墙网
pause >nulsI0免费翻墙网
exitsI0免费翻墙网
 sI0免费翻墙网

顶一顶请点击右边G+1

分享到:

来顶一下
返回首页
返回首页
欢迎评论:免登录,输入验证码即可匿名评论 共有条评论
用户名: 密码:
验证码: 匿名发表

推荐资讯

美加速免费VPN,Free & Unlimited VPN
美加速免费VPN,Free &
MoonVPN Free VPN Unblock Proxy下载
MoonVPN Free VPN Unb
Turbo VPN – Unlimited Free VPN|Turbo免费VPN代理下载
Turbo VPN – Unlimit
免费vpn之Free VPN proxy by Snap VPN
免费vpn之Free VPN pr
相关文章
栏目更新
栏目热门

翻越防火长城,你可以到达世界上的每一个角落!

Across the Great Firewall, you can reach every corner in the world!

本站严正声明:各位翻墙的网友切勿将本站介绍的翻墙方法运用于违反当地法律法规的活动,本站对网友的遵纪守法行为表示支持,对网友的违法犯罪行为表示反对!

虽然原创信息发布时都经过本站测试通过,但你懂的——翻墙软件或方法随时有可能失效,因此本站信息具有极强时效性,想要更多有效免费翻墙方法敬请阅读本站最新信息,建议收藏本站!本站为纯粹技术网站,支持科学与民主,支持宗教信仰自由,反对恐怖主义、邪教、伪科学与专制,不支持或反对任何极端主义的政治观点或宗教信仰。有注明出处的信息均为转载文章,转载信息仅供参考,并不表明本站支持其观点或行为。未注明出处的信息为本站原创,转载时也请注明来自本站。

鉴于各种免费翻墙软件甚至是收费翻墙软件可能存在的安全风险及个人隐私泄漏可能,本站提醒各位网友做好各方面的安全防护措施!本站无法对提供的翻墙软件、应用或服务等进行全面而严格的安全测试,因此无法对其安全性做保证,无法对您因为安全问题或隐私泄漏等问题造成的任何损失承担任何责任!

650 Castro Street, Suite 120-219 Mountain View, CA, USA, 94041

知识共享许可协议
本作品采用知识共享署名-非商业性使用 4.0 国际许可协议进行许可。