|
Set NavigateObj=Browser ("title:=about:blank")
NavigateObj.Navigate"http://192.168.0.60/login.aspx"
'登录XXX平台登录页面
Set BrowserObj=Browser ("name:=XXX管理平台---登录")
Set PageObj = BrowserObj.Page("title:=XXX管理平台---登录")
Set WebEdituidObj=PageObj.WebEdit("name:=uid")
WebEdituidObj.set "admin"
Set WebEditpwdObj=PageObj.WebEdit("name:=pwd")
WebEditpwdObj.set "tuoming1"
Set WebButtonLoginObj = PageObj.WebButton("name:=登 录")
WebButtonLoginObj.Click
'判断用户名密码是否正确
Set WebElementObj=PageObj.WebElement ("innertext:=用户名或密码错误!")
If WebElementObj.Exist then
msgbox("输入的用户名或者不正确")
else
msgbox("xxxxxxxxxxxxxxxxxxxxxxxxxxx")
End If
上面的程序我预想是应该出现 msgbox("输入的用户名或者不正确")
因为我输入的密码是错误的,页面回返回一个提示(见图片)但是msgbox("输入的用户名或者不正确")不执行,谢谢会的人帮忙指点下 |
|