51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2695|回复: 13
打印 上一主题 下一主题

[求助] 刚学qtp,描述性编程遇到了问题

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2008-1-22 10:11:18 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
我只是做登陆时的验证。

Set MyBro=description.Create()
Set MyPage=description.Create()
Set MyEdit=description.Create()
MyBro("title").value="TRMeister Web"
MyPage("titile").value="TRMeister Web"
MyEdit("name").value="userName"
MyEdit("type").value="text"
Browser(MyBro).Page(MyPage).WebEdit(MyEdit).Click  //这一行出错了
Browser(MyBro).Page(MyPage).WebEdit(MyEdit).Set "aaa"
.
.
.

错误信息:Cannot identify the object "WebEdit" (of class WebEdit). Verify that this object's properties match an object currently displayed in your application.

大家帮帮忙/。。。

怎么会不识别webEdit?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

14#
发表于 2008-1-23 11:42:24 | 只看该作者
原帖由 orange2008 于 2008-1-22 10:11 发表
我只是做登陆时的验证。

Set MyBro=description.Create()
Set MyPage=description.Create()
Set MyEdit=description.Create()
MyBro("title").value="TRMeister Web"
MyPage("titile").value="TRMeister Web" ...

每个对象的operate是不一样的,像webedit是没有click这个动作的,所以会出错,你可以用spy点一个webedit,看看property旁边的method上都有什么方法。
回复 支持 反对

使用道具 举报

该用户从未签到

13#
 楼主| 发表于 2008-1-22 16:38:42 | 只看该作者
谢谢你,解决了
回复 支持 反对

使用道具 举报

该用户从未签到

12#
发表于 2008-1-22 14:19:38 | 只看该作者
  1. SystemUtil.Run "IEXPLORE.EXE","http://bbs.51testing.com/default.php","","","3"
  2. Dim myBrowser1,myPage1,myLink1,myLink2,myLink3,myLink4,myWebEdit1,myWebEdit2,myWebButton,myBrowser2,myPage2,myPage3,myBrowser3

  3. Set myBrowser1 = Description.Create()
  4. myBrowser1("title").value = "51Testing软件测试论坛 测试 \| 软件测试 \| 软件缺陷跟踪 \| 软件配置工具 \| 测试用例设计 \| Web测试 \| 自动化测试工具 - Powered by Discuz!"

  5. Set myPage1 = Description.Create()
  6. myPage1("title").value = "51Testing软件测试论坛 测试 \| 软件测试 \| 软件缺陷跟踪 \| 软件配置工具 \| 测试用例设计 \| Web测试 \| 自动化测试工具 - Powered by Discuz!"

  7. Set myLink1 = Description.Create()
  8. myLink1("name").value = "登录"

  9. Set myWebEdit1 = Description.Create()
  10. myWebEdit1("name").value = "username"

  11. Set myWebEdit2 = Description.Create()
  12. myWebEdit2("name").value = "password"

  13. Set myLink2 = Description.Create()
  14. myLink2("name").value = "\[QuickTest Pro\]"

  15. Set myLink3 = Description.Create()
  16. myLink3("name").value = "刚学qtp,描述性编程遇到了问题"

  17. Set myWebButton = Description.Create()
  18. myWebButton("name").value = "提交"

  19. Set myPage2 = Description.Create()
  20. myPage2("title").value = "\[QuickTest Pro\] - 51Testing软件测试论坛 测试 \| 软件测试 \| 软件缺陷跟踪 \| 软件配置工具 \| 测试用例设计 \| Web测试 \| 自动化测试工具 - Powered by Discuz!"

  21. Set myBrowser2 = Description.Create()
  22. myBrowser2("title").value = "\[QuickTest Pro\] - 51Testing软件测试论坛 测试 \| 软件测试 \| 软件缺陷跟踪 \| 软件配置工具 \| 测试用例设计 \| Web测试 \| 自动化测试工具 - Powered by Discuz!"

  23. Set myBrowser3 = Description.Create()
  24. myBrowser3("title").value = "刚学qtp,描述性编程遇到了问题 - \[QuickTest Pro\] - 51Testing软件测试论坛 测试 \| 软件测试 \| 软件缺陷跟踪 \| 软件配置工具 \| 测试用例设计 \| Web测试 \| 自动化测试工具 - Powered by Discuz!"

  25. Set myPage3 = Description.Create()
  26. myPage3("title").value = "刚学qtp,描述性编程遇到了问题 - \[QuickTest Pro\] - 51Testing软件测试论坛 测试 \| 软件测试 \| 软件缺陷跟踪 \| 软件配置工具 \| 测试用例设计 \| Web测试 \| 自动化测试工具 - Powered by Discuz!"

  27. Set myLink4 = Description.Create()
  28. myLink4("name").value = "退出"

  29. Browser(myBrowser1).Page(myPage1).Link(myLink1).Click
  30. Browser(myBrowser1).Page(myPage1).WebEdit(myWebEdit1).Set "xxxxx"
  31. Browser(myBrowser1).Page(myPage1).WebEdit(myWebEdit2).SetSecure "xxxxxx"
  32. Browser(myBrowser1).Page(myPage1).WebButton(myWebButton).Click
  33. Browser(myBrowser1).Page(myPage1).Link(myLink2).Click
  34. Browser(myBrowser2).Page(myPage2).Link(myLink3).Click
  35. Browser(myBrowser3).Page(myPage3).Sync
  36. Browser(myBrowser3).Close
  37. Browser(myBrowser2).Page(myPage2).Link(myLink4).Click
  38. Browser(myBrowser2).Page(myPage2).Sync
  39. Browser(myBrowser2).Close
