加个判断
把弹出来的“订餐日期不能早于当前日期”这个对话框加到对象库中。object repository-->add objects to local-->点击“订餐日期不能早于当前日期”这个对话框。
Dim D1
D1=date
D2='Browser("xxxx").Page("xxxxx").WebEdit("ctl00$MainContent$beginDate").GetRoproperty("text")
Cint(D2)
if D2>D1 then '时间比当前日期还要大
window("microsoft internet explorer").winbutton("确定").click
......
else
.....
end if
或者
if window("microsoft internet explorer").exists(1)
window("microsoft internet explorer").winbutton("确定").click
else
继续你的脚本
end if