close desired browser with print and Auto fade popup

SystemUtil.Run "iexplore", "mail.yahoo.com","M:\","open","3"

with browser("title:=Yahoo! Mail: The best web-based email! - Windows Internet Explorer").page("title:=Yahoo! Mail: The best web-based email!")
.sync
wait(3)
val=browser("title:=Yahoo! Mail: The best web-based email! - Windows Internet Explorer").GetROProperty("hwnd")
'window("hwnd:=" & val).type micF5
end with




Set sh=createobject("wscript.shell")
sh.Popup "ding",2,"ding1",(0+4)

' Print command
Dim bro
Set bro=description.Create
bro("micclass").value="Browser"

Set brow=desktop.ChildObjects(bro)
browco=brow.count
print browco

siteclose=inputbox("Enter your Site to Close",WebPage,"Enter Window Name")

For i=0 to browco-1
title=brow(i).getroproperty("title")
print "Browser Title is : "&title

Dim regEx,Match,Matches
Set regEx=New RegExp
regEx.pattern=siteclose
regEx.IgnoreCase=True
regEx.Global=True
Set Matches=regEx.Execute(title)

For Each Match in Matches
hnd=browser("title:="&title).getroproperty("hwnd")
'namee=browser("title:="&val).getroproperty("LocationName")
print title&" Page Found It is Closing now"
systemutil.CloseProcessByHwnd(hnd)
Next
Next