QTP学习笔记连载

dreamsea123 发表于 2009-1-16 10:34:43

QTP学习笔记1——sub和funcition的区别
Function和sub的区别是：function能返回值，而sub是不能返回值的
举例：

function的例子

Dim a

a="dongfang"

Function myfullname(name)

myfullname=name&" baoshu"

msgbox "my fullname is "&myfullname

End Function

Call myfullname(a)

‘myfullname(a)可以加括号，也可以不加括号

sub的例子

Dim a

a="dongfang"

sub myfullname(a)

msgbox "my fullname is "&a&" baoshu"

end sub

myfullname a

'call myfullname(a)' 执行函数或sub

注意：

1.调用sub的函数可以用call 也可以不用call，但是使用call的时候需要把后边的括符加上

2.返回的时候使用的是函数名，不能使用return

dreamsea123 发表于 2009-1-16 10:36:14

QTP学习笔记2——如何调用外部脚本函数

如何调用外部脚本函数
步骤：
1.新建外部脚本文件，命名为：cora.vbs
内容是：
Function test002(a)
msgbox a
End Function
2. 在QTP中新建一个脚本，内容如下
Dim x
x=1
call test002(x)
3.把cora.vbs导入
4.导入的路径是：files-settings-resource

dreamsea123 发表于 2009-1-16 10:36:58

QTP学习笔记3——重载外部脚本文件

关于重载

VbS不支持重载：

举例：

1.新建一个文件命名为：chongzai.vbs 内容是：
Function myfullname(name)
myfullname=name&"宝树"
msgbox "my fullname is "&myfullname&h
End Function
Function myfullname(name,h)
myfullname=name&"宝树"
msgbox "my fullname is "&myfullname&h
End Function
Function myfullname()
myfullname=name&"宝树"
msgbox "my fullname is "&myfullname&h
End Function

2. 在QTP中新建一个脚本，内容如下
Dim a
Dim b
a="东方"
b="哈哈"
Call myfullname(a,b)

3.把chongzai.vbs导入

4.运行结果报错

原因：vbs只人最后一个function,没有参数就会报错，但是如果把第二个function放到最后就不会报错

dreamsea123 发表于 2009-1-16 10:37:41

QTP学习笔记4——QTP中启动程序的方法

1. Invokeapplication 如
invokeapplication "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"
2. systemutil.Run 如
systemutil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"

dreamsea123 发表于 2009-1-16 10:38:09

QTP学习笔记5—密码加密显示

如何给我们的密码加密显示

给mercury加密
步骤：

1.在datatable中输入mercury
2.选中右击选择data-encrypt

dreamsea123 发表于 2009-1-16 10:38:37

QTP学习笔记6—脚本中的参数化（一）简单参数

1、参数化

以QTP中自带的flignt程序为例
'对飞机订票程序的用户名和密码进行参数化
systemutil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"
Dim userid
Dim password
userid="baoshu"
password="494656e21eaea9d10391daf21304bf409919a574"
Dialog("Login").WinEdit("Agent Name:").Set userid
Dialog("Login").WinEdit("Password:").SetSecure password
Dialog("Login").WinButton("OK").Click

2、常量
例子：
systemutil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe“
Dim cuserid
const cuserid ‘注意命名的规范，常量最好以C开头
Dim password
userid=“founder"
password="494656e21eaea9d10391daf21304bf409919a574"
Dialog("Login").WinEdit("Agent Name:").Set userid
Dialog("Login").WinEdit("Password:").SetSecure password
Dialog("Login").WinButton("OK").Click

dreamsea123 发表于 2009-1-16 10:39:04

QTP学习笔记7—脚本中的参数化（二）随机参数

随机参数化

使用函数RamdomNumber（0，2），在0到2之间随机产生一个数

以flight4.exe中选择机舱等级为例，一共有：经济舱、商务舱、头等舱三个级别，随机选择一个。

'使用描述性编程

Set ōrderPage = Descrīption.Create()
OrderPage("Class Name").Value= "Window" '设置页面类
OrderPage("Regexpwndtitle").Value="Flight Reservation"

Dim rage,i'设置参数

i=RandomNumber(0,2)'随机参数
Select Case i
Case "0"
rage="First"
print(rage)
Window(OrderPage).WinRadioButton("Class Name:=WinRadioButton","text:="&rage).Set

Case "1"
rage="Business"
print(rage)
Window(OrderPage).WinRadioButton("Class Name:=WinRadioButton","text:="&rage).Set
Case "2"
rage="Economy"
print(rage)
Window(OrderPage).WinRadioButton("Class Name:=WinRadioButton","text:="&rage).Set
End Select '条件语句 0为头等舱，1为商务舱，2为经济舱

