快捷搜索:

用VisualBasic做个IE保护器

文/李玉君

今朝,有不幼年我主页都存在这样一个弊端:不经造访者的批准擅自将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运行经由过程。

您可能还会对下面的文章感兴趣: