51Testing软件测试论坛

标题: 脚本回放过程中，附件上传不成功 [打印本页]

作者: swordredlin 时间: 2010-3-26 16:30
标题: 脚本回放过程中，附件上传不成功
Dear all

Please help me to review the QTP script

Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebEdit("txtApplyDate").Object.value=datatable("Date",dtLocalSheet)

Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebList("ddlRequireType").Select datatable("type",dtLocalSheet)
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebButton("btnSearchCust").Click
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Window("选择客户 -- Web Page Dialog").Page("选择客户").Frame("Frame").Link("信息技术有限公司").Click
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebList("ddlProvince").Select "贵州省"
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebList("ddlCity").Select "都匀市"
wait(2)
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebButton("btnSearchProduct").Click
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Window("选择产品 -- Web Page Dialog").Page("选择产品").Frame("Frame").Link("apple").Click

Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebEdit("txtQty").Set "22"
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebList("ddlProduct").Select "KeyouCRM6.2"
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebList("ddlProblemType").Select "下载试用"
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebList("ddlSource").Select "邮件"
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebEdit("txtSummar").Set "邮件下载速度非常慢"
wait(2)
browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebFile("RelatedFile").Click
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Dialog("Choose file").WinListView("SysListView32").Activate "PI.txt"
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebButton("上传").Click
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebButton("保存").Click
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebButton("关闭").Click

脚本Run过程中，附件没有上传上去，也没有错误提示信息，请各位帮忙，感激不尽！

[ 本帖最后由 swordredlin 于 2010-3-26 16:32 编辑 ]

作者: shotstar 时间: 2010-3-26 16:44
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Dialog("Choose file").WinListView("SysListView32").Activate "PI.txt"

后面那个PI.txt是你要上传的文件么？把路径补全再试试。

作者: 风雪夜归人 时间: 2010-3-26 17:34
browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebFile("RelatedFile").Click

然后是这种格式的, Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Dialog("Choose file").WinEdit("xxx").Set "C:\QTP.exe"
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Dialog("Choose file").Type micReturn

或者你试试:
browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebFile("RelatedFile").Set "C:\QTP.exe"

作者: shotstar 时间: 2010-3-26 22:48
楼上的后一种方法可以试试，我当时看的时候没注意到他的WebFile那段语句，感觉录制模式有问题，因为我在录制的时候只会录制到一句WebFile().Set "文件路径"，最简单直接的就上用楼上后一种，然后注释掉那个WinListView的语句

作者: swordredlin 时间: 2010-3-30 11:51
标题: 非常高兴
谢谢大家的帮忙，问题很顺利的解决了，非常感谢！

作者: cbook 时间: 2010-4-10 16:14
咋解决的啊，也不说，lj

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)