网页条件语句判断。。

L.E.O

现在以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

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

2#把第2行的SET去掉

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

TIB

一般数据类型不用Set，对象赋值用Set