different ways to QTP maximize browser

http://www.automationrepository.com/2012/01/different-ways-to-maximize-and-minimize-a-browser-using-qtp/

 

http://www.automationrepository.com/2012/01/different-ways-to-maximize-and-minimize-a-browser-using-qtp/

Method1

Dim WshShell, mode_Maximized, mode_Minimized

mode_Maximized = 3 'Open in maximized mode

mode_Minimized = 2 'Open in minimized mode

 

Set WshShell = CreateObject( "WScript.Shell" )

WshShell.Run "iexplore.exe http://www.automationrepository.com" , mode_Maximized, False

WshShell.Run "iexplore.exe http://www.automationrepository.com" , mode_Minimized, False

Set WshShell = Nothing

 

Method2

Dim mode_Maximized, mode_Minimized

mode_Maximized = 3 'Open in maximized mode

mode_Minimized = 2 'Open in minimized mode

 

'Open browser in maximized and minimized mode

SystemUtil.Run "iexplore.exe" , "http://www.automationrepository.com" , , ,mode_Maximized

SystemUtil.Run "iexplore.exe" , "http://www.automationrepository.com" , , ,mode_Minimized

 

Method3

Dim oIE

 

'Create an object of Internet Explorer type

Set oIE= CreateObject( "InternetExplorer.Application" )

oIE.visible = True

oIE.navigate "http://www.automationrepository.com"

 

'Maximize the Browser Window

Window( "hwnd:=" & oIE.HWND).Maximize

 

'Minimize the Browser Window

Wait(2)

Window( "hwnd:=" & oIE.HWND).Minimize