用批处理实现屏蔽恶意网址

2009/5/6 来源:www.arpun.com 作者:小白

@echo off  

@setlocal ENABLEDELAYEDEXPANSION  

title 可屏蔽网址的批处理.

:begin  

mode con cols=50 lines=56  

echo *************************************************  

echo *****************选择如下操作********************  

echo.  

echo.  

echo ***************1.添加要屏蔽的网址****************  

echo ***************2.删除已屏蔽的网址****************  

echo ***************3.查找已屏蔽的网址****************  

echo ***************4.退出****************************  

echo.  

copy %systemdrive%\WINDOWS\system32\drivers\etc\hosts %systemdrive%\WINDOWS\system32\drivers\etc\hosts.txt>nul  

:chose  

set /p enter=请你输入你的选择:  

echo. 

if /i "%enter%"=="1" goto add  

if /i "%enter%"=="2" goto del

if /i "%enter%"=="3" goto check   

if /i "%enter%"=="4" goto end  

:add  

set /p input=输入要添加的网址: 

if /i "%input%"=="n" goto chose

echo 127.0.0.1 %input%>>%systemdrive%\WINDOWS\system32\drivers\etc\hosts.txt  

echo 成功添加屏蔽网址%input%  

echo 请准确的输入或者按n跳到chose!  

copy %systemdrive%\WINDOWS\system32\drivers\etc\hosts.txt %systemdrive%\WINDOWS\system32\drivers\etc\hosts>nul

pause

cls

goto begin  

:del  

echo ~_~你选择了删除操作切记务必最好输入完整的网址~_~  

set /p del=输入要删除的网址:  

if /i "%del%"=="n" goto chose  

@for /f "tokens=* delims=" %%i in ('findstr /i /v /c:%del% %systemdrive%\WINDOWS\system32\drivers\etc\hosts.txt') do (  

set var=%%i  

echo !var!>>b.txt  

)  

copy b.txt %systemdrive%\WINDOWS\system32\drivers\etc\hosts.txt>nul  

del b.txt  

echo 操作完成  

echo 请准确的输入或者按n跳到chose!  

copy %systemdrive%\WINDOWS\system32\drivers\etc\hosts.txt %systemdrive%\WINDOWS\system32\drivers\etc\hosts>nul

pause

cls  

goto begin  

:check  

for /f "tokens=2 delims= " %%i in ('findstr /i /c:"www" %systemdrive%\WINDOWS\system32\drivers\etc\hosts.txt') do (set var=%%i  

echo !var!  

)  

for /f "tokens=2 delims= " %%i in ('findstr /i /c:"bbs" %systemdrive%\WINDOWS\system32\drivers\etc\hosts.txt') do (set var=%%i  

echo !var! 

)  

copy %systemdrive%\WINDOWS\system32\drivers\etc\hosts.txt %systemdrive%\WINDOWS\system32\drivers\etc\hosts>nul  

pause  

goto begin  

:end  

copy %systemdrive%\WINDOWS\system32\drivers\etc\hosts.txt %systemdrive%\WINDOWS\system32\drivers\etc\hosts>nul  

del %systemdrive%\WINDOWS\system32\drivers\etc\hosts.txt  

exit

网友评论
评论(...
全部评论