精华内容
下载资源
问答
  • 大家可能都知道怎么在一个Test里的多个action之间传递参数,可以用DataTable也可以用Parameter。那么在多个Test之间如何传递参数呢,一般...  就是用环境变量来传递参数,我们都知道有个Environment环境变量(在File-Te
  • 2.4 环境变量 2.5 常用保留对象(Utility Objects) 2.6 QuickTest自动化模型对象(AOM) 2.7 无人值守测试的守护神—场景恢复(Recovery Scenarios) 3.1正则表达式 3.2 HTML DOM测试应用 3.2.1 了解DOM在QTP中应用...
  • QTP下载链接.txt

    2020-08-17 09:04:43
    用户自定义环境变量可以指向一个XML文件,这样可以实现在众多test之间共享变量。 12)QTP可以引用外部的VBS代码库,通过Settings-》Resource加入,也可以ExecuteFile命令在代码中直接执行。这种VBS库可以为所有...
  • 当然了,除了上一篇所讲的操作,对这三种文件的操作还包括了增删改查。...'读取txt格式环境变量文件里的所有值,存储到Dictionary对象里 Public Function ReadTxtIniEnvVars(fileName) Dim txtStream,txtStr...

    当然了,除了上一篇所讲的操作,对这三种文件的操作还包括了增删改查。幸运的是,txt格式跟ini格式因为保存的文件的样式是一样的,所以可以用相同的函数去操作,具体如下:

     

    '读取txt格式环境变量文件里的所有值,存储到Dictionary对象里

    Public Function ReadTxtIniEnvVars(fileName)

        Dim txtStream,txtStr,txtArray,txtDic,i

             Set txtStream = syFSO.OpenTextFile(fileName)

             Set txtDic = CreateObject("Scripting.Dictionary")

             txtStr = txtStream.ReadAll

             txtArray = Split(txtStr,vbcrlf)

             For i=1 to UBound(txtArray) -1

                        If Trim(Split(txtArray(i),"=")(0) )<>Empty And Trim(Split(txtArray(i),"=")(0) )<>"" Then

                                  txtDic.Add Trim(Split(txtArray(i),"=")(0) ),Trim(Split(txtArray(i),"=")(1) )

                        End If

             Next

             Set ReadTxtIniEnvVars = txtDic

             Set txtDic = nothing

    End Function

     

    '更新txt文件里指定的环境变量值

    'isRemove = true执行删除操作。否则执行更新

    Public Sub UpdateTxtIniEnvVars(fileName,varName,varValue,isRemove)

        Dim txtStream,txtStr,temp

             Set txtStream = syFSO.OpenTextFile(fileName,1)

             Do Until txtStream.AtEndOfLine

                       txtStr = txtStream.ReadLine

                       If Trim(Split(txtStr,"=")(0))=varName Then

                                If isRemove Then

                                         txtStr = ""

                                Else

                                         txtStr = varName & " = " & varValue

                                End If

                       End If

                       If txtStr<>"" Then

                                temp = temp + txtStr + vbcrlf

                       End If

             Loop

             txtStream.Close

             Set txtStream = syFSO.OpenTextFile(fileName,2)

             txtStream.Write temp

             txtStream.Close

             Set txtStr = nothing

    End Sub

     

    '增加环境变量到已经存在的txt配置文件里,加在原文件的末尾

    Public Sub AddTxtIniEnvVars(fileName,varName,varValue)

             Dim txtStream

             Set txtStream = syFSO.OpenTextFile(fileName,8)

             txtStream.WriteLine varName + " = " +varValue

             txtStream.Close

    End Sub

     

    '在txt文件里删除一个已经存在的环境变量

    Public Sub DelTxtIniEnvVars(fileName,varName)

       UpdateTxtIniEnvVars fileName,varName,"",True

    End Sub

     

    华丽丽的分割线:————————————————————

    下面的是关于xml文件里的环境变量的增删改查操作:

     

    '读取xml文件里所有环境变量,返回一个DIctionary对象

    Public Function ReadXmlEnvVars(fileName)

       Dim xmlObj,xmlDic

       Dim xmlRoot,xmlNode

       Dim varName,varValue

       Set xmlObj = CreateObject("MSXML.DOMDocument")

       Set xmlDic = CreateObject("Scripting.Dictionary")

       xmlObj.Load fileName

       Set xmlRoot = xmlObj.LastChild

       For i = 0 to xmlRoot.ChildNodes.Length - 1

                       Set xmlNode = xmlRoot.ChildNodes.Item(i)

                       varName = xmlNode.ChildNodes.Item(0).nodeTypedValue

                       varValue = xmlNode.ChildNodes.Item(1).nodeTypedValue

                       xmlDic.Add varName,varValue

       Next

       Set ReadXmlEnvVars = xmlDic

       Set xmlObj = nothing

       Set xmlDic = nothing

       Set xmlRoot = nothing

       Set xmlNode = nothing

    End Function

     

    '更新xml格式环境变量文件

    Public Sub UpdateXmlEnvVars(fileName,varName,varValue)

       Dim xmlObj

       Dim xmlRoot,xmlNode

       Dim nodeName,nodeValue

       Set xmlObj = CreateObject("MSXML.DOMDocument")

       xmlObj.Load fileName

       Set xmlRoot = xmlObj.LastChild

       For i = 0 to xmlRoot.ChildNodes.Length - 1

                       Set xmlNode = xmlRoot.ChildNodes.Item(i)

                       nodeName = xmlNode.ChildNodes.Item(0).nodeTypedValue

                       'nodeValue = xmlNode.ChildNodes.Item(1).nodeTypedValue

                       If UCase(Trim(nodeName)) = UCase(Trim(varName)) Then

                                xmlNode.ChildNodes.Item(1).nodeTypedValue = varValue

                       End If

       Next

       xmlObj.Save fileName

       Set xmlObj = nothing

       Set xmlRoot = nothing

       Set xmlNode = nothing

    End Sub

     

    '删除xml格式环境变量文件里的一个节点

    Public Sub DelXmlEnvVars(fileName,varName)

       Dim xmlObj

       Dim xmlRoot,xmlNode

       Dim nodeName,nodeValue

       Set xmlObj = CreateObject("MSXML.DOMDocument")

       xmlObj.Load fileName

       Set xmlRoot = xmlObj.LastChild

       If xmlRoot.ChildNodes.Length = 1 Then

                Exit Sub

       End If

       For i = 0 to xmlRoot.ChildNodes.Length - 1

                       Set xmlNode = xmlRoot.ChildNodes.Item(i)

                       nodeName = xmlNode.ChildNodes.Item(0).nodeTypedValue

                       'nodeValue = xmlNode.ChildNodes.Item(1).nodeTypedValue

                       If UCase(Trim(nodeName)) = UCase(Trim(varName)) Then

                                xmlRoot.RemoveChild(xmlNode)

                                Exit For

                       End If

       Next

       xmlObj.Save fileName

       Set xmlObj = nothing

       Set xmlRoot = nothing

       Set xmlNode = nothing

    End Sub

     

    '增加一个新的节点到xml格式的环境变量

    '可以增加判断,如果varName重复,则调用UpdateXmlEnvVars()

    Public Sub AddXmlEnvVars(fileName,varName,varValue)

       Dim xmlObj

       Dim xmlRoot,xmlNode

       Dim nodeName,nodeValue

       Dim index

       Set xmlObj = CreateObject("MSXML.DOMDocument")

       xmlObj.Load fileName

       Set xmlRoot = xmlObj.LastChild

       Set xmlNode = xmlRoot.ChildNodes.Item(0).CloneNode(1)

       xmlNode.ChildNodes.Item(0).nodeTypedValue = varName

       xmlNode.ChildNodes.Item(1).nodeTypedValue = varValue

       xmlRoot.AppendChild(xmlNode)

       xmlObj.Save fileName

       Set xmlObj = nothing

       Set xmlRoot = nothing

       Set xmlNode = nothing

    End Sub

    以上这些就是我最近总结的一套关于QTP三种格式的环境变量的动态存储,当然有兴趣的童鞋可以将它封装起来。欢迎关注我的博客:http://www.cnblogs.com/ryansunyu/

    转载于:https://www.cnblogs.com/ryansunyu/archive/2012/08/20/2648294.html

    展开全文
  • QTP环境变量

    千次阅读 2014-10-05 11:00:01
     环境变量是在操作系统中一个具有特定名字的对象,它包含了一个或者多个应用程序所将使用到的信息。例如Windows和DOS操作系统中的path环境变量,当要求系统运行一个程序而没有告诉它程序所在的完整路径时,系统除了...
    

            环境变量是在操作系统中一个具有特定名字的对象,它包含了一个或者多个应用程序所将使用到的信息。例如Windows和DOS操作系统中的path环境变量,当要求系统运行一个程序而没有告诉它程序所在的完整路径时,系统除了在当前目录下面寻找此程序外,还应到path中指定的路径去找。用户通过设置环境变量,来更好的运行进程。

             QTP环境变量是一种非常特殊的变量类型。它与Windows本身的环境变量不是一个概念,Windows环境变量是在本地系统上的所有程序都可访问到,而QTP环境变量只是在测试脚本运行时访问。它有三种类型的环境变量。

    • Built-in.内置的环境变量。是QTP已经规定好的一些常用配置信息的环境变量。比如当前执行的脚本名称、测试脚本路径、操作系统类型、QTP的版本等。


    • User defined Internal.用户自定义的内部变量。用户可以在脚本中直接定义及保存,并且可以在运行时进行动态修改。


    • User defined External.用户定义在外部文件中的环境变量。这些变量为只读并且无法运行时动态修改。可通过LoadFromFile()方法调用。
    展开全文
  • QTP环境变量的使用

    2011-11-28 13:34:00
    qtp中存在着两种类型的环境变量: 内置环境变量 自定义内部环境变量 自定义外部环境变量 内置环境变量 介绍:它是qtp内部已经事先封装好. 方式:直接进入到Settings –> Environment中选择built-in...

    环境变量的用法

    在qtp中存在着两种类型的环境变量:

    • 内置环境变量
    • 自定义内部环境变量
    • 自定义外部环境变量

    内置环境变量

    介绍:它是qtp内部已经事先封装好.

    方式:直接进入到Settings –> Environment中选择built-in选项即可查询到所有的内置环境变量。并且这些环境变量的值都是qtp已经封装好的。

    举例: Msgbox Environment.Value(“TestName”)

    结果:直接可以获取到当前测试脚本名称。

    自定义内部环境变量

    介绍:它是qtp中的一种可以在qtp内部进行自定义的环境变量

    方式:直接进入到Settings –> Environment中选择User-defined选项,点击旁边的”+”,即可定义name 和 value

    举例:Msgbox Environment.Value(“自定义名称”)

    结果:直接可以获取到当前自定义环境变量的值

    自定义外部环境变量

    介绍:直接从xml格式文件中进行读取环境变量

    方式:进入Settings –> Environment中选中Load variables and values from external file并给出xml的文件路径

    举例:xml文件

    <Environment>

      < Variable>

        <Name>Url</Name>

        <Value>http://www.iquicktest.com</Value>

      </Variable>

    </Environment>

    Msgbox Environment.Value(“Url”)

    结果:直接打印结果为http://www.iquicktest.com

    注意:1. 环境变量中的属性名是大小写敏感的

       2. xml必须按照上述格式

    环境变量的动态生成与秘密加载

    动态生成 —- 使用FSO把我们需要的变量动态的写入一个XML文件

    这边主要是通过两个函数:

    第一个函数getVariable是可以让我们添加环境变量并通过指针变量进行迭代增加,

    第二个函数generateEnvFile是根据指针变量生成环境变量XML文件。

    '**************************  初始化环境变量 ******************************

    getVariable allEnvVar,"url","http://www.baidu.com"
    getVariable allEnvVar,"username","emilyzhang88"
    getVariable allEnvVar,"password","123456"

    '******************** 生成外部环境变量XML文件 ****************************

    generateEnvFile "C:\readXML\Login.xml",allEnvVar

    '********************************************************************
    'Description:获取所有环境变量字符串
    'Parameters:XmlVar(指针变量,环境变量字符),arName(环境变量名),varValue(环境变量值),
    'Return Value:无
    '********************************************************************
    Function getVariable(byRef xmlVar,byVal varName,byVal varValue)
    xmlVar = xmlVar + _
    "<Variable>" + vbCrLf + _
    "<Name>" + varName + "</Name>" + vbCrLf + _
    "<Value>" + varValue + "</Value>" + vbCrLf + _
    "</Variable>" + vbCrLf
    msgbox xmlVar
    End Function

    '********************************************************************
    'Description:生成环境变量XML文件
    'Parameters:envPathName(路径名),getVar(获取的环境变量字符)
    'Return Value:无
    '********************************************************************
    Function generateEnvFile(envPathName,getVar)
    envStream = _
    "<Environment>" + vbCrLf + _
    getVar + _
    "</Environment>"
    Set fso = CreateObject("scripting.filesystemobject")
    Set envStreamFile = fso.CreateTextFile(envPathName)
    envStreamFile.Write envStream
    Set envStreamFile = Nothing
    Set fso = Nothing
    End Function

    调用上面自动生成的xml文档,动态加载环境变量

    Environment.LoadFromFile "C:\readXML\Login.xml"
    msgbox Environment.Value("username")

    注意:

    • 动态加载可以有两种文件类型:  [*.xml] 和 [*.ini]
    • 静态只能加载一种文件类型:  [*.xml]

    最早在QTP 5.X和6.X的时候QTP是使用INI文件作为外部环境变量来使用的,到了后来8.0以后开始就使用了XML的形式来储存,因此静态的加载方式已经被屏蔽了,但是动态加载还是可以使用INI文件来在加载,不过文件必须遵循一定的格式.

    格式如下:

    [Environment]

    username = xxx12345

    password = 123456

    最近再写paypal系统的自动化测试脚本,想声明一个全局变量,可以在另外一个action中使用。
    也就是在action1中,在一个weblist中选择一个值value后,通过insert->call to copy of action添加一个action2,想在action2中使用action1中选择的value。
    具体步骤如下:

    1.在action1中,file->Settings->Environment在用户自定义变量中添加一个环境变量"batch”,代码如下:

    2.在action2中引用该环境变量,如下:

    3.运行脚本,通过。

     

    转载于:https://www.cnblogs.com/emilyzhang68/archive/2011/11/28/2266089.html

    展开全文
  • QC与QTP环境搭建

    2019-09-30 08:53:58
    二、QC与QTP环境搭建1、安装插件使Quality Center客户端支持QTP1.1、安装QC客户端,登陆网址如:http://QC服务器IP /qcbin,打开QC-插件页后,点击Mercury Quality Center 客户端安装,然后进行下载并安装。...

    二、QC与QTP环境搭建
    1、安装插件使Quality Center客户端支持QTP
    1.1、安装QC客户端,登陆网址如:http://QC服务器IP /qcbin,打开QC-插件页后,点击Mercury Quality Center 客户端安装,然后进行下载并安装。
         插件名为:QCClientSideInstallation.exe
    1.2、找到QTP安装文件..\QCPlugin\MSI\QuickTest_Add-in_for_Quality_Center.msi,进行安装。
    注:安装完以上两个插件,需要重启计算机,重启后进入系统,系统有时会出现假死现象,如果出现假死现象,等待一下,如果进入不了系统,可以直接重启,不会影响安装。
    1.3、检验插件安装是否成功
    进入QC某项目,在测试计划中,点击新建一个测试用例,你会发现多了一个QTP用例的选择,如图:
    注:如果在QC中没有出现QTP的选择项,证明上面的两个插件没有安装成功,需要重新安装。
    2、QuickTest Professional 设置,使QTP允许QC控制
    2.1、 在QC中运行QTP进行业务组件测试时,需要对QTP进行设置,如下:
          Tools-Options-Run-Allo w other Mercury products to run tests and component。
    2.2、检验设置成功
        经过上面设置,QC已经可以在本地控制QTP。登陆QC,进入测试实验室,新建一个测试集 。
    点击选择测试 ,在模块的右边的测试计划树会列出测试计划所有用例,可以把需要测试的QTP用例双击添加到测试集中,点击运行测试集 ,在测试集中点击选择本地运行所有测试,如下图所示,运行QTP用例,如果运行成功则本台电脑上的QTP已经可以被QC控制。 

    3、设置远程电脑中的DCOM配置属性,使QC能够远程控制QTP.
      要在远程电脑中运行自动化程序,必须确保在远程电脑的DCOM设置中,给了你装载及设置QTP COM 服务器的权限。
      下面描述了在远程电脑中设置DCOM的过程。注意因为远程电脑的操作系统的不同,DCOM配置对话框中显示可能不同。
    (下面的图片都是WinXP操作系统中的):
      1.         在远程电脑中(远程运行脚本计算机),选择Start>Run,打开Run对话框。
      2.         在命令栏输入“dcomcnfg”后,点击OK,打开DCOM配置对话框或组件服务窗口(这与操作系统有关),并显示当前电脑中有效的COM应用程序。
      3.         在列表中选择“QuickTest Professional Automation”,打开属性对话框。
      4.         在QuickTest Professional Automation对话框中,选中Security(安全)页签。
      5.         在“launch permissions”(启动和激活权限)部分,选择custom(“自定义”)选项,然后点击EDIT(“编辑”)按钮。
      6.         使用Add及Remove操作选择网络用户或组,让用户或组就可以在本地电脑中通过自动化程序,远程让QTP脚本在本电脑上运行。当完成设置用户或组后,点击OK保存设置。
      7.         重复5、6步,设置“configuration permissions”部分,设置用户或组,让用户或组可以通过自动化程序,远程修改本电脑的QTP的选项配置。
      8.         在QuickTest Professional Automation对话框中,点击Identity(标识)页签,选择interactive user选项。
      9.         点击OK保存QuickTest Professional Automation属性设置。
      10.     点击OK关闭DCOM配置对话框,或关闭组件服务窗口。
    注:
    1、        经过上面的设置,一般情况下QC与QTP环境搭建完成,在QC测试集中选择你远程控制的计算机,点击运行全部。不过如果远程控制失败,可能是因为域的问题。在两台电脑(一台为控制端,一台为远程测试机)添加一个相同名字的用户,比如我们用ctrlUser这个用户登录控制台的windows,那么,就必须在测试机里也增加一个同名并且密码也相同的ctrlUser用户,并且把这个用户添加到系统管理员组。
    2、        QC与QTP所谓的远程是指QC客户端与QTP测试机必须在同一个局域网里面。

    转载于:https://www.cnblogs.com/pansfy/articles/3168932.html

    展开全文
  • QTP环境变量的说明

    千次阅读 2013-11-14 15:16:25
    QTP 环境变量是一种非常特殊的变量类型。环境变量是可以贯穿 QTP Test 中的每一个Action, 并可供所有的Actions调用。 这些变量值会是QTP运行中初始化,并且会一直持续到脚本运行完毕为止。 QTP环境一般应用与 ...
  • QTP之录制回放

    2019-10-29 13:57:10
    QTP介绍 Quick Test Professional简称QTP,是一款基于关键字的功能自动化测试工具,主要用于产品系统相对稳定的功能模块做回归测试或冒烟测试。测试新手或专业人员都可以快速学习并应用,因为QTP提供了两种模式,...
  • QTP自动化测试最佳实践》基本信息作者: 陈能技 [作译者介绍] 丛书名: 测试实践丛书 出版社:电子工业出版社 ISBN:9787121175817上架时间:2012-8-6出版日期:2012 年8月开本:16开页码:600版次:1-1所属分类:...
  • QTP自动化测试入门

    千次阅读 2019-01-09 10:24:43
    (4)手工模拟真实环境困难 (5)测试结果不精确 2、自动化测试阶段: 自动测试决定——测试工具获取——自动化测试引入——测试计划、设计与开发——测试执行与管理——测试评审和评估 ...
  • QTP】参数化

    2017-06-04 17:37:44
    QTP参数化
  • QTP进阶学习手册.doc

    2020-11-20 09:52:21
    TOC \o "1-3" \h \z \u 修炼成QTP高手的十个步骤 4 探秘QTP9.5新特性 过程指南Process Guidance 5 1.... 小结 17 QTP 10 - 自动化测试脚本开发利器 17 系统需求和环境支持 17 增强的QC整合能力 18 版本控制和基线 19 可
  • qtp自动化测试过程中,经常会需要一些预先的配置信息文件来用于不同的测试环境下。...内置环境变量 自定义内部环境变量 自定义外部环境变量 内置环境变量 介绍:它是qtp内部已经事先封装好.
  • QTP-保留对象之一

    千次阅读 2012-02-13 19:45:31
    2.5 常用保留对象(Utility Objects)  阶段要点  ● 简单介绍常用保留... 在之前的章节中,曾经介绍过利用DataTable做数据处理,Environment环境变量以及利用Reporter编写自定义报告等,这些对象都是一些QTP
  • qtp入门教程

    万次阅读 2014-07-04 00:59:17
    从理解QTP ADD-INS开始 QTP Add-ins即为QTP插件。通俗理解就是QTP识别不同控件对象类型的一套标准。 当我们在启动QTP时,QTP会首先弹出一个Addin-Manager窗口,这个窗口主要提供给自动化测试人员选择相应的插件。 ...
  • QTP主要功能

    2018-11-06 19:27:59
    1)QTP是一个侧重于功能的回归自动化测试工具;提供了很多插件,如:.NET的,Java的,SAP的,Terminal Emulator的等等,分别用于各自类型的产品测试。默认提供Web,ActiveX和VB。 2)QTP支持的脚本语言是VBScript,...
  • qtp进阶学习手册.doc

    2020-02-22 16:55:07
    TOC \o "1-3" \h \z \u 修炼成QTP高手的十个步骤 4 探秘QTP9.5新特性 过程指南Process Guidance 5 1.... 小结 17 QTP 10 - 自动化测试脚本开发利器 17 系统需求和环境支持 17 增强的QC整合能力 18 版本控制和基线 19 可
  • QTP和它的测试五部曲

    2017-08-14 20:18:39
    QTP是Quick Test Professional的简称,是一种自动测试工具。使用QTP的目的是想用它来执行重复的自动化测试,主要...HP QuickTestProfessional 提供符合所有主要应用软件环境的功能测试和回归测试的自动化。采用关键字驱
  • 【测试工具】QTP简介

    千次阅读 2017-06-08 21:23:00
    QTP  HP QuickTest Professional 提供符合所有主要应用软件环境的功能测试和回归测试的自动化。采用关键字驱动的理念以简化测试用例的创建和维护。它让用户可以直接录制屏幕上的操作流程,自动生成功能测试或者...
  • 说明:该篇博客是博主一字一码编写的,实属不易,请尊重原创,谢谢大家! ...二、使用 VBScript 处理脚本 6.使用环境变量 6.1 查看内置环境变量 注意 √     内置环境变量区分大小写。 ...
  • QTP(15)

    2018-04-12 22:34:00
    '自定义检查点验证提示信息 '参数:无 '返回值:无 Function checkInfo() Dim ac,ex ' ac:实际结果 ' ex:预期结果 ex=getInfo() ac=Window("Flight Reservation").Dialog("Flight Reservations").Static("Valid ...
  • QTP技巧-01

    2016-09-02 17:06:52
    (QTP生成的源代码比较多,而且和环境控件都有关,假如需要多人同时开发, 请问如何管理源代码?)  A:一个是代码你可以通过vss,cvs等来进行管理  一个是通过td或者qc的基于用例的代码管理  其实第一种方法是...
  • qtp中文版教程资料

    2011-05-07 07:13:39
    可以将无法识别的或自定义的类的对象映射到标准的 Windows 类。有关对象映射的详细信息,请参阅映射用户定义的测试对象类。 可以为与测试对象行为相似的对象定义虚拟对象,然后在正常录制模式中录制。有关定义虚拟...
  • QTP识别验证码

    千次阅读 2014-02-08 10:28:29
    大家在使用QTP进行自动化测试的过程中经常会遇到图片验证码的问题——大家所关心的就是如何解决此类问题。 这里我们首先要去了解为什么会有图片验证码。其实验证码的本质作用就是防止有人利用工具(灌水机、注册机...
  • QTP学习笔记

    2018-04-26 23:19:59
    QTP,提供符合所有应用软件环境的功能测试和回归测试的机动自动化。采用关键字驱动的理念,以简化测试用例的创建和维护,它让用户可以直接录制屏幕上的操作流程,自动生成功能测试和回归测试用例。专业的测试者可以...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 951
精华内容 380
关键字:

qtp无法自定义环境