用VB自动关闭网页广告窗口

原创 2007年09月24日 09:51:00

经常上网冲浪的人,在打开网页的时候经常遇到同时弹出多个广告窗口的情况,不但影响视线,还会影响网速。如果用鼠标一个个关闭,实在很麻烦。我经过观察分析,找到了解决的办法,可以让你的屏幕从此清爽起来。

     网页广告分析:

    1.弹出的广告窗口
    
    网页中弹出的广告窗口都是用JS或VBS编写的脚本程序,每个广告窗口都有自已的URL地址,只要获取所有的IE窗口的URL地址,再把其中的广告窗口的URL地址记录下来保存到文本文件中,并且关闭这个窗口,就达到了自动关闭广告的目的。
    2.Flash广告窗口
    
    有些广告是FLASH动画,只要获得窗口句柄,关闭类名为“MacromediaFlashPlayerActiveX”的FLASH播放控件,就可以关闭这些FLASH广告了。
        编程原理:通过设置定时器定时搜索,根据IE的程序名判断是否有IE窗口打开,如发现再进一步判断打开的IE的URL的地址是否与记录在列表框中的一致,如相同就关闭它。由于不涉及窗口的类名,无论是IE的各个版本都可以使用。至于网页中的FLASH则是通过“FindWindowEx”函数来一层层的查找打开网页窗口的“MacromediaFlashPlayerActiveX”类名(IE窗口的各个类名是通过工具软件“SPY++”可以获得),并返回窗口句柄,再用“SendMessage”消息函数发送消息关Flash广告窗口。

    程序设计:

    新建一个工程,添加一个窗体和控件。
    1.建立一个用来控制图标在系统托盘的模块“Module1”,相关代码见后文下载地址。
    2.程序主窗口的部分代码如下:
    Private Sub cmdRightOne_Click()'向黑名单列表中添加网址,cmdLeftOne的代码与此雷同,详见程序源代码
      On Error Resume Next
      Dim i As Integer
      If lstAll.ListCount = 0 Then Exit Sub
      If lstAll.Text = "" Then Exit Sub
      lstSelected.AddItem lstAll.Text
      i = lstAll.ListIndex
      lstAll.RemoveItem lstAll.ListIndex
      If lstAll.ListCount > 0 Then
        If i > lstAll.ListCount - 1 Then
          lstAll.ListIndex = i - 1
        Else
          lstAll.ListIndex = i
        End If
      End If
      lstSelected.ListIndex = lstSelected.NewIndex
    End Sub

    Private Sub closeflash()'关闭flash动画
    On Error GoTo callerrora
    Dim sclassname As String
    Dim windowhandle As Long
    Dim lhwnd As Long
    Dim a As Long
    lhwnd = 0
    sclassname = ("IEFrame")
    lhwnd = FindWindowEx(lhwnd, 0, sclassname, vbNullString)
    sclassname = ("Shell DocObject View")
    lhwnd = FindWindowEx(lhwnd, 0, sclassname, vbNullString)
    sclassname = ("Internet Explorer_server")
    lhwnd = FindWindowEx(lhwnd, 0, sclassname, vbNullString)
    sclassname = ("MacromediaFlashPlayerActiveX")
    lhwnd = FindWindowEx(lhwnd, 0, sclassname, vbNullString)
    windowhandle = lhwnd
    If windowhandle <> 0 Then
    a = SendMessage(windowhandle, WM_CLOSE, 0, 0)
    End If
    Exit Sub
    callerrora:
    MsgBox Err.Description
    Err.Clear
    End Sub

    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
    代码输入完毕,按F5运行一下吧(如图)!然后在IE中打开一个含有多个广告窗口的网页看一下效果如何,只要单击托盘图标调出程序,按“刷新”按钮就会在左边栏中列出所有的URL地址,把广告窗口的URL地址添加到右边的黑名单中,“确定”后以后就会自动关闭这个广告窗口了。如果想浏览它,再把它从黑名单中删除即可。也可以在托盘图标的右键菜单中,控制功能的开/关。
    本程序在Windows 98(IE6.0)和VB6.0企业版下调试通过。代码点击这里下载:

网页窗口自动关闭

  • 2012年12月19日 13:54
  • 2KB
  • 下载

VC++实现广告窗口自动关闭

我们在上网浏览时,有时访问到某些网站的网页时会自动弹出一些广告窗口,甚至有不少个人主页为了利用网络广告来赚钱一下同时弹出几个甚至十几个广告窗口。这些窗口一个一个的关掉十分麻烦,而且如果不关的话又会占用...

自动关闭ie的弹出窗口

  • 2004年06月24日 00:00
  • 20KB
  • 下载

窗口自动关闭

在一个对话框上单击按钮,然后弹出一个对话框,在这个对话框上做一些工作,完成之后弹出来的对话框自动关毕。...

自动关闭 的窗口 特效

  • 2010年02月09日 15:11
  • 2KB
  • 下载

WPF弹出一个窗口,并自动关闭

最近用WPF做了一个小的demo,由于对于WPF不是很熟悉,在这个过程中遇到不少问题,这篇文章便是针对某个小需求的整理,这个需求便是:在WPF中,如何弹出一个窗口,并让它定时自动关闭。 我记得我最早...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用VB自动关闭网页广告窗口
举报原因:
原因补充:

(最多只允许输入30个字)