vb 浏览器打开关闭通知

1，添加引用

 

    SHDOCVW.dll

 

 2,声明变量

 

   Dim WithEvents shellWindow As SHDocVw.ShellWindows

 

 3，在表单得load事件中创建对象

 

   Set shellWindow = New SHDocVw.ShellWindows

 

 4,在表单的卸载事件中销毁对象

 

   Set shellWindow = Nothing

 

 5,注册窗口打开事件

 

   Private Sub shellWindow_WindowRegistered(ByVal lCookie As Long)

       MsgBox "新窗口打开"

   End Sub

 

 6,注册窗口关闭事件

   Private Sub shellWindow_WindowRevoked(ByVal lCookie As Long)

      MsgBox "关闭窗口"

   End Sub