求VB代码，当打开某个网页时关闭它

来源：百度知道 编辑：UC知道 时间：2024/05/28 17:38:36
比如我要禁止www.123.com这个网页，给直接关闭浏览器的代码也行，不要调用批处理的代码

在部件中添加Microsoft Internet Controls

然后在窗口上添加一个Timer
把下面代码粘贴进去:
接着你打开 www.hao123.com 看看效果。。。

Option Explicit
Private ShellWnd As New ShellWindows

Private Sub Form_Load()
Timer1.Interval = 50
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim WBObj As Object
For Each WBObj In ShellWnd
If LCase(WBObj.LocationURL) Like "*www.hao123.com*" Then '如果网址类似 www.hao123.com
WBObj.Stop '停止浏览
WBObj.Navigate "about:blank" '跳转网址到空白页

If WBObj.Busy = False Then WBObj.Document.write "你浏览的网站已被绿坝娘屏蔽！！" '在网页上显示文字