Loop and keep a window focused until event.

[Neoborn]

Hey guys,

I have a script that launches a program called Ventrilo, it then clicks connect then waits for a popup window, well if I click to launch the app but then click away from the window the process doesn't complete because focus has been removed.

I would like to know ( I don't want to block input as I know how to do that ) how to put a loop in there to keep WinActivate until the process is complete.

expandcollapse popup

While "Window Isn't Active"
       Make the window active until it has closed the popup then can end / exit
WEnd

Here's my current code:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;   AutoIt Version: 3.1.0                                                       ;
;   Author: NeoBorn <neo underscore born at hotmail dot com>                    ;
;   Script Function: Ventrilo Launch and Close Information Box Tool.            ;
;øøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøø;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;   PseudoCode:                                                                 ;
;   1. To Open the Ventrilo program                                             ;
;   2. To Wait for a popup window                                               ;
;   3. When popup window is there close it                                      ;
;   4. Exit the program                                                         ;
;øøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøø;

#NoTrayIcon
Opt("WinTitleMatchMode", 2)
Opt("GUIOnEventMode", 1)  ; Change to OnEvent mode

Global $Vent = "Ventrilo", $Ventx = "Ventrilo.exe", $MsgDay = "Message of the Day"
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Function Calls~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
RunProgy()
ByeBye()
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Functions~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
Func RunProgy()
    Run("E:\Program Files\Ventrilo\Ventrilo.exe", "E:\Program Files\Ventrilo\", _
            @SW_SHOWDEFAULT)
    WinActive($Vent)
    WinActivate($Vent)
    GogoGadget()
EndFunc   ;==>RunProgy

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
Func GogoGadget()
    If ProcessExists($Ventx) Then
        WinActivate($Vent)
        WinActive($Vent)
        Send("!o")
        WinWaitActive($MsgDay)
        WinActivate($MsgDay)
        Send("{SPACE}")
        Exit
    Else
        If Not ProcessExists($Ventx) Or Not WinExists($Vent) Or Not WinExists($MsgDay) Then
            MsgBox(64, "Error...", "The process " & $Ventx & ", or the windows " & $Vent & " & " & $MsgDay & " do not exist!")
            Exit
        EndIf
    EndIf
EndFunc   ;==>GogoGadget
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
Func ByeBye()
    Exit
EndFunc   ;==>ByeBye

I also have some questions about Global / Local / Dim.

[Xenobiologist]

Hi,

have a look at Do until or While ... Wend.

The only thing you need to know is the break condition. e.g. the window title changes or something else.

So long,

Mega

[Neoborn]

End result

Added a while statement and controlclick. This means teh window always gets the focus etc. <3 Teh.meger

couldn't do it ( well without much frustration or giving up ) without you!

expandcollapse popup

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;   AutoIt Version: 3.1.0                                                       
;   Author: NeoBorn <neo underscore born at hotmail dot com>                    
;   Script Function: Ventrilo Launch and Close Information Box Tool.            
;øøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøø;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;   PseudoCode:                                                                 
;   1. To Open the Ventrilo program                                             
;   2. To Wait for a popup window                                               
;   3. When popup window is there close it                                      
;   4. Exit the program                                                         
;øøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøø;

#NoTrayIcon
Opt("WinTitleMatchMode", 2)
Opt("GUIOnEventMode", 1)  ; Change to OnEvent mode

Global $Vent = "Ventrilo", $Ventx = "Ventrilo.exe", $MsgDay = "Message of the Day"
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Function Calls~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
RunProgy()
ByeBye()
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Functions~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
Func RunProgy()
    Run("E:\Program Files\Ventrilo\Ventrilo.exe", "E:\Program Files\Ventrilo\", _
            @SW_SHOWDEFAULT)
    WinActive($Vent)
    WinActivate($Vent)
    GogoGadget()
EndFunc   ;==>RunProgy

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
; Changes were made to this function to loop and also use the controlclick command.

Func GogoGadget()
    While ProcessExists($Ventx)
        WinActivate($Vent)
        If WinActive($Vent) = 1 Then
            ControlClick($Vent, "C&onnect", 1009)
        EndIf
        If WinExists($MsgDay) = 1 Then
            WinClose($MsgDay)
            Exit
        EndIf
    WEnd
EndFunc   ;==>GogoGadget
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
Func ByeBye()
    Exit
EndFunc   ;==>ByeBye

Edited May 27, 2006 by Neoborn

[Xenobiologist]

quote]End result

Added a while statement and controlclick. This means teh window always gets the focus etc. <3 Teh.meger

couldn't do it ( well without much frustration or giving up ) without you! biggrin.gif[