用qtp测试用户登录问题。。。急，弄了二天了

ALEN灬chen

Dim outputvalue '读取系统实际的输出值的变量
Dim  dateh '定义系统预期提示信息的变量

Browser("网银申报系统").Page("网银申报系统").WebEdit("username").Set DataTable("username", dtLocalSheet)
Browser("网银申报系统").Page("网银申报系统").WebEdit("password").SetSecure DataTable("password", dtLocalSheet)
Browser("网银申报系统").Page("网银申报系统").WebElement("WebButton").Click

'但是我想要的是验正时弹出一个提示层来验正输入是否正确。下面一行的文本验正应该如何修改？？
Browser("网银申报系统").Page("网银申报系统").WebElement("请输入正确的用户名")Output CheckPoint("请输入正确的用户名")'插入文本输出点
outputvalue=datatable("stamsg",dtlocalsheet) '将实际输出值赋于变量outputvalue
dateh=datatable("status",dtlocalsheet) '将预期值赋于变量dateh

If  outputvalue<>dateh Then
  Reporter.ReportEvent  1, "登录功能测试", "预期值为 " &dateh & " 实际值为" &outputvalue
　Browser("网银申报系统").Close
End If
Browser("网银申报系统").Page("网银申报系统").Frame("menu").Link("退出系统").Click
Browser("网银申报系统").Page("网银申报系统").Sync
Browser("网银申报系统").Close

以上是脚本代码
我如果是正确的帐号和密码，运行到检查点那行就出错了，请怎样做到，输入正确的可以运行，错误的也可以运行呢

欣苓木子

呵呵，既然自动化做不来，何不用手动呢，手动测试操作起来哪会这么麻烦

ALEN灬chen

晕...不能因为不会，就不去做，而且自动化测试是趋势，快点来高手help me

[ 本帖最后由 ALEN灬chen 于 2009-12-14 17:56 编辑 ]

欣苓木子

我只想说，自动化测试永远替代不了手动测试
自动化只能在某个地方起作用，当然，学点自动化当然是好的

ermine

什么样的错误？

dana09

菜鸟飘..帮顶

jonsonzhang123

Browser("网银申报系统").Page("网银申报系统").WebEdit("password").Set DataTable("password", dtLocalSheet)

Browser("网银申报系统").Page("网银申报系统").WebElement("请输入正确的用户名")Output CheckPoint("请输入正确的用户名")'插入文本输出点
'这句话什么意思，把实际值输出到"请输入正确的用户名"?你的表列名有没有弄错？

maclehappy13

我不是很明白你的问题,但你那个检查点在用正确的用户名、密码登录时，不会提示"请输入正确的用户名"，我认为这就是你的问题。
解决办法：在IF那里加ELSE，把检查点放到ELSE里，你的问题应该就解决了。

yanfang84

你的问题解决了吗？怎么解决的？

fengerapple

Thank you very much for sharing!The good man!The good life of peace!

491623644

我也遇到这样的问题了