Description.Create( )??

lihongxin

假设我们需要完成以下操作：
Window(“计算器”).WinButton("text:=1").Click
Window(“计算器”).WinButton("text:=2").Click
Window(“计算器”).WinButton("text:=+").Click
通过Description对象来来实现上述功能如下：
Set MyDescription = Description.Create()
Set Calc= Description.Create()

Calc("regexpwndtitle")=”计算器”
Calc("regexpwndclass")= "SciCalc"
MyDescription("nativeclass").value="Button"

MyDescription("text").Value = "1"
Window(Calc).WinButton(MyDescription).Click

MyDescription("text").Value = "+"
Window(Calc).WinButton(MyDescription).Click

MyDescription("text").Value = "2"
Window(Calc).WinButton(MyDescription).Click


Set MyDescription = Nothing
Set Calc= Nothing
但上述代码老是调试不通过，提示问题为：Cannot identify the object "WinButton" (of class WinButton). Verify that this object's properties match an object currently displayed in your application.
知道的请解答一下，谢谢！

skyzhu

MyDescription("text").value = "\+"

lihongxin

再补充一下：谢谢楼上哥哥，姐姐。我用是QTP 8.2版！

lihongxin

谢谢了。不过，我现在测试的计算器的Button的"text"属性是空值，好像是不能由“text”属性来确定Button，需要由“Window id”来确定，问怎么写代码？

sidneylover

原帖由 风过无息 于 2007-7-7 14:47 发表
用\+代替+.这个在以前的帖子上有的.

window("计算器").WinButton("text:=\+").Click
直接这样是可以的，但通过description方法就不行了

sidneylover

搞不懂了
Set mydes = description.Create()
mydes("text").value = "+"
Set obj = window("计算器").ChildObjects(mydes)
msgbox obj.count
window("计算器").WinButton(mydes).click

这样MSGBOX出来的是0
mydes("text").value = "+"改成mydes("text").value = "\+"之后，MSGBOX的值是1,说明能找到对象，但执行window("计算器").WinButton(mydes).click的时候又提示没有对象
换成mydes("text").value = "\+"之后 ，能通过msgbox obj(0).GetROProperty("text")捕获到其text属性是+

风过无息

用\+代替+.这个在以前的帖子上有的.

winfood

原帖由 sidneylover 于 2007-7-7 13:56 发表
+号是字符串连接符，需要用转义符转一下

转义方式我早已经试过了，用MyDescription("text").value = Chr(43)也是不行的。
因为VBScript的机制是解释执行的，所以
MyDescription("text").value = Chr(43)
和
MyDescription("text").value = "+"
这两句在QTP运行脚本时是没有区别的，我怀疑这是某个Bug。

不知道我理解的对不对，楼上的能给个代码吗？

sidneylover

+号是字符串连接符，需要用转义符转一下

winfood

除了2楼指出的错误以外，发现一个奇怪的地方。这段脚本并不是在Click每个计算器按钮都出现LZ遇到的错误提示Cannot identify the object "WinButton"，只有加号按钮才出现错误。

1. 
   
2. ...
   
3. MyDescription("text").Value = "+"
   
4. Window(Calc).WinButton(MyDescription).Click
   
5. ...
   

复制代码

如果换成如下脚本，就可以顺利通过。

1. 
   
2. SystemUtil.Run "calc.exe"
   
3. Set Calc = Description.Create()
   
4. Calc("regexpwndtitle").value = "计算器"
   
5. Calc("regexpwndclass").value = "SciCalc"
   
6. 
   
7. Set MyDescription = Description.Create()
   
8. MyDescription("nativeclass").value = "Button"
   
9. MyDescription("text").value = "1"
   
10. Window(Calc).WinButton(MyDescription).Click
    
11. 
    
12. MyDescription("text").value = "-"
    
13. Window(Calc).WinButton(MyDescription).Click
    
14. 
    
15. MyDescription("text").Value = "2"
    
16. Window(Calc).WinButton(MyDescription).Click
    
17. 
    
18. MyDescription("text").Value = "="
    
19. Window(Calc).WinButton(MyDescription).Click
    
20. 
    
21. Set MyDescription = Nothing
    
22. Set Calc = Nothing
    

复制代码

计算器的其他按钮包括数字、减乘除号和等号都可以描述识别，但是就是加号按钮不知道为何总是识别出错。如果用QTP捕捉加号按钮并保存到对象仓库，在对象仓库中看到的加号按钮识别信息也仅限于nativeclass = Button和text = +这两个识别条件。目前还没有找到原因。

[ 本帖最后由 winfood 于 2007-7-7 13:59 编辑 ]

风过无息

Calc("regexpwndtitle")=”计算器”
Calc("regexpwndclass")= "SciCalc"
应该是
Calc("regexpwndtitle").value="=”计算器”
Calc("regexpwndclass").value="= "SciCalc"