对于上次写的那个使用vbs测试webservice的脚本做了一点扩展，这一次一并发出来。有兴趣的朋友可以一起了解一下。考虑到模板尚未设计完成，这次仅把脚本贴一贴。
原脚本：
'作者：  aslandhu
'公司：  中科大讯飞科技股份有限公司
'脚本功能：     webservice自动化测试，自动读取测试用例，用例配置文件，最终将测试结果写入用例中。
'开发开始时间： 2009-4-20
'更新时间：  2010-3-15(15:30:00)
'******************************************************************webservice测试开始*************************************************************
'请在使用前调试脚本确保脚本能正常工作
'请严格使用提供的模板编写用例，否则脚本无法正常工作
'*****************************************************************收集相关信息************************************************************************
On error resume next
Dim SoapText,XmlHead,XmlLast,SoapQuest,MethodInput,XmlMethodString1,XmlMethodString2,WebserviceAddress,testResult,ResultPath
MethodInput="GetRecResultList"       '待测试的方法
Dim n,m,i,j,a,b,k,c,CounterPass,CounterFail,CounterAll,CounterFailer,BoolCounter 'n为参数个数，也即用例需要取值的列数量,m为用例数量即Excel行数，K为方法数量（保留）
n=1              '传入的参数个数
k=9              '需要检查的参数个数
m=20             '用例数量即Excel行数
CounterAll=0     '这四个是计数器
CounterPass=0
CounterFail=0
CounterFailer=0
BoolCounter=true
WebserviceAddress=http://…………/SMSSDemoWs/TestRoutingEngine.asmx  '测试接口地址
TestPath="C:\test.xls"        '测试用例路径
Dim ArrayInfo()
ReDim ArrayInfo(m,n)
'****************************************************************拼装SOAP头尾消息*****************************************************************
XmlHead="<?xml version=""1.0"" encoding=""utf-16""?>"&"<soap:Envelope xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"">"&"<soap:Body>"
XmlLast="</soap:Body>"&"</soap:Envelope>"
XmlMethodString1="<"&MethodInput&" "&"xmlns=""http://tempuri.org/"">"
XmlMethodString2="</"&MethodInput&">"
'XmlMethodString2="</"&MethodInput&">"
'*****************************************************************创建Excel对象，准备读取用例************************************************
Set Excel = CreateObject("Excel.Application")
oExcel.DisplayAlerts=FALSE
oExcel.Visible = false
oExcel.WorkBooks.Open(TestPath)
oExcel.WorkSheets(MethodInput).Activate
'*****************************************************************将用例存入数组********************************************************************
For i=1 To m  '行数3,b
  For j=1 To n  '列数2,a
  ArrayInfo(i,j)= oExcel.Cells(i,j).Value 
 Next
Next
'****************************************************************开始组装SOAP主体*****************************************************************
SoapText=""
For b=2 To m
For a=1 To n
SoapText=SoapText&"<"&ArrayInfo(1,a)&">"&ArrayInfo(b,a)&"</"&ArrayInfo(1,a)&">"
CounterAll=CounterAll+1
Next
SoapQuest=XmlHead&XmlMethodString1&SoapText&XmlMethodString2&XmlLast
'MsgBox(SoapQuest)
'WriteToFile  "c:\test.txt",SoapQuest
'****************************************************************开始循环发送消息*********************************************************************
'定义一XML的文档对象
'初始化http对象
Set h = createobject( "Microsoft.XMLHTTP")
h.open "POST", WebserviceAddress, False
h.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
h.setRequestHeader "SOAPAction", "http://tempuri.org/"&MethodInput
h.send (SoapQuest)
While h.readyState <> 4
Wend
'***************************************************************循环处理返回结果并将结果写入用例***********************************************
For c=n+1 to n+k
testResult=oExcel.Cells(1,c).Value
test=oExcel.Cells(b,c).Value
testtest=test
fact=GetXml(h.responseText,testResult)
if (IsEmpty(test) or IsNull(test) or (Len(test)=null) or (test=" ")) Then test=" "
if (IsEmpty(fact) or IsNull(fact) or (Len(fact)=null) or (fact=" ")) Then fact=" "
If  CStr(test) <> CStr(fact) then
   oExcel.Cells(b,c).Value = testtest&"("&"实际结果为："&fact&")"
          oExcel.Cells(b,c).Font.Color = RGB(255, 0, 225)
   'oExcel.Cells(b,c+k).Interior.Color = RGB(0, 255, 0) 'Background color
                 oExcel.Cells(b,c).Font.Bold = True
                 BoolCounter=BoolCounter AND false
                 CounterFail=CounterFail+1 
 'else
   'oExcel.Cells(b,c).Value = testtest
   'oExcel.Cells(b,c).Font.Color = RGB(0, 0, 0)
   'oExcel.Cells(b,c).Interior.Color = RGB(255, 255, 255) '
