Close list of processes

[SuperDOS]

Hi,

I'm trying to add a section in a script that closes several processes before continue.

This is what I got:

Local $tasks[3] = ["calc.exe", "notepad.exe", "winword.exe"]
Local $process = ""

    For $i = 0 to UBound($tasks) - 1
        $process = ProcessList($tasks[$i])
msgbox(0,'','Closing ' & $process[1][0])
ProcessClose($process[1][1])
    Next

 

Works great but all three processes must be started or the script will fail since ProcessList doesn't get anything returned if a process isn't running.

So I get: Array variable has incorrect number of subscripts or subscript dimension range exceeded.

 

Is there any other way to solve this problem?

Have searched but not found anything useful.

 

Thanks

Edited July 25, 2014 by SuperDOS

[JLogan3o13]

How about using ProcessList:

#include <Array.au3>

$aList = ProcessList()

For $i = 1 To $aList[0][0]
    If $aList[$i][0] = "calc.exe" Then ProcessClose($aList[$i][0])
Next

Edit: If you have a bunch to look at, you could do a switch:

#For $i = 1 To $aList[0][0]
 Switch $aList[$i][0]
  Case "calc.exe", "notepad.exe", "winword.exe"
   ProcessClose($aList[$i][0])
 EndSwitch
Next

Edited July 25, 2014 by JLogan3o13

[SuperDOS]

$aList = ProcessList()

For $i = 1 To $aList[0][0]

 Switch $aList[$i][0]

  Case "calc.exe", "notepad.exe", "winword.exe"

   ProcessClose($aList[$i][0])

 EndSwitch

This did the trick! Thanks!

[JLogan3o13]

Glad to help

[SuperDOS]

BTW if I want to store the different processes in a variable and to use like

$tasks = """calc.exe"", ""notepad.exe"", ""winword.exe"""

$aList = ProcessList()

For $i = 1 To $aList[0][0]

 Switch $aList[$i][0]

  Case $tasks

   ProcessClose($aList[$i][0])

 EndSwitch

Next

how can I get it to work?

[careca]

For a string like this: $tasks = "calc.exe, notepad.exe, winword.exe"

#include <Array.au3>
$tasks = "calc.exe, notepad.exe, winword.exe"
$TaskSplit = StringSplit($tasks, ", ", 1)
;_ArrayDisplay($TaskSplit)
$ProcList = ProcessList()
;_ArrayDisplay($ProcList)
For $T = 1 To $TaskSplit[0]
    For $P = 1 To $ProcList[0][0]
        If $TaskSplit[$T] = $ProcList[$P][0] Then
            ConsoleWrite('Found: ' & $TaskSplit[$T] & ' | ' & $ProcList[$P][0] & @CRLF)
            ProcessClose($ProcList[$P][0])
        EndIf
    Next
Next

PS: can be changed for different string format

Edited July 25, 2014 by careca

[232showtime]

 

How about using ProcessList:

#include <Array.au3>

$aList = ProcessList()

For $i = 1 To $aList[0][0]
    If $aList[$i][0] = "calc.exe" Then ProcessClose($aList[$i][0])
Next

Edit: If you have a bunch to look at, you could do a switch:

#For $i = 1 To $aList[0][0]
 Switch $aList[$i][0]
  Case "calc.exe", "notepad.exe", "winword.exe"
   ProcessClose($aList[$i][0])
 EndSwitch
Next

nice now I fully understand the switch func. thanks... :thumbsup:

[SuperDOS]

For a string like this: $tasks = "calc.exe, notepad.exe, winword.exe"

#include <Array.au3>
$tasks = "calc.exe, notepad.exe, winword.exe"
$TaskSplit = StringSplit($tasks, ", ", 1)
;_ArrayDisplay($TaskSplit)
$ProcList = ProcessList()
;_ArrayDisplay($ProcList)
For $T = 1 To $TaskSplit[0]
    For $P = 1 To $ProcList[0][0]
        If $TaskSplit[$T] = $ProcList[$P][0] Then
            ConsoleWrite('Found: ' & $TaskSplit[$T] & ' | ' & $ProcList[$P][0] & @CRLF)
            ProcessClose($ProcList[$P][0])
        EndIf
    Next
Next

PS: can be changed for different string format

 

Sorry get an error running this. How come I can't use a variable with case?

[careca]

I mostly don't use case, it's not my style.

What error? is the string the one in the example?

Edited July 28, 2014 by careca

[SuperDOS]

ok, well I noticed that it had to do when copying the text of your code to the editor.

The tab-character before some of the lines wasn't converted right, after removing  the "illegal characters" it works.

Thanks!

[careca]

Not sure where you're getting at but, as i said, the code can be adjusted to remove "tab",

or other characters, it's just an example, proof of concept so to speak.

The script assumes ', ' comma with space as a separator character, but if needed, can assume only the comma ','

Then the string would have to be: $tasks = "calc.exe,notepad.exe,winword.exe" but it would work.

Edited July 28, 2014 by careca

[JLogan3o13]

Sorry get an error running this. How come I can't use a variable with case?

 

You can use a variable with case, but in this instance AutoIt sees your variable as calc.exe, notepad.exe, winword.exe. This will never match a process name, obviously, so you would have to split it. If you want a list of three or four processes, and want them in variables, you would have to do something like this:

$calc = "calc.exe"
$notepad = "notepad.exe"
$word = "winword.exe"

$aList = ProcessList()

    For $i = 1 To $aList[0][0]
        Switch $aList[$i][0]
            Case $calc
                ProcessClose($calc)
            Case $notepad
                ProcessClose($notepad)
            Case $word
                ProcessClose($word)
        EndSwitch
    Next