QTP基础使用

 

1.安装QTP（以后补充）

    1.1

    1.2

    1.3

    1.4

 

2.使用QTP

    使用方法如下：

 

 

文件:	081010110342.rar
大小:	269KB
下载:	下载

 

3.补充：如果在脚本中已经将程序关闭了，但是想要循环测试，需要使用语句唤醒程序

     invokeapplications "完整路径"

下面详细叙述一下：

用QTP执行语句打开程序的几种方法

方法一：

StartURL = ""     //设定URL
set IE = CreateObject("InternetExplorer.Application")    //使用IE打开
IE.Visible = true                                                                   //选择支持

IE.Navigate StartURL                               

方法二：

InvokeApplication "C:\Program Files\Internet Explorer\IEXPLORE.EXE "

打开IE时，可以将要打开的IE界面设为主页，就可以简化，省去v了，直接跟上IE浏览器可执行文件的路径

方法三：也就是前面提到的方法

Systemutil.Run"C:\Program Files\Internet Explorer\IEXPLORE.EXE",""

语法介绍：Syntax

object.Run file,[params],[dir],[op],[mode]

如果[op]参数为空，则表示默认为Open，也就是说直接输入SystemUtil.Run "" 就可以打开了。具体还是查Help吧。

例子：

SystemUtil.Run ""

其中'SystemUtil'表示一个对象Object，其下有一个方法Method叫做Run"" 就是Syntax中的那个file，即要运行的DD。

Note：其中的"C:\Program Files\Internet Explorer\IEXPLORE.EXE"可以换成其它浏览器程序，如Tencent的TT，也要看QTP是否支持

 

 

结合QTP测试平台6.0的客户端频繁登录、退出，讲解：

 

使用invokeapplication "完整路径"

 

脚本代码：

 

Window("视频监控系统客户端").Dialog("#32770").WinButton("Button").Click

Wait(10)                //等待10秒，客户端有时间反应

Window("视频监控系统客户端").Close             //此处已经关闭了客户端

Window("视频监控系统客户端").Dialog("客户端").WinButton("确定").Click  

//关闭“确定”提示

For Iterator = 1 To 100000000 Step 1    //For……Nextel 循环

       Invokeapplication "C:\Documents and Settings\b501\桌面\CU081028\CUx.exe"

       //重启程序

       Window("视频监控系统客户端").Dialog("#32770").WinButton("Button_2").Click

       Window("视频监控系统客户端").Close

       Window("视频监控系统客户端").Dialog("客户端").WinButton("确定").Click

Next

 

注意：1：要有" "，且关键字与"路径"要有空格

        2：使用完整（绝对）路径，建议Copy使用Record时设置的路径。

 

Invokeapplication "C:\Documents and Settings\b501\桌面\CU081028\CUx.exe"//重启程序

 

换成语句：

SystemUtil.Run "C:\Documents and Settings\b501\桌面\CU081028\CUx.exe"

 

                                  

文件:	用QTP执行语句打开程序的几种方法.rar
大小:	6KB
下载:	下载

 

整理中内容：（需验证）

来源：

1．QTP连接到SQL Server 2000数据库

 

Set Conn = CreateObject("ADODB.Connection")
Set Rs = CreateObject("ADODB.Recordset")

Conn.Open "Descrīption=Descrīption;DRIVER=SQLServer;SERVER=Automatetest;UID=sa;PWD=sa;

APP=QuickTest Professional;WSID=KML-MICHELLE;DATABASE=MYDB"
//不知道Descrīption用处在哪，可以更改而不影响结果
//需要注意的参数：SERVER;UID;PWD;DATABASE
="select * from DataTable"
Rs.open sql,Conn
msgbox Rs("FieldA"),,"FieldA"
//Rs("FieldA")为FieldA列的第一个值
//要取第N行的值应该怎么样做？
Conn.close
set Conn=nothing