end if
                 BoolCounter=BoolCounter AND true
Next
if BoolCounter=false then                
CounterFailer=CounterFailer+1
BoolCounter=true             
end if
SoapText=""
Next

'****************************************************************释放Excel对象，并将结果写到指定路径***************************************
CheckFolder "C:\TestResult"         '测试结果保存路径
ResultPath="C:\TestResult\"&MethodInput&".xls"
oExcel.WorkSheets(MethodInput).SaveAs ResultPath
oExcel.WorkBooks.Close
oExcel.Quit
Set Excel=nothing
msgbox("你好，共执行完成用例"&CounterAll&"条,共有"&CounterFail&"个检查点与预期结果不一致"&"有"&CounterFailer&"条用例执行失败")
'***************************************************************以下是被调用的函数****************************************************************
Sub CheckFolder(folderpath)
Dim fso,CreateFolderSuccess,f
Set fso=CreateObject("Scripting.FileSystemObject")
If  fso.FolderExists(folderpath)=false Then
 Set f = fso.CreateFolder(folderpath)
  CreateFolderSuccess = f.Path
  Else
  Set fso=nothing
End If
End Sub

'将string写入文本
Sub WriteToFile (filepath,text)
  Dim fso, MyFile,txtFile
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set txtFile = fso.GetFile(filepath)
  Set MyFile = txtFile.OpenAsTextStream(8, 0)
  MyFile.Write text&vbcrlf
  MyFile.Close
End Sub

'创建文本文件
Sub CreatedFile(filepath)
 Set fso = CreateObject("Scripting.FileSystemObject")
    Set MyFile = fso.CreateTextFile(filepath, true)
    MyFile.WriteLine("<!-- Result -->")
    MyFile.Close
End Sub

'判断txt文件是否存在
Function IsFileExist(filepath)
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  IsFileExist = fso.FileExists(filepath)
End Function

Function GetXml(testpath, nodeName)
      Set xmlDoc = Nothing
        Set xmlDoc = CreateObject("Msxml2.DOMDocument")
        xmlDoc.loadXML(testpath)
        Set root = xmlDoc.documentElement
        Set bjChildNodes = root.getElementsByTagName(nodeName)
        if(objChildNodes.item(0).ChildNodes.length=0) then
        GetXml=" "
        else
        GetXml= objChildNodes.item(0).firstChild.text
 end if
        Set xmlDoc = Nothing
End Function

  on   error   goto   0 

另外一个脚本（原理实现都一样，上面那个不支持多个方法，下面的这个脚本支持一次执行多个方法的用例，非并发执行）：（Created by aslandhu）

On error resume next
Dim conn,rst,filename,WebserviceAddress,SOAPAction,MethodInput,InputNodesString,OuputNodesString,InputNodes,OutputNodes
filename="C:\test.xls"                               '填入用例路径
Set conn= createobject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="&filename&";Extended Properties='Excel 8.0;hdr=yes'"
Set rst= createobject("ADODB.Recordset")
Set Caserst= createobject("ADODB.Recordset")
SqlStr = "select * from [VbsConfig$A1:G2]"    '此处增加用例范围
rst.Open SqlStr,conn,2,2
'Created by aslandhu                                          
Do Until rst.EOF                           
   WebserviceAddress = rst.fields("WebserviceAddress")
   SOAPAction= rst.fields("SOAPAction")
   MethodInput= rst.fields("MethodInput")
   InputNodesString= rst.fields("InputNodesString")
   uputNodesString= rst.fields("OuputNodesString")
   CaseBegin= rst.fields("CaseBegin")
   CaseEnd= rst.fields("CaseEnd")
   InputNodes = Split(InputNodesString, ",", -1, 1)
   utputNodes = Split(OuputNodesString, ",", -1, 1)
