Popups nach einer Weile wieder schließen

[Dark Ranger]

Ich habe die Suche benutzt und auch gegoogelt, aber keine Lösung für mein Problem gefunden!

Wie kann ich PopUps wieder schließen? Sie brauchen nicht direkt blockiert zu werden, aber ich will alle Seiten, bis auf eine ganz bestimmt Adresse wieder schließen, geht das?

 

[Shakie]

Was für PopUps meinst du? Hast du ein WebBrowser-Control, das Popups erzeugt?

 

[Dark Ranger]

Es sind PopUps von einer Werbungspage!
Also Popups, die der Internet Explorer erzeugt! Mir ist klar, dass ich sie nicht blockieren kann (eher darf), aber ich will sie nicht als wieder schließen müssen, sondern dass soll das Programm für mich machen!

Das Programm soll sozusagen alle 10 Sekunden oder so alle Fenster schließen nur ein ganz bestimmtes nicht, dass muss als da bleiben, aber der Rest soll geschlossen werden!

 

[Shakie]

Dann sende doch einfach mit der API PostMessage den Befehl an alle Popup-Fenster, dass sie sich schließen sollen.

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

Const WM_CLOSE = &H10
PostMessage(HandleNummer_des_PopupFensters, WM_CLOSE, 0, 0&)