基础代码交流贴

kai_top

这两周我开始学习QTP测试我们的web服务了;大体的软件使用操作流程是懂了，但具体实施起来特别是代码的组织及函数应用还有一些困难，因为自己只会vb没学习vbscript，所以想和大家交流一下代码等一些基础知识；呵呵,一起学习,加强记忆与应用。

1 生产随机数列
第一种方法

1. Randomize   '更新返回的数据(Initialize random-number generator)
   
2. Function rand(k)
   
3. n = Int((k-1)* Rnd +1)
   
4. rand = n
   
5. End Function
   

复制代码

第二种方法

1. n=randomnumber.value(1,255)

复制代码

2  当运行到表中的某一行，自动导出表中的所有数据

1. row=datatable.getcurrentrow
   
2. if row="5" then
   
3.   datatable.export("d:\data.xml")
   
4. end if

复制代码

3

1. webedit("txtpass").setsecure"sdsdf...."

复制代码

如果参数化密码，可以直接在数据表中写入未加密的密码，它会自动识别，即不用把setsecure改为set

4　如果弹出对话框就获取上面提示信息并与表中的信息对比，不统一证明弹出的提示出错,主要用来验证

1. 　if browser("web_name").dialog("dialog_name").exist(1) then'如果不出现=false
   
2.      error_message=browser("web_name").dialog("diaglog_name").static("用户密码错误!".getRoproperty("text")
   
3. 　　　if error_message<>(datatable.value("error_info"))then
   
4.          msgbox(error_message)
   
5.       end if
   
6.      browser("web_name").dialog("diaglog_name").close
   
7.   end if

复制代码

    这里我总结了两点技巧：
　　一是：对于dialog中，虽然提示信息对象名称是"用户密码错误"，但如果信息对象名称是“该用户不存在”，不用更改会自动识别，我想主要是录制第一遍时，“用户密码错误”只是让运行时能找到这个控制，而不管它是什么内容，因为在对象仓库中，text不是决定该对象的属性
    二是：如果对于提示信息比较长的，可以用mid(error_message,n,m)取一部份特征提示信息进行验证，这样我想可以节省处理时间，又可以避免长度以及空格等字符的处理
5  datatable.value("num")只在global形式下的一种省略形式；完整形式
是:

1. datatable.value("num",dtlocalsheet)

复制代码

5.1 向某一列的单元格赋值:

1. datatable.value("column_name",dtlocalsheet)="nanjing"

复制代码

5.2 取得某一行具体值：

1. 
   
2. datatable.setcurrentrow(n)
   
3. msgbox(datatable.getsheet("global").getparameter("column_name").Rawvalue)
   
4. 或者kk=datatable.Rawvalue("column_name","action1")
   

复制代码

  5.3 在run-time时，动态添加表格与数据

1. 
   
2. kk=datatable.addsheet("sheet_name").addparameter("column_name","value").name;
   

复制代码

6   wintreeview一些操作

1. 
   
2. 选择一个条目:wintreeview.select(item)'根是0
   
3. 根的名称：wintreeview.getitem(0)
   

复制代码

7   数据库检查点模块:

1. 
   
2. sub database_check
   
3. set con=createobject("adodb.connection")
   
4. con.open "Description=IBM_ODBC;DRIVER=SQL Server;SERVER=IBM;UID=sa;"&_
   
5.                  "PWD=123456;APP=Quick Test Pro;WSID=IBM;DATABASE=IBM_table"
   
6. 'access方式:con.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\test.mdb"
   
7. 'Orocle方式:con.open "DRIVER={Oracle in OraHome92};SERVER=CESHI;UID=CND_TEST;PWD=CND;DBQ=CESHI;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=Lo;BAM=IfAllSuccessful;MTS=F;MDI=Me;CSR=F;FWC=F;PFC=10;TLO=O;"
   
8. set record=createobject("adodb.recordset")
   
9. sql="select*from ibm_one_table"
   
10. record.open sql,con
    
11. DO
    
12. if(record("ibm_table_column")="kai")then'//查找表格中有多少kai
    
13. num=num+1;
    
14. end if
    
15. record.movenext
    
16. loop until record.eof=true
    
17. record.close
    
18. set record=nothing
    
19. con.close
    
20. set con=nothing
    
21. end sub
    

复制代码

8   换行符

1. vbcr----chr(13)回车符// vblf----chr(10)换行符
   
2.     vbcrlf----chr(13)+chr(10)结合//type(chr(13)就相当于按了一上键盘上的enter
   

复制代码

9  Run from step有两种方式：

1. 
   
2. 在Keyword View模式会从本步骤运行到所有action结束
   
3. 在expert view模式仅会将本action运行结束
   

复制代码

10  由于对象属性原因，无法识别对象

1. 
   
2. -----对于对象属性是变化的，可以参数化/或者用正则表达式
   
3. -----报匹配多个对象错误，可以spy查看对象，添加一个该对象另一个唯一标识属性
   
4. -----有时可以删除对象的变化的属性来解决识别问题
   
5. ------对于多个完全相同的对象，可以采用添加index,location,createtime等特殊属性来识别
   
6. 　　(index:按照程序源码，绘制对象的先后标识对象，所以与其它相同对象是相互依赖，当其它对象发生
   
7. 　　变化后，原先的所有对象index属性要发生变化，开始是0；如index:=0;
   
8.         location：根据对象的位置进行确定，从上到下，从左到右;
   
9. 　　CreateTime：按照对象被浏览器打开的先后标识对象)
   
10. ------另外换一种思维方式，采取等效的方法；比如用键盘代替鼠标或用操作系统本身特性去解决问题
    

复制代码

11  对系统文件的操作

1. 
   
2.   11.1 从系统的文件中获取信息及删除文件
   
3.   get_file_infor("c:\she.mpg")
   
4.    function get_file_infor(url)
   
5.     dim fso,f
   
6.     set fso=createobject("scripting.filesystemobject")
   
7.     set f=fso.getfile(url)
   
8.     f.name:f.size:f.type:f.datacreated'///获取文件信息
   
9.     fso.deletefile(url)'/////删除文件
   
10.    end function
    
11. 
    
12. 11.2  获取文件夹里所有文件信息
    
13. get_folder_infor("c:\kai")
    
14. function get_folder_infor(folder)
    
15. dim fso,f,f1,n
    
16. set fso=createobject("scripting,filesystemobject")
    
17. set f=fso.getfolder(folder)
    
18. set fc=f.files
    
19. for each f1 in fc
    
20. select case f1.name
    
21. case"kai.mpg","she.mpg","dd.mp3"'//检查文件夹里是否含有这些文件
    
22. end select
    
23. next
    
24. end function
    

复制代码

12   等待某个对象出现方法

1. 
   
2. y=......waitproperty("visible",true,10000)
   

复制代码

13   防程序中断方法

1. 
   
2. On error resume next
   
3. On error goto handle
   

复制代码

14  数组的应用:

1. 
   
2. name=array(1,2,"aa","bb")
   
3. name(2)="aa"
   

复制代码

15  正则表达式应用模板

1. 
   
2. 进行日期YYYY-MM-DD的格式检查　:
   
3. Function RegExpTest(patrn, strng)
   
4.   Dim regEx, Match, Matches      ' Create variable.
   
5.   Set regEx = New RegExp         ' Create a regular expression.
   
6.   regEx.Pattern = patrn         ' Set pattern.
   
7.   regEx.IgnoreCase = True         ' Set case insensitivity.
   
8.   regEx.Global = True         ' Set global applicability.
   
9.   Set Matches = regEx.Execute(strng)   ' Execute search.
   
10.   For Each Match in Matches      ' Iterate Matches collection.
    
11.     RetStr = RetStr & "Match found at position "
    
12.     RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
    
13.     RetStr = RetStr & Match.Value & "'." & vbCRLF
    
14.   Next
    
15.   RegExpTest = RetStr
    
16. End Function
    
17. date_pattern="^((((19|20)(([02468][048])|([13579][26]))-02-29))|((20[0-9][0-9])|(19[0-9][0-9]))-((((0[1-9])|(1[0-2]))-((0[1-9])|(1\d)|(2[0-8])))|((((0[13578])|(1[02]))-31)|(((01,3-9])|(1[0-2]))-(29|30)))))$"
    
18. result_message=RegExpTest(date_pattern, inputbox("请你输入要检查的时间："))'用其它正则表达式更改此处
    
19. Select case result_message
    
20. Case ""
    
21.          msgbox("你输入的日期格式与标准不匹配")
    
22. case else  MsgBox(result_message)
    
23. end select
    

复制代码

16   返回一个字符串在另一字符串中的位置

1. 
   
2. instr(string1,string2)
   

复制代码

17   有时回放出现找不到对象时，可能不是由于你的代码问题，而是由于你的操作系统等设置问题；

1. 
   
2. 举例说明1：
   
3. 比如：你录制一个选择磁盘中的文件动作
   
4. 会录制为：
   
5. .winlistview("  ").drap 46,99
   
6. .winlistview("  ").draponitem "she.mp3"
   
7. 下次录制的时候，如果你的系统文件改为不显示扩展名，下次执行的时候，QTP就找不到she.mp3，只能找到she;
   
8. 举例说明2：
   
9. 有时由于不同操作系统以及不同的ie，导致有些窗口不能识别，比如在2000下弹出的网页对话框的标题是：
   
10. “web对话框",而在2003上是”网页对话框"
    

复制代码

18  "is+*"类型function

1. 
   
2. isarray'是否是数组
   
3. isconnected'判断QTP是否连接到TD
   
4. isdate'是否是合法的日期类型
   
5. isempty'判断是否初始化
   
6. isNull'判断是否为空值
   
7. isNumeric'判断是否是数字型
   
8. isobject'判断是否一个功能对象
   
9. isready'判断设备是否准备就绪
   
10. isRootFolder'是否是根目录
    

复制代码

19 Action之间的参数传递

1. 
   
2. 例如:在Action1中，有如下代码:
   
3. out_str="This is out_string"
   
4. RunAction "Action2",oneIteration,out_str
   
5. 在Acton2中，在其step->Action Properties中的，input参数栏，加入out_str后,
   
6. msgbox(parameter("out_str"))，就能正确显示参数了　
   

复制代码

20 WScript.Shell的一些应用

1. 
   
2. set WshShell =CreateObject("WScript.Shell")
   
3. WshShell.SendKeys "{ENTER}"　　　　　'模拟键盘进行操作
   
4. WshShell.AppActivate "Calculator"             '启动应用程序
   

复制代码

21  获取对象属性名称用法:

1. 
   
2. GetRoProperty----从应用程序界面上获取对象属性（即，是脚本运行时，获取的对象动态属性值）
   
3.            例如：获取对象库中index属性值，似乎只能用GetToProperty,因为应用程序界面上对象没有该属性，只是
   
4. 　　　　　　QTP为识别该对象创立的描述属性；
   
5. GetToproperty----从对象库中描述对象的属性，静态值
   
6. GetToProperties----获取用于标识对象的属性集；对于这个集合，有count等属性方法
   

复制代码

22  FireEvent的使用
可以对一个对象进行更复杂的操作

1. 
   
2. 如:FireEvent("onfocus")   '使一个控件获取焦点
   
3.      FireEvent("ondblclick")  '实现双击/也可以在事件设定中针对该对象事件响应　　
   

复制代码

23 模板的应用

1. 
   
2. -----新建一个文本，输入一些新建Action时常包含的信息，然后保存为ActionTemplate.MST文件,
   
3. 　并复制到QTP/dat目录下；这样每次新建action都会包含固定的信息了;
   
4. 例如:
   
5. '-------------------脚本说明---------------
   
6. '产品版本:      __Build(  )
   
7. '测试员:
   
8. '编写日期:
   
9. '测试功能:
   
10. '脚本类型:
    
11. '被测试对象初始状态:
    
12. '进展程度:
    
13. '基本思路:
    
14. '主要功能函数:
    
15. '历史修改:
    
16. '没解决的问题:
    
17. '--------------------脚本内容-------------
    

复制代码

24 在对象库中，两个对象有时不能通过更改属性或命名来达到两个对象完全一致的替换；
在web-mod项目中，我在对象库里添加了一个自动含有index标识属性的对象，然后每次通过SetToproperty来改变
index值，对对象进行数据驱动，使其操作另一个对象，但脚本始终操作原先index属性值的对象;后来，把该对象
删除掉，重新添加一个不自动含有index标识属性的该类对象，然后，手工添加，index标识属性，后来脚本能正常 工作了，可见两次的对象属性完全一致，但形成方式不一样，导致的结果往往也不一样。

25 childobject的应用

1. 
   
2. childobject可以返回界面上满足条件的对象集合，而且与对象库里是否有这些对象无关，这就可以简化对象库；
   
3. 返回的对象集合的count方法可以返回对象个数，这就可以通过下标对单个对象进行操作；在出现index标识对象时
   
4. 可以进行运用
   
5. 如:Set m_WinCheck=Description.Create()
   
6.       m_WinCheck("nativeclass").Value="Button"
   
7.       set All_WinCheck=Window("").Dialog("").Childobject(m_WinCheck)
   
8.       n=All_WinCheck.Count()
   
9.      for i=0 to n-1
   
10.       All_WinCheck(i).Set "ON"
    
11.      next
    

复制代码

－－以上是一些简单基础内容及我的经验心得，欢迎大家贴一些特色代码或具体应用的核心代码，谢谢！

[ 本帖最后由 walker1020 于 2006-8-30 20:32 编辑 ]

天地一剑

如果版主整理成可直接下载的文档就更好了

auto_tester

xiexie

xchen

支持，支持

moonbile

回复 1# kai_top


    谢谢，有用

icu200934

收藏ing

东东tony

回复 1# kai_top


    有点迷茫

wh963572516

回复 1# kai_top

kerryliyan

非常值得学习，只是没有关于xml的，我们的数据是用xml组织的

暗香世家

好帖，顶

吉鲤

谢谢

wsq8413

真的很不错，值得学习！！！

coolwind09

study

coolwind09

study

daxue01

还是有些不懂。。

he_jian

好东西

石召

免费代办信用卡
北京毅龙信用卡办理公司>全国范围。信用卡代办公司, 代办高额信用卡, 信用卡办理公司、信用卡金卡代办:办理多家银行信用卡,信用卡透支出来的钱可以长期做生意,可以做为生意的启动资金。毅龙信用卡代办公司>安全专业代办信用卡，毅龙信用卡代办公司-代办白金卡-代办金卡-代办高额信用卡，包工作证明、收入证明，银行工资发放流水记录，事业单位水、电、煤等住址证明，代办财力证明，走银行绿色通道办理，公司设有专人接银行电话，并与各银行的业务经理、审卡中心审核员合作，一条龙式办卡（全国均可办理。一张身份证毅龙信用卡代办公司可同时办理13家银行的信用卡（中信，农行，建行中行，兴业，民生，华夏，光大，普发，深发，交通，招商，工行),可以为持本人身份证的全国任何18周岁以上的人代办理高额金卡，直接交卡中心审批，100%包下卡

咨询联系QQ：35598187

咨询联系电话：13691440046

联系人：高先生

公司网站 www.758x.com   www.daiban365.com

办理信用卡好处：

信用卡可作为一时资金周转所用或作为您其他的投资消费项目!

1、先消费后还款，享受最长56天的免息还款期。

2、选择最低还款额还款，享受银行循环信用。

3、信用额度高（1万-50万元），让您尽情享受现代都市生活。

4、 信誉好，下卡快，易批核，，为您轻松理财！

5、下卡额度高!没有工作的朋友也可以办理！

6、为拥有信用卡的客户提供方便快捷的现金即刷即提。

7、毅龙信用卡代办公司具有最专业的信用卡知识，使您的信用卡达到最好的使用率,合理利用最长免息期，努力提升您的 信用度！使您一朝办理，终身受益！
联系我时请说明是在哪看到的，谢谢！

地址,北京朝阳区北路 格林豪泰酒店旁

zhangrenying

记录下，方便自己寻找此贴。

Gasgoo

实在  不能不顶啊！  。。

炫彩琉璃

虽然现在还看不懂但是我想以后会慢慢看懂的谢谢楼主分享~