|
本帖最后由 ZhuCrystal 于 2010-12-24 15:43 编辑
情况是这样的:我录制了一个脚本,并且回放成功;之后我将其对象库保存于框架文件夹下的repository文件夹下,将脚本以VBS的形式保存于框架文件夹下的testScript文件夹中,之后我通过start.VBS启动QTP并且执行脚本,中间部分的脚本就是不执行,只有登录、退出是成功执行的。
Excel中:
√ 登录 MyLogin.xls LoginTestCase
√ 问卷 MyQuestion.xls QuestionTestCase
√ 退出 MyEdit.xls EditTestCase
我检查过所有的Excel文档,都是正常的;在执行时也成功调用了MyQuestion.xls,但是却不执行MyQuestion的相关VBS脚本,不知道是怎么回事;
以下是MyQuestion.xls文件所对应的VBS脚本文件:
Class QuestionClass
Function QuestionClass(Sheet_Name)
Title = DataTable("ctl00$ContentPlaceHolder1$txtT", Sheet_Name)
QuestionDescription = DataTable("ctl00$ContentPlaceHolder1$txtD", Sheet_Name)
'Category=DataTable("ctl00$ContentPlaceHolder1$ddQuestionType", Sheet_Name)
Content=DataTable("ctl00$ContentPlaceHolder1$txtb", Sheet_Name)
Options1=DataTable("ctl00$ContentPlaceHolder1$txtA", Sheet_Name)
Options2=DataTable("ctl00$ContentPlaceHolder1$txtA", Sheet_Name)
Options3=DataTable("ctl00$ContentPlaceHolder1$txtA", Sheet_Name)
Options4=DataTable("ctl00$ContentPlaceHolder1$txtA", Sheet_Name)
Browser("title:=Retech LMS2.0","name:=Retech LMS2.0").Page("title:=Retech LMS2.0").WebElement("html tag:=DIV","index:=33").Click
Browser("Retech LMS2.0").Page("Retech LMS2.0").Link("问卷库管理").Click
Browser("Retech LMS2.0").Page("问卷库管理").Link("新增问卷").Click
Browser("Retech LMS2.0").Page("调查问卷管理").WebEdit("ctl00$ContentPlaceHolder1$txtT").Set Title
Browser("Retech LMS2.0").Page("调查问卷管理").WebEdit("ctl00$ContentPlaceHolder1$txtD").Set QuestionDescription
Browser("Retech LMS2.0").Page("调查问卷管理").Link("新增问题").Click
Browser("Retech LMS2.0").Page("调查问卷管理").WebEdit("ctl00$ContentPlaceHolder1$txtb").Set Content
Browser("Retech LMS2.0").Page("调查问卷管理").Link("新增选项").Click
Browser("Retech LMS2.0").Page("调查问卷管理").WebEdit("ctl00$ContentPlaceHolder1$txtA").Set Options1
Browser("Retech LMS2.0").Page("调查问卷管理").Link("确定").Click
Browser("Retech LMS2.0").Page("调查问卷管理").Link("新增选项").Click
Browser("Retech LMS2.0").Page("调查问卷管理").WebEdit("ctl00$ContentPlaceHolder1$txtA").Set Options2
Browser("Retech LMS2.0").Page("调查问卷管理").Link("确定").Click
Browser("Retech LMS2.0").Page("调查问卷管理").Link("新增选项").Click
Browser("Retech LMS2.0").Page("调查问卷管理").WebEdit("ctl00$ContentPlaceHolder1$txtA").Set Options3
Browser("Retech LMS2.0").Page("调查问卷管理").Link("确定").Click
Browser("Retech LMS2.0").Page("调查问卷管理").Link("新增选项").Click
Browser("Retech LMS2.0").Page("调查问卷管理").WebEdit("ctl00$ContentPlaceHolder1$txtA").Set Options4
Browser("Retech LMS2.0").Page("调查问卷管理").Link("确定").Click
Browser("Retech LMS2.0").Page("调查问卷管理").Link("确定_2").Click
Browser("Retech LMS2.0").Page("调查问卷管理_2").Link("确定").Click
Browser("Retech LMS2.0").Page("问卷库管理_2").Image("学员").Click
End Function
End Class
本人刚接触框架,希望各位高手指点下 |
|