笔记：NEC QTP 第一个实例

第一次的笔记Call LoopTablePublic Sub LoopTable'Dim tableInput'Set tableInput=new Sheet 'new出新的excel表格'tableInput.SetSheet("Action1")rem 测试title图片是否合格JavaWindow("User Login").JavaObject("MessageLabel(st)").Check CheckPoint("MessageLabel(st)")'''Dim AllRowCount'AllRowCount=tableinput.AllRowCount rem 获取总行数'rem 进入循环'For i=1 to AllRowCountREM 输入用户信息并确定 获取了tableinput中的数据JavaWindow("User Login").JavaEdit("User:").Set Parameter("username")JavaWindow("User Login").JavaEdit("Password:").SetSecure Parameter("userpwd")rem port在此版本中不能设置'JavaWindow("User Login").JavaEdit("Port:").Set tableinput.GetRowColData(i,"port")JavaWindow("User Login").JavaEdit("Server:").Set Parameter("server")JavaWindow("User Login").JavaButton("Login").ClickIf JavaWindow("User Login").JavaDialog("Warning").Exist=true Then '如果弹出的是warning，捕获warning中的值与预期比较Dim errorinfo1errorinfo1=JavaWindow("User Login").JavaDialog("Warning").JavaStaticText("msg").GetROProperty("text")rem 插入检查点' InsertCheckPoint(errorTitle, curError, expectedError)call InsertCheckPoint(Parameter("username"),    errorinfo1,    Parameter("errorinfo")) JavaWindow("User Login").JavaDialog("Warning").JavaButton("OK").ClickElseIf    JavaDialog("Error").Exist = true Then  '如果弹出error，捕获error内容与预期比较rem 从错误窗口获取错误信息Dim errorinfo2      errorinfo2= JavaDialog("Error").JavaTable("ExceptionTable").GetCellData(0,2)rem 插入检查点call InsertCheckPoint(Parameter("username"),     errorinfo2,     Parameter("errorinfo"))rem 最后点击确定JavaDialog("Error").JavaButton("OK").ClickElseIf JavaWindow("hiT 7090 NetManager").Exist=true Then'如果登录成功，捕获登录名与预期比较rem 插入检查点，测试结束Dim errorinfo3errorinfo3=JavaWindow("hiT 7090 NetManager").JavaStaticText("Current User").GetROProperty("text") call InsertCheckPoint(Parameter("username"),     errorinfo3,     Parameter("errorinfo")) JavaWindow("hiT 7090 NetManager").JavaMenu("System").JavaMenu("Log Off").SelectJavaDialog("Log Off").JavaButton("Yes").ClickEnd If'Next End Sub 'Public Sub InsertCheckPoint(errorTitle,curError,expectedError)'rem 手工插入检查点'If curError=expectedError Then'Reporter.ReportEvent micPass, "错误反馈"+errorTitle, "期望结果：" & expectedError & Chr(10) &" 实际结果：" & curError'Else'Reporter.ReportEvent micFail, "错误反馈"+errorTitle, "期望结果：" & expectedError & Chr(10) & "实际结果：" & curError'End If'End Sub 'Public Function ReturnDt(rowNum)'Set odic = createobject("Scripting.Dictionary")'Set st=new Sheet'st.SetSheet("Action1")'With odic'.Add "username",st.GetRowColData(rowNum,"username")'.Add "userpwd",st.GetRowColData(rowNum,"userpwd")'.Add "errorinfo",st.GetRowColData(rowNum,"errorinfo")'End With'Set ReturnDt=odic'End Function Class Sheet'定义一些变量private m_AllRowCount,m_SheetTablerem 定义表实例Public function SetSheet(sheetName)setm_SheetTable=DataTable.GetSheet(sheetName)End functionrem 只读属性：总行数Public Property Get AllRowCountAllRowCount = GetAllRowCount()End Propertyrem 方法，获取行列值Public function GetRowColData(row,colname)GetRowColData=m_SheetTable.GetParameter(colname).ValueByRow(row)End functionrem 此方法获取表行数Private Function GetAllRowCount()  GetAllRowCount= m_SheetTable.GetRowCount rem 获取总行数End FunctionEnd Class

来自大脸猫写于 2014-02-20 15:27 -- 更新于2020-10-19 13:06 -- 0 条评论

大猪 & 大兔

笔记：NEC QTP 第一个实例

0条评论

评论:

文章分类

相册

关于网站

友情链接