当前位置:首页 > VB源码 > 正文内容

VB 浏览器主页卫士 感知浏览器主页被修改并进行阻止

Scar2个月前 (09-05)VB源码159
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
扫描二维码至手机访问

扫描二维码推送至手机访问。

版权声明:本文由小卡博客发布,如需转载请注明出处。

转载请注明出处:http://2wxk.com/post/23.html

分享给朋友:
返回列表

没有更早的文章了...

没有最新的文章了...

发表评论

访客

看不清,换一张

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。