自制网站屏蔽工具-阿里云开发者社区

开发者社区> 云计算> 正文
登录阅读全文

自制网站屏蔽工具

简介:

用VB自制了一个网页屏蔽的小程序,原理很简单,就是将网站的地址写入hosts文件,IP对应为自己的回环地址127.0.0.1。

代码如下:


  1. Set objShell = CreateObject("Wscript.Shell")  
  2. strsite = LCase(InputBox("输入的网站将被列入本机黑名单;" & vbCrlf & vbCrlf & "如需启用请用记事本编辑下面文件" & vbCrlf & "%systemroot%\system32\drivers\etc\hosts" & vbCrlf & "删除相应条目即可","请输入你要屏蔽的网站"))  
  3. If strsite = "" Then 
  4. wscript.quit  
  5. End If 
  6. strcmd = "echo 127.0.0.1 " & strsite & ">> %systemroot%\system32\drivers\etc\hosts" 
  7. objShell.Run("%comspec% /c" & strcmd) 

 

程序的界面

 

 

执行后在IE中打开www.hao123.com结果



本文转自yangye1985 51CTO博客,原文链接:http://blog.51cto.com/yangye/697786,如需转载请自行联系原作者


版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

分享: