发布新日志

  • QTP脚本增强成果

    2012-11-19 17:32:53

    整了两天， 终于有结果了。
    Dim i
    Dim outputvalue
    Dim istatus
    For i = 1 to datatable.GetSheet("Action1").GetRowCount
    Browser("互动汽车_3互动汽车").Page("互动汽车_3互动汽车").Link("登录").Click
    Browser("互动汽车_3互动汽车").Page("互动汽车_3互动汽车").WebEdit("email").Set DataTable("email", dtLocalSheet)
    Browser("互动汽车_3互动汽车").Page("互动汽车_3互动汽车").WebEdit("pwd").SetSecure DataTable("pwd", dtLocalSheet)
    Browser("互动汽车_3互动汽车").Page("互动汽车_3互动汽车").WebButton("登录").Click
    Browser("互动汽车_3互动汽车").Dialog("来自网页的消息").Static("用户名或密码不能为空").Output CheckPoint("用户名或密码不能为空")
    outputvalue = datatable("outmsg",dtLocalSheet)
    istatus = datatable("status",dtLocalSheet)
      If outputvalue<> istatus Then
       reporter.ReportEvent 1,"登录功能测试","预期值为："+istatus+"实际值为："+outputvalue
      End If
    Browser("互动汽车_3互动汽车").Dialog("来自网页的消息").WinButton("确定").Click
    Browser("互动汽车_3互动汽车").Page("互动汽车_3互动汽车").WebElement("WebElement").Click
    datatable.GetSheet("Action1").SetNextRow
    Next
    Browser("互动汽车_3互动汽车").Page("互动汽车_3互动汽车").Link("退出").Click
    Browser("互动汽车_3互动汽车").Page("互动汽车-DRIVE FOR LIFE,爱汽车、爱生活、爱网").Sync
    Browser("互动汽车_3互动汽车").CloseAllTabs
    执行上面的代码，在输入正确的邮箱和密码时，在 Browser("互动汽车_3互动汽车").Dialog("来自网页的消息").Static("用户名或密码不能为空").Output CheckPoint("用户名或密码不能为空") 这一步出错，后来加一个判断语句，判断dialog是否存在，就可以通过了。
    完整脚本：
    Browser("互动汽车_3互动汽车").Dialog("来自网页的消息").Static("用户名或密码不能为空").Output CheckPoint("用户名或密码不能为空")
    得瑟一下！！！

    查看(1160) 评论(1) 收藏 分享 管理

Open Toolbar