常用qtp函数合集.pdf

常用 QTP 函数合集 ***************************************************** 有用的没用的都丢到一起，可能会有你想要的，原本是分为 FileOper 、DataOper 、We bOper （基 SAFFRON）、Win32Oper 和 ErrorOper 五个文件 后面三个超级啰嗦超级长的废物可能别人用不到，不过构造思路比 较清晰，大家可以 DIY 一下，或许你会觉得很方便，至少可以不用 CheckPoint ***************************************************** classArray = Split(Browser,Page,Frame,,) descArray = Split(micclass:=Browser,micclass:=Page,micclass:=Frame,,,) objectArray = Split(Link,WebButton,WebList,WebEdit,Image, ,) objectDescArray = Split(micclass:=Link,micclass:=WebButton,micclass:=WebList,micclass :=WebEd it,micclass:=Image, ,) ***************************************************** 设计说明：关闭所有打开的 IE 程序输入： 程序输出： 设计人员：LIUYI027 设计时间：2011-01-08 调用举例：CloseBrowsers ***************************************************** Public Sub CloseAllBrowser Set Wshshell = CreateObject(Wscript.Shell) Set DialogObject = Description.Create() DialogObject(micclass).Value = Dialog Set Windows32Dialog = Desktop.ChildObjects(DialogObject) dlNum = Windows32Dialog.Count - 1 For v = 0 to dlNum Windows32Dialog(v).Close Next Set Windows32Dialog = Nothing Set theBrowser = Browser(micclass:=Browser, index:=0) While theBrowser.Exist(0) theBrowser.Close 有些系统页面可能在关闭的时候会有提示对话框出现 waitNx = 1 Do While waitNx 5 Set Windows32Dialog = Desktop.ChildObjects(DialogObject) dlNum = Windows32Dialog.Count - 1 For v = 0 to dlNum dlText = Windows32Dialog(v).GetROProperty(regexpwndtitle) Wshshell.AppActivate(dlText) Wait(1) Wshshell.SendKeys {ENTER} Next Set Windows32Dialog = Nothing waitNx = waitNx + 1 Loop Report Pass,使用 CloseAllOpenedBrowsers 函数页面关闭成功,当前页面关 闭成功！ Wend Set theBrowser = Nothing Set DialogObject = Nothing Set Wshshell = Nothing End Sub ***************************************************** 设计说明：最大化 IE 浏览器 程序输入：无 程序输出：无 设计人员：LIUYI027 设计时间：2011-01-08 调用举例：MaximizeBrowser ********************************************