Chinaunix首页 | 论坛 | 博客
  • 博客访问: 388067
  • 博文数量: 95
  • 博客积分: 3020
  • 博客等级: 中校
  • 技术积分: 865
  • 用 户 组: 普通用户
  • 注册时间: 2008-05-20 10:40
文章分类

全部博文(95)

文章存档

2011年(3)

2010年(8)

2009年(24)

2008年(60)

我的朋友

分类:

2008-05-29 14:38:11

今天一天都是研究取文本框值的这个问题,对于我这个不懂编程的人来说是有一点难度吧(自我安慰~~)。以下是我录制的代码

Browser("EVLIFE").Page("EVLIFE").Link("登陆/注册").Click
用户名:Browser("EVLIFE").Page("登录/注册").WebEdit("txtUserID").Set"qqq"
Browser("EVLIFE").Page("登录/注册").WebEdit("txtPwd").SetSecure "483e41c983e140e6b4e9a77571a43d52a1bb"
Browser("EVLIFE").Page("登录/注册").WebButton("登  录").Click
Browser("EVLIFE").Page("一味生活:我的帐户").WebButton("退出登录").Click
Browser("EVLIFE").Page("EVLIFE").Sync
Browser("EVLIFE").Close

我想判断用户名这个文本框的的值是否是qqq,如果是的话弹出对话框该值是qqq,否则弹出对话框该值不是qqq。

Browser("EVLIFE").Page("EVLIFE").Link("登陆/注册").Click
Browser("EVLIFE").Page("登录/注册").WebEdit("txtUserID").Set"qqq"      Dim s
s=Browser("EVLIFE").Page("登录/注册").WebEdit("txtUserID").GetROProperty("default value")
If s="qqq" Then
 msgbox"该值是qqq"
    else
 msgbox"该值不是qqq"
 End If

Browser("EVLIFE").Page("登录/注册").WebEdit("txtPwd").SetSecure "483e41c983e140e6b4e9a77571a43d52a1bb"
Browser("EVLIFE").Page("登录/注册").WebButton("登  录").Click
Browser("EVLIFE").Page("一味生活:我的帐户").WebButton("退出登录").Click
Browser("EVLIFE").Page("EVLIFE").Sync
Browser("EVLIFE").Close

在这个过程中不是把GetROProperty("default value")的属性名一定要正确,并且一定要加else,如果不加else的话就对,不会弹出对话框该值是qqq和弹出对话框该值不是qqq,这二个对话框。感谢QQ昵称为"批丫么"的朋友,才让我解决这个问题。

 


 

阅读(3115) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~