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