|
文/李玉君
目前，有不少個(gè)人主頁都存在這樣一個(gè)弊端：不經(jīng)訪問者的同意擅自將IE瀏覽器的主頁修改成自己的站點(diǎn)網(wǎng)址，標(biāo)題欄也被篡改成那些個(gè)人主頁的名字，甚至一開始就彈出幾個(gè)廣告窗口，讓人感到十分討厭。
雖然已經(jīng)有了不少恢復(fù)IE主頁這類軟件，但經(jīng)常來回修改仍然使我們感到煩悶。本文用VB編寫一個(gè)IE保護(hù)器，代碼短小簡單，并能自動(dòng)修復(fù)主頁和標(biāo)題欄，更方便快捷。
新建一個(gè)工程，加入一個(gè)Timer控件，在代碼窗口輸入以下代碼：
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Call setIE("Microsoft Internet Explorer", "about:blank")
'其中"Microsoft Internet..."就是IE的標(biāo)題，"about:blank"為空白主頁，可自行修改，使得你的IE更有個(gè)性化。
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
以上功能顯得比較簡易，你大可適當(dāng)添加一些功能，如提供兩個(gè)Text控件來設(shè)置主頁和標(biāo)題欄，這里不在詳述，本程序在簡體中文VB運(yùn)行通過。
|
