瑞星卡卡安全论坛

Private Sub filter()'过滤黑名单中的广告链接
    Dim objIE As Object
    Dim i As Integer
    On Error Resume Next
    For Each objIE In dWinFolder '遍历所有IE浏览器窗口
    If InStr(1, objIE.FullName, "IEXPLORE.EXE", vbTextCompare) <> 0 Then
    For i = 1 To lstSelected.ListCount - 1
    If objIE.LocationURL = Trim(lstSelected.List(i)) Then
    objIE.Quit
    Exit For
    End If
    Next i
    End If
    Next
    objIE = Nothing
    End Sub

这是vb编程， 谁能实现？

1。ie自带的屏蔽功能，只能屏蔽网站主站，他的网页不能屏蔽
2。360安全卫士只能屏蔽，但不能关闭ie.
3。美萍太大，屏蔽得太多！

还有什么方法？斑竹会么？？谢谢.

没人懂么？ 

popup killer这个软件不错，我能破解它的注册码。

我能用了！

hosts中修改为127.0.0.1 (http://)以后的网址.保存即可
例如127.0.0.1 ad.arc90.net/shop.htm #成人用品商店

你说的只是屏蔽网页，我说得要关闭弹出的ie浏览器！