'***************************************************从数据表中取测试用例*****************************
   CaseSqlStr =  "select * from ["&MethodInput&"$"&CaseBegin&":"&CaseEnd&"]" 
   Caserst.Open CaseSqlStr,conn,2,2
   Dim InputNodesValue()
   ReDim InputNodesValue(UBound(InputNodes))
'******************************************************开始拼装消息*********************************
Do Until Caserst.EOF
   XmlHead="<?xml version=""1.0"" encoding=""utf-16""?>"&"<soap:Envelope xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"">"&"<soap:Body>"
   XmlLast="</soap:Body>"&"</soap:Envelope>"
   XmlMethodString1="<"&MethodInput&" "&"xmlns=""http://tempuri.org/"">"
   XmlMethodString2="</"&MethodInput&">"
   SoapText="" 
For i=0 To UBound(InputNodes)
   InputNodesValue(i)= Caserst.fields(InputNodes(i))
   SoapText=SoapText+"<"&InputNodes(i)&">"&InputNodesValue(i)&"</"&InputNodes(i)&">"
Next
   SoapQuest=XmlHead&XmlMethodString1&SoapText&XmlMethodString2&XmlLast
   SoapText=""
'***************************************************获取返回结果*************************************
  SoapResponse=GetSoapRes(SoapQuest,CStr(WebserviceAddress),CStr(SOAPAction))
'**************************************************处理返回结果**************************************
Dim OnputNodesValue()
Redim OutputNodesValue(UBound(OutputNodes))
For i=0 To UBound(OutputNodes)
   OutputNodesValue(i)= Caserst.fields(OutputNodes(i))  '存放预期值
   FactValue=GetNodeValue(SoapResponse,OutputNodes(i))
   if (IsEmpty(OutputNodesValue(i)) or IsNull(OutputNodesValue(i)) or (Len(OutputNodesValue(i))=null) or (OutputNodesValue(i)=" ")) Then OutputNodesValue(i)=" "
   if (IsEmpty(FactValue) or IsNull(FactValue) or (Len(FactValue)=null) or (FactValue=" ")) Then FactValue=" "
   If CStr(OutputNodesValue(i)) <> CStr(FactValue) then
   Caserst.fields(OutputNodes(i)) = OutputNodesValue(i)&"("&"实际结果为："&FactValue&")"
   End If
Next
'***************************************************************************************************
   'Created by aslandhu  
   Caserst.MoveNext
Loop
   Caserst.Close
   set Caserst=nothing
'****************************************************************************************************
   rst.MoveNext
Loop
   rst.Close
   conn.Close
   set conn=nothing
   set rst=nothing
on error goto 0
'****************************************************************************************************
Function  GetSoapRes(SoapQuest,WebserviceAddress,SOAPAction)
        Set h = Createobject("Microsoft.XMLHTTP")
        h.open "POST", WebserviceAddress, False
        h.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
        h.setRequestHeader "SOAPAction",SOAPAction
        h.send (SoapQuest)
        While h.readyState <> 4
        Wend
        GetSoapRes=h.responseText
End Function

Function GetNodeValue(SoapResponse,NodeName)
        Set xmlDoc = Nothing
        Set xmlDoc = CreateObject("Msxml2.DOMDocument")
        xmlDoc.loadXML(SoapResponse)
        Set root = xmlDoc.documentElement
        Set bjChildNodes = root.getElementsByTagName(NodeName)
        if(objChildNodes.length=0)then
        GetNodeValue=""
        else if(objChildNodes.item(0).ChildNodes.length=0) then
        GetNodeValue=" "
        else
        GetNodeValue= objChildNodes.item(0).firstChild.text
 end if
        end if
        Set xmlDoc = Nothing
End Function

webservice的测试，首先需要了解一下SOA ，对于他的定义我想大家可以从baidu或google上去了解和进一步学习，这里简单说明，

SOA---

面向服务的体系结构（Service-Oriented Architecture，SOA）是一个组件模型，它将应用程序的不同功能单元（称为服务）通过这些服务之间定义良好的接口和契约联系起来。接口是采用中立的方式进行定义的，它应该独立于实现服务的硬件平台、操作系统和编程语言。这使得构建在各种这样的系统中的服务可以一种统一和通用的方式进行交互。

