QTP常用方法
文章平均质量分 50
zhangzhiwei911
这个作者很懒,什么都没留下…
展开
-
QTP常用函数
'********************************'是否匹配正则表达式'********************************Function RegExpTest(patm,strng)Dim regEx,retValSet regEX = New RegExpregEx.Pattern=patmregEx.IgnoreCase=False转载 2013-12-30 16:20:58 · 539 阅读 · 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 · 1215 阅读 · 0 评论 -
检查界面层对象是否存在并写入测试报告
' 检查界面层对象是否存在并写入测试报告Public Function IsContextLoaded(ByRef htContext)Dim ix, items, keys, strDetails, strAdditionalRemarksIsContextLoaded=trueitems = htContext.Itemskeys = htContext.KeysFor转载 2014-02-27 13:30:09 · 395 阅读 · 0 评论 -
QTP-FunctionPointer-DesignPattern
Public Function tt1 msgbox "tt1"End FunctionPublic Function tt2 msgbox "tt2"End FunctionPublic Function tt3 msgbox "tt3"End FunctionPublic Function TestFlow(ByRef LoadFuns) F转载 2014-02-21 11:29:19 · 428 阅读 · 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 · 412 阅读 · 0 评论 -
自定义Class类注入测试对象
'***********************************************************''脚本名称:自定义Class类注入测试对象'脚本功能:归类SwfTable对象常用基本方法'编写日期:2014/01/10'***********************************************************'Class c原创 2014-01-11 10:54:21 · 575 阅读 · 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 · 422 阅读 · 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 · 564 阅读 · 0 评论 -
QTP测试对话框窗体模板
'***********************************************************''脚本名称:QTP测试对话框窗体模板'脚本功能:'输入参数:'输出参数:'编写日期:'修改日期:'***********************************************************''***********原创 2014-01-03 16:42:35 · 372 阅读 · 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 · 583 阅读 · 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 · 626 阅读 · 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 · 428 阅读 · 0 评论