需要帮助HP UFT - Vb Script代码

时间:2017-09-16 12:10:33

标签: vbscript qtp hp-uft

首先,我会告诉你我在做什么。我在没有框架的情况下编写了一些测试用例,因此为此我创建了一个VBS文件,其中编写了用于启动UFT的代码并创建了操作的打开。代码是这样的:

  Set qtApp= CreateObject("QuickTest.Application")
  qtApp.Launch
  qtApp.Visible = True
  Set qtTest = qtApp.Test
 'And then call your scripts one after another
  qtApp.Open "D:\UFT\TestScript\Function_Demo",true
  Set qtTest = qtApp.Test
  qtTest.Run

还为每个与此Action关联的场景创建了函数,因此每当VBS文件被第三个系统触发时,它将启动UFT并打开我调用所有函数的Action,所以这是我的第一个问题

  1. 如何设置功能的优先级以使其按顺序运行?
  2. 此外,我想将结果状态的代码编写为pass和fail,并根据pass和fail状态我想要更新具有状态的XML特定节点,并且还希望捕获测试用例的屏幕截图无论什么时候失败,为此还必须更新XML节点中的路径。 因为我对UFT很新,所以不知道该如何做到这一点有人可以帮我这个吗?如何编写代码以及所需的所有内容?
  3. 快速回复将不胜感激。

2 个答案:

答案 0 :(得分:0)

关于功能优先: -

  1. Test Action中的函数始终优先于任何其他函数库中具有相同名称的任何其他函数。
  2. 第二优先级是Lib的函数,最后执行[如果你使用loadfunctionlib或executefunctionlib]
  3. 关于特定于XML的节点: -

    查找Res / Report / results.xml摘要节点
    例如: - 摘要sTime =" *************" ETIME =" **************"通过=" 128"失败=" 2"警告=" 36" /概述

答案 1 :(得分:0)

问题2:UFT提供了更新结果的功能:

Reporter.ReportEvent micPass, "Step 1", "This step has passed. The object was found"
Reporter.ReportEvent micFail, "Step 1", "This step has failed. The object was not found"

它还提供了存储enire桌面的屏幕截图的功能

Desktop.CaptureBitmap "C:\Temp\HP-UFT-Test.png",true
Reporter.ReportEvent micFail, "Step", msg, "C:\Temp\HP-UFT-Test.png"

它还可以捕获特定对象的屏幕截图,例如:

WpfWindow("SAP Work Manager").CaptureBitmap "C:\Temp\HP-UFT-Test.png",true 
Reporter.ReportEvent micFail, "Step", msg, "C:\Temp\HP-UFT-Test.png"