Fail to Run

kkfhk

Can someone help me to verify my code? I nearly CRAZY

1. 
   
2. SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE", "http://xxxx.com"
   
3. 
   
4. Set main = Description.Create()
   
5. Set web = Description.Create()
   
6. Set staffid = Description.Create()
   
7. Set staffname = Description.Create()
   
8. Set costcentre = Description.Create()
   
9. Set table = Description.Create()
   
10. Dim question
    
11. 
    
12. main("title").Value = "http://xxxx.com"
    
13. web("url").Value = "http://xxxx.com"
    
14. staffid("name").Value = "staffid"
    
15. staffname("name").Value = "name"
    
16. costcentre("name").Value = "cost_centre"
    
17. 
    
18. Set  wb = Browser(main).Page(web)
    
19. 
    
20. Fn_AboutYou()
    
21. Fn_Check()
    
22. 
    
23. Public function Fn_AboutYou
    
24.         wb.WebEdit(staffid).Set DataTable("id", dtLocalSheet)
    
25.         wb.WebEdit(staffname).Set DataTable("name", dtLocalSheet)
    
26.         wb.WebList(cost_centre).Select DataTable("cost_centre", dtLocalSheet)
    
27. End Function
    
28. 
    
29. Public function Fn_Check
    
30.         For i =1 to 15
    
31.                 table("name").Value = "q"&i
    
32.                 question =wb.WebTable(table).GetROProperty("innertext")
    
33.                 MsgBox(question)
    
34.         Next
    
35. End Function
    

复制代码

When I ran the code, it said:

1. 
   
2. Cannot find the "WebEdit" object's parent "Browser" (class Browser). Verify that parent properties match an object currently displayed in your application.
   

复制代码

I already confirm the properties/types of all the elements. But it still failed to run.
PLease help me~~~~

If you have any query, feel free to ask.

Many Thanks.

[ 本帖最后由 kkfhk 于 2005-11-26 11:14 编辑 ]

Zee

又学到一点新东西。

lin_lp

虽然不太明白kkfhk 说什么.   (E文理解起来不是很清楚)
但是管理员回答的很仔细,学习ing......

node

论坛管理员高！，佩服，学习中

kai_top

这种手法的方式，还没试过呢，学习img.....顶

海龙

请看脚本中对错误的解释



SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE", "http://xxxx.com"

Set main = Description.Create()
Set web = Description.Create()
Set staffid = Description.Create()
Set staffname = Description.Create()
Set costcentre = Description.Create()
Set table = Description.Create()
Dim question

main("title").Value = "http://xxxx.com"
web("url").Value = "http://xxxx.com"
这个两个属性值不一定正确,请用Object Spy查看后，有正确的值替代

staffid("name").Value = "staffid"
staffname("name").Value = "name"
costcentre("name").Value = "cost_centre"
这三个都是WebEdit对象，只有name属性是不够的，只通过这个属性无法识别对象。
请看我写的脚本，使用了name、type、html tag三个属性值，通过这些属性才能识别对象。
    staffid("name").Value = "q"
    staffid("type").Value = "text"
    staffid("html tag").Value = "INPUT"

Set  wb = Browser(main).Page(web)

Fn_AboutYou()
Fn_Check()

Public function Fn_AboutYou
        wb.WebEdit(staffid).Set DataTable("id", dtLocalSheet)
        wb.WebEdit(staffname).Set DataTable("name", dtLocalSheet)
        wb.WebList(cost_centre).Select DataTable("cost_centre", dtLocalSheet)
End Function

Public function Fn_Check
        For i =1 to 15
                table("name").Value = "q"&i
                question =wb.WebTable(table).GetROProperty("innertext")
                MsgBox(question)
        Next
End Function

kkfhk

QA_BAY,

The web I used to test have only 2WebEdit, 1WebList, and 15MC with WebRadioButton.

And why do I use Descriptive Program rather than record.
Yes. It will make us more efficieny to maintaince.
And
It is because the 15MC will randomly generate from 50MC every browser refresh with different sequence.
Also, the answer of MC will have different sequence too.
For example,

Q1. How old are you?
Ans:  1. 10
         2. 20
         3. 30
         4. 40
Browser Refresh
Q2. How old are you?
Ans:  1. 30
         2. 10
         3. 40
         4. 20

QA_BAY

