用VB自制了一个网页屏蔽的小程序，原理很简单，就是将网站的地址写入hosts文件，IP对应为自己的回环地址127.0.0.1。
代码如下：
- Set objShell = CreateObject("Wscript.Shell")
- strsite = LCase(InputBox("输入的网站将被列入本机黑名单;" & vbCrlf & vbCrlf & "如需启用请用记事本编辑下面文件" & vbCrlf & "%systemroot%\system32\drivers\etc\hosts" & vbCrlf & "删除相应条目即可","请输入你要屏蔽的网站"))
- If strsite = "" Then
- wscript.quit
- End If
- strcmd = "echo 127.0.0.1 " & strsite & ">> %systemroot%\system32\drivers\etc\hosts"
- objShell.Run("%comspec% /c" & strcmd)
程序的界面
执行后在IE中打开www.hao123.com结果
本文转自yangye1985 51CTO博客，原文链接：http://blog.51cto.com/yangye/697786，如需转载请自行联系原作者