用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運行通過。