复制代码
这个是完全按照楼主贴出来的代码的形式写的。
回复 支持 反对

使用道具 举报

该用户从未签到

11#
发表于 2008-1-22 13:56:08 | 只看该作者
原帖由 orange2008 于 2008-1-22 10:11 发表
我只是做登陆时的验证。

Set MyBro=description.Create()
Set MyPage=description.Create()
Set MyEdit=description.Create()
MyBro("title").value="TRMeister Web"
MyPage("titile").value="TRMeister Web"
MyEdit("name").value="userName"
MyEdit("type").value="text"
Browser(MyBro).Page(MyPage).WebEdit(MyEdit).Click  //这一行出错了
Browser(MyBro).Page(MyPage).WebEdit(MyEdit).Set "aaa"


我有点奇怪,Description能像楼主那样的说话用嘛?
Browser(MyBro)。。。。。。。。。?
回复 支持 反对

使用道具 举报

该用户从未签到

10#
 楼主| 发表于 2008-1-22 13:16:43 | 只看该作者
好的,谢谢你了,真是麻烦你了。。。
回复 支持 反对

使用道具 举报

该用户从未签到

9#
发表于 2008-1-22 12:03:50 | 只看该作者
  1. SystemUtil.Run "IEXPLORE.EXE","http://bbs.51testing.com/default.php","","","3"
  2. Browser("CreationTime:=0").Page("index:=").Link("name:=登录").Click
  3. '用户名和密码你使用自己的吧
  4. Browser("CreationTime:=0").Page("index:=").WebEdit("name:=username").Set "xxxxxxx"
  5. Browser("CreationTime:=0").Page("index:=").WebEdit("name:=password").SetSecure "xxxxxxxxxxxxxx"
  6. Browser("CreationTime:=0").Page("index:=").WebButton("name:=提交").Click
  7. Browser("CreationTime:=0").Page("index:=").Link("url:=http://bbs.51testing.com/forum-69-1.html").Click
  8. Browser("CreationTime:=0").Page("index:=").Link("name:=刚学qtp,描述性编程遇到了问题").Click
  9. Browser("CreationTime:=1").Page("index:=").Sync
  10. Browser("CreationTime:=1").Close
  11. Browser("CreationTime:=0").Page("index:=").Link("name:=退出").Click
  12. Browser("CreationTime:=0").Page("index:=").Sync
  13. Browser("CreationTime:=0").Close
复制代码
description的方法等我改造一下再贴出来。
回复 支持 反对

使用道具 举报

该用户从未签到

8#
 楼主| 发表于 2008-1-22 11:10:59 | 只看该作者
1,修改还是会出现错误
2,Browser(MyBro).Page(MyPage).WebEdit(MyEdit).Click ,就是为了激活要输入用户名的那个text文本框
3,这行给注释了,后面的set(赋值)也是出现webEdit不识别的错误
回复 支持 反对

使用道具 举报

该用户从未签到

7#
 楼主| 发表于 2008-1-22 11:08:14 | 只看该作者
你能帮我写一段关于登陆的代码吗?
比如那个网上盯机票的系统,用描述性编程
回复 支持 反对

使用道具 举报

该用户从未签到

6#
发表于 2008-1-22 10:53:02 | 只看该作者
拼写错误改正后也是出现原来的错误吗?
Browser(MyBro).Page(MyPage).WebEdit(MyEdit).Click  
这一行的目的是什么?
如果把这行给注释了,后面的set(赋值)能够运行吗?
回复 支持 反对

使用道具 举报

该用户从未签到

5#
 楼主| 发表于 2008-1-22 10:47:29 | 只看该作者
目录是这样的:
browse:Te web
    page: te web
        webTable:user name
             webEdit:user name
回复 支持 反对

使用道具 举报

该用户从未签到

4#
 楼主| 发表于 2008-1-22 10:38:37 | 只看该作者
属性没有问题啊,
就是多了一个webtable,但是录制的时候是没有的阿,大家帮帮忙把

title我刚拼写错了
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2008-1-22 10:29:29 | 只看该作者
用Object Spy 查看一下这个webEdit对象,你看看识别的属性是不是有问题
回复 支持 反对

使用道具 举报

该用户从未签到

2#
发表于 2008-1-22 10:16:14 | 只看该作者
MyPage("titile").value="TRMeister Web"
单词拼错了。
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-15 18:34 , Processed in 0.078552 second(s), 28 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表