欧阳发表于 2009-1-16 11:11:42

顶一个:lol

calliopsis 发表于 2009-2-9 11:19:27

楼主很认真,关注一下!

aifeisheng 发表于 2009-2-9 13:53:20

值得我们去学习。

coralsong_1982 发表于 2009-2-9 13:59:14

楼主提供的信息很有重哦，不错不错！

hmilyjch 发表于 2009-2-9 14:02:00

good，我也才学这个~~~

dreamsea123 发表于 2009-4-8 11:08:39

QTP学习笔记8—手动连接oracle数据库

QTP在很多条件下需要进行数据库测试，QTP使用微软ODBC连接数据库

以oracle为例来说明

Set Conn = CreateObject("ADODB.Connection" )
str="DRIVER=Oracle in OraHome92;SERVER=172.29.129.137;DBQ=CMS_172.29.129.137;user id=cms; password=cms" '数据库的地址用户名密码

Conn.open str
Set Rst = CreateObject ("ADODB.Recordset" )
sql = "select * from mid_employee_info "
Rst.open sql,conn

Rst.MoveFirst

If Rst.EOF and Rst.BOF Then
Rst.Close
reporter.ReportEvent micFail,"test","查询失败"
else
Dim returnname
returnname=cstr(Rst(0))

msgbox returnname
Rst.Close
End If

大家可以实验一下，只要更换红色部分的内容

[ 本帖最后由 dreamsea123 于 2009-4-8 11:09 编辑 ]

heqingbluesky 发表于 2009-4-8 14:04:55

原帖由 dreamsea123 于 2009-1-16 10:36 发表 http://bbs.51testing.com/images/common/back.gif
如何调用外部脚本函数
步骤：
1.新建外部脚本文件，命名为：cora.vbs
内容是：
Function test002(a)
msgbox a
End Function
2. 在QTP中新建一个脚本，内容如下
Dim x
x=1
call test002(x)
3.把 ...

使用VBS文件的时候，应该用ExecuteFile命令编译一下这个VBS文件，否则，Resource中的VBS不起作用。

dreamsea123 发表于 2009-4-8 14:36:42

谢谢！

peterz 发表于 2009-4-8 16:52:17

不错。继续

dreamsea123 发表于 2009-4-23 14:54:06

QTP学习笔记9—while 循环和动态数组赋值

1、声明1个动态数组

Dim group()2、使用while语句给动态数组赋值 Dim group() i=0 ' i初始值为0 While i<20 Redim Preserve group(i+1) '重新定义数组纬度
group(i)=i print group(i) i=i+1 Wend
Remdim Preservegroup(i+1)
该函数设置数组的纬度，每1次循环设置1次，这样可以避免犯“下标越界”的错误

fanghust 发表于 2009-5-6 11:23:12

不错，谢谢

dreamsea123 发表于 2009-5-25 13:55:11

QTP学习笔记10—应用手动连接数据库和动态数组，读取数据库中某列的值，并excel导出

脚本如下：

'手动连接oracle数据库
Set Conn = CreateObject("ADODB.Connection" )
str="DRIVER=Oracle in OraHome92;SERVER=172.29.131.30;DBQ=CMS_172.29.131.30;user id=cmstest; password=cms"'连接数据库服务器
Conn.open str
Set Rst = CreateObject ("ADODB.Recordset" )
sql = "select * from mc_memb " '查询数据库表格
Rst.open sql,conn

Rst.MoveFirst '指向第一行
If Rst.EOF and Rst.BOF Then'Rst.EOF和Rst.BOF指：
Rst.Close
reporter.ReportEvent micFail,"test","查询失败"
else
Dim memb_real_name() '设置1个动态数组
i=0
column_1=datatable.GetSheet("Action1").addparameter("memb_real_name","")
While not Rst.EOF'循环读取数据库表中某一列的数据
Redim Preserve memb_real_name(i+1)'重新设置数组的纬度
memb_real_name(i)=Rst("memb_real_name").value'将数据库中表mc_memb中的字段"memb_real_name"的值赋给数组
DataTable.SetCurrentRow(i+1) 'datatable中的行数从1开始
DataTable.value("memb_real_name","Action1")=memb_real_name(i)'将数据存放到datatable中
print(i+1&":"& memb_real_name(i)) '打印出来数据库的数据--------用于调试
i=i+1
Rst.MoveNext'指向下一行
Wend
DataTable.ExportSheet "C:\mengguixian002.xls","Action1" '导出数据
Rst.Close
End If

fei.ge 发表于 2009-5-25 13:59:10

不错，不错，继续持续更新……

页: [1] 2

51Testing软件测试论坛 's Archiver