随笔分类 - QTP
摘要:Set objShell = CreateObject(“Wscript.Shell”)objShell.Run “notepad”Objshell.run的意思就是调用Wscript.shell中的运行外部程序的函数——run,notepad是记事本程序的文件名。当然你也可以改成“calc”,这是...
阅读全文
摘要:循环控制语句有for……next循环、for……each循环、do……while循环、do……until循环、while循环五种形式。1. 在使用循环控制语句前,首先要对循环条件进行判断,如果循环次数是有固定次数的,那么使用For……next循环,其结构为:For 计数器变量=开始计数值 to 最后...
阅读全文
摘要:在VBScript运算符中,加减乘除都是我们常用的符号,乘方使用的是 ^ ,取模使用的Mod。在比较操作符中,等于、小于、大于、小于等于、大于等于都与我们常用的符号是一致的,而不等于是小于和大于连用。逻辑运算符为:和操作—>AND 非操作—>NOT 或操作—>OR;你可以使用操作符 + 和操作符 &...
阅读全文
摘要:Cbool函数将变量转换成布尔值;Cbyte函数将变量转换为0到255之间的整数。Ccur函数、Cdbl函数和Csng函数将变量转换为浮点数值,前者只精确到小数点后四位,后两者要更加精确,数值的范围也要大的多。Cdate函数将变量转换为日期值。Cint函数和Clng函数将变量转换为整数,后者的范围比...
阅读全文
摘要:Note: First make sure QTP connect to QC.(转自:http://blog.csdn.net/franktan2010/article/details/7243314)27.1 QC Path:QC path’s root folder is “Subject”....
阅读全文
摘要:'==========================================================================' Name: connectALM' Summary: connect to ALM' Parameters: ' QCServer,QCUserN...
阅读全文
摘要:QC-QTP整合在本节中,我们将学习如何将QTP和QC整合。通过整合,在QTP自动化脚本可以直接从Quality Center执行。建立连接,第一个步骤是安装所需的加载项。我们将了解如何通过采取样品QTP脚本来整合和QC执行它。Step 1:导航到ALM主页,点击从链接列表“Tools”。Step ...
阅读全文
摘要:原来的一段代码是这样的: Setfso3=CreateObject("Scripting.FileSystemObject")'msgbox XMLSoapResponseSetresponseFile=fso3.CreateTextFile(strResPath,True)responseF...
阅读全文
摘要:QTP录制鼠标右键单击事件要通过模拟键盘操作来实现Step 1,修改ReplayType为2,一般情况默认设置是1的。(1 – 使用浏览器事件运行鼠标操作。 2 – 使用鼠标运行鼠标操作)Setting.WebPackage(”ReplayType”) = 2Step 2,鼠标右键单击事件(附:Cl...
阅读全文
摘要:1.以数据库的形式访问Excel通常,我们与Excel的交互,是通过创建Excel对象的方式:Set ExcelApp = CreateObject("Excel.Application")但是在需要处理格式规范、数据量大的数据表的时候,不妨采取数据库的操作方式,使得操作更高效、灵活。把Excel表...
阅读全文
摘要:plink_path="C:/plink.exe"'plink.exe路径 username="username"'用户名 password="password"'密码 host="192.168.0.1"'Unix/Linux服务器地址 command="ls"'要执行的命令 SetoShell=...
阅读全文
摘要:- Suppose there are some itineraries in the Itinerary page, and you want to check on all of them.Set MyDescription = Description.Create()MyDescription...
阅读全文
摘要:Public Function QTP_Change_Color(pathway,sheetname,x,y,color) Dim srcData,srcDoc,sp1,sp2,num,use,a1,a2,a3 set srcData = CreateObject("Excel.Application") srcData.Visible = True set srcDoc = srcData.Workbooks.Open(pathway) srcDoc.Worksheets(sheetname).Activate If color = "red" The
阅读全文
摘要:Call Test Class Tester Dim mvarTesterName,mvarAge,mvarGender Sub Class_Initialize '构造函数 MsgBox"接下来,大家欢迎新同事的到来!" End Sub Sub Class_Terminate'析构函数 If mvarGender Then MsgBox "很遗憾," & mvarTesterName & "先生脱离了测试行业!" Else MsgBox "很遗憾," & mvarTeste
阅读全文
摘要:' get the number of rows in the tablerowCount=Browser("Browser").FlexApplication("App").FlexApplication("Fl exClient").FlexPanel("FlexPanel").FlexCanvas("App Home").FlexPanel("Search Results").FlexDataGrid("searchResults").Get
阅读全文

浙公网安备 33010602011771号