‘———————————————————————————————————————————
‘名称:MaxIE
‘作用:最大化IE
‘使用:QTP.MaxIE(BrowserCreationTime)
Function MaxIE(BrowserCreationTime)
On Error Resume Next ‘开启错误处理,不弹出错误。
If Cint(Browser("CreationTime:=" & BrowserCreationTime).GetROProperty("width")) > 1300 Then
Exit Function
End If
Dim IEversion
IEversion = Browser("CreationTime:=" & BrowserCreationTime).GetROProperty("application version")
Select Case IEversion
Case ""
msgbox"【警告】获取IE浏览器版本失败。"
Case "internet explorer 6"
Dim BrowserHwnd
BrowserHwnd = Browser("CreationTime:=" & BrowserCreationTime).GetROProperty("hwnd")
window("hwnd:=" & BrowserHwnd).Maximize
Case Else
If BrowserCreationTime = 0 Then
Window("nativeclass:=IEFrame","index:=" & BrowserCreationTime).Maximize
wait 1
Else
Browser("CreationTime:=" & BrowserCreationTime).FullScreen
wait 1
End If
End Select
If Err.number <> 0 Then
magbox"【警告】最大化IE浏览器失败。Err.description = " & Err.description
Err.Clear
End If
On Error Goto 0 ‘关闭错误处理,弹出错误。
End Function
QTP之IE最大化
时间: 2024-08-25 09:23:32
QTP之IE最大化的相关文章
qtp中vb脚本,经典收藏
1.在脚本运行过程中屏蔽鼠标键盘输入 SystemUtil.BlockInput '开始处 这里是你的脚本 SystemUtil.UnblockInput '结尾处 --------------------------------------- 补充关闭进程的方法:Systemutil.closeprocessbyname "GreenBrowser.exe" 2.检查页面对象是否可用 yanzheng=Browser("电子政务").Page("::::
qtp:vbs基础教程
◎Vbs脚本编程简明教程之中的一个-为什么要使用Vbs? 在Windows中,学习计算机操作或许非常easy,可是非常多计算机工作是反复性劳动,比如你每周或许须要对一些计算机文件进行复制.粘贴.改名.删除.或许你每天启动计算机第一件事情就是打开WORD,切换到你喜爱的输入法进行文本编辑,同一时候还要播放优美的音乐给工作创造一个舒心的环境.当然也有可能你常常须要对文本中的某些数据进行整理,把各式各样的数据依照某种规则排列起来--.这些事情反复.琐碎,使人easy疲劳. 第三方软件或许能够强化计算
CMD应用 qtp/winshell/cmd的交互
=================================================================== '采用windows.shell的 sendkeys 方式: set objshell=createobject("wscript.shell") objshell.run("cmd") objshell.SendKeys("{ENTER}") objshell.SendKeys("cd C:\work
【二分查找-最大化平均值】POJ2976 - Dropping Test
[题目大意] 给出n组ai和bi,去掉k个使得a的总和除以b的总和最大. [思路] 也就是取(n-k)个数,最大化平均值,见<挑战程序设计竞赛>P144,最后公式为c(x)=((ai-x*bi)从大到小排列的前(n-k)个的和不小于0) 1 #include<iostream> 2 #include<cstdio> 3 #include<cstring> 4 #include<algorithm> 5 #include<cmath>
自定义窗体的最大化,最小化,关闭功能
namespace 自定义窗体的最大化_最小化和关闭按钮 { partial class Form1 { /// <summary> /// 必需的设计器变量. /// </summary> private System.ComponentModel.IContainer components = null; /// <summary> /// 清理所有正在使用的资源. /// </summary> /// <param name="disp
【贪心专题】POJ 2456 Aggressive cows &;&; NYOJ 586 疯牛(最大化最小值 贪心+二分搜索)
链接: click here~~ 题意:农夫 John 建造了一座很长的畜栏,它包括N (2 <= N <= 100,000)个隔间,这些小隔间依次编号为x1,...,xN (0 <= xi <= 1,000,000,000). 但是,John的C (2 <= C <= N)头牛们并不喜欢这种布局,而且几头牛放在一个隔间里,他们就要发生争斗.为了不让牛互相伤害.John决定自己给牛分配隔间,使任意两头牛之间的最小距离尽可能的大,那么,这个最大的最小距离是什么呢? [解题
【贪心专题】POJ 3258 River Hopscotch (最大化最小值 贪心+二分搜索)
链接:click here~~ [题意] 一条河长度为 L,河的起点(Start)和终点(End)分别有2块石头,S到E的距离就是L,河中有n块石头,每块石头到S都有唯一的距离,,现在要你移除其中的m块,使得具有最小间距的相邻两块石头之间的距离最大. [解题思路] 又是一道经典的二分搜索,跟前一道一样的思路,不过要注意的是:此题是移除其中的元素,从而达到最大化的最小值. 代码: #include <stdio.h> #include <string.h> #include <
KeyMob携移动广告平台,助开发者收益最大化
KeyMob移动广告平台整合了优质广告资源,搭建了广告主和应用开发者之间的广告服务平台,通过简单配置,就能在IOS和Android两大平台实现广告功能,为应用开发者和广告主创造价值最大化. KeyMob移动广告平台还拥有强大的服务团队与专业的先进技术支持,长期以来积累的丰富经验可以让开发者提高自己的收入. KeyMob移动广告平台推出Banner广告.插屏广告等广告形式.所谓的Banner 广告就是用户在使用嵌入了KeyMob Banner广告的应用时,通过下载一些推荐软件获得奖励,进而可以在应
delphi Form属性设置 设置可实现窗体无最大化,并且不能拖大拖小
以下设置可实现窗体无最大化,并且不能拖大拖小BorderIcon 设为---biMax[False] biHelp [False]BorderStyle 设为---bsSingle 参考-------------- 可以通过设置窗体的属性以及编程的方法,限制和控制窗体的变化.如让窗体不能最小化.最大化.-----1.通过属性设置方法使用Form的BorderIcon属性,我们可设置窗体是否具有系统菜单(biSystemMenu).最小化按钮(biMinimize).最大化按钮(biMaximiz