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)
   msgboxerror_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")
msgboxerror_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
'   msgboxerr_msg
'   msgbox msg
        Ifmsg=error_msg Then
                Browser("163网易免费邮--中文邮箱第一品牌").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
                msgbox "恭喜您！脚本执行成功！"
        else
                   Browser("163网易免费邮--中文邮箱第一品牌").Close
        End If
else
      Browser("163网易免费邮--中文邮箱第一品牌").Close
End If
页: [1]
查看完整版本: 还是报错，请大家来看看，请多多指教。在线等待