Unique Browser identification

[mca.tarun]

I am copying two codes where we are not convinced with the output.

Code 1:

Code:

Dim IE Set IE=createObject("internetExplorer.application") IE.visible=true hwndMain=IE.HWND Window("hwnd:="&hwndMain).Maximize IE.Navigate "about:blank" urlToNavigate="www.google.com" Browser("hwnd:="&hwndMain).Navigate urlToNavigate Set IE = Nothing

On executing this code, QTP shows error at "Browser("hwnd:="&hwndMain).Navigate urlToNavigate" step. If we change this step to "IE.Navigate urlToNavigate" then it works. On the fly we are creating browser object with some specific hwnd value and it should work.


Code 2:

Code:

Dim IE,IE1 Set IE=createObject("internetExplorer.application") IE.visible=true hwndMain=IE.HWND msgbox hwndMain Window("hwnd:="&hwndMain).Maximize IE.Navigate "about:blank" IE.Navigate "www.google.com" Set IE1=createObject("internetExplorer.application") IE1.visible=true hwndMain1=IE1.HWND msgbox hwndMain1 IE1.Navigate "www.gmail.com" Set bDesc = Description.Create() bDesc("application version").Value = "internet explorer 7" Set bColl = DeskTop.ChildObjects(bDesc) Cnt = bColl.Count MsgBox "There are total: "&Cnt&"browsers opened" For i = 0 To (Cnt -1) MsgBox "Browser : "&i&" has title: "& bColl .GetROProperty("title") Next Set bColl = Nothing Set bDesc = Nothing Set IE = Nothing Set IE1 = Nothing

On executing this code, message is displayed for 1 opened browser instead of 2. And second thing if we change the "GetROProperty("title")" to hwnd then we got three different hwnd values instead of two.

Can you please look into the issue and correct us at earliest.

Thanks.

[sreekanth chilam]

Hi Tarun,

Check with the below codes, both are working fine as you expected
Note: I am using IE 6.

Code 1:

Code:

Dim IE Set IE=createObject("internetExplorer.application") IE.visible=true hwndMain=IE.HWND msgbox hwndMain Window("hwnd:="& hwndMain).Maximize IE.Navigate "about:blank" urlToNavigate="www.gmail.com" Browser("hwnd:="& hwndMain).Navigate urlToNavigate Set IE=Nothing

Code 2:

Code:

Dim IE,IE1 Set IE=createObject("internetExplorer.application") IE.visible=true hwndMain=IE.HWND msgbox hwndMain Window("hwnd:="&hwndMain).Maximize IE.Navigate "about:blank" IE.Navigate "www.google.com" Set IE1=createObject("internetExplorer.application") IE1.visible=true hwndMain1=IE1.HWND msgbox hwndMain1 IE1.Navigate "www.gmail.com" Set bDesc = Description.Create() bDesc("application version").Value = "internet explorer 6" Set bColl = DeskTop.ChildObjects(bDesc) Cnt = bColl.Count MsgBox "There are total: "&Cnt&"browsers opened" For i = 0 To (Cnt -1) MsgBox "Browser : "&i+1&" has title: "& bColl(i).GetROProperty("title") Next Set bColl = Nothing Set bDesc = Nothing Set IE = Nothing Set IE1 = Nothing

Hope this would solve your issues

[mca.tarun]

which qtp version u used??? i tried on qtp 10.0

[sreekanth chilam]

Hi,

9.5

[mca.tarun]

why its not working on version 10

[sreekanth chilam]

[sunil.kaggarwal]

Hello Everybody,

We are also facing the same issue. Things are working with QTP 9.2 but giving us error on QTP 10 (irrespective of the fact that we are using trial or licensed, we tried both).

Scenario 1: OS-WinXP SP3, IE6, QTP 9.2 (Code is working fine)
Scenario 2: OS-WinXP SP3, IE7, QTP 9.2 (Code is working fine)

Scenario 3: OS-WinXP SP3, IE7, QTP 10 (Code is giving errors)

I can look for some workaround but personally I want to do the research regarding what wrong we are doing with the code.

I spoke to QTP engineer and he told me that there are some changes in the QTP10 but he is not sure whether this code is part of those changes or not.

Thanks.