中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
作者:
标题: 可屏蔽网址的批处理 上一主题 | 下一主题
freeapple
初级用户





积分 56
发帖 25
注册 2006-11-26
状态 离线
『楼 主』:  可屏蔽网址的批处理

今天在网上找到了在系统中可以屏蔽网址打开的方法,便试着用批处理写了出来,我是新手可能写的罗嗦一点,还希望坛子里的兄弟再改改.
运行环境:windows xp2
如果效果不明显可以把IE的cookie删掉

附件 1: 可屏蔽网址的批处理.rar (2006-12-19 10:13, 803 bytes, 下载附件所需积分 1 点 ,下载次数: 92)
2006-12-19 10:13
查看资料  发短消息 网志   编辑帖子
electronixtar
铂金会员





积分 7493
发帖 2672
注册 2005-9-2
状态 离线
『第 2 楼』:  

这点代码直接贴出来算了吧,呵呵
@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

2006-12-19 11:00
查看资料  发送邮件  发短消息 网志   编辑帖子
vkill
金牌会员





积分 4103
发帖 1744
注册 2006-1-20
来自 甘肃.临泽
状态 离线
『第 3 楼』:  

hosts

2006-12-20 01:23
查看资料  发送邮件  访问主页  发短消息 网志   编辑帖子
9527
银牌会员

努力做坏人


积分 1185
发帖 438
注册 2006-8-28
来自 北京
状态 离线
『第 4 楼』:  

其实就是改下hosts文件而已



我今后在论坛的目标就是做个超级坏人!!!
2006-12-20 01:27
查看资料  发短消息 网志  OICQ (329429)  编辑帖子
881215
新手上路





积分 12
发帖 5
注册 2007-3-10
状态 离线
『第 5 楼』:  

找的就是他

2007-3-10 19:05
查看资料  发送邮件  发短消息 网志   编辑帖子
semirmyway
新手上路





积分 18
发帖 10
注册 2007-2-10
状态 离线
『第 6 楼』:  

想法很好。。支持楼主~!

2007-3-11 10:56
查看资料  发短消息 网志   编辑帖子
maya0su
中级用户




积分 241
发帖 131
注册 2005-9-28
状态 离线
『第 7 楼』:  

当麦哲伦把鸡蛋立起以后
你总认为很简单!
可是在他没把鸡蛋立起来之前
你为什么不把鸡蛋立起呢!
我也支持楼主!



房东说:这娃是个好孩子!
2007-3-11 12:18
查看资料  发送邮件  发短消息 网志  OICQ (55115315)  编辑帖子
lxmxn
版主




积分 11386
发帖 4938
注册 2006-7-23
状态 离线
『第 8 楼』:  


  不错,用批处理总比去打开系统文件夹修改hosts文件方便。支持楼主!


2007-3-11 13:37
查看资料  发送邮件  发短消息 网志   编辑帖子
electronixtar
铂金会员





积分 7493
发帖 2672
注册 2005-9-2
状态 离线
『第 9 楼』:  



  Quote:
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'>"
2007-3-11 23:35
查看资料  发送邮件  发短消息 网志   编辑帖子
xynn
初级用户





积分 28
发帖 12
注册 2007-5-3
状态 离线
『第 10 楼』:  

回去试验看看

2007-5-3 16:50
查看资料  发短消息 网志   编辑帖子
sd287054
初级用户





积分 111
发帖 44
注册 2007-3-12
状态 离线
『第 11 楼』:  

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%起到什么作用?

2007-5-5 01:09
查看资料  发送邮件  发短消息 网志   编辑帖子
z83001
新手上路





积分 19
发帖 13
注册 2007-4-22
状态 离线
『第 12 楼』:  

谢谢~~学习了~支持楼主~

2007-5-5 08:34
查看资料  发送邮件  发短消息 网志   编辑帖子
wfdswfsdfs
新手上路





积分 1
发帖 1
注册 2008-11-20
状态 离线
『第 13 楼』:  

下载下来看看

2008-11-20 14:22
查看资料  发送邮件  发短消息 网志   编辑帖子
ads1111
新手上路




积分 17
发帖 22
注册 2008-11-13
状态 离线
『第 14 楼』:  

支持一个



学习才是天堂
2008-11-20 17:21
查看资料  发短消息 网志   编辑帖子

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: