Browser(“Find a Flight: Mercury”).Sync
Browser(“Find a Flight: Mercury”).Page(“Find a Flight: Mercury”).WebRadioGroup(“tripType”).Select “oneway”
Browser(“Find a Flight: Mercury”).Page(“Find a Flight: Mercury”).WebList(“passCount”).Select “1″
Browser(“Find a Flight: Mercury”).Page(“Find a Flight: Mercury”).WebList(“fromPort”).Select “London”
Browser(“Find a Flight: Mercury”).Page(“Find a Flight: Mercury”).WebList(“fromMonth”).Select “March”
Browser(“Find a Flight: Mercury”).Page(“Find a Flight: Mercury”).WebList(“fromDay”).Select “27″
Browser(“Find a Flight: Mercury”).Page(“Find a Flight: Mercury”).WebList(“toPort”).Select “New York”
Browser(“Find a Flight: Mercury”).Page(“Find a Flight: Mercury”).WebList(“toMonth”).Select “April”
Browser(“Find a Flight: Mercury”).Page(“Find a Flight: Mercury”).WebList(“toDay”).Select “21″
Browser(“Find a Flight: Mercury”).Page(“Find a Flight: Mercury”).WebRadioGroup(“servClass”).Select “First”
Browser(“Find a Flight: Mercury”).Page(“Find a Flight: Mercury”).WebList(“airline”).Select “No Preference”
Browser(“Find a Flight: Mercury”).Page(“Find a Flight: Mercury”).Image(“findFlights”).Click

第2行后面“oneway” 第一次写成“Oneway”了
注意大小写敏感
出错信息是 没有包含在Object‘s  item collection。

2. 作基本的脚本录制回放
Browser(“Welcome: Mercury Tours”).Page(“Welcome: Mercury Tours”).Sync
Browser(“Welcome: Mercury Tours”).Page(“Welcome: Mercury Tours”).WebEdit(“userName”).Set “jaunty”
Browser(“Welcome: Mercury Tours”).Page(“Welcome: Mercury Tours”).WebEdit(“password”).SetSecure “47cd03a82c95a6103581c815c580052e1720fdfd”
Browser(“Welcome: Mercury Tours”).Page(“Welcome: Mercury Tours”).Image(“Sign-In”).Click 10,2

第一行Browser的语句，第一次没有给加载页面的过程加同步点 因为想着第一次 页面load 不需要做前提条件。
后来回放的时候 WebEdit对象“userName” 一直对象disabled.
个人猜测是由于机器太慢load太久 但测试步骤已经开始导致
加入同步点解决。

（页面加载过程也需要同步点。。。汗。。。）
后来在windowsForm程序 开始Launcher的时候 也需要加入同步点，第一次回访出现对象disabled问题
加入同步点后解决。

3. 描述性编程小实验
Dialog(“Login”).WinEdit(“Agent Name:”).Set “jaunty”
Dialog(“Login”).WinEdit(“Password:”).SetSecure “47d888b608eeba747a9be67b7464720d04f7e08e”
Dialog(“Login”).WinObject(“nativeclass:=Button”, “text:=OK”).Click
Window(“Flight Reservation”).WinMenu(“Menu”).Select “File;Exit”

第三行，第一次忘记在两个属性之间加入空格，导致执行第三行的时候 QTP无法识别下来的动作。无错误信息，就是执行不到下一步！

加入空格解决。

4. 脚本运行前对待测程序的保证

If not Dialog(“Login”).Exist Then
 SystemUtil.Run “C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe”
End If

当然最一开始要加入一个语句判断一下所要操作的Object打开了没有。没有的话要打开

可能很多人要问，自动化的过程为什么要人去输入操作。

这里先把这个问题的前提阐述一下：

我们的脚本是全球共享的，每个tester都有自己的用户名密码 去访问那个脚本 所以在access脚本的前面就需要QTP 弹出一个交互的对话框让tester去登陆才能access到 脚本的专署的信息，却又不能看到其他人的信息。

经过核查QTP 目前没有发现可以加密的函数，vbs也没有内置的function来提供这种功能。

所以结决方案的思路就是调用IE来create masked对话框

代码如下： 只需要copy到QTP的专家视图，直接run就可以了（也可单独保存为VBS文件运行）

Loop51Testing软件测试网3D{8C2] wN$v5o
‘ Read the password from the dialog window
,Zp&Um@7?e?A21468GetPassword = objIE.Document.All.Password.Value51Testing软件测试网0~N6nc&`”N%t J(Cs(T
‘ Close and release the object51Testing软件测试网~5u B3F.Ef
objIE.Quit
o-GXZkl#El21468Set ōbjIE = Nothing
Owl.m9| H9e21468End Function

参考信息：

http://www.microsoft.com/technet/scrīptcenter/resources/qanda/feb05/hey0204.mspx

———————————————

另外

（1）如果在正常的情况下需要加密密码，QTP提供password encoder 可以generate 出加密后的string。

（2） 显示密码信息

 抓取密码

  getROProperty(<Object Property the Stores the Password>) …ie try getROProperty(“Password”)

]]> http://jaunty.me/blog/2009/02/qtp_password-windows_mask/feed/ 0