|
刚刚接触qtp,对vb的很多东西都不懂,现录了一个很简单的操作,就是登陆,登陆成功后会跳到下一个页面(Page_2),不成功的话会弹出个不用点击的提示,我的意思是如果登陆不成功就关闭IE,重新来,但现在不管登陆成功不成功都关闭IE,代码如下:
On error resume next
Dim tr
SystemUtil.Run "E:\Program Files\Internet Explorer\iexplore.exe","","E:\Documents and Settings\Administrator","open"
Browser("Browser").Page("Page").Sync
Browser("Browser").Navigate "http://200.200.31.165:1000"
Browser("Browser").Page("登录").WebEdit("user").Set "Admin"
Browser("Browser").Page("登录").WebEdit("password").SetSecure "4a8a3531a5b49508b41d0541850c56c0"
Browser("Browser").Page("登录").WebButton("登 录").Click
Browser("Browser").Page("Page_2").Frame("leftFrame").WebElement("当前用户: Admin").Check CheckPoint("当前用户: Admin")
tr=Browser("Browser").Page("Page_2").Frame("leftFrame").WebElement.GettoProperty("innertext")
If tr<>"当前用户: Admin" Then
Browser("Browser").Close
End If
初学,代码可能很不地道,还有两个问题不明白: 那种弹出的没有惦记按扭的框,怎么获得其属性;加检查点后,检查点不通过,qtp就停止运行了,该怎么解决 |
|