QTP学习笔记连载

dreamsea123

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

如何调用外部脚本函数
步骤：
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

关于重载


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

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

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


给mercury加密
步骤：

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

dreamsea123

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

随机参数化



使用函数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为经济舱

欧阳

顶一个

calliopsis

楼主很认真,关注一下!

aifeisheng

值得我们去学习。

coralsong_1982

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

hmilyjch

good，我也才学这个~~~

dreamsea123

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

原帖由 dreamsea123 于 2009-1-16 10:36 发表
如何调用外部脚本函数
步骤：
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

谢谢！

peterz

不错。继续

dreamsea123

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

不错，谢谢

dreamsea123

脚本如下： '手动连接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

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