Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Keywords: MSIE OLE Popup Killer.wbt
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