自制网站屏蔽工具

用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结果