Projects

Gateway Multi-function Keyboard Utility

November 19, 2002 by Java

Browsing Utility/CloseMSNPopupsMod.bas (755 B)

Attribute VB_Name = "CloseMSNPopupsMod"

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205
Public Sub CloseMSNPopups()
Dim Wnd As Long
    Wnd = FindWindow("MSBLPopupMsgWClass", vbNullString)
    Do While Wnd
        PostMessage Wnd, WM_RBUTTONDOWN, 0&, ByVal 0&
        PostMessage Wnd, WM_RBUTTONUP, 0&, ByVal 0&
        Wnd = FindWindow("MSBLPopupMsgWClass", vbNullString)
        DoEvents
    Loop
End Sub

Download Utility/CloseMSNPopupsMod.bas

Back to file list

---

Back to project page