QTP使用技巧(3)

发表于:2015-07-14来源:uml.org.cn作者:不详点击数: 标签:qtp
Action_B 如何调用 QueryList函数和strURL A:1)可以把这些变量和Function放在vbs文件作为resource文件共享,在每个Action中添加该文件。 如果function中出现控件调用,

  'Action_B '如何调用 QueryList函数和strURL A:1)可以把这些变量和Function放在vbs文件作为resource文件共享,在每个Action中添加该文件。

  如果function中出现控件调用,那么必须确保该控件在相应的Action的object repository中是存在的。

  2)定义一个可被调用的ACTION里面唯一的放一个FUNCTION 15.如何管理QTP的源代码?(QTP生成的源代码比较多,而且和环境控件都有关,假如需要多人同时开发, 请问如何管理源代码?)

  A: 一个是代码你可以通过vss,cvs等来进行管理一个是通过td或者qc的基于用例的代码管理其实第一种方法是基于版本控制来进行的,第二种方法是基于用例管理进行的角度不同,管理方法也不同,不过团队协作需要的大家分工明确,进度控制。代码管理可以借鉴开发的方法。

  16: 脚本不能回放,IE中的AtiveX设置有问题??

  A: TOOL——OPTIONS——Ative screen然后点开advanced……,把LOAD ACTIVEX CONTROLS打勾TOOL——OPTIONS——Ative screen然后点开advanced……,run scrīpts——>disabled!

  17 .如何参数化link Browser("Browser")。Page("Page")。Sync Browser("Browser")。Navigate "http://www.51testing.com/cgi-bin/index.php" Browser("Browser")。Page("51Testing 软件测试论坛——软件测试,软件质量工程师")。Sync Set tags=Browser("Browser")。Page("51Testing软件测试论坛——软件测试,软件质量工程师")。Object.links Dim i,j, arr()

  i=0 For Each element in tags If Ucase(element.tagname)="A" and left(element.InnerText,1)="[" Then ReDim Preserve arr(i+1)

  arr(i)=element.InnerText i=i+1 end if Next For j=0 to i Browser("Browser")。Page("51Testing软件测试论坛——软件测试,软件质量工程师")。Link("[ 版主讨论区 ]")。SetTOProperty "Text",arr(j)

  Browser("Browser")。Page("51Testing软件测试论坛——软件测试,软件质量工程师")。Link("[ 版主讨论区 ]")。Click Browser("Browser")。Back Next这段代码先是打开一个空的页面,然后输入url.到达论坛首页。

  然后得到所有版面的名称,也就是link的名称。

  存到数组里面。

  然后使用SetTOProperty更换录制时候录下的link的属性。

  这时候再click 18. QTP 在Debug状态,在Export View 区域不能写入任何东西A: 如果你的目的是在debug过程中修改已执行过的命令,可以在Debug view的Command中执行命令,如重新执行已经执行过的命令,修改变量的值等等。

  如:Window("Flight Reservation")。WinEdit("Name:")。Set "51testing"已经执行,如果现在想修改“51testing”为“testing”,可以在command中执行Window("Flight Reservation")。WinEdit("Name:")。Set "testing" 19 . 动态变化值如何获取A:VAL=Browser("欢迎使用我的工作台")。Page("欢迎使用我的工作台")。 Frame("managePlace_7")。WebRadioGroup("userAccountId_0")。 GetROProperty("Value")

  Browser("欢迎使用我的工作台")。Page("欢迎使用我的工作台")。Frame("managePlace_7")。 WebRadioGroup("userAccountId_0")。select val 20 .如何一一获得Table中 某栏 link 的 text?

  A:通过上面link 的学习。 我终于融会贯通,完成了我的问题: 与大家共享:////////////////////////////////////////////////////////////////////////////////////// Browser("Login")。Page("Page")。Frame("contents")。ViewLink("treeview")。 Image("Tplus")。Click Browser("Login")。Page("Page")。Frame("contents")。ViewLink("treeview")。 Image("Tplus_2")。Click Browser("Login")。Page("Page")。Frame("contents")。ViewLink("treeview")。 Link("开课设置")。Click Browser("Login")。Page("Page")。Frame("main")。WebList("drpStatus")。Select "任意" Browser("Login")。Page("Page")。Frame("main")。WebButton("查找")。Click Browser("Login")。Page("Page")。Sync Dim finded,findCode,Nowout 'define a constrat for find findCode = 110901 finded = false Function MaxPage(pageString)

  'msgbox pageString Dim ilen,i,j ilen = len(pageString)

  i=ilen While i>0 j = mid(pageString,i,1)

原文转自:http://www.uml.org.cn/Test/200905216.asp