QTP使用技巧(3)

　　'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