Advise for a Loop Statement

[coucou]

Hi,

I buid the here bellow a small AutoInstall file. It shoulld work, but time to time one of the window or both doesn't close (WinClose).

May someone advise how to use a Loop Statement. Something like

Do (the Winclose)

Until (the window is closed)

Run("exeicosetup.exe /S")
sleep(2000)

If WinExists("C:\Documents and Settings\Administrator\Start Menu\Programs\Executable File Icons Changer") Then
WinClose("C:\Documents and Settings\Administrator\Start Menu\Programs\Executable File Icons Changer")
EndIf

sleep(1000)
If WinExists("C:\Program Files\ExeIco\Readme.txt - Notepad") Then
WinClose("C:\Program Files\ExeIco\Readme.txt - Notepad")
EndIf

Regards

coucou

[big_daddy]

If the windows always open then you could use this:

Run("exeicosetup.exe /S")
WinWait("C:\Documents and Settings\Administrator\Start Menu\Programs\Executable File Icons Changer")
WinClose("C:\Documents and Settings\Administrator\Start Menu\Programs\Executable File Icons Changer")
WinWait("C:\Program Files\ExeIco\Readme.txt - Notepad")
WinClose("C:\Program Files\ExeIco\Readme.txt - Notepad")

[Methos]

Hi,

I buid the here bellow a small AutoInstall file. It shoulld work, but time to time one of the window or both doesn't close (WinClose).

May someone advise how to use a Loop Statement. Something like

Do (the Winclose)

Until (the window is closed)

Run("exeicosetup.exe /S")
sleep(2000)

If WinExists("C:\Documents and Settings\Administrator\Start Menu\Programs\Executable File Icons Changer") Then
WinClose("C:\Documents and Settings\Administrator\Start Menu\Programs\Executable File Icons Changer")
EndIf

sleep(1000)
If WinExists("C:\Program Files\ExeIco\Readme.txt - Notepad") Then
WinClose("C:\Program Files\ExeIco\Readme.txt - Notepad")
EndIf

Regards

coucou

try something like this

While WinExists("windowname")
 WinClose("windowname")
Wend

that will close that window, until no windows with that name exist.

[MHz]

Opt('WinTitleMatchMode', 2)
$pid = Run("exeicosetup.exe /S")
sleep(2000)
While ProcessExists($pid)
    If WinExists("Executable File Icons Changer") Then
        WinClose("Executable File Icons Changer")
    EndIf
    sleep(1000)
    If WinExists("Readme.txt - Notepad") Then
        WinClose("Readme.txt - Notepad")
    EndIf
WEnd
Sleep(2000)

This will cover the duration of the installation. SubString setting for window titles may make it easier also.

[coucou]

TNX all,

Yr advises certainly works, I received them after solving the problem.

Here my file

Run("exeicosetup.exe /S")
sleep(2000)

$1 = WinExists("C:\Documents and Settings\Administrator\Start Menu\Programs\Executable File Icons Changer")
$2 = ProcessExists("notepad.exe")

Do
   If $1 = 1 OR $2 = 1 Then
    WinClose("C:\Documents and Settings\Administrator\Start Menu\Programs\Executable File Icons Changer")
    sleep(2000)
    ProcessClose("notepad2.exe")

   EndIf

Until $1 = 0 AND $2 = 0

Regards

coucou

[skippynz]

TNX all,

Yr advises certainly works, I received them after solving the problem.

Here my file

Run("exeicosetup.exe /S")
sleep(2000)

$1 = WinExists("C:\Documents and Settings\Administrator\Start Menu\Programs\Executable File Icons Changer")
$2 = ProcessExists("notepad.exe")

Do
   If $1 = 1 OR $2 = 1 Then
    WinClose("C:\Documents and Settings\Administrator\Start Menu\Programs\Executable File Icons Changer")
    sleep(2000)
    ProcessClose("notepad2.exe")

   EndIf

Until $1 = 0 AND $2 = 0

Regards

coucou

wouldnt you need to put in a check to see if the process or window still exist after you have done the close otherwise $1 and $2 would still be 1 ???

for example putting in the winexists and process exists after your endif ? or do i have the whole thing messed up ?

[SmOke_N]

wouldnt you need to put in a check to see if the process or window still exist after you have done the close otherwise $1 and $2 would still be 1 ???

for example putting in the winexists and process exists after your endif ? or do i have the whole thing messed up ?

Until $1 = 0 AND $2 = 0

Won't leave the loop until the statement is true.

Edit:

Do
   If WinExists("C:\Documents and Settings\Administrator\Start Menu\Programs\Executable File Icons Changer") OR ProcessExists("notepad.exe") Then
    WinClose("C:\Documents and Settings\Administrator\Start Menu\Programs\Executable File Icons Changer")
    Sleep(2000)
    ProcessClose("notepad2.exe")
   EndIf
Until Not WinExists("C:\Documents and Settings\Administrator\Start Menu\Programs\Executable File Icons Changer") AND Not ProcessExists("notepad.exe")

Is basically what they are trying to do. Edited February 9, 2006 by SmOke_N