![](https://img-blog.csdnimg.cn/20201014180756754.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
QTP常用方法
文章平均质量分 50
zhangzhiwei911
这个作者很懒,什么都没留下…
展开
-
QTP常用函数
'******************************** '是否匹配正则表达式 '******************************** Function RegExpTest(patm,strng) Dim regEx,retVal Set regEX = New RegExp regEx.Pattern=patm regEx.IgnoreCase=False转载 2013-12-30 16:20:58 · 544 阅读 · 0 评论 -
QTP写Log文件
'******************************* '@Description 打印Log '******************************** Public Sub WriteLogs(result) Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fileSystemObj, fi转载 2014-03-04 09:49:01 · 1222 阅读 · 0 评论 -
检查界面层对象是否存在并写入测试报告
' 检查界面层对象是否存在并写入测试报告 Public Function IsContextLoaded(ByRef htContext) Dim ix, items, keys, strDetails, strAdditionalRemarks IsContextLoaded=true items = htContext.Items keys = htContext.Keys For转载 2014-02-27 13:30:09 · 396 阅读 · 0 评论 -
QTP-FunctionPointer-DesignPattern
Public Function tt1 msgbox "tt1" End Function Public Function tt2 msgbox "tt2" End Function Public Function tt3 msgbox "tt3" End Function Public Function TestFlow(ByRef LoadFuns) F转载 2014-02-21 11:29:19 · 434 阅读 · 0 评论 -
QTP设计模式-命令包装模式
Class oCommand 'input Private VarIntNum Public property Get Number Number=VarIntNum End Property Public property Let Number(ByVal oNum) VarIntNum=oNum End Property 'output Priv转载 2014-02-20 19:08:58 · 415 阅读 · 0 评论 -
自定义Class类注入测试对象
'***********************************************************' '脚本名称:自定义Class类注入测试对象 '脚本功能:归类SwfTable对象常用基本方法 '编写日期:2014/01/10 '***********************************************************' Class c原创 2014-01-11 10:54:21 · 586 阅读 · 0 评论 -
QTP-Rescovery出错截屏函数
Public Function QTP_Capture(Object, Method, Arguments, retVal ) Dim PathWay,myTime,FileName PathWay="F:\" myTime=now( ) TimeStamp=year(myTime)&month(myTime)&day(myTime)&hour(myT转载 2014-01-09 11:27:08 · 424 阅读 · 0 评论 -
RepositoriesCollection方法
RepPath = "C:\Program Files\Mercury Interactive\QuickTest Professional\Tests\MyTest\Action1\ObjectRepository.bdb" RepositoriesCollection.RemoveAll() RepositoriesCollection.Add(RepPath) Pos = Re转载 2014-01-03 17:00:11 · 569 阅读 · 0 评论 -
QTP测试对话框窗体模板
'***********************************************************' '脚本名称:QTP测试对话框窗体模板 '脚本功能: '输入参数: '输出参数: '编写日期: '修改日期: '***********************************************************' '***********原创 2014-01-03 16:42:35 · 378 阅读 · 0 评论 -
RegisterUserFunc方法
1.为“WinEdit”创建一个新的copy方法: Sub Copy (edit) Edit.Click 3, 3 Edit.SetSelection 0, Len(Edit.GetROProperty("text")) Edit.Type micCtrlDwn + "c" + micCtrlUp End Sub '注册 RegisterUserFu原创 2014-01-03 16:33:53 · 594 阅读 · 0 评论 -
QTP DEV控件相关
'@【DEV相关】 点击DevExpress MenuBar上的Button(根据ButtonNum) Function ClickMenuButtonByNum(menuBarH, buttonNum) menuButtonBounds = menuBarH.Object.VisibleLinks.Item(buttonNum).Bounds boundsArray = S转载 2013-12-30 16:28:56 · 635 阅读 · 0 评论 -
QTP加载Lib
'创建qtp对象 Set qtApp = CreateObject("QuickTest.Application") qtApp.Launch qtApp.Visible = False '打开qtp文件 On Error Resume Next qtApp.Op转载 2014-04-24 11:29:10 · 433 阅读 · 0 评论