Closing Internet Explorer

Hi Muhammad,



You are iterating from the array's start to its end. Thus, the potential problem is that OS/TestComplete may reassign the indexes of the running IE processes and this will result in script error.

I would rewrite your function either:



Function CloseAllBrowser

    IExplore = Sys.FindAllChildren("ProcessName","iexplore",2)

     If UBound(IExplore)>=0 Then

        For i = UBound(IExplore) to LBound(IExplore) Step -1 ' <== iterate from top to bottom

           IExplore(i).Terminate

        Next

 End If

End Function





or (untested, off-top of my head)



Function CloseAllBrowser

  Do

    IExplore = Sys.WaitProcess("iexplore", -1, 200)

    If (IExplore.Exists) Then

      IExplore.Close

      IExplore = Sys.WaitProcess("iexplore", -1, 200)

    Else

      Exit Do

    End If

  Loop

End Function

Thanks Alex, i will try this code. One more thing i have analyzed, if i refresh the the Sys tree from Object Browser tab and run the same code it does not give me any error, so can we refresh the Sys Tree from scripts?

Hi Muhammad,



Sure. See the help for the Sys.Refresh method.

(BTW, this confirms my guess as for the reason of the sporadic script code failure.)

Though note, that refreshing the whole processes tree takes some time while both versions of my code do not need refresh method.

Hi Alex,

i have tried both code samples but still facing the same issue, may be because i am using them in a different prospective. I have the following code in Script Extension 

Function CloseAllBrowser

    IExplore = Sys.FindAllChildren("ProcessName","iexplore",2)

     If UBound(IExplore)>=0 Then

        For i = UBound(IExplore) to LBound(IExplore) Step -1

           IExplore(i).Terminate

        Next

 End If

End Function

Function LaunchURL(webUrl)

    'Closing All opened Browsers

    CloseAllBrowser 

   

    'Initiating Internet Explorer Object

    Set IEObj = CreateObject("InternetExplorer.Application")

   

    ' Making IE visible

    IEObj.Visible = True



    'Due to some reason i am using dummy page

    ' Navigating to the page

    Call IEObj.Navigate("Home")

   

    'Setting Process and Page

    Set Process = Sys.Process("iexplore")

    Set Page = Process.Page("*")

   

    'Maximizing the Page

    Process.IEFrame(0).Maximize

    Page.ToURL weburl

    Page.Wait

End Function



In my Main function i am calling LaunchURL(www.abc.com), means before launching IE it should check if IE Instance is already running, if so then terminate it and launch a new one.



I have tried to use Sys.Refresh but its taking too much time, not suitable in my case.



Thanks and Regards,

Hi Muhammad Mazhar Mahmood!



Please read this http://www.automatedqa.com/blogs/post/10-06-01/web-testing---disabling-multiple-processes-of-internet-explorer-8/



When you apply recommendation from artical with registry - You can work with IE8 the same as IE 7

Hi Muhammad,



I think that Nikita provided a very good idea. If you are using IE8 which starts two processes then both your and my code might work not as expected because closing an IE instance will result that the number of running processes will decrease at least by two but not by one as it is assumed. This may be the reason of the sporadic failures of the code. (BTW, it may help if you provide us with the error(s)/screenshot(s) generated upon the failure.)

Hi,



Well i have already set-up IE8 to have only one process, but i am using IE6. As i told you that code is in Script Extension so it only prompts for VB Exception like there is an error at line 53 column 66 thats all. but still if u want i will post an image.



I can do one more thing, i will call this code from a simple script and will send you the exact error message.



BTW i think problem is not with the code, may be it is with TC Sys Tree, as i told you this problem is resolved as soon as i refresh the Sys Tree from Object Browser. That's y i asked you if we can refresh the Sys Tree. But that is taking toooooo much time.



Regards,

Dear Muhammad Mazhar Mahmood!



What ver TC do you use, what OS and what IE?



I don't understand - you use two IE - 6  and 8, or Only IE 8?



Please answer for this questions And I try write script for resolve this problem =)

Hi,



Windows XP, TC 7.52, IE 6



Run a new instance of TC

Write the following code in any script, and execute LaunchURL function.

Function CloseAllBrowser

    IExplore = Sys.FindAllChildren("ProcessName","iexplore",2)

     If UBound(IExplore)>=0 Then

        For i = UBound(IExplore) to LBound(IExplore) Step -1

           IExplore(i).Terminate

        Next

 End If

End Function

Function LaunchURL()

    'Closing All opened Browsers

    CloseAllBrowser

   

    'Initiating Internet Explorer Object

    Set IEObj = CreateObject("InternetExplorer.Application")

   

    ' Making IE visible

    IEObj.Visible = True

    ' Navigating to the page

    Call IEObj.Navigate("http://www.automatedqa.com")

   

    'Setting Process and Page

    Set Process = Sys.Process("iexplore")

    Set Page = Process.Page("*")

   

    'Maximizing the Page

    Process.IEFrame(0).Maximize

    Page.ToURL "http://www.Google.com"

    Page.Wait

End Function



Error Message:

VBScript Runtime Error

Remarks: The parameter is incorrect

Unit: "Unit1" Line: 5 Column: 12.



Unit1 Line5 = IExplore(i).Terminate



Now Open Object Browser, Close it and run the same code.



It will be executed successfully.



Regards,

Hi,



Preparation





1. Please, add in project item "TestedApps"

2. In this item add "iexplore" from your local. During add IE please set parameters,i.e. command line, = "-nohome"

3. Run once IE and in manually via IE go to some site, f.e. www.google.com

4. Educate you namemapping with IE process, page and IEFrame(0)>> in result in namemapping must be present

Sys - iexplore - IEFrame

Sys - iexplore - page

During add object "page" stay one property "objecttype" = "page"



In script



Public IE



Public IEApp



Public IEFrame



Public Page





Sub Main



' Set TestedApps "Internet Explorer" in var

Set IEApp = TestedApps.iexplore



' Set main process IE

Set IE = Aliases.Sys.iexplore



' Set IEFrame(0)

Set IEFrame = IE.IEFrame(0)



' Set IE page object

Set Page = IE.page



' Close IE

CloseIE



' Run IE

IEApp.Run



' Wait while IeFrame will be present during 30 sec

If Not WaitMainFrameIE(30000) Then

Log.Error("IeFrame not Exists")

End If



' Change position of IE with size on 1024*768

IEFrame.Position 1, 1, 1024, 768 



' Refresh IE process

IE.Refresh



' Check that Page of IE present during 20 sec



For i = 1 To 21


If Page.Exists Then Exit For


If i = 21 Then

Log.Error("Page not Exists")

Exit Sub

End If

Call aqUtils.Delay(1000, "Wait page during " & i & " to 20 sec")

Next





' Go to page by URL and check full page load 


Set NewPage = Page.ToUrl("www.google.ru")






' page not loaded - exit sub


If Not NewPage.Exists Then

Log.Error("page not loaded - exit sub")

Exit Sub

End If


' some code

End Sub



Sub CloseIE

Do

If IE.Exists Then

IE.Terminate

Else

Exit Do

End If

Loop

End Sub







Function WaitMainFrameIE(Timeout)


WaitMainFrameIE = False






' Check that IEFrame present during var "Timeout"


Set IEFrame = IE.WaitWindow("IEFrame", "*", -1, Timeout)






' IEFrame not Exists - exit function


If Not IEFrame.Exists Then Exit Function






WaitMainFrameIE = True


End Function ' WaitMainFrameIE