WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

OLE with MSIE
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

MSIE OLE Popup Killer

Keywords:   MSIE OLE Popup Killer.wbt

NB: Also goes to the systray: you can toggle the popup killer on/off with a mouse click on the sys tray icon.

Note that when you run it, all existing IE windows will be closed.


wintitle("","PopupKiller")
AddExtender("wwctl34i.dll") ;control manager
IntControl(12,5,"",0,0) ;quiet termination 

;OLE
Browser=ObjectOpen("InternetExplorer.Application")
Browser.Visible="True"
ieid=cWinidConvert(browser.hwnd) ;IE id

;go to system tray
IntControl(1007,1,0,"PopupKiller On","") 

errormode(@off)
while 1
;sys tray routine
if IntControl(1007,0,0,"","")==1 ;check
IntControl(1007,4,1,"PopupKiller Off","") 
display(1,"PopupKiller Off","")
if IntControl(1007,3,1,"","")==1 ;wait
IntControl(1007,4,1,"PopupKiller On","") ;lc
IntControl(1007,0,0,"","") ;reset 
display(1,"PopupKiller On","")
endif
endif

;close any IE window different from main IE wnd
idlist=WinItemNameId()
count=itemcount(idlist,"|")
for x=2 to count by 2
id2=itemextract(x,idlist,"|") 
if id2==ieid then continue
if cWndInfo(cWinidConvert(id2),2)=="IEFrame" then winclose(id2)
next

timedelay(1)
endwhile

Article ID:   W15657
File Created: 2003:05:13:11:29:22
Last Updated: 2003:05:13:11:29:22