davice

摘要： ‘QTP的结果文件RES中的XML文件sResultsXML = “C:\Documents and Settings\Administrator\桌面\Test1\Res3\Report\Results.xml”‘需要的模版文件XSL sDetailedXSL = “D:\Program Files\HP\QuickTest Professional\dat\PDetails.xsl”‘调用转换函数输出HTML ApplyXSL sResultsXML, sDetailedXSL, “c:\tt.html”‘转换函数Public Function ApplyXSL(ByVal inputXM 阅读全文

摘要： ‘创建xml保留对象组件 set oXML = XMLUtil.CreateXML‘新建一个document oXML.CreateDocument “iQuickTest”‘获取root根元素 set root = oXML.GetRootElement‘添加子节点qtp，并赋值 root.AddChildElementByName “qtp”,”quicktest professional”‘添加子节点vbs，并赋值 root.AddChildElementByName “vbs”,”vbscript”‘保存文件 oXML.SaveFile “d:\iquicktest.xml”‘释放对象 阅读全文

摘要： 很多情况下，ado往往是用来处理数据库的，但其实它同样也可以处理excel，因为excel带有数据源，只要有数据源就可以使用ado来进行自动化控制。来看一下例子：表：usernameiQuickTestzzxxbb112qtp脚本：‘强制变量声明 Option Explicit ‘声明conn数据库链接对象和rs结果集对象 Dim conn,rs ‘声明数据库链接字符串 Dim connectionString : connectionString =”DSN=Excel Files;DBQ=D:\iquicktest.xls;” ‘声明sql执行语句 Dim sqlString : sqlS 阅读全文

摘要： '设定指定目录 FolderPath = "d:\iQuickTest"'创建fso组件 Set fso = CreateObject("scripting.filesystemobject") '获取指定目录的文件夹 Set oFolder = fso.GetFolder(FolderPath) '获取指定文件夹下的所有文件 Set oFiles = oFolder.FilesFor Each f In oFiles MsgBox f.Name Next'释放对象 Set f = Nothing Set oFil 阅读全文

摘要： xls_Sheet_Index = 1 DataTable_Sheet_Index = 1 Set qtapp=CreateObject("quicktest.application") qtapp.Launch qtapp.Visible=True qtapp.Open "d:\iquicktest" qtapp.Test.DataTable.ImportSheet "d:\1.xls",1,1 Set qtapp=Nothing 阅读全文

摘要： Set oExcel = CreateObject(“excel.application”) ‘创建excel对象 oExcel.Workbooks.Open “d:\iQuickTest.xls” ‘此处填入你需要连接的Excel路径 Set oSheet = oExcel.Sheets.Item(1) ‘获取sheet对象 MsgBox oSheet.cells(1.1) ‘获取某个单元格中的值 oExcel.Workbooks.Close ‘关闭当前工作博 oExcel.Quit ‘退出excel Set oExcel = Nothing ‘释放oExcel对象实例 阅读全文

摘要： 在自动化测试过程中有时候会需要使用到删除cookies的情况，其实在QTP中提供了这样一个隐藏的方法。对象名为： WebUtil作为一个QTP的保留对象，随着QTP启动时即已被实例化：WebUtil.DeleteCookies由于它还是一个com组件，这样就可以自己直接来实例化这样一个组件Set oWebUtil = CreateObject("Mercury.GUI_WebUtil") oWebUtil.DeleteCookies Set oWebUtil = Nothing 阅读全文

摘要： http://www.iquicktest.com/index-qtp-skills 阅读全文

摘要： ‘启动ie，并打开baidu systemutil.Run “C:\Program Files\Internet Explorer\iexplore.exe”, _ “http://www.baidu.com”‘ 描述链接对象 Set linkDes = Description.Create linkDes(“html tag”).value = “A”‘利用childobject获取page下的所有链接对象集 set oLink = Browser(“iQuickTest Studio | iQuickTest”). _ Page(“iQuickTest Studio | iQuickTes 阅读全文

摘要： ‘启动ie，并打开baidu systemutil.Run “C:\Program Files\Internet Explorer\iexplore.exe”, _ “http://www.baidu.com”‘ 描述链接对象 Set linkDes = Description.Create linkDes(“html tag”).value = “A”‘利用childobject获取page下的所有链接对象集 set oLink = Browser(“iQuickTest Studio | iQuickTest”). _ Page(“iQuickTest Studio | iQuickTes 阅读全文

摘要： http://www.cnblogs.com/testware1、Object Spy的TipsHold the CTRL key to change the window focus or perform other mouse operations2、QTP为什么无法单步调试？安装Microsoft Script Debuger即可3、QTP如何访问Oracle数据库？Dim rs,sq,pkeyset conn=createobject("adodb.connection")set rs=createobject("adodb.recordset" 阅读全文