用VisualBasic做个IE保护器 |
|---|
|
| 2004-05-24 李玉君 |
| |
目前，有不少个人主页都存在这样一个弊端：不经访问者的同意擅自将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运行通过。
|
|
| |
|
发表评论
推荐文章
关闭窗口
|
|
|
|
