Wait for the navigation to complete in $oIE = ObjCreate("Shell.Explorer.2")

[DarkAngelBGE]

Hi there I have a small script to embed a webbrowser. Now when I navigate to a new site, i want to Shell.Explorer object to wait for the navigation to complete. How can this be done?

#include <GUIConstants.au3>
$websiteWidth = 1200
$websiteHeight = 900

$oIE = ObjCreate("Shell.Explorer.2")
; Create a simple GUI for our output
;GUICreate ( $windowTitle, @DesktopWidth-100, @DesktopHeight-100,10, 10 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
GUICreate ( "test", @DesktopWidth-200, @DesktopHeight-200,10, 10 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$GUIActiveX       = GUICtrlCreateObj       ( $oIE,       10, 40 , $websiteWidth+20 , $websiteHeight)
$GUI_Button_Back     = GuiCtrlCreateButton  ("Back",     10, @Desktopheight-150, 100,  30)
$GUI_Button_Forward  = GuiCtrlCreateButton  ("Forward", 120, @Desktopheight-150, 100,  30)
$GUI_Button_Home     = GuiCtrlCreateButton  ("Home",    230, @Desktopheight-150, 100,  30)
$GUI_Button_Stop     = GuiCtrlCreateButton  ("Stop",    330, @Desktopheight-150, 100,  30)
$GUI_Button_Navigate = GuiCtrlCreateButton  ("Go",  1080, @Desktopheight-150, 150,  30)
$GUI_Input            = GUICtrlCreateInput    ("",830, @Desktopheight-150, 250,  30)
GUISetState ()  ;Show GUI

$oIE.navigate("http://example.org")
    
while $oIE.Busy == true
    sleep(1000)
wend;

The Busy property does not seem to work and I could not find anything useful here: http://msdn2.microsoft.com/en-us/library/aa752093.aspx

Anybody? Thanks for any help.

Edited June 19, 2007 by DarkAngelBGE

[The Kandie Man]

It was the == that you were using that caused the problem.

#include <GUIConstants.au3>
$websiteWidth = 1200
$websiteHeight = 900

$oIE = ObjCreate("Shell.Explorer.2")
; Create a simple GUI for our output
;GUICreate ( $windowTitle, @DesktopWidth-100, @DesktopHeight-100,10, 10 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
GUICreate ( "test", @DesktopWidth-200, @DesktopHeight-200,10, 10 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$GUIActiveX          = GUICtrlCreateObj       ( $oIE,         10, 40 , $websiteWidth+20 , $websiteHeight)
$GUI_Button_Back     = GuiCtrlCreateButton    ("Back",     10, @Desktopheight-150, 100,  30)
$GUI_Button_Forward  = GuiCtrlCreateButton    ("Forward",    120, @Desktopheight-150, 100,  30)
$GUI_Button_Home     = GuiCtrlCreateButton    ("Home",    230, @Desktopheight-150, 100,  30)
$GUI_Button_Stop     = GuiCtrlCreateButton    ("Stop",    330, @Desktopheight-150, 100,  30)
$GUI_Button_Navigate = GuiCtrlCreateButton    ("Go",    1080, @Desktopheight-150, 150,  30)
$GUI_Input              = GUICtrlCreateInput      ("",830, @Desktopheight-150, 250,  30)
GUISetState ()    ;Show GUI

$oIE.navigate("http://www.asdf.com")
    
while $oIE.Busy = true; single equal sign here
    sleep(1000)
wend;

Msgbox(0,"Done","The page is done loading.")

- The Kandie Man ;-)

[big_daddy]

Why not like this?

#include <IE.au3>
#include <GUIConstants.au3>

$websiteWidth = 1200
$websiteHeight = 900

_IEErrorHandlerRegister()
$oIE = _IECreateEmbedded()

GUICreate("test", @DesktopWidth - 200, @DesktopHeight - 200, 10, 10, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, $websiteWidth + 20, $websiteHeight)
$GUI_Button_Back = GUICtrlCreateButton("Back", 10, @DesktopHeight - 150, 100, 30)
$GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, @DesktopHeight - 150, 100, 30)
$GUI_Button_Home = GUICtrlCreateButton("Home", 230, @DesktopHeight - 150, 100, 30)
$GUI_Button_Stop = GUICtrlCreateButton("Stop", 330, @DesktopHeight - 150, 100, 30)
$GUI_Button_Navigate = GUICtrlCreateButton("Go", 1080, @DesktopHeight - 150, 150, 30)
$GUI_Input = GUICtrlCreateInput("", 830, @DesktopHeight - 150, 250, 30)
GUISetState()    ;Show GUI

_IENavigate($oIE, "http://example.org")

While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then Exit
    Sleep(10)
WEnd

Edited June 19, 2007 by big_daddy