按我个人的理解，简单说，当一个公司使用了很多套业务系统 例如 OA,MIS,DataBase 等等，这些系统可能是通过不同的开发环境研发的产品，如果我们需要一个管理系统去统一管理这些系统的时候会发现，我们必须采用不同的开发语言研发出针对不同系统的接口，并调用这些接口，这实际上存在着很大的技术难度和维护成本，说白了你必须要拥有java,c,c#等等的开发技术人员。 而SOA的思想即提供了这样的一种模式，就是让每个产品都形成或留有统一的一套接口，当我们需要使用不同系统的接口时，只需要采用SOA规定出来的规范来编制就可以了，即采用一种技术语言实现，这就避免了跨语言的编制难度。

我们这里所说的webservice测试，实际是通过使用基于 XML 的语言（称为 Web 服务描述语言（Web Sevices Definition Language，WSDL））来描述接口，服务已经转到更动态且更灵活的接口系统中.实际上就是，研发人员在产品的 业务系统上 通过WSDL包上了一层接口，然后向外部提供可以执行业务的方法。而我们需要做的就是通过QTP连接到WSDL，获取到相应的方法，给入参数，执行测试。

上面对待侧内容做了一些说明，下面是具体操作

首先，操作环境QTP10，这个版本可以安装支持WDSL测试的插件，安装方法，如果你已安装了QTP10,那需要你再安装一个插件

选择上这个 Web Services Add-in 并执行 将安装在本地硬盘驱动器上 下一步，随后系统还会提示你安装几个工具组件，执行完安装。对于没有许可证的童鞋 或许你需要想办法破解一下组件了。。。baidu or google

重新打开QTP，选择web service插件 如下：

进入到系统后，可以看到一个比较明显的不同，如下：

接下来，是一个关键环节，既然产品中提供了统一的SOA接口，同时我们也拥有了支持这个接口的插件，接下来，我们就需要连接这个接口来提取我们需要的业务方法，执行Web Service Wizard 通过向导来建立我们的连接：

执行下一步，在下图中，输入WSDL的URL地址，这个地址一般由研发人员提供给你：

除了给出URL的方式，由于wsdl使用的xml扩展语言方式，那么我们也可以通过导入xml结构文件来实现，本次先不做介绍。执行下一步，连接一旦建立成功，QTP会把wsdl中包装的业务方法提取出来显示在列表中，我们只需要选择待侧的系统方法就可以了

完成界面，提示是否需要添加 xml检查点，我建议大家选上，特别是QTP的初学者，因为建立xml检查点似乎是有难度的。

形成的脚本很简单，注意，在方法addAppRoles中，对应的几个参数，其中第一个参数是一个对象结构，也就是xml的一个标准结构，如果是通过java语言执行的话，需要首先定义一个标准结构的对象，然后将这个对象作为参数，传入方法中，那么在qtp中如何实现呢？？最初我一直在考虑如何去建立这样一个对象参数，但是，真正的实现方法远比我想象的要简单的多。进入到key view 模式：

可以看到，对应的语句，这里每一个参数都可以进行单独的参数化，如下：

选择第一个参数对应的参数化按钮，进入以下界面：

注意到，这个参数是一个xml structure类型的参数，选择edit xml structure按钮，进入到编辑界面：

qtp会将这个xml结构体结构导入，这样我们只需要操作具体的参数项就可以了，这里，将结构体中password这一参数进行了参数化。对这个结构体的参数化执行完毕。

接下来，可以通过同样的方法，把脚本代码中后面的参数也进行参数化，实现我们的自动化测试。

执行完以上内容，脚本就可以执行了，产生的结果报告中出现xml形式的报告模式，如下：

其中 没有权限 既是xml的返回结果，也是检查点检查的内容，根据输入条件的不同，会对应有不同的检查结果，需要对检查点也进行参数化。

1、LR录制时无法打开IE的解决方法

需要启用LR的DEP设置。具体实施如下：右击“我的电脑”-属性-高级-性能设置-在数据执行保护中设置LR的DEP；

3、LR9.0录制脚本后关闭录制，无法正常显示原代码

更改LR的显示设置，将View菜单下的Script. View进行勾选，之后重新启动LR即可；

4、录制Web脚本时，生成的脚本中存在乱码   

在录制脚本前，打开录制选项配置对话框Record-Options，进入到Advanced标签，先勾选“Support charset”，然后选择中支持UTF-8。之后再次录制即可；

