SystemUtil.Run "iexplore", "mail.yahoo.com","M:\","open","3"
b=browser("CreationTime:=3").exist
msgbox b
bb=browser("CreationTime:=0").GetROProperty("hwnd")
msgbox bb
set wc=window("hwnd:="&bb)
wc.Maximize
Set WshShell = CreateObject("WScript.Shell")
wait(3)
WshShell.SendKeys "^T"
'CreationTime
set hw1=browser("CreationTime:=0").Object.HWND
set cwindow=Window("hwnd:="&hw1.getroproperty("hwnd"))
cwindow.Maximze()
SystemUtil.Run "iexplore", "","M:\","open","3"
wait(8)
browser("creationTime:=0").sync
x=browser("creationTime:=0").getroproperty("hwnd")
msgbox x
ti=browser("hwnd:="&x).getroproperty("title")
msgbox ti
browser("hwnd:="&x).navigate("www.hotmail.com")
browser("creationTime:=0").navigate("www.hotmail.com")
browser("title:="&ti).navigate("www.yahoo.com")
cc=browser("title:=Blank Page - Windows Internet Explorer").Exist
msgbox cc
browser("title:=Blank Page - Windows Internet Explorer").Navigate "www.yahoo.com"
browser("title:=Blank Page - Windows Internet Explorer").OpenNewTab
browser("creationTime:=0").OpenNewTab
Browser("Browser").OpenNewTab
'Set WshShell = CreateObject("WScript.Shell")
'WshShell.SendKeys "^T"
Wednesday, December 16, 2009
Subscribe to:
Post Comments (Atom)

No comments:
Post a Comment