|
本帖最后由 shiegg 于 2011-6-21 10:45 编辑
对象不支持此属性或方法
验证点:可以修改公司名称
'输入修改公司名称
'Browser("邮箱").Page("邮箱").Link("autotest(0)").click
'Browser("Creationtime:=0").Page("index:=0").WebElement("html id:=main_middle_menu_bar_left_editdept_div").Click
'Browser("Creationtime:=0").Page("index:=0").WebEdit("html id:=popselect_ud_user_department_name_edit").set "ssssss"
'Browser("Creationtime:=0").Page("index:=0").WebButton("name:=保存","index:=2").Click
Browser("邮箱").Page("邮箱").Link("name:=ssssss","index:=0").Exist
If result Then
Actual="修改成功"
else
Actual="不允许修改"
End If
Call MynetCheck("ssssss",Expect,Actual) |
|