QTP常用的VBS脚本.docx

1)生产随机数列 第一种方法 randomize更新反回的数据 funcation rand(k,n) n=int(k-1)*rnd+1) rand=n end funcation 第二种方法 n=randomnumber.value(1,255)2)wintreeview一些操作 选择一个条目:wintreeview.select(item)根是0 根的名称：wintreeview.getitem(0)3)QTP中用代码连接数据库 Set Conn = CreateObject(ADODB.Connection ) str=DRIVER=Oracle in OraHome92;SERVER=;DBQ=testdb;user id=test; password=test Conn.open str Set Rs = CreateObject (ADODB.Recordset )sql= select * from user_table t where table_name = XXX Rs.open sql,conn,1,34)QTP如何测试鼠标右键菜单 以QTP附带的订票网站sample为例，edit控件username鼠标右键，点击paste（第4个菜单项） cur_replay_type = Setting.WebPackage(ReplayType) Run mouse operations using the mouse, if 1 using browser events Setting.WebPackage(ReplayType) = 2 Browser(Browser).Page(Welcome:MercuryTours).WebEdit(userName).Click micRightBtn Setting.WebPackage(ReplayType) = cur_replay_type index=4 Set WshShell = CreateObject(Wscrpt.Shell) For i = 1 To index WshShell.sendKeys DOWN Next WshShell.sendKeys ENTER Set WshShell = nothing5)QTP测试页面字体颜色的办法 set bj = Browser().Page().WebElement().Object Get the object set iStyle= obj.currentstyle Get the attribute sColor = iStyle.color6)从QC自动启动qtp如何自动加载插件 此函数用于加载指定Test所有的插件，若要运行Test可自己加个qtApp.Test.Run Function Load_Addins(testPath) Dim qtApp As QuickTest.Application Dim blnNeedChangeAddins Dim arrTestAddins Set qtApp = CreateObject(QuickTest.Application) arrTestAddins = qtApp.GetAssociatedAddinsForTest(testPath) blnNeedChangeAddins = False For Each testAddin In arrTestAddins If qtApp.Addins(testAddin).Status Active Then blnNeedChangeAddins = True Exit For End If Next If qtApp.Launched And blnNeedChangeAddins Then qtApp.Quit End If If blnNeedChangeAddins Then Dim blnActivateOK blnActivateOK = qtApp.SetActiveAddins(arrTestAddins, errorDescrption) If Not blnActivateOK Then Call ErrorLog(errorDescrption) 这里是调用自己的日志函数，可替换为自己的或注释掉 Wscrpt.Quit End If End If If Not qtApp.Launched Then qtApp.Launch End If qtApp.Visible = True qtApp.Open testPath 可在此加入qtApp.Test.Run来运行Test Set qtApp = NothingEnd Function7)换行符 vbcr-chr(13)回车符 vblf-chr(10)换行符 vbcrlf-chr(13)+chr(10)结合 type(chr(13)就相当于按了一上键盘上的enter8)防程序中断方法 On error resume next On error goto 09)is+*类型function isarray 是否是数组 isconnected 判断QTP是否连接到TD isdate 是否是合法的日期类型 isempty 判断是否初始化 isNull 判断是否为空值 isNumeric 判断是否是数字型 isobject 判断是否一个功能对象 isready 判断设备是否准备就绪 isRootFolder 是否是根目录10)WScript.Shell的一些应用 set WshShell = CreateObject(WScript.Shell) WshShell.SendKeys ENTER模拟键盘进行操作 WshShell.AppActivate Calculator 启动应用程序 利用粘贴板，实现中文输入 strCopy = 软件测试. Set bjIE = CreateObject(InternetExplorer.Application) objIE.Navigate(about:blank) objIE.document.parentwindow.clipboardData.SetData text, strCopy objIE.Quit wait 1 Setting.WebPackage(ReplayType)=2 Set bj=createobject(wscrpt.shell) obj.sendkeys TAB wait 2 obj.sendkeys v wait 1 Setting.WebPackage( ReplayType)=111)childobjects的应用 childobject可以返回界面上满足条件的对象集合，而且与对象库里是否有这些对象无关，这就可以简化对象库； 返回的对象集合的count方法可以返回对象个数，这就可以通过下标对单个对象进行操作；在出现index标识对象时 可以进行运用.如: Find All WebEdit Objects on aWebPage and Set a Value for a Specific One Sub ChildObjects_Example() Dim EditToSearch, ValueToSet, NumberOfEdits EditToSearch = credit_card_number ValueToSet = 3558986773230578 Set Desc = Description.Create() oDesc(micclass).Value = WebEdit oDesc(name).Value = credit_card_number Set EditCollection = Browser(Book a Flight: Mercury).Page(Book a Flight: Mercury).ChildObjects(oDesc) NumberOfEdits = EditCollection.Count For i = 0 To NumberOfEdits - 1 If EditCollection(i).GetROProperty(name) = EditToSearch Then EditCollection(i).Set ValueToSet End If Next End Sub12)关闭所有IESystemUtil.CloseProcessByName(iexplore.exe)13)启动IE的语句：SystemUtil.Run iexplore.exe, http:/www.*.com/ 关闭IE或其他程序的语句： SystemUtil.CloseProcessByName app.exe SystemUtil.CloseProcessByWndTitle Some Title14)引用自定义环境变量 Environment.LoadFromFile D:询价case环境huiyuan.xml15)环境变量有2种，一种是QTP的内置变量，一种是用户自定义的变量。内置变量是可以直接就可以用，自定义环境变量需要在菜单中选择“文件”“ 设置”“环境”，在变量类型中选择“用户自定义”,然后进行添加，可以对添加的变量全部导出，导出的文件为.xml格式的文档。既然可以导出，那么必然可以导入.xml文件，你可以在该对话框中的选中“从外部文件导入”，然后添加其文件路径即可。(当然这些操作都可以直接使用脚本来实现，如：Environment.LoadFromFile(“FileName”) xml文件格式如下： / 变量定义起始标识 aa / 变量名称 11 / 变量值 / 变量定义结束标识 bb 22 使用的脚本 Dim aParam3 aParam3=Environment.Value(“aa”) / 调用环境变量 msgbox aParam316）弹出输入窗口 Dim Input Input = InputBox(Enter your name) MsgBox (You entered: & Input)17）不同数据库检查点手动SQL写法 QTP插入数据库检查点，手动指定SQL语句的写法。 一、SQL Server格式(本地无需安装SQL Server) connectionstring(连接字符串): 1.本地没有创建数据源的方式 DRIVER=SQL Server;SERVER=数据库IP地址;UID=用户名;PWD=密码;APP=Microsoft Office 2003;WSID=本地主机名;DATABASE=数据库名 实例： DRIVER=SQL Server;SERVER=0;UID=sa;PWD=sa;APP=Microsoft Office 2003;WSID=RJHLJUN;DATABASE=dcwork 2.本地已创建数据源的方式 DSN=数据源名称;UID=用户名;PWD=密码;APP=Microsoft Office 2003;WSID=数据库的主机名;DATABASE=数据库名 实例： DSN=LocalServer;UID=sa;PWD=sa;APP=Microsoft Office 2003;WSID=RJDCWORKTEST;DATABASE=dcwork 3.SQL语句实例(从数据库表HR_LANGUAGE_TYPE中，查询字段语言名称LANGUAGE_NAME，条件语言名称中文，按语言名称升序排序结果) SELECT HR_LANGUAGE_TYPE.LANGUAGE_NAME FROM dcwork.dbo.HR_LANGUAGE_TYPE HR_LANGUAGE_TYPE WHERE (HR_LANGUAGE_TYPE.LANGUAGE_NAME=中文) ORDER BY HR_LANGUAGE_TYPE.LANGUAGE_NAME 二、DB2格式：(本地至少安装DB2 Run-Time Client Lite) connectionstring(连接字符串): 1.本地没有创建数据源的方式 DRIVER=IBM DB2 ODBC DRIVER;UID=用户名;PWD=密码;MODE=SHARE;DBALIAS=数据库名; 实例： DRIVER=IBM DB2 ODBC DRIVER;UID=db2admin;PWD=db2admin;MODE=SHARE;DBALIAS=DCWORK; 2.本地已创建数据源的方式 DSN=数据源名称;UID=用户名;PWD=密码;MODE=SHARE;DBALIAS=DCWORK; 实例： DSN=DWCORKDB2;UID=db2admin;PWD=db2admin;MODE=SHARE;DBALIAS=DCWORK; 3.SQL语句实例 SELECT HR_LANGUAGE_TYPE.LANGUAGE_NAME FROM DB2ADMIN.HR_LANGUAGE_TYPE HR_LANGUAGE_TYPE WHERE (HR_LANGUAGE_TYPE.LANGUAGE_NAME=中文) ORDER BY HR_LANGUAGE_TYPE.LANGUAGE_NAME 三、Oracle格式：(本地需要安装Oracle ODBC DRIVER) connectionstring(连接字符串): 1.本地没有创建数据源的方式 DRIVER=Oracle in OraHome92;SERVER=数据库服务名;UID=用户名;PWD=密码;DBQ=数据库名;DBA=W;APA=T;EXC=F; XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=Lo;BAM=IfAllSuccessful;MTS=F;MDI=Me;CSR=F;FWC=F;PFC=10;TLO=O; 实例： DRIVER=Oracle in OraHome92;SERVER=DCWORK;UID=DCWORK;PWD=DCWORK;DBQ=DCWORK;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=Lo;BAM=IfAllSuccessful;MTS=F;MDI=Me;CSR=F;FWC=F;PFC=10;TLO=O; 2.本地已创建数据源的方式 DSN= 数据源名称;UID=用户名;PWD=密码;DBQ=数据库名;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10; FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAllSuccessful;MTS=F;MDI=F;CSR=F;FWC=F;PFC=10;TLO=0; 实例： DSN=dcworkoracle;UID=DCWORK;DBQ=DCWORK;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAllSuccessful;MTS=F;MDI=F;CSR=F;FWC=F;PFC=10;TLO=0; 3.SQL语句实例 SELECT HR_LANGUAGE_TYPE.LANGUAGE_NAME FROM DCWORK.H