Jag vill stänga ner en javascript-popup som kommer upp när jag besöker en webbsida.

Detta fick jag fram i spy++:

Caption: "Microsoft Internet Explorer"

Class: #32770

Handle: 000B0556

Style: 94C801C5


Min kod:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim winWnd As Long

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Command1_Click()
popupWnd = FindWindow(vbNullString, "Microsoft Internet Explorer")
If popupWnd > 0 Then
PostMessage popupWnd, WM_CLOSE, 0&, 0&
End If
End Sub

Antagligen fungerar inte detta pga att det är ett child window. hur gör jag för att stänga ett sådant?