首页 | 社区 | 博客 | 招聘 | 文章 | 新闻 | 下载 | 项目交易 | 网友作品 | 读书 | ACM题库 | 源码
亲,您未登录哦! 登录 | 注册

用VisualBasic做个IE保护器

(加入日期: 2001-11-14 )

打印文章】【字体:

分享到:
  文/李玉君

  目前,有不少个人主页都存在这样一个弊端:不经访问者的同意擅自将IE浏览器的主页修改成自己的站点网址,标题栏也被篡改成那些个人主页的名字,甚至一开始就弹出几个广告窗口,让人感到十分讨厌。

  虽然已经有了不少恢复IE主页这类软件,但经常来回修改仍然使我们感到烦闷。本文用VB编写一个IE保护器,代码短小简单,并能自动修复主页和标题栏,更方便快捷。

  
  新建一个工程,加入一个Timer控件,在代码窗口输入以下代码:

  Private Sub Form_Load()

  Timer1.Interval = 1000

  End Sub

  Private Sub Timer1_Timer()

  Call setIE("Microsoft Internet Explorer", "about:blank")

  '其中"Microsoft Internet..."就是IE的标题,"about:blank"为空白主页,可自行修改,使得你的IE更有个性化。

  End Sub

  Sub setIE(winTitle As String, StartPage As String)

  Set my = CreateObject("WScript.Shell")

  my.regWrite "HKCUSoftwareMicrosoftInternet ExplorerMainWindow Title", winTitle, "REG_SZ"

  my.regWrite "HKLMSoftwareMicrosoftInternet ExplorerMainWindow Title", winTitle, "REG_SZ"

  my.regWrite "HKCUSoftwareMicrosoftInternet ExplorerMainStart Page", StartPage, "REG_SZ"

  my.regWrite "HKLMSoftwareMicrosoftInternet ExplorerMainStart Page", StartPage, "REG_SZ"

  End Sub

  以上功能显得比较简易,你大可适当添加一些功能,如提供两个Text控件来设置主页和标题栏,这里不在详述,本程序在简体中文VB运行通过。 

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )

编程爱好者论坛

本栏最新文章