5、在使用LR8.0与IE7.0结合的情况下，当点击【保存】或者【另存为】脚本时，LR被迫自动关闭；

此问题的直接导致原因是因为LR8.0与IE7.0是不兼容；要解决此问题，可将IE7.0版本变更为6.0版本，或者将LR升级为9.0版本；

6、LR录制可以正常启动IE，却无法正常打开相关网页

此问题是由于IE没有准确定位引起，只需要将IE重新定位即可；在Start Recording中，将Program to record重新设置；之后重启LR即可；

7、LR可正常录制脚本，但是在点击进行回放时，LR被迫自动关闭

在录制选项中设置其不同的录制模式可使此问题得到解决； RunTime-Setting -> Internet  Protocol -> Proxy - > 选择obain the proxy settings from the default browser

转自：http://www.3atesting.com/blog/index.php?file=viewlog&uid=1831&id=315

第一步：计划测试
1、明确压力点，根据压力点设计多少种场景组合
2、把文档（包括多少种场景组合、场景与场景组合条件的对应表）写好
3、如果监测UNIX机器，在被监测的机器需要安装监测Unix的进程
4、让开发人员帮助我们准备测试数据或他们写相关的文档我们来准备数据
5、让开发人员做一个恢复数据的脚本，以便于我们每次测试的时候都能够有一个相同的环境
6、针对每一个模块包括四个子文件夹：如模块A下包括“脚本”“场景”“结果”“图表” 四个子文件夹，每个子文件夹储存对应的文件，如下表所示

其中：结果名“1场景”是在场景中的“Results Setting”中设置的，具体的设置见“建立场景”部分，这里也可以有另外一种方法：在打开模板设置，如下：

选中“Automatically save the session as:”并且在“%ResultDir%”后面填写你想保存的文件名，当你打开某个lrr文件时，系统自动在当前目录中生成一个文件保存分析图表，如下图所示：

