51Testing软件测试论坛

标题: 网页条件语句判断。。 [打印本页]

作者: L.E.O 时间: 2010-4-28 11:57
标题: 网页条件语句判断。。
现在以hao123网页为例来说说我的需求

比如现在打开hao123主页，输入邮箱账号：abc选择@126.com登陆。。这是正常录制登陆。。。

我现在就拿网页上的某个关键字来做判断，比如“百度”关键字

我现在想加入一条if语句。。。如果检查到网页中包含"百度"两个字，那么我就选择@21cn.com邮箱登陆！

否则就选择@126.com登陆

请问这个该怎么写、我写了一条但不成功、麻烦大家指点一下。谢谢！

————————————我的代码——————————————

Browser("hao123－－我的上网主页").Page("hao123－－我的上网主页").WebEdit("hao_mail_username").Set "abc"

If innertext="百度" Then
Browser("hao123－－我的上网主页").Page("hao123－－我的上网主页").WebList("select").Select "@21cn.com"
End If

'Browser("hao123－－我的上网主页").Page("hao123－－我的上网主页").WebList("select").Select "@126.com 网易"
Browser("hao123－－我的上网主页").Page("hao123－－我的上网主页").WebEdit("hao_mail_passwd").SetSecure "4bd706ee346e0c349059e3b9"
Browser("hao123－－我的上网主页").Page("hao123－－我的上网主页").WebButton("登录").Click
Browser("hao123－－我的上网主页").Page("hao123－－我的上网主页").WebEdit("hao_mail_passwd").SetSecure "4bd706efb8b6"
Browser("网易通行证 > 用户验证").Page("网易通行证 > 用户验证").Sync
Browser("网易通行证 > 用户验证").CloseAllTabs

作者: L.E.O 时间: 2010-4-28 13:27
Browser("hao123－－我的上网主页").Page("hao123－－我的上网主页").WebEdit("hao_mail_username").Set "bbs_l7k"

Set innername = cstr(Browser("hao123－－我的上网主页").Page("hao123－－我的上网主页").WebElement("百度").GetROProperty("innertext"))

IF StrComp(("百　度"),innername ,1) = 0 Then
Browser("hao123－－我的上网主页").Page("hao123－－我的上网主页").WebList("select").Select "@21cn.com"
Else
Browser("hao123－－我的上网主页").Page("hao123－－我的上网主页").WebList("select").Select "@126.com 网易"
End if

Browser("hao123－－我的上网主页").Page("hao123－－我的上网主页").WebEdit("hao_mail_passwd").SetSecure "4bd706ee346e0c349059e3b9"
Browser("hao123－－我的上网主页").Page("hao123－－我的上网主页").WebButton("登录").Click
Browser("hao123－－我的上网主页").Page("hao123－－我的上网主页").WebEdit("hao_mail_passwd").SetSecure "4bd706efb8b6"
Browser("网易通行证 > 用户验证").Page("网易通行证 > 用户验证").Sync
Browser("网易通行证 > 用户验证").CloseAllTabs

以上代码执行时报这个错误：“缺少对象："[string:"百度"]"”

作者: feiyunkai 时间: 2010-4-28 14:00
2#把第2行的SET去掉

[ 本帖最后由 feiyunkai 于 2010-4-28 17:30 编辑 ]

作者: TIB 时间: 2010-4-28 16:19
一般数据类型不用Set，对象赋值用Set

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)