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

在部件中添加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 "你浏览的网站已被绿坝娘屏蔽！！" '在网页上显示文字

Call WBObj.Document.parentWindow.alert("你浏览的网址已经被屏蔽！") '弹出警告框
End If
Next
Set WBObj = Nothing
End Sub

如果不行，你留下在Hi上Call我发工程给你。

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/v73vyej2j.html