QTP学习分享(更新20070728)

风过无息

1.在测试中我们使用QTP调试脚本的时候一般就是DEBUG或者MSGBOX察看一些信息,其实有时候也可以使用print来实现批量的察看信息但是不影响程序运行.
运行脚本:

1. a="100"
   
2. print a

复制代码

~~~~~~~~~~~~~~~~~~~~~~~~~
2.取datatable特定行的数据可以这样使用
运行脚本:

1. DataTable.GetSheet("Action1").GetParameter("test").ValueByRow(4)

复制代码

~~~~~~~~~~~~~~~~~~
3.Wait Seconds [, Milliseconds]可以精确到毫秒.
~~~~~~~~~~~~~~~~~~
4.在自定义的function里面数组作为返回值.
运行脚本:

1. circuit = "399937"
   
2. Function trimString(circuit)
   
3. Dim holdArray(5)
   
4. holdArray(0) = Left(circuit, 2)
   
5. holdArray(1) = Right(circuit, 2)
   
6. msgbox holdArray(0) 'showed 39
   
7. trimString = holdArray' I get an out of range error here
   
8. End Function
   
9. dim myArray
   
10. 'here I want to assign the return array to another array
    
11. myArray = trimString(circuit)
    
12. ' and then call one element from it
    
13. msgbox myArray(1)

复制代码

~~~~~~~~~~~~~~~
5.计算一个操作的时间.
运行脚本:

1. Browser("Browser").Page("Page").Image("getRates").Click
   
2. var_StartTime = Timer
   
3. Browser("Browser").Page("Page").Sync
   
4. Browser("Browser").Page("Page").Check CheckPoint("Check1")
   
5. var_EndTime = Timer
   
6. intRespTime = round ((var_EndTime - var_StartTime), 2 )
   
7. msgbox (intRespTime)

复制代码

~~~~~~~~~~~~~~~
6.取得指定sheet(datatable)的行数和列数(也可以理解为参数个数)

1. paramcount = DataTable.GetSheet("Action1").GetParameterCount
   
2. msgbox "There are " &paramcount&"columns in the data sheet."
   
3. rowcount = DataTable.GetSheet("Action1").GetRowCount
   
4. msgbox "There are " &rowcount&"rows in the data sheet."

复制代码

~~~~~~~~~~
7.一种设置全局变量的方法GlobalDictionary
'Part 1.
'***********************************************************************************************************

1. Dim WshShell
   
2. Set WshShell =CreateObject("WScript.Shell")
   
3. WshShell.RegWrite "HKCU\Software\Mercury Interactive\QuickTest Professional\MicTest\ReservedObjects\GlobalDictionary\ProgID", "Scripting.Dictionary","REG_SZ"
   
4. Set WshShell = Nothing

复制代码

'*********************************************************************************************************************
'Part 2.
'*****************************************************************************************

1. GlobalDictionary.Add "ParamName", "ParamValue"
   
2. Msgbox GlobalDictionary.Item("ParamName")
   
3. GlobalDictionary.Item("ParamName")="***********"
   
4. Msgbox GlobalDictionary.Item("ParamName")
   
5. Msgbox GlobalDictionary.Exists("ParamName")
   
6. GlobalDictionary.Remove("ParamName")
   
7. Msgbox GlobalDictionary.Exists("ParamName")

复制代码

'*********************************************************************************************
~~~~~~~~~~~
8.关掉多余的IE窗口

1. SystemUtil.CloseProcessByWndTitle "51testing", True

复制代码

~~~~~~~~~~~~~~~~~~
9.Execute 的用法,这个用法在一些特殊时候很有用的.

1. x="4"
   
2. Execute "Dim A_" & x
   
3. Execute "A_" & x &"=99"
   
4. Msgbox Eval("A_" & x)  
   
5. ~~~~~~~~~~~~~~~~~~~

复制代码

10.GetLastError的介绍,看字面就是取运行最后一个错误

1. x = GetLastError
   
2. msgbox(DescribeResult(x))

复制代码

这样可以在程序里面判断程序运行时候是否出错了.
~~~~~~~~~~~~~~~~~
11.把weblist抓图下来

1. Setting.WebPackage("ReplayType") = 2 'Default is 1
   
2. Browser(".").Page(".").WebList(".").Click
   
3. Desktop.CaptureBitmap "C:\Test.bmp",True
   
4. Setting.WebPackage("ReplayType") = 1

复制代码

~~~~~~~~~~~~~~~~~~~~~~~~~~
12.Reporter.ReportEvent的新用法
transNumber = 12345

1. Reporter.ReportEvent micPass, "TransactionNumber", "<DIV style='font-size: 7pt; color: white'>&</DIV>"&"<B> <FONT COLOR=#000000>"&transNumber&"</FONT></B>"
   
2. Reporter.ReportEvent micPass, "TransactionNumber", "<DIV style='font-size: 7pt; color: white'>&</DIV>"&"<B> <FONT COLOR=red>"&transNumber&"</FONT></B>"

复制代码

~~~~~~~~~~~~~~~~~~~~~~~~~~
13.For循环中step的用法

1. For K = 1 To 10 step 2
   
2.           msgbox k
   
3. Next

复制代码

~~~~~~~~~~~~~~~~~~~~~~~
14.Option Explicit,大家都知道VB Script里面是可以不申明变量直接使用,但是有时候我们为了脚本的规范,尽量申明使用的变量,这样你就用一下Option Explicit吧.

1. Option Explicit   ' Force explicit variable declaration.
   
2. Dim MyVar   ' Declare variable.
   
3. MyInt = 10   ' Undeclared variable generates error.
   
4. MyVar = 10   ' Declared variable does not generate error.

复制代码

~~~~~~~~~~~~~~~~~~~~~~~
14.从TXT文件里面读取特定行的数据.

1. Dim fso, myfile,msg
   
2. Set fso=CreateObject("scripting.FileSystemObject")   
   
3. Set myfile = fso.openTextFile("C:\login.txt",1,false)
   
4. '这里设置一个循环看需要读取第几行
   
5. for i=1 to 10
   
6. myfile.SkipLine
   
7. next
   
8. msg=myfile.ReadLine
   
9. myfile.close

复制代码

~~~~~~~~~~~~~~~~~~~~~~~

[ 本帖最后由 风过无息 于 2007-7-29 14:22 编辑 ]

cool520

rivermen 发表于 2007-5-17 16:32
我的8.2版本找不到 print

QTP10.0运行没问题的

邱建忠

应该加精的帖子。。。。！

邱建忠

前排现在都是大侠了。。。。。。。。。。。

wzxwumike

朱老师的帖，必须顶！！！！

邱建忠

适合初学者 MARK

flymouse119

写的不错，简单易懂，对新手有帮助

muyunsihe

好东西啊，顶

l_ll

谢谢楼主分享

吉鲤

先收集着，慢慢消化，谢谢.

iamselma

学习了。。。。谢谢楼主

ohuihuio

很好，很强大！

wsq8413

回复 2# eramyang

“test”是参数列名

zhoward

我在qtp10试了print，运行时提示类型有误，是10.0不支持么？？？

tlu_jj

谢谢，楼主分享！！向楼主学习

恋上一支鱼

顶起来

lisaswing

新手来学习

leia

谢谢分享
try！

greenbai

新手入门。。支持

huxian200

22233344