标题: 请求帮助(QTP) [打印本页] 作者: lg123p 时间: 2010-4-26 14:48 标题: 请求帮助(QTP) 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
Browser ("name:=XXX管理平台---登录").Page("title:=XXX管理平台---登录").WebEdit("name:=uid").Set "admin"
Browser ("name:=XXX管理平台---登录").Page("title:=XXX管理平台---登录").WebEdit("name:=pwd").Set "tuoming1"
Browser ("name:=XXX管理平台---登录").Page("title:=XXX管理平台---登录").WebButton("name:=登 录").Click
info=Browser ("name:=XXX管理平台---登录").Page("title:=XXX管理平台---登录").WebElement ("innertext:=用户名或密码错误!").Exist
If info then
msgbox("输入的用户名或者不正确")
else
msgbox("xxxxxxxxxxxxxxxxxxxxxxxxxxx")
End If