Micro Focus QTP (UFT) Forums
Unable to identify unque properties of chrome browser - Printable Version

+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: VB Scripting/Descriptive Programming (https://www.learnqtp.com/forums/Forum-VB-Scripting-Descriptive-Programming)
+--- Thread: Unable to identify unque properties of chrome browser (/Thread-Unable-to-identify-unque-properties-of-chrome-browser)

Unable to identify unque properties of chrome browser - tanyamrz - 10-22-2012

Hi

My task is to close all the Browsers execpt HP qc and my application browser which is in chrome,

iam using chrome 22

here the code

Code:
fncloseIEBrowsers
fnCloseChromeBrowsers

Function  fnCloseIEBrowsers()

    Dim objDesc, objmyBrowsColl,intItr,strBrowserName

    'systemutil.CloseProcessByName "chrome.exe"

    Set objDesc = Description.Create()
    objDesc("micclass").Value = "Browser"
    objDesc("version").Value ="internet explorer.*"
    objDesc("hasmenubar").value = "True"
    Set objmyBrowsColl = Desktop.ChildObjects(objDesc)
    For intItr =0 to objmyBrowsColl.Count -  1
            strBrowserName = objmyBrowsColl(intItr).GetROProperty("title")
            print  strBrowserName
        If InStr(1,strBrowserName,"HP Quality Center") Then
            Else
                objmyBrowsColl(intItr).Close
            End If
    Next

    Set objmyBrowsColl = Nothing
    Set objDesc = Nothing
  
End Function

Function  fnCloseChromeBrowsers()

    Dim objDesc1, objmyBrowsColl,intItr,strBrowserName1

    Set objDesc1 = Description.Create()
    objDesc1("micclass").Value = "Browser"
    objDesc1("application version").Value ="Chrome 22.0"
    objDesc1("title").Value ="ISL Dashboard"
    Set objmyBrowsColl = Desktop.ChildObjects(objDesc1)
    
    For intItr =0 to objmyBrowsColl.Count - 1
           strBrowserName1 = objmyBrowsColl(intItr).GetROProperty("title")
            
            If InStr(1,strBrowserName1,"ISL Dashboard") Then
                
            else
        objmyBrowsColl(intItr).Close
            End If
    Next
    Set objmyBrowsColl = Nothing
    Set objDesc1 = Nothing
  
End Function


can anyone please help me

Thanks
Tanya

RE: Unable to identify unque properties of chrome browser - sshukla12 - 10-23-2012

Hi,

Could you please specify the error msg u r getting.

Regards,
Sankalp

RE: Unable to identify unque properties of chrome browser - tanyamrz - 10-24-2012

Hi

Iam getting "unable to identify the object uniquely please add more properties to identify object uniquely
The. Problem is whenever execution starts it identifies hpqc then c
Then throws error

Childobjects count getting wrong

RE: Unable to identify unque properties of chrome browser - sshukla12 - 10-25-2012

Hi,

Use the below code 4 reference, it might help u;
Code:
bIndex = 0 'Set Browser index to 0
While Browser("CreationTime:="&bIndex).Exist(1) 'Loop untill the last browser
    bTitle = Browser("CreationTime:="&bIndex).GetROProperty("title") 'Get the browser title
    If InStr(bTitle,"Google") = 0 And InStr(bTitle,"Yahoo") = 0 And InStr(bTitle,"Gmail") = 0 Then
        Browser("CreationTime:="&bIndex).Close 'If the title doesn't contain Google or Gmail or Yahoo, close it
        If bIndex <> 0 Then
            bIndex = bIndex - 1 'If browser index is more than 0 and a browser is closed, decrease the index value by 1
        End If
    Else
        bIndex = bIndex + 1 'If no browser is closed for certain run, increase the index value by 1
    End If


Regards,
Sankalp

RE: Unable to identify unque properties of chrome browser - tanyamrz - 10-25-2012

Hi Thanks for the Reply

i have used your code


Code:
'
bIndex = 0 'Set Browser index to 0
While Browser("CreationTime:="&bIndex).Exist(1) 'Loop untill the last browser
bTitle = Browser("CreationTime:="&bIndex).GetROProperty("title") 'Get the browser title
b1Title = Browser("CreationTime:="&bIndex).GetROProperty("text")
  If InStr(b1Title,"HP Quality Center") = 0 And InStr(bTitle,"ISL Dashboard") = 0 Then
     Browser("CreationTime:="&bIndex).Close 'If the title doesn't contain Google or Gmail or Yahoo, close it
             If bIndex <> 0 Then
                                                                                              bIndex = bIndex - 1 'If browser index is more than 0 and a browser is closed, decrease the index value by 1
  End If
    Else
       bIndex = bIndex + 1 'If no browser is closed for certain run, increase the index value by 1
                   End IF

it is able to close the IE browsers sucessfully but not able to close the other opened chrome browsers Sad

RE: Unable to identify unque properties of chrome browser - pradeep singh - 05-01-2013

Hi ,

I am also facing the same isssue as discussed above i.e. unable to close google chrome tabs. (successfully closed tabs of IE and mozilla but not of chrome).

Anybody having solution for chrome browser?

Thanks & Regards
Pradeep Singh