第二步：生成测试脚本
1、 把登陆部分放到“vuser_init”部分,把需要测试的内容部分放到“Action”部分执行；但是如果是模拟多个用户登陆系统，则要把登陆部分放到Action部分来实现
2、 录制脚本后，想查询某个函数的原型，按“F1”键
3、 确认脚本中哪些参数是需要进行参数化的（最好能可以和开发人员一起确认）
4、 在脚本参数化时把函数web_submit_data()中的ITEMDATA后面的数据参数化，因为这些数据是传递给服务器的，当然也可以把一个函数中的所有相同变量都替换掉
5、 脚本中无用的部分用“/*”“*/”“//”注释掉，但最好不要删除
6、 调试脚本遵循以下原则：
　　　确认在VU里SUSI（单用户单循环次数single user & single iteration）
确认在VU里SUMI（单用户多循环次数single user & multi iteration）
确认在controller中MUSI（多用户单循环次数multi user & single iteration）
确认在controller中MUMI（多用户多循环次数 multi user & multi iteration）
7、 事务的名称取的有意义便于事务之间的区分，把所有的事务名都记录在一起，便于在测试结果概要中区分它们，这要写成一个表：某次测试有哪些模块，每个模块中有哪些事务(见对应的“关系表”)
8、 在 “Parameter List”中可以选择参数类型“Random Number”，使某一个参数取设定的范围内的随机值
第三步：建立场景
1、 把场景名称编号，并制定出一份场景名称和场景条件组合的对应表。比如，场景m对应于“某一模块_xx个vu _分z台machine”(见“关系表”中的例子)
2、 根据上面的对应表把场景设置好，需要设置的要素如下：总体多少个用户、分多少个组、每个组有多少个用户、分几台机器运行、每个脚本迭代多少次、是否回放think time时间、检查Parameter List中每个参数设置是否正确、参数从表中取值间隔是否正确、是否选中“Initialize all Vusers before Run”
3、 测试结果应该保存为“m场景0，m场景1,…”
4、 把虚拟用户分散到几台机器上和在一台机器上面都要进行测试，因为有可以效果不同
5、 场景中如果有需要改动的地方，必须新建一个场景(建议使用“另存为”，然后再修改结果文件名，再选择相应的脚本)，并把场景按顺序编号，先维护好场景与场景组合条件的对应表，以便以后的查找，并且在结果 “Results Setting”中设置的结果名与场景名相同。建议在“Results Setting”中选中“Automatically create a results directory for each scenario executeon”让它每次自动累加，不建议选中“Automatically overwrite existing results directory without prompting for confirmation”，因为我们不要覆盖掉以前的测试结果，把它保存下来以便有个根据。
6、 需要注意的地方：当在“Parameter List”中的“Select next row”选中“Unique”时，如果再在“Edit Schedule\Schedule by Scenario\Duration”中选中第二项“Run for XX after the ramp up has been completed”时系统就会报错，提示“Unique”类型不相符。
7、 在“Run-time Setting”设置中，“General”中的“Pacing”非常有用，可以设置每次迭代之间相隔多少时间，也可以是随机的取值
8、 建议：把“Parameter List”和“Run-time Setting”中的所有设置都搞熟悉，这样便于以后对脚本和场景进行设置
9、 设计“Parameter List”时的小技巧：即在“Allocate X values for each Vuser”时，尽量 把它的间隔在数据容许的范围内取大些，这样可以做从一次迭代到最大值迭代，而且对脚本没有什么影响
10、当一个脚本中有多个事务，在事务前面增加集合点时需要一点技巧。或者我们把脚本复制几个，或者我这样做：测试前面的事务的压力时，把后面的事务前的集合点设置为不激活状态；在测试后面的事务的压力时，把前面的事务的集合点设置为不激活状态，另外最好不选中Initialize all Vusers before Run，具体参见Controller中的“Scenario/Rendezvous”，及用户手册(按F1)
11、把持续时间从最后60秒改为整个场景的时间，右键单击某个图，选择“Configue”，修
改Graph Time即可
12、每次从一个场景修改后保存为另一个场景时别忘记把结果保存文件名修改相对应的文件名。在设置结果保存文件名时有一个技巧：如果你打开这个窗口时，点击确定则系统会
默认以“4场景2”为基点向后加“4场景20”“4场景21”等等，但是如果你把结果文件名后面的数据去掉，改为“4场景”，点击确定后，系统会自动搜索是以“4场景”开头的文件名，并在它的后面继续增加，比如把它改为“4场景”时，下次结果保存在“4场景3”中。而且他在搜索的时候搜索以“4场景”开头的文件名，从0开始，有的话就不取代而跳过，没有的话就取代。
第四步：运行场景
1、 运行场景前需要注意的事项：每个组的虚拟用户数、迭代次数、think time、参数化时的取值间隔、执行恢复数据的脚本、确认虚拟机的LoadRunner Agent Service打开
2、 如果监测Unix，运行场景前需要启动监测Unix进程，启动的命令“rpc.rstatd”、查看这个进程是否启动的命令“rpcinfo –p”
3、 运行前使Generator机器处理Ready状态
4、 确认被监测的机器已经连接上去，并且添加自己所需要的计数器
5、 运行之前一定要确认系统中压力点的数据量是多少
6、 确认以上都正确时再运行测试场景
第五步：监视场景
1、打开 “Passed Transactions”或“Failed Transactions”，可以随时观察到事务的运行状态
第六步：分析测试结果
1、 打开Analysis后，把经过数据处理的结果图表保存到“图表”文件夹，并且文件名和场景名、结果名相同，这样便于以后的查阅。也可以省去每次进行数据处理的时间。
2、 可以通过点击界面上的 “View Run Time Setting”可以看到此场景运行时的一些场景设置
3、 在关联图表时可以自动调节每个元素的比例，点击右键，选择 即可
4、 每次测试结束后确认所做的操作是正确的，确认正确后再分析结果
5、 在结果文件夹中为每个场景建立一个文档，把每次运行时的情况记录下来以便于写测试报告，尤其运行错误的原因记录下来，并把开发人员所做的修改也记录下来以便知道开发人员做了些什么修改
6、 在分析运行结果时可以把几个结果合在一起进行比较，打开如下“Cross with Result…”

即可，然后增加一个运行结果，这样就可以把你所需要的结果放到一起比较了

Winrunner GUI说明:

1.GUI描述说明:

TDataListView_0                            TTreeView_1

{                                          {

 class: object,                                class: list,

 MSW_class: TDataListView,                   MSW_class: TTreeView,

 displayed: 1,                                index: 0

 index: 0                                    }

}

