分类:
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昵称为"批丫么"的朋友,才让我解决这个问题。