VB 浏览器主页卫士 感知浏览器主页被修改并进行阻止
Dim a
Dim reg As Object
Private Sub Command1_Click()'开始监视
a = reg.Regread("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page")
Timer1.Interval = 100
End Sub
Private Sub Form_Load()
Set reg = CreateObject("Wscript.shell")
End Sub
Private Sub Timer1_Timer()
Set reg = CreateObject("Wscript.shell")
b = reg.Regread("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page")
If a <> b Then
If MsgBox("发现主页被改为" & b & ",是否允许修改?", vbYesNo) = vbNo Then
reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page", a, "REG_SZ"
a = reg.Regread("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page")
MsgBox "主页已恢复为:" & a
Else
a = reg.Regread("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page")
End If
End If
End Sub