今天在网上找到了在系统中可以屏蔽网址打开的方法,便试着用批处理写了出来,我是新手可能写的罗嗦一点,还希望坛子里的兄弟再改改.
运行环境:windows xp2
如果效果不明显可以把IE的cookie删掉
运行环境:windows xp2
如果效果不明显可以把IE的cookie删掉
附件
可屏蔽网址的批处理.rar (803 bytes, 下载附件所需积分 1 点, 下载次数: 92)
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 可屏蔽网址的批处理
查看 1,691 回复 13
楼 主
可屏蔽网址的批处理
发表于 2006-12-19 10:13 · 中国 广东 广州 越秀区 电信
可屏蔽网址的批处理.rar (803 bytes, 下载附件所需积分 1 点, 下载次数: 92)
第 2 楼
发表于 2006-12-19 11:00 · 中国 四川 成都 教育网
这点代码直接贴出来算了吧，呵呵
其实就改了个 host
@echo off
:start
@setlocal ENABLEDELAYEDEXPANSION
title 可屏蔽网址的批处理.
mode con cols=50 lines=15
echo *************************************************
echo *****************选择如下操作********************
echo.
echo.
echo ***************1.添加要屏蔽的网址****************
echo ***************2.删除已屏蔽的网址****************
echo ***************3.查找已屏蔽的网址****************
echo ***************4.退出****************************
echo.
copy C:\WINDOWS\system32\drivers\etc\hosts C:\WINDOWS\system32\drivers\etc\hosts.txt>nul
:chose
set /p enter=请你输入你的选择:
if not "%enter%"=="" set enter=%enter%
if /i "%enter%"=="1" goto add
if /i "%enter%"=="2" goto del
if /i "%enter%"=="4" goto end
if /i "%enter%"=="3" goto check
goto chose
:add
set /p input=输入要添加的网址
if /i "%input%"=="n" goto start
echo 127.0.0.1 %input%>>C:\WINDOWS\system32\drivers\etc\hosts.txt
echo 成功添加屏蔽网址%input%
echo 请准确的输入or按n退出!
copy C:\WINDOWS\system32\drivers\etc\hosts.txt C:\WINDOWS\system32\drivers\etc\hosts>nul
goto add
:del
echo ~_~你选择了删除操作切记务必最好输入完整的网址~_~
set /p del=输入要删除的网址:
if /i "%del%"=="n" goto start
@for /f "tokens=* delims=" %%i in ('findstr /i /v /c:%del% C:\WINDOWS\system32\drivers\etc\hosts.txt') do (
set var=%%i
echo !var!>>b.txt
)
copy b.txt C:\WINDOWS\system32\drivers\etc\hosts.txt>nul
del b.txt
echo 操作完成
echo 请准确的输入or按n退出!
copy C:\WINDOWS\system32\drivers\etc\hosts.txt C:\WINDOWS\system32\drivers\etc\hosts>nul
goto del
:check
for /f "tokens=2 delims= " %%i in ('findstr /i /c:"www" C:\WINDOWS\system32\drivers\etc\hosts.txt') do (set var=%%i
echo !var!
)
for /f "tokens=2 delims= " %%i in ('findstr /i /c:"bbs" C:\WINDOWS\system32\drivers\etc\hosts.txt') do (set var=%%i
echo !var!
)
copy C:\WINDOWS\system32\drivers\etc\hosts.txt C:\WINDOWS\system32\drivers\etc\hosts>nul
pause
cls
goto start
:end
copy C:\WINDOWS\system32\drivers\etc\hosts.txt C:\WINDOWS\system32\drivers\etc\hosts>nul
del C:\WINDOWS\system32\drivers\etc\hosts.txt
exit
其实就改了个 host
第 3 楼
发表于 2006-12-20 01:23 · 中国 甘肃 张掖 电信
hosts
第 4 楼
发表于 2006-12-20 01:27 · 中国 北京 联通
其实就是改下hosts文件而已
我今后在论坛的目标就是做个超级坏人！！！
第 5 楼
发表于 2007-03-10 19:05 · 中国 福建 泉州 电信
找的就是他
第 6 楼
发表于 2007-03-11 10:56 · 中国 江西 赣州 电信
想法很好。。支持楼主~！
第 7 楼
发表于 2007-03-11 12:18 · 中国 山西 运城 电信
当麦哲伦把鸡蛋立起以后
你总认为很简单！
可是在他没把鸡蛋立起来之前
你为什么不把鸡蛋立起呢！
我也支持楼主！
你总认为很简单！
可是在他没把鸡蛋立起来之前
你为什么不把鸡蛋立起呢！
我也支持楼主！
房东说：这娃是个好孩子！
第 8 楼
发表于 2007-03-11 13:37 · 中国 湖北 武汉 电信
不错，用批处理总比去打开系统文件夹修改hosts文件方便。支持楼主！
第 9 楼
发表于 2007-03-11 23:35 · 中国 四川 成都 教育网
Originally posted by maya0su at 2007-3-11 12:18:
当麦哲伦把鸡蛋立起以后
你总认为很简单！
可是在他没把鸡蛋立起来之前
你为什么不把鸡蛋立起呢！
我也支持楼主！
我怎么记得是哥伦布呢？ :P:P:P
C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
第 10 楼
发表于 2007-05-03 16:50 · 中国 湖北 武汉 电信
回去试验看看
第 11 楼
发表于 2007-05-05 01:09 · 中国 云南 红河哈尼族彝族自治州 电信
if /i "%del%"=="n" goto start
@for /f "tokens=* delims=" %%i in ('findstr /i /v /c:%del% C:\WINDOWS\system32\drivers\etc\hosts.txt') do (
请问这段中的 %del%起到什么作用？
@for /f "tokens=* delims=" %%i in ('findstr /i /v /c:%del% C:\WINDOWS\system32\drivers\etc\hosts.txt') do (
请问这段中的 %del%起到什么作用？
第 12 楼
发表于 2007-05-05 08:34 · 中国 辽宁 葫芦岛 联通
谢谢~~学习了~支持楼主~
第 13 楼
发表于 2008-11-20 14:22 · 中国 河南 郑州 联通
下载下来看看
第 14 楼
发表于 2008-11-20 17:21 · 中国 江苏 苏州 联通
支持一个
学习才是天堂
论坛跳转: