different ways to QTP maximize browser

最新推荐文章于 2024-05-29 21:01:48 发布

转载最新推荐文章于 2024-05-29 21:01:48 发布 · 1.1k 阅读

QTP 专栏收录该内容

15 篇文章

订阅专栏

本文介绍了三种利用QTP（QuickTest Professional）自动化工具来实现浏览器窗口的最大化与最小化的具体方法。方法一通过创建WScript.Shell对象运行不同模式的IE浏览器；方法二采用SystemUtil.Run函数实现相同功能；方法三则是直接操作InternetExplorer对象，通过其属性和方法完成窗口状态调整。

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