|
Delphi开发的一个软件
用exit时出现"对象不支持此属性或者方法"
把几行代码帖出来下:
Window("登录").VirtualObject("object").Click 36,14
Window("Rooyee Messenger").WinObject("TfrmWaiting.UnicodeClass").Exist(3)
Window("Rooyee Messenger").WinObject("TfrmWaiting.UnicodeClass").Click 114,302
Window("Rooyee Messenger").WinObject("TTntToolBar.UnicodeClass").Click 89,12
每次执行到Window("Rooyee Messenger").WinObject("TfrmWaiting.UnicodeClass").Exist(3)里时就出现上面所说的错误提示
这是怎么回事呢?
还有另外一个问题:
Window("登录").VirtualObject("object").Click 36,14
if Window("Rooyee Messenger").WinObject("TfrmWaiting.UnicodeClass").Exist then
Window("Rooyee Messenger").WinObject("TfrmWaiting.UnicodeClass").Click 114,302
else Window("Rooyee Messenger").WinObject("TTntToolBar.UnicodeClass").Click 89,12
end if
这里到if 后每次都不判断直接就运行then后的语句去了 哪怕是那个对象不存在也不执行else后面的语句 |
|