还是报错，请大家来看看，请多多指教。在线等待

twtkhtdje · 发表于 2010-7-23 20:27: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(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:45

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:15

是这个意思吧？

twtkhtdje · 发表于 2010-7-30 09:30:40

感谢二楼的，这个问题我自己已经解决了，后来又发现还有一种简单的方法，不需要取得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

[原创] 还是报错，请大家来看看，请多多指教。在线等待

相关帖子

更好的方法

站长推荐 /1