- 博客(18)
- 收藏
- 关注
RSS订阅转载 UFT-对象的导入导出
UFT中，有时候会出现多个模块 存在一样的对象情况，这时候就可以将对象导出到本地，作为公共对象以供调用，这样做的好处就是可以节约资源。步骤如下：1、从Object Repository ->选择“文件夹”->“导出本地对象”，并删掉该对象库中的所有对象->将 被导出的“对象文件”保存到本地；2、在UFT脚本编辑器中，使用repositoriescollectio...
2016-11-01 18:14:00
458
转载 描述性编程登录实例
systemutil.CloseProcessByName"iexplore.exe"systemutil.Run"iexplore.exe","http://192.168.2.52:8004/Account/Login"SetSystembrowser=description.CreateSetSystempaye=description.Create...
2016-11-01 17:01:00
107
转载 UFT中怎么处理 “分段截断（null）由于将在索引、主关键字、或关系中创建重复的值，请求对表的改变没有成功。。”...
UFT脚本调试多遍以后，常常会报一个名为“分段截断（null）”的问题，如下截图就该问题的解决办法如下： 1.找到UFT目录路径； 2.依次找到\samples\flight\app下的.mdb文件，点击复制； 3.返回到\samples目录下，点击粘贴，直接覆盖掉即可。转载于:https://www.cnblogs.com/alicel...
2016-07-12 16:50:00
1507
转载 childobjects方法
语法Array=testobject.childobjects(description)解析：1.Childobjects：是一个对象的方法，子对象具有共同属性；2.Description：取的是“description对象”的 名称；3.子对象返回的值：是一个数组，数组中的每个元素对应父对象中的每个子对象；4.如何获取子对象的个数：使用c...
2016-07-12 16:05:00
125
转载 UFT at和schtasks的比较（计划执行）
在windows里添加任务有很多方式，比较常用的是命令at和schtasks而这连个命令的主要区别是什么呢？at 命令在win7 中是不能将任务在前台执行的，所以很多朋友在win7中用at命令添加了任务，但到执行的时候发现只是打开了一个后台进程，及时加上 /interactive参数也没有效果，而schtasks命令在win7里就可以将任务在前台处理。相反，如果是XP系...
2016-07-11 09:09:00
146
转载 AOM+EXCEL 批量运行脚本的应用
OnErrorResumeNextTestCaseFilePath="D:\QTPAtuomationTestFrame\Batch\BatchJob.xlsx"'设置测试用例批量文件完整路径TestScriptPath="D:\QTPAtuomationTestFrame\TestScript\"'测试脚本存放目录SetbjExcel=CreateObject("Exc...
2016-07-05 17:57:00
149
转载 UFT公共对象库 动态加载的方法
RepositoriesCollection对象可以来管理测试运行时的共享对象库，动态的加载共享对象库，加载的对象库仅在测试过程中有效，类似于在associate repositories中的操作W,\ [Ew Tj5o051Testing软件测试网Cu^1iF@A|1.属性：Count ：返回运行时共享对象库文件的个数Item：返回指定index位置在对象库中的对象库文件的路径2....
2016-07-05 12:01:00
159
转载 UFT fso与excel之间的应用
'定义excel对象，excel工作簿对象，工作表对象Dimexlapp,exlworkbook,exlworksheet'定义文件系统对象Dimfso'创建excelSetexlapp=CreateObject("excel.application")'创建文件对象Setfso=CreateObject("scripting.filesystemobject")'判断当前路径...
2016-07-05 11:36:00
128
转载 UFT 打开文件 为true的情况
Dim fso ,fileConst forreading = 1,forwriting =2,foraddpending = 8Set fso = CreateObject("scripting.filesystemobject")'这里的true的设置用途,如果本地有log日志文件,直接进行添加内容即可,如果本地没有log文件,则会自动创建一个log文件,再填写日志Set fil...
2016-07-03 09:12:00
96
转载 UFT创建log文件并添加日志内容
'调用 添加日志函数writing "C:\Users\lcy\Desktop\UFTtest\logs\logs.txt","hello word!"'调用函数,存在两个参数:文件所在路径\添加日志内容Function writing(filepath,logs)Dim fso,file'定义常量Const forreading = 1,forwriting =2,fora...
2016-07-03 08:58:00
135
转载 UFT脚本调用外部VBS函数的三种方法
第一种方法：ExecuteFile，利用该函数将外部vbs动态地加载进来，使测试脚本可以调用vbs文件的所有函数，调用语句写在下方，顺序不能颠倒，否则会报错。这个方法适用于QTP任何版本，但有个缺点，代码调试时不能跟踪到外部vbs的函数中，多少有些不便。ExecuteFile FileFile String The absolute or relative ...
2016-07-03 07:34:00
216
转载 登录模块的增强脚本
Dimusername,passwordDimexpectvalue,actualvalueDimcurrentcount,casecountDimisystemutil.Run"C:\Program Files (x86)\HP\Unified Functional Testing\samples\flight\app\flight4a.exe"datatable.Import...
2016-07-03 06:54:00
93
转载 计算器一位加法计算，并将实际值，测试结果输出，最终导入到本地
'计算器一位加法计算，并将实际值，测试结果输出，最终导入到本地DimiDiminputDimexpertvalue,actualvaluedatatable.ImportSheet"C:\Users\Administrator\Desktop\UFT活动讲课资料\加法运算case.xlsx","Sheet1","Action1"'wait 3systemutil.Run"C...
2016-06-26 07:58:00
180
转载 自动化对象模型AOM的应用（使用AOM的方式运行UFT中的脚本）
自动化对象模型AOM的应用（使用AOM的方式运行UFT中的脚本）'定义qtapp对象变量Dimqtapp'创建qtapp对象Setqtapp=CreateObject("quicktest.application")'启动uftqtapp.Launch'设置uft显示类型qtapp.Visible=true'打开脚本qtapp.Open"E:\qtp jaioben\使用AOM运...
2016-06-16 11:11:00
218
转载 创建excel文件
创建excel文件Sub addexcel(excelpath) '定义excel文件对象 Dim exlapp '定义excel工作簿 Dim exlworkbook '定义excel表格 Dim exlworksheet '创建excel对象 Set exlapp = CreateObject("excel.application"...
2016-06-15 17:47:00
64
转载 UFT函数调用-根据两个数进行加法和减法运算
'根据两个数进行加法和减法运算'1、输入+号，则进行加法运算'2、输入-号，则进行减法运算Dimopera,operb,result,operMsgBox"+.加法功能"&vbcrlf&"-.减法功能"oper=InputBox("请选择功能")opera=InputBox("输入a数据")operb=InputBox("输入b数据")SelectCaseop...
2016-06-15 11:56:00
151
转载 创建日志文件并在该文件里添加内容
'创建日志文件并在该文件里添加内容Sub writelog(log) Const forreading =1,forwriting =2,foraddpending=8 Dim fso,f Dim filepath filepath ="C:\log\log.txt" Set fso =createobject("scripting.filesystemobject") If fso...
2016-06-14 22:42:00
107
转载 UFT创建文件夹
调用 createfolder函数createfolder("C:\Users\lcy\Desktop\UFTtest\test")'在本地创建一个文件夹的封装函数Function createfolder(folderpath) Dim sfo,f Set sfo = createobject("scripting.filesystemobject") If sfo.FolderExi...
2016-06-14 22:40:00
141
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人