示例a                                      示例b

以上a和b示例分别是非标准控件和标准控件的GUI描述,

首先,例子a的class描述是object,说明winrunner无法辨认该控件的运行特征,因此只将其辨认未object,winrunner将所有不能辨认其内部运行特征的对象都识别未object.

再者,例子b的class描述是list,说明winrunner将其辨认为了list类的控件,那么我们对该控件进行操作时就可以使用list类的函数(TSL库提供).

下面讲解一些比较重要的属性的意义(其他属性的意义可以查看winrunner的帮助文档):

1)Class:   winrunner将该对象识别为class属性描述的对象

2)MSW_class:  winrunner抓取的该对象的实际对象名称.

3)那么

{

 class: object,  

 MSW_class: TDataListView      

}

表示的就时将实际对象名称为TDataListView的对象识别为object对象进行操作.

4)Index与location属性时选择符属性 ,当一个GUI的属性识别出来有多个对象时需要使用选择符号来识别和区分:

(1)Index使用控件的默认索引来识别,例如edit1, edit2这2个控件都是Tedit控件,那么当一个界面上同事出现该2个控件时,那么用index识别,index: 1就代表了edit1,index:2表示edit2.

(2)Location使用TAB聚焦顺序来识别控件,同上,如果edit1和edit2的TAB聚焦顺序分别是第一个TAB聚焦edit2,第二个TAB聚焦edit1,那么location:2表示edit1,location:1表示edit2.

        (3)如果一个控件经过识别之后包含了x,y的属性,那么它将是由x,y来帮助唯一识别的GUI描述,我们不建议使用x,y来识别,因为这将大大降低可移植性.所以建议一个对象难以唯一辨认的时候请使用选择符号来帮助识别.(当然,局限性是要求程序员不要随便改动TAB的聚焦顺序和对象的索引).

5),winrunner的GUI的描述也提供了正则表达式的描述,例如模糊匹配上就有!.*

使用方法:

       (1),!A.*表示以A为起始的任何字符.

       (2),!.A*表示以A为结尾的任何字符.

2.对GUI对象的操作:

(1),如果是标准控件,请直接使用TSL库提供的标准函数操作.

(2),如果是非标准控件,用GUI配置影射为标准控件再使用TSL库的标准函数操作.

(3),如果是非标准控件无法影射为标准控件,那么也请识别为object对象,使用通过x,y进行操作的函数.

(4)如果是非标准控件识别为object对象,使用通过x,y进行操作的函数不能满足要求的情况下,请结合使用键盘模拟操作进行辅助.

(5)当以上情况均无法完成的情况下,可以考虑将非标准控件识别为object对象,并获取object的句柄,要后通过句柄来发送消息来驱动控件.

(6)最后就是开发DLL来驱动和模拟控件的操作了,一般结合(5)比较有效果,但是这带来的是可维护性低,脚本工作量过大,延误自动化测试框架的建立和造成环境移植的冲突,当程序代码有了修改,那么又不得不花费巨大得工作量去修改DLL以及与脚本通讯的函数.(例如通过DLL内的程序去访问所测对象的API接口,实现对所测对象的各种操作)

提示:一般不建议使用第6步,除非不得已或者所测平台的相应模块内部接口或者代码改动很小或者没有改动才考虑使用.事实上即使是非标准控件,大部分都可以通过识别为object后使用自定义函数来封装对坐标计算,模拟操作,对象属性等进行编程来实现其功能.

Winrunner 脚本说明:

1.部分代码说明

1),load_dll("user32.dll");
NZq)` P7uk ]0extern int PostMessageA(in long, in long, in long, in long);
D[1]V%T#wg,xY/^!q0win_get_info("WIN","handle",hWnd);

PostMessageA(hWnd, 1128, 1, coord_array[1]);

以上代码是获取WIN句柄,使用user32.DLL中的PostMessageA进行发送消息来完成对控件的操作的代码.

基本上USER32.DLL里面的API都可以通过这个方式进行调用,其中PostMessageA和SendMessageA这2个方法最常用,特别在测试一些难于用TSL里面的标准函数进行操作的控件时,采用这2个方法会有非常好的收获,结合VC的SPY++会让你得心应手.

(最好大家再去了解一下WINDOWS SDK的编程原理,WINDOWS有一个消息机制,一直在循环等待,这也是WINDOWS的一个特点,通过消息来进行各种活动)

2),table = "Excel.xls";                            
3Epp2`7M0rc = ddt_open(table, DDT_MODE_READ);

