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

twtkhtdje

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

twtkhtdje

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

S小虾米

是这个意思吧？

S小虾米

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