51Testing软件测试论坛

标题: 还是报错，请大家来看看，请多多指教。在线等待 [打印本页]

作者: twtkhtdje 时间: 2010-7-23 20:27
标题: 还是报错，请大家来看看，请多多指教。在线等待
Dim error_message
Dim msg
Browser("163网易免费邮--中文邮箱第一品牌").Page("163网易免费邮--中文邮箱第一品牌").WebEdit("username").Set "xuyueming2007"
Browser("163网易免费邮--中文邮箱第一品牌").Page("163网易免费邮--中文邮箱第一品牌").WebEdit("password").Drag 94,11
Browser("163网易免费邮--中文邮箱第一品牌").Page("163网易免费邮--中文邮箱第一品牌").WebEdit("password").Drop 94,11
Browser("163网易免费邮--中文邮箱第一品牌").Page("163网易免费邮--中文邮箱第一品牌").WebButton("登录").Click

if Browser("163网易免费邮--中文邮箱第一品牌").Dialog("Microsoft Internet Explorer").Exist(1)  then
   error_message=Browser("163网易免费邮--中文邮箱第一品牌").Dialog("Microsoft Internet Explorer").Static("请输入您的密码 ?").GetROProperty("regexpwndtitle")
  '  error_message=Browser("163网易免费邮--中文邮箱第一品牌").Dialog("Microsoft Internet Explorer").Static("请输入您的密码 ?").GetVisibleText(top)
msgbox  error_message
  If error_message="请输入您的密码 ? " Then
      Browser("163网易免费邮--中文邮箱第一品牌").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
  else
      Browser("163网易免费邮--中文邮箱第一品牌").Close
End If
else
      Browser("163网易免费邮--中文邮箱第一品牌").Close
end if

作者: S小虾米 时间: 2010-7-26 14:26
Dim error_message
Dim msg
Browser("163网易免费邮--中文邮箱第一品牌").Page("163网易免费邮--中文邮箱第一品牌").WebEdit("username").Set "xuyueming2007"
Browser("163网易免费邮--中文邮箱第一品牌").Page("163网易免费邮--中文邮箱第一品牌").WebEdit("password").Drag 94,11
Browser("163网易免费邮--中文邮箱第一品牌").Page("163网易免费邮--中文邮箱第一品牌").WebEdit("password").Drop 94,11
Browser("163网易免费邮--中文邮箱第一品牌").Page("163网易免费邮--中文邮箱第一品牌").WebButton("登录").Click
if Browser("163网易免费邮--中文邮箱第一品牌").Dialog("Microsoft Internet Explorer").Exist then
error_message=Browser("163网易免费邮--中文邮箱第一品牌").Dialog("Microsoft Internet Explorer").Static("请输入您的密码 ?").GetROProperty("Text")
msgbox error_message
Browser("163网易免费邮--中文邮箱第一品牌").Dialog("Microsoft Internet Explorer").WinButton ("确定").Click
Browser("163网易免费邮--中文邮箱第一品牌").Close
End If

作者: S小虾米 时间: 2010-7-26 14:27
是这个意思吧？

作者: twtkhtdje 时间: 2010-7-30 09:30
标题: 更好的方法
感谢二楼的，这个问题我自己已经解决了，后来又发现还有一种简单的方法，不需要取得Static属性也可以读取（“请输入您的密码 ?”）的问题，就是用WinButton的（“attached text”）属性一样也能取得同样的值，现把代码贴出来与大家分享一下。

Dim err_msg
Dim msg,error_msg

msg="请输入您的密码 ?"

Browser("163网易免费邮--中文邮箱第一品牌").Page("163网易免费邮--中文邮箱第一品牌").WebEdit("username").Set "xuyueming2007"
Browser("163网易免费邮--中文邮箱第一品牌").Page("163网易免费邮--中文邮箱第一品牌").WebEdit("password").Drag 60,21
Browser("163网易免费邮--中文邮箱第一品牌").Page("163网易免费邮--中文邮箱第一品牌").WebButton("登录").Click
Browser("163网易免费邮--中文邮箱第一品牌").Dialog("Microsoft Internet Explorer").Static("请输入您的密码 ?").Click

Browser("163网易免费邮--中文邮箱第一品牌").Page("163网易免费邮--中文邮箱第一品牌").Sync

If Browser("163网易免费邮--中文邮箱第一品牌").Dialog("Microsoft Internet Explorer").Exist(2)  Then
'  err_msg= Browser("163网易免费邮--中文邮箱第一品牌").Dialog("Microsoft Internet Explorer").Static("请输入您的密码 ?").GetVisibleText(top)
error_msg=browser("163网易免费邮--中文邮箱第一品牌").Dialog("Microsoft Internet Explorer").WinButton("确定").GetROProperty("attached text")
msgbox error_msg
' msgbox  err_msg
' msgbox msg
If  msg=error_msg Then
Browser("163网易免费邮--中文邮箱第一品牌").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
msgbox "恭喜您！脚本执行成功！"
else
   Browser("163网易免费邮--中文邮箱第一品牌").Close
End If
else
   Browser("163网易免费邮--中文邮箱第一品牌").Close
End If

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)