#打开Excel.xls软件测试专业网站:51Testing软件测试网 ^t"Z‑M3N1?U
if (rc!= E_OK && rc != E_FILE_OPEN)
!`2D nYe­kC[1]_

#获取数据驱动表的数据总数
_3T{.Gvo0    for(table_Row = 1; table_Row <= table_RowCount; table_Row ++)软件测试专业网站:51Testing软件测试网O$Ra5Q(i4q
    {      软件测试专业网站:51Testing软件测试网;t3ed7UO­_&eI!B
           LCM = ddt_val(table,"数据列 ");

           #获取数据驱动表的列名未”数据列”的一列的内容并赋值给LCM变量.

ddt_set_row(table,table_Row);

#设置数据驱动表table的获取信息在table_Row行中.软件测试专业网站:51Testing软件测试网WZ0JSl[ l(T7Y
   

}

ddt_close(table);

以上代码时数据驱动例子;

应用举例:当一个测试用例涉及多个不同数据分别对平台进行测试,那么就需要使用数据驱动,例如对一个输入框进行测试,那么根据等价类划分,边界值,因果图,RUP等获得测试数据样例,然后将测试数据样例放到数据驱动中,让winrunner脚本根据不同的数据循环执行某个脚本,最终获得对入口数据的全面覆盖.同时也可以作为一个自定义的数据源来使用.数据驱动要灵活运用.

 TSL常用函数说明:

1.TSL语言语法特点:

       TSL语言实际上是一种类C语言,因为语句控制的关键字都是跟C语言一致的,部分C语言的函数也可以在TSL语言中使用,但是也有不同的地方,例如:

1,变量的声明:TSL语言没有整型,实型等的定义,只有auto,static,public等定义,(详细的区别可以去参考TSL说明文档)

2,函数的定义:TSL语言定义的函数需要有关键字function,如:

       Function ShowMsg(in A,out B)

       {

              Auto C;

              C = A;

              B = C+B;

              Return C

       }

函数执行的过程是:从in 参数即A变量中传入,执行之后通过出口参数out 即B变量传会调用处,同事函数自己会有返回值C.

注意:在使用自定义函数之前需要先编译该函数即先运行该函数脚本.

3,TSL语言最大的特点就是有自己的库函数,就是TSL库,通过它可以方便的执行各种自动化测试操作.

4,TSL脚本的执行方式与普通的程序编译及运行顺序是有区别的.

 2.数据库章:

       (1)建立数据库连接:

db_connect("TNB","DSN=CPC8888;UID=sa;PWD=sinoccqa;APP=WinRunner;WSID=CHY ",20);

参数说明:

    “TNB” 是数据库连接成功后的会话名,建立连接之后可以使用TNB来进行各种数据库操作,

“DSN” 是本机的数据源名称,

“UID” 是登陆数据的用户名,

“PWD” 是登陆数据库的密码.

函数功能:

当参数正确输入的情况下,建立了连接之后函数会返回E_OK,否则返回其他值(详细可以参考winrunner自带的TSL说明);

 (2)执行SQL语句:

db_execute_query("TNB","SQL",record_number);

参数说明:

“TNB” 就是(1)上说的数据库连接会话名,通过它才能进行数据库操作,

“SQL” 是数据库所要执行的SQL,

“record_number” 是执行了SQL之后从数据库中返回的结果集数据数目.

(3)获取返回的数据集信息:

db_get_row("TNB",Row,modid);

参数说明:

“TNB” 是数据库连接成功后的会话名,

“Row” 是指函数要获取数据集中第几行的信息,

“modid” 是指将获得第Row行的数据集信息放到变量modid.

 (4)断开数据库连接:

db_disconnect ("TNB");

参数说明:

“TNB” 是数据库连接成功后的会话名,

函数功能:

断开会话名为“TNB”的数据库连接.

 3.DLL函数:

1,加载DLL:

load_dll("PATH");

参数说明:

“PATH”加载DLL的带路径的全文件名;

 2,使用DLL中定义的函数:

extern int DllFunctionName(in long);

在使用DLL 查看(787) 评论(0) 收藏 分享 管理