Skip to main content

Close All Opened Browsers Except HP Quality Center/ALM

By
Option : I

Function CloseIEExceptALM()       
        On Error Resume Next
        iCurItr = 0
        bExit = False
        Do            
            Set objDlg = Dialog("regexpwndtitle:=.*Internet Explorer.*","Index:=" & iCurItr)
            If Dialog("regexpwndtitle:=.*Internet Explorer.*","Index:=" & iCurItr).Exist(0) Then
                If objDlg.WinButton("text:=Cancel","Index:=0").Exist(0) Then
                    objDlg.Activate
                    objDlg.WinButton("text:=Cancel","Index:=0").Click
                End If
                If objDlg.WinButton("text:=Close","Index:=0").Exist(0) Then
                    objDlg.Activate
                    objDlg.WinButton("text:=Close","Index:=0").Click
                End If           
                If objDlg.WinButton("text:=Ok","Index:=0").Exist(0) Then
                    objDlg.Activate
                    objDlg.WinButton("text:=Ok","Index:=0").Click
                End If   
                If objDlg.WinButton("text:=Close Program","Index:=0").Exist(0) Then
                    objDlg.Activate
                    objDlg.WinButton("text:=Close Program","Index:=0").Click
                End If   
                If Dialog("regexpwndtitle:=.*Security Warning.*","Index:=0").Exist(0) Then
                    Dialog("regexpwndtitle:=.*Security Warning.*","Index:=0").Activate
                    If Dialog("regexpwndtitle:=.*Security Warning.*","Index:=0").WinBUtton("text:=&No").Exist(0) Then
                        Dialog("regexpwndtitle:=.*Security Warning.*","Index:=0").WinBUtton("text:=&No").Click
                    End If                   
                End If   
                Wait(0.500)
                If objDlg.Exist(0) Then               
                    If objDlg.GetROProperty("Visible") Then
                        strTitle = Dialog("regexpwndtitle:=.*Internet Explorer.*","Index:=" & iCurItr).GetROProperty("title")
                        strText = Dialog("regexpwndtitle:=.*Internet Explorer.*","Index:=" & iCurItr).GetROProperty("text")
                        If InStr(strText, "HP") = 0 Then                                                                                
                            If Dialog("regexpwndtitle:=.*Internet Explorer.*","Index:=" & iCurItr).Exist(0) Then
                            Dialog("regexpwndtitle:=.*Internet Explorer.*","Index:=" & iCurItr).Activate
                                Dialog("regexpwndtitle:=.*Internet Explorer.*","Index:=" & iCurItr).Close
                            End If
                            Wait(0.500)
                            iCurItr = -1
                        End If
                    End If
                End If
            ElseIf iCurItr> 10 Then
                bExit = True           
            End If           
            iCurItr = iCurItr + 1
        Loop Until iCurItr >= 100 Or bExit
        Set objDlg = Nothing
End Function
Option : II
 
Function CloseIEexceptQC()
    Dim oDesc,oChilds,iCnt,i,ihwnd,sName
    Set oDesc=Description.Create
    oDesc("micclass").Value="Browser"
    Set oChilds = Desktop.ChildObjects(oDesc)
    iCnt = oChilds.Count
    For i = 0 to iCnt -1
        sName = oChilds(i).getRoProperty("name")
        If instr(1, sName,"Quality Center") = 0 Then
            ihwnd = oChilds(i).getRoProperty("hwnd")
            SystemUtil.CloseProcessByHwnd(ihwnd)
        End If
    Next
End Function
Labels:

Comments

Post a Comment

Popular posts from this blog

Convert JSON to XML using QTP/UFT/VBScript

By
Sample Code : Dim strPage,strJSON,objIE strPage = "C:\Jay\JLoader.html" Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate2 strPage While objIE.Busy : Wend strJSON = "{""FirstName"":""Jay"", ""LastName"":""Krishna""}" Set objWin = objIE.document.parentWindow objWin.execScript "var jsonStr2XML = function(strJSON) { return json2xml(JSON.parse(strJSON));};" Msgbox  oWin.jsonStr2XML(strJSON) objIE.Quit In Detail: Converting The most popular data interchange format JSON(JavaScript Object Notation) to XML using QTP/UFT. Parsing JSON in UFT could be a challenge so we will use JavaScript in UFT to make it perfect. SO We need :              Java Script API  - To Convert JSON to XML                         JavaScript Files :  ...
Post a Comment
Read more

PDF Automation in QTP

By
                                                                            The most challenging issue with PDFs is that it could be of any kind, not just a tabular data; it could have plain text, images or even forms to fill up. So this makes a tester’s life a bit difficult, never mind, we will definitely find an easy of do it… Although there are already some better approaches we have to deal with PDF documents but I found many of us are facing so many difficulties using this. There are lots of queries coming at QTP forums asking for an easy way of doing it with PDFs. keeping those in my mind I started c...
Post a Comment
Read more

Customised HTML Result Report for UFT/QTP with ScreenShots in HP ALM TestSet attached.

By
On   Error   Resume   Next '======================================================================================================================================== 'Module Name            :    GenerateCustomReport.qfl ' Author                    :    Jay 'Date Created            :     13/11/2014 'Description                :     The library contains various functions that are used to generate a Custom HTML report '======================================================================================================================================== 'Project/Test Specific Variables ...
Post a Comment
Read more

Download Test Resource From QC Using QTP

By
'########################################################################### '* Function Name: QCGetResource '* Designer: Jay '* Date 09-May-2012 '* This script will Download QC Test Resource to a local dir '########################################################################### Function QCGetResource(resourceName,saveTo)     Set qcConn = QCUtil.QCConnection     Set oResource = qcConn.QCResourceFactory     Set oFilter = oResource.Filter     oFilter.Filter("RSC_FILE_NAME") = resourceName     Set oResourceList = oFilter.NewList     If oResourceList.Count = 1 Then         Set oFile = oResourceList.Item(1)         oFile.FileName = resourceName         oFile.DownloadResource saveTo, True     End If         Set qcConn = Nothing     Set oResource = Nothi...
Post a Comment
Read more

How To open Password Protected Excel sheets using Vb Script

By
Function UnprotectXL(filePath,fileName,pwd,writeresPwd)    Set objExcel=CreateObject(“Excel.Application”)    objExcel.Visible=false    testData=filePath&”\”&fileName    Set oWorkbook=objExcel.Workbooks    Set myWkbook=objExcel.Workbooks.open (testData,0,False,5,pwd,writeresPwd)    objExcel.DisplayAlerts=False    oWorkbook(fileName).Activate    For Each w in objExcel.Workbooks         w.SaveAs testData,,”",”"          Next    objExcel.Workbooks.Close    objExcel.Quit    Set oWorkbook=Nothing    Set objExcel=Nothing   End Function Function ProtectXL(filePath,fileName,pwd,writeresPwd)      On Error Resume Next      Set objExcel=CreateObject(“Excel.Application”)      objExcel.Visible=False      testData=filePath...
Post a Comment
Read more