我加了一句,在我的电脑上可以执行了。
从报错信息看,主要问题在Dialog上,你的语句没有识别到Dialog对象,可能一个条件不够,于是我加了个Micclass的试了一下就可以了。 不是那个问题,我加了的 一样没用 从设置和环境问题考虑一下吧 那我给你个调试的方法,看看描述性编程的对象是否唯一。
之前的语句是Dialog("regexpwndtitle:=Login","Micclass:=Dialog").WinEdit("attached text:=Agent Name:").Set "zhouqin"
但是你那里如果还是不行的话,用下面的方法来调试一下。
Set oDesc = Description.Create()
oDesc("micclass").Value = "Dialog"
oDesc("regexpwndtitle").Value = "Login"
Set Lists = Desktop.ChildObjects(oDesc)
all=Lists.count
看看all是几,如果是1的话,那么用Dialog("regexpwndtitle:=Login","Micclass:=Dialog")应该可以识别到对话框,如果不是1,那么加个index:=0试试
Dialog识别完了再看WebEdit的
Set oDesc = Description.Create()
oDesc("micclass").Value = "WebEdit"
oDesc("attached text").Value = "Agent Name:"
Set Lists = Dialog("regexpwndtitle:=Login","Micclass:=Dialog","index:=0").ChildObjects(oDesc)
all=Lists.count
在看看这时候all是多少。
通常我用这个方法就是来看看描述对象的属性是否能唯一识别到对象,如果识别到多个,说明可能有对象隐藏在页面上,那么这时候加上index去进一步识别他,之后为了查看是否找对了对象,可以在对象后面用 .highlight的方法高亮对象,以便确认你需要操作的对象是你看到的那个。 没人回复啦大家帮帮忙啊大侠们都出来哦
回复 24# 的帖子
我不是给你写了方法了么,你有没有试着去用一下?回复 23# 的帖子
见19楼。。。他说都是0.。。重装QTP好的可能性大一点。。。
回复 26# 的帖子
哦。没注意到。。。不过在我家里的电脑上是能正常运行的。。。 已经重装过了 看来要重装操作系统
页:
1
[2]