QTP常用的VBS脚本

《QTP常用的VBS脚本》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、1)生产随机数列   第一种方法   randomize'更新反回的数据   funcationrand(k,n)   n="int((k-1)*rnd+1)rand=n   endfuncation      第二种方法   n="randomnumber.value(1,255)   2)wintreeview一些操作   选择一个条目:wintreeview.select(item)'根是0   根的名称：wintreeview.getitem(0)3)QTP中用代码连接数据库   SetConn=CreateObject("ADODB.Connecti

2、on")   str="DRIVER=OracleinOraHome92;SERVER=192.168.0.1;DBQ=testdb;userid=test;password=test"   Conn.openstr   SetRs=CreateObject("ADODB.Recordset")   sql="select*fromuser_tabletwheretable_name='XXX'"   Rs.opensql,conn',1,34)QTP如何测试鼠标右键菜单   以QTP附带的订票网站sample为例，edit控件username鼠标右键，点击p

3、aste（第4个菜单项）   cur_replay_type=Setting.WebPackage("ReplayType")   'Runmouseoperationsusingthemouse,if1usingbrowserevents   Setting.WebPackage("ReplayType")=2      Browser("Browser").Page("Welcome:MercuryTours").WebEdit("userName").ClickmicRightBtn   Setting.WebPackage("ReplayType")=

4、cur_replay_type      index=4   SetWshShell=CreateObject("Wscrīpt.Shell")   Fori=1Toindex       WshShell.sendKeys"{DOWN}"   Next   WshShell.sendKeys"{ENTER}"   SetWshShell=nothing5)QTP测试页面字体颜色的办法   setōbj=Browser().Page().WebElement().Object   'Getthe object   setiStyle=obj.currentst

5、yle   'Gettheattribute   sColor=iStyle.color6)从QC自动启动qtp如何自动加载插件   '此函数用于加载指定Test所有的插件，若要运行Test可自己加个qtApp.Test.Run   FunctionLoad_Addins(testPath)           DimqtApp'AsQuickTest.Application           DimblnNeedChangeAddins           DimarrTestAddins           SetqtApp=CreateObject("

6、QuickTest.Application")           arrTestAddins=qtApp.GetAssociatedAddinsForTest(testPath)           blnNeedChangeAddins=False           ForEachtestAddinInarrTestAddins                   IfqtApp.Addins(testAddin).Status<>"Active"Then                       blnNeedChangeAddins=True   

7、                    ExitFor                   EndIf           Next     IfqtApp.LaunchedAndblnNeedChangeAddinsThen             qtApp.Quit     EndIf     IfblnNeedChangeAddinsThen         DimblnActivateOK         blnActivateOK=qtApp.SetActiveAddins(arrTestAddins,errorDescrīption)      

8、   IfNotblnActivate