从你说用录制而不是手写没有错误来看.就可以在判定之前说的定义WebEdit的问题
现在你主要再重新定义一下WebEdit,你可以选择唯一的信息进行定义
这个可以防止同一个页面有两个WebEdit,QTP不知道指认哪个!
另外一个.不明白为什么要自己手写!
这样很麻烦,又很浪费时间!是为了方便日后修改是吗?

kkfhk

But I tried to provide more properties for each object like their Class Name, name, title, url, htmltag, etc.

But still fail.

Should I ignore this problem by using Object Repository+ Descriptive Program [DP] rather than only DP?

Please adivse.

================================================================

Moreover, I have an othe question would like to ask:

If I have a WebTable, contained 5 rows, Question row and 4 answer rows.
If I only want to retreive the Question innertext. How can I finish it?
I tried to use GetROProperty of WebTable's innerText, but it return all the question and answer fields for me.

Please help~~~:,(:,(:,(

[ 本帖最后由 kkfhk 于 2005-11-28 16:29 编辑 ]

海龙

原帖由 kkfhk 于 2005-11-28 13:49 发表



The action will only run for 1 time. Also, I already use the spy to get the properties of "Browser", "Page", "WebEdit"....etc.
Each of them I also define all th ...

你的脚本中，因为没有提供对象足够的信息，所以导致QTP无法根据这些信息找到对象。父对象和子对象的描述都存在这样的问题。

当你录制时，QTP已经记录了完整而足够的对象信息，所以录制的脚本可以回放成功。

kkfhk

原帖由 GIGI456 于 2005-11-28 11:18 发表
你的这个是不是有一个 action要执行好多次呢，你有没有注意观察，在运行的时候，输入第二次 参数的时候，就出现了问题呢？如果是那样的话，有可能是录制过程出现了错误，在录制的时候，第一次输入完信息，应让他返 ...

The action will only run for 1 time. Also, I already use the spy to get the properties of "Browser", "age", "WebEdit"....etc.
Each of them I also define all the object more than 1 properties.
But the error still occurs.
However, if I record it, it can playback the script.~~~~
But doesn't matter, thx all of your help.



^_^

[ 本帖最后由 kkfhk 于 2005-11-28 14:11 编辑 ]

QA_BAY

我觉得 应该是你开头定义WebEdit
有问题!
你可以用SPY先查看WebEdit控件,然后换另一个试试!
自己写控件就是这样的麻烦,但很灵活!

海龙

手写的代码

木木妹

可以给解释解释吗？

GIGI456

你的这个是不是有一个 action要执行好多次呢，你有没有注意观察，在运行的时候，输入第二次 参数的时候，就出现了问题呢？如果是那样的话，有可能是录制过程出现了错误，在录制的时候，第一次输入完信息，应让他返回那个页面才可以。你试一下吧！

kkfhk

It seems the "Browser" & "Page" 's properties same as me.
I think the error should occur again.

原帖由 海龙 于 2005-11-26 18:04 发表
原因：提供的对象信息不全，还有对象的信息不正确以及识别方式存在问题。

请参考下面的代码，以下代码已经调试通过。


[code]
SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE&qu ...

海龙

原因：提供的对象信息不全，还有对象的信息不正确以及识别方式存在问题。

请参考下面的代码，以下代码已经调试通过。

1. 
   
2. SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE", "http://www.google.com"
   
3. 
   
4. Set main = Description.Create()
   
5. Set web = Description.Create()
   
6. Set staffid = Description.Create()
   
7. Set staffname = Description.Create()
   
8. 
   
9. main("name").Value="Google"
   
10. web("url").value="http://www.google.com/intl/zh-CN"
    
11. 
    
12. staffid("name").Value = "q"
    
13. staffid("type").Value = "text"
    
14. staffid("html tag").Value = "INPUT"
    
15. 
    
16. staffname("name").Value = "Google 搜索"
    
17. staffname("type").Value = "submit"
    
18. staffname("html tag").Value = "INPUT"
    
19. 
    
20. Set  wb = Browser(main).Page(web)
    
21. 
    
22. Fn_AboutYou()
    
23. Fn_Check()
    
24. 
    
25. Public function Fn_AboutYou
    
26.         wb.WebEdit(staffid).Set "软件测试"
    
27. End Function
    
28. 
    
29. Public function Fn_Check
    
30.       wb.WebButton(staffname).Click
    
31. End Function
    

复制代码

sz_lg

主要原因还是Browser(main) QTP认不出来，检查一下标题是否有改变呢？也可以debug查看试试。