GUI won't close?

[Lanturn]

Assuming I have the following script to check if a IE browser window is loaded...

If I click the button to open a new browser window and try the close the GUI before the new browser window becomes active... it would fail...

Any method around this?

expandcollapse popup

#cs
   Browser Page Loaded Checker
   ===========================
   Checks if a browser window has finished loading.
   IE Only.
#ce

#include <GuiConstants.au3>
$lastWin = WinGetTitle("")
GUICreate("Browser Page Loaded Checker", 400, 150, 0, 0, -1, $WS_EX_TOPMOST)
GUICtrlCreateLabel("Currently Active Window:", 10, 30, 120)
GUICtrlCreateLabel("Last Active Window:", 10, 60, 120)
$CurrID = GUICtrlCreateLabel("<Currently Active Window>", 150, 30, 220, 30)
$LastID = GUICtrlCreateLabel("<Last Active Window>", 150, 60, 220, 30)
$HintID = GUICtrlCreateLabel("Select the browser window as the active window to verify...", 10, 90, 380)
$BttnID = GUICtrlCreateButton("www.google.com", 10, 120, 100)
GUISetState();

$nowWin = WinGetTitle("")
GUICtrlSetData($CurrID, $nowWin)
GUICtrlSetData($LastID, $lastWin)

While 1
   $msg = GUIGetMsg()
   Select
      Case $msg = $GUI_EVENT_CLOSE
         ExitLoop
      Case $msg = $BttnID
         Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe www.google.com")
         setHint("Opening www.google.com")
         WinWaitActive("Microsoft Internet Explorer")
   EndSelect
   
   If WinGetTitle("") <> $nowWin Then
      $lastWin = $nowWin
      $nowWin = WinGetTitle("")
      GUICtrlSetData($CurrID, $nowWin)
      GUICtrlSetData($LastID, $lastWin)
   EndIf
   
   If StringInStr($nowWin, "Microsoft Internet Explorer") <> 0 Then
      If StatusbarGetText($nowWin) = "Done" Then
         setHint("The page is loaded!!")
         MsgBox(64, "Success", "Page is loaded!")
         ExitLoop
      Else
         setHint("The page isn't loaded yet...")
      EndIf
   Else
      setHint("Set an 'Internet Explorer' browser window as the active window...")
   EndIf
   
WEnd

Func setHint($msg)
   If GUICtrlRead($HintID) <> $msg Then GUICtrlSetData($HintID, $msg)
EndFunc  ;==>setHint

[zcoacoaz]

use OnEvent mode like this

expandcollapse popup

#cs
   Browser Page Loaded Checker
   ===========================
   Checks if a browser window has finished loading.
   IE Only.
#ce

#include <GuiConstants.au3>
AutoItSetOption ( "GUIOnEventMode", 1 )
$lastWin = WinGetTitle("")
GUICreate("Browser Page Loaded Checker", 400, 150, 0, 0, -1, $WS_EX_TOPMOST)
GUISetOnEvent ( $GUI_EVENT_CLOSE, "Quit" )
GUICtrlCreateLabel("Currently Active Window:", 10, 30, 120)
GUICtrlCreateLabel("Last Active Window:", 10, 60, 120)
$CurrID = GUICtrlCreateLabel("<Currently Active Window>", 150, 30, 220, 30)
$LastID = GUICtrlCreateLabel("<Last Active Window>", 150, 60, 220, 30)
$HintID = GUICtrlCreateLabel("Select the browser window as the active window to verify...", 10, 90, 380)
$BttnID = GUICtrlCreateButton("www.google.com", 10, 120, 100)
GuiCtrlSetOnEvent ( $BttnID, "BttnID_Pressed" )
GUISetState();

$nowWin = WinGetTitle("")
GUICtrlSetData($CurrID, $nowWin)
GUICtrlSetData($LastID, $lastWin)

While 1
   If WinGetTitle("") <> $nowWin Then
      $lastWin = $nowWin
      $nowWin = WinGetTitle("")
      GUICtrlSetData($CurrID, $nowWin)
      GUICtrlSetData($LastID, $lastWin)
   EndIf
   
   If StringInStr($nowWin, "Microsoft Internet Explorer") <> 0 Then
      If StatusbarGetText($nowWin) = "Done" Then
         setHint("The page is loaded!!")
         MsgBox(64, "Success", "Page is loaded!")
         ExitLoop
      Else
         setHint("The page isn't loaded yet...")
      EndIf
   Else
      setHint("Set an 'Internet Explorer' browser window as the active window...")
   EndIf
   
WEnd

Func setHint($msg)
   If GUICtrlRead($HintID) <> $msg Then GUICtrlSetData($HintID, $msg)
EndFunc ;==>setHint
   
Func Quit()
       Exit
EndFunc
   
Func ButtID_Pressed()
    Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe www.google.com")
    setHint("Opening www.google.com")
    WinWaitActive("Microsoft Internet Explorer")
EndFunc

[Lanturn]

Wouldn't WinWaitActive pause execution of the script until the window is active?

Or would events still take place?

Matt