Gambas-it.org - Wikipedia - Contributi dell'utente [it]

Chiudere programmi esterni

2012-03-15T15:34:39Z

2.159.58.46:

Per terminare un programma esterno aperto è possibile usare '''Kill''' o '''Killall''' (a seconda delle situazioni).

Va distinto però il ''Kill'', quale metodo di ''Process'', dal ''Kill'', quale comando da utilizzare con ''Shell'' (o '' Exec'').

Caso in cui un programma esterno sia stato aperto dalla nostra applicazione.gambas, sia gestito mediante "''process''", e si intenda chiuderlo con il metodo ".Kill" di ''Process''{[[#Note|1]]}

Private hp As Process

'''Public''' Sub Form_Open()

' ''Avviamo un programma esterno e lo gestiamo come processo:''
hp = Exec["nome_programma_esterno]

'''End'''

'''Public''' Sub Button1_Click()

' ''Chiudiamo il programma esterno mediante il metodo di ''Process'': Kill:''
hp.Kill

'''End'''

Caso in cui un programma esterno non sia stato aperto dalla nostra applicazione.gambas, e non sia gestito mediante "''process''"

In questo caso potremo utilizzare due soluzioni.

1) Possiamo chiudere il programma esterno con il comando ''Killall'', lanciato con ''Shell'' (o '' Exec''), al quale passiamo il nome del programma:

'''Public''' Sub Button1_Click()

Shell "Killall ''nome_programma_esterno''"

'''End'''

2) Possiamo chiudere il programma esterno con il comando ''Kill'', lanciato con ''Shell'' (o '' Exec''), al quale passiamo il numero del PID del programma {[[#Note|2]]}.

'''Public''' Sub Button1_Click()

Shell "Kill ''numero_PID_del_programma_esterno''"

'''End'''

Caso in cui il programma esterno sia stato aperto dalla nostra applicazione.gambas, e si intenda chiuderlo con il comando ''Kill''

Possiamo avere due sotto-casi.

1) Se il programma è gestito tramite ''Process'', possiamo passare al comando ''Kill'' il numero del PID ottenuto mediante il metodo "'' .Id''" di "''Process''" con la modalità trattata in [[Individuare_ed_estrarre_il_PID_di_un_programma|questa pagina specifica]].

2) Se il programma non è gestito mediante ''Process'', allora si dovrà scegliere un altro algoritmo per individuare e raccogliere il numero del PID del prgramma esterno da chiudere.

Quello che è da sottolineare, è che in entrambi i suddetti sotto-casi il numero del PID di un programma aperto dalla nostra applicazione.gambas mediante ''Shell'' (o ''Exec''), affinché l'esecuzione del comando "''Kill''" abbia buon fine, deve essere passato a ''Kill'' incrementato di un'unità:

'''Public''' Sub Button1_Click()

Dim pidIncrementato As Integer

pidIncrementato = ''numero_PID_del_programma_esterno'' '''+ 1'''

Shell "Kill pidIncrementato"

'''End'''

==Note==
[1] Vedere al riguardo anche [[Apertura_e_chiusura_di_un_processo_mediante_"Process"|questa pagina]].

[2] Come cercare ed estrarre il PID di un programma, è stato già trattato in [[Individuare_ed_estrarre_il_PID_di_un_programma|questa pagina specifica]].{[[#Note|3]]}

[3] Potremmo utilizzare, per trovare e passare il PID di un programma aperto e non gestito mediante "''Process''", anche questo algoritmo:
'''Public''' Sub Button1_Click()

Dim riga As String
Dim plus As String[]

Shell "pgrep -f -l nome_programma_da_chiudere" To riga

plus = Split(riga, " ")

' ''Passa a Kill il primo elemento dell'array stringa,
' ''il quale, essendo parte della stringa generata dal comando "pgrep",''
' ''contiene sempre il numero del PID del programma:''
Shell "kill " & plus[0]

'''End'''

oppure quest'altro che, però, procederà in modo un po' più... ''brutale'' alla chiusura del programma:
'''Public''' Sub Button1_Click()

Dim riga As String
Dim plus As String[]
Dim b As Integer

Shell "ps -aux | grep " & "nome_programma_da_chiudere" To riga

plus = Split(riga, " ")

For b = 0 To plus.Max
' ''Passa a Kill - "forzatamente" - ed in modo distinto ogni elemento dell'array stringa.
' ''Quando Kill riceverà l'elemento contenente la stringa con il numero del PID del programma, questo si chiuderà:''
Try Shell "kill " & plus[b]
Next

'''End'''

Chiudere programmi esterni

2012-03-15T15:33:43Z

2.159.58.46:

Per terminare un programma esterno aperto è possibile usare '''Kill''' o '''Killall''' (a seconda delle situazioni).

Va distinto però il ''Kill'', quale metodo di ''Process'', dal ''Kill'', quale comando da utilizzare con ''Shell'' (o '' Exec'').

Caso in cui un programma esterno sia stato aperto dalla nostra applicazione.gambas, sia gestito mediante "''process''", e si intenda chiuderlo con il metodo ".Kill" di ''Process''{[[#Note|1]]}

Private hp As Process

'''Public''' Sub Form_Open()

' ''Avviamo un programma esterno e lo gestiamo come processo:''
hp = Exec["nome_programma_esterno]

'''End'''

'''Public''' Sub Button1_Click()

' ''Chiudiamo il programma esterno mediante il metodo di ''Process'': Kill:''
hp.Kill

'''End'''

Caso in cui un programma esterno non sia stato aperto dalla nostra applicazione.gambas, e non sia gestito mediante "''process''"

In questo caso potremo utilizzare due soluzioni.

1) Possiamo chiudere il programma esterno con il comando ''Killall'', lanciato con ''Shell'' (o '' Exec''), al quale passiamo il nome del programma:

'''Public''' Sub Button1_Click()

Shell "Killall ''nome_programma_esterno''"

'''End'''

2) Possiamo chiudere il programma esterno con il comando ''Kill'', lanciato con ''Shell'' (o '' Exec''), al quale passiamo il numero del PID del programma {[[#Note|2]]}.

'''Public''' Sub Button1_Click()

Shell "Kill ''numero_PID_del_programma_esterno''"

'''End'''

Caso in cui il programma esterno sia stato aperto dalla nostra applicazione.gambas, e si intenda chiuderlo con il comando ''Kill''

Possiamo avere due sotto-casi.

1) Se il programma è gestito tramite ''Process'', possiamo passare al comando ''Kill'' il numero del PID ottenuto mediante il metodo "'' .Id''" di "''Process''" con la modalità trattata in [[Individuare_ed_estrarre_il_PID_di_un_programma|questa pagina specifica]].

2) Se il programma non è gestito mediante ''Process'', allora si dovrà scegliere un altro algoritmo per individuare e raccogliere il numero del PID del prgramma esterno da chiudere.

Quello che è da sottolineare, è che in entrambi i suddetti sotto-casi il numero del PID di un programma aperto dalla nostra applicazione.gambas mediante ''Shell'' (o ''Exec''), affinché l'esecuzione del comando "''Kill''" abbia buon fine, deve essere passato a ''Kill'' incrementato di un'unità:

'''Public''' Sub Button1_Click()

Dim pidIncrementato As Integer

pidIncrementato = ''numero_PID_del_programma_esterno'' '''+ 1'''

Shell "Kill pidIncrementato"

'''End'''

==Note==
[1] Vedere al riguardo anche [[Apertura_e_chiusura_di_un_processo_mediante_"Process"|questa pagina]].

[2] Come cercare ed estrarre il PID di un programma, è stato già trattato in [[Individuare_ed_estrarre_il_PID_di_un_programma|questa pagina specifica]].{[[#Note|3]]}

[3] Potremmo utilizzare, per trovare e passare il PID di un programma aperto e non gestito mediante "''Process''", anche questo algoritmo:
'''Public''' Sub Button1_Click()

Dim riga As String
Dim plus As String[]

Shell "pgrep -f -l nome_programma_da_chiudere" To riga

plus = Split(riga, " ")

' ''Passa a Kill il primo elemento dell'array stringa,
' ''il quale, essendo parte della stringa generata dal comando "pgrep",''
' ''contiene sempre il numero del PID del programma:''
Shell "kill " & plus[0]

'''End'''

oppure quest'altro che, però, procederà in modo un po' più... ''brutale'' alla chiusura del programma:
'''Public''' Sub Button1_Click()

Dim riga As String
Dim plus As String[]
Dim b As Integer

Shell "ps -aux | grep " & "nome_programma_da_chiudere" To riga

plus = Split(riga, " ")

For b = 0 To plus.Max
' ''Passa a Kill - "forzatamente" - ed in modo distinto ogni elemento dell'array stringa.
' ''Quando Kill riceverà l'elemento contenente la stringa con il numero del PID del programma, questo si chiuderà:''
Try Shell "kill " & plus[b]
Next

'''End'''

Chiudere programmi esterni

2012-03-15T15:20:10Z

2.159.58.46:

Per terminare un programma esterno aperto è possibile usare '''Kill''' o '''Killall''' (a seconda delle situazioni).

Va distinto però il ''Kill'', quale metodo di ''Process'', dal ''Kill'', quale comando da utilizzare con ''Shell'' (o '' Exec'').

Caso in cui un programma esterno sia stato aperto dalla nostra applicazione.gambas, sia gestito mediante "''process''", e si intenda chiuderlo con il metodo ".Kill" di ''Process''{[[#Note|1]]}

Private hp As Process

'''Public''' Sub Form_Open()

' ''Avviamo un programma esterno e lo gestiamo come processo:''
hp = Exec["nome_programma_esterno]

'''End'''

'''Public''' Sub Button1_Click()

' ''Chiudiamo il programma esterno mediante il metodo di ''Process'': Kill:''
hp.Kill

'''End'''

Caso in cui un programma esterno non sia stato aperto dalla nostra applicazione.gambas, e non sia gestito mediante "''process''"

In questo caso potremo utilizzare due soluzioni.

1) Possiamo chiudere il programma esterno con il comando ''Killall'', lanciato con ''Shell'' (o '' Exec''), al quale passiamo il nome del programma:

'''Public''' Sub Button1_Click()

Shell "Killall ''nome_programma_esterno''"

'''End'''

2) Possiamo chiudere il programma esterno con il comando ''Kill'', lanciato con ''Shell'' (o '' Exec''), al quale passiamo il numero del PID del programma {[[#Note|2]]}.

'''Public''' Sub Button1_Click()

Shell "Kill ''numero_PID_del_programma_esterno''"

'''End'''

Caso in cui il programma esterno sia stato aperto dalla nostra applicazione.gambas, sia gestito mediante "''process''", e si intenda chiuderlo con il comando ''Kill''

Possiamo passare al comando ''Kill'' anche il PID, ottenuto con il metodo ".Id" di Process, di un programma esterno lanciato dal nostro programma.gambas e gestito mediante "''Process''".
 L'algoritmo, per ottenere il numero del PID mediante il metodo "'' .Id''" di "''Process''", è trattato in [[Individuare_ed_estrarre_il_PID_di_un_programma|questa pagina specifica]].
Come anche vediamo in quella pagina, il numero del PID di un programma aperto dalla nostra applicazione.gambas mediante ''Shell'' (o ''Exec''), affinché l'esecuzione del comando "''Kill''" abbia buon fine, deve essere passato a ''Kill'' incrementato di un'unità:

'''Public''' Sub Button1_Click()

Dim pidIncrementato As Integer

pidIncrementato = ''numero_PID_del_programma_esterno'' '''+ 1'''

Shell "Kill pidIncrementato"

'''End'''

==Note==
[1] Vedere al riguardo anche [[Apertura_e_chiusura_di_un_processo_mediante_"Process"|questa pagina]].

[2] Come cercare ed estrarre il PID di un programma, è stato già trattato in [[Individuare_ed_estrarre_il_PID_di_un_programma|questa pagina specifica]].{[[#Note|3]]}

[3] Potremmo utilizzare, per trovare e passare il PID di un programma aperto e non gestito mediante "''Process''", anche questo algoritmo:
'''Public''' Sub Button1_Click()

Dim riga As String
Dim plus As String[]

Shell "pgrep -f -l nome_programma_da_chiudere" To riga

plus = Split(riga, " ")

' ''Passa a Kill il primo elemento dell'array stringa,
' ''il quale, essendo parte della stringa generata dal comando "pgrep",''
' ''contiene sempre il numero del PID del programma:''
Shell "kill " & plus[0]

'''End'''

oppure quest'altro che, però, procederà in modo un po' più... ''brutale'' alla chiusura del programma:
'''Public''' Sub Button1_Click()

Dim riga As String
Dim plus As String[]
Dim b As Integer

Shell "ps -aux | grep " & "nome_programma_da_chiudere" To riga

plus = Split(riga, " ")

For b = 0 To plus.Max
' ''Passa a Kill - "forzatamente" - ed in modo distinto ogni elemento dell'array stringa.
' ''Quando Kill riceverà l'elemento contenente la stringa con il numero del PID del programma, questo si chiuderà:''
Try Shell "kill " & plus[b]
Next

'''End'''

Chiudere programmi esterni

2012-03-15T15:16:27Z

2.159.58.46:

Per terminare un programma esterno aperto è possibile usare '''Kill''' o '''Killall''' (a seconda delle situazioni).

Va distinto però il ''Kill'', quale metodo di ''Process'', dal ''Kill'', quale comando da utilizzare con ''Shell'' (o '' Exec'').

Caso in cui un programma esterno sia stato aperto dalla nostra applicazione.gambas, e sia gestito mediante "''process''"{[[#Note|1]]}

Private hp As Process

'''Public''' Sub Form_Open()

' ''Avviamo un programma esterno e lo gestiamo come processo:''
hp = Exec["nome_programma_esterno]

'''End'''

'''Public''' Sub Button1_Click()

' ''Chiudiamo il programma esterno mediante il metodo di ''Process'': Kill:''
hp.Kill

'''End'''

Caso in cui un programma esterno non sia stato aperto dalla nostra applicazione.gambas, e non sia gestito mediante "''process''"

In questo caso potremo utilizzare due soluzioni.

1) Possiamo chiudere il programma esterno con il comando ''Killall'', lanciato con ''Shell'' (o '' Exec''), al quale passiamo il nome del programma:

'''Public''' Sub Button1_Click()

Shell "Killall ''nome_programma_esterno''"

'''End'''

2) Possiamo chiudere il programma esterno con il comando ''Kill'', lanciato con ''Shell'' (o '' Exec''), al quale passiamo il numero del PID del programma {[[#Note|2]]}.

'''Public''' Sub Button1_Click()

Shell "Kill ''numero_PID_del_programma_esterno''"

'''End'''

Caso in cui il programma esterno sia stato aperto dalla nostra applicazione.gambas, sia gestito mediante "''process''", e si intenda chiuderlo con il comando ''Kill''

Possiamo passare al comando ''Kill'' anche il PID, ottenuto con il metodo ".Id" di Process, di un programma esterno lanciato dal nostro programma.gambas e gestito mediante "''Process''".
 L'algoritmo, per ottenere il numero del PID mediante il metodo "'' .Id''" di "''Process''", è trattato in [[Individuare_ed_estrarre_il_PID_di_un_programma|questa pagina specifica]].
Come anche vediamo in quella pagina, il numero del PID di un programma aperto dalla nostra applicazione.gambas mediante ''Shell'' (o ''Exec''), affinché l'esecuzione del comando "''Kill''" abbia buon fine, deve essere passato a ''Kill'' incrementato di un'unità:

'''Public''' Sub Button1_Click()

Dim pidIncrementato As Integer

pidIncrementato = ''numero_PID_del_programma_esterno'' '''+ 1'''

Shell "Kill pidIncrementato"

'''End'''

==Note==
[1] Vedere al riguardo anche [[Apertura_e_chiusura_di_un_processo_mediante_"Process"|questa pagina]].

[2] Come cercare ed estrarre il PID di un programma, è stato già trattato in [[Individuare_ed_estrarre_il_PID_di_un_programma|questa pagina specifica]].{[[#Note|3]]}

[3] Potremmo utilizzare, per trovare e passare il PID di un programma aperto e non gestito mediante "''Process''", anche questo algoritmo:
'''Public''' Sub Button1_Click()

Dim riga As String
Dim plus As String[]

Shell "pgrep -f -l nome_programma_da_chiudere" To riga

plus = Split(riga, " ")

' ''Passa a Kill il primo elemento dell'array stringa,
' ''il quale, essendo parte della stringa generata dal comando "pgrep",''
' ''contiene sempre il numero del PID del programma:''
Shell "kill " & plus[0]

'''End'''

oppure quest'altro che, però, procederà in modo un po' più... ''brutale'' alla chiusura del programma:
'''Public''' Sub Button1_Click()

Dim riga As String
Dim plus As String[]
Dim b As Integer

Shell "ps -aux | grep " & "nome_programma_da_chiudere" To riga

plus = Split(riga, " ")

For b = 0 To plus.Max
' ''Passa a Kill - "forzatamente" - ed in modo distinto ogni elemento dell'array stringa.
' ''Quando Kill riceverà l'elemento contenente la stringa con il numero del PID del programma, questo si chiuderà:''
Try Shell "kill " & plus[b]
Next

'''End'''

Chiudere programmi esterni

2012-03-15T15:15:23Z

2.159.58.46:

Per terminare un programma esterno aperto è possibile usare '''Kill''' o '''Killall''' (a seconda delle situazioni).

Va distinto però il ''Kill'', quale metodo di ''Process'', dal ''Kill'', quale comando da utilizzare con ''Shell'' (o '' Exec'').

Caso in cui un programma esterno sia stato aperto dalla nostra applicazione.gambas, e sia gestito mediante "''process''"{[[#Note|1]]}

Private hp As Process

'''Public''' Sub Form_Open()

' ''Avviamo un programma esterno e lo gestiamo come processo:''
hp = Exec["nome_programma_esterno]

'''End'''

'''Public''' Sub Button1_Click()

' ''Chiudiamo il programma esterno mediante il metodo di ''Process'': Kill:''
hp.Kill

'''End'''

Caso in cui un programma esterno non sia stato aperto dalla nostra applicazione.gambas, e non sia gestito mediante "''process''"

In questo caso potremo utilizzare due soluzioni.

1) Possiamo chiudere il programma esterno con il comando ''Killall'', lanciato con ''Shell'' (o '' Exec''), al quale passiamo il nome del programma:

'''Public''' Sub Button1_Click()

Shell "Killall ''nome_programma_esterno''"

'''End'''

2) Possiamo chiudere il programma esterno con il comando ''Kill'', lanciato con ''Shell'' (o '' Exec''), al quale passiamo il numero del PID del programma {[[#Note|2]]}.

'''Public''' Sub Button1_Click()

Shell "Kill ''numero_PID_del_programma_esterno''"

'''End'''

Caso in cui il programma esterno sia stato aperto dalla nostra applicazione.gambas, sia gestito mediante "''process''", e si intenda chiuderlo con il comando ''Kill''

Possiamo passare al comando ''Kill'' anche il PID, ottenuto con il metodo ".Id" di Process, di un programma esterno lanciato dal nostro programma.gambas e gestito mediante "''Process''".
 L'algoritmo, per ottenere il numero del PID mediante il metodo "'' .Id''" di "''Process''", è trattato in [[Individuare_ed_estrarre_il_PID_di_un_programma|questa pagina specifica]].
Come anche vediamo in quella pagina, il numero del PID di un programma aperto dalla nostra applicazione.gambas mediante ''Shell'' (o ''Exec''), affinché l'esecuzione del comando "''Kill''" abbia buon fine, deve essere passato a ''Kill'' incrementato di un'unità:

'''Public''' Sub Button1_Click()

Dim pidIncrementato As Integer

pidIncrementato = ''numero_PID_del_programma_esterno'' + 1

Shell "Kill pidIncrementato"

'''End'''

==Note==
[1] Vedere al riguardo anche [[Apertura_e_chiusura_di_un_processo_mediante_"Process"|questa pagina]].

[2] Come cercare ed estrarre il PID di un programma, è stato già trattato in [[Individuare_ed_estrarre_il_PID_di_un_programma|questa pagina specifica]].{[[#Note|3]]}

[3] Potremmo utilizzare, per trovare e passare il PID di un programma aperto e non gestito mediante "''Process''", anche questo algoritmo:
'''Public''' Sub Button1_Click()

Dim riga As String
Dim plus As String[]

Shell "pgrep -f -l nome_programma_da_chiudere" To riga

plus = Split(riga, " ")

' ''Passa a Kill il primo elemento dell'array stringa,
' ''il quale, essendo parte della stringa generata dal comando "pgrep",''
' ''contiene sempre il numero del PID del programma:''
Shell "kill " & plus[0]

'''End'''

oppure quest'altro che, però, procederà in modo un po' più... ''brutale'' alla chiusura del programma:
'''Public''' Sub Button1_Click()

Dim riga As String
Dim plus As String[]
Dim b As Integer

Shell "ps -aux | grep " & "nome_programma_da_chiudere" To riga

plus = Split(riga, " ")

For b = 0 To plus.Max
' ''Passa a Kill - "forzatamente" - ed in modo distinto ogni elemento dell'array stringa.
' ''Quando Kill riceverà l'elemento contenente la stringa con il numero del PID del programma, questo si chiuderà:''
Try Shell "kill " & plus[b]
Next

'''End'''

Chiudere programmi esterni

2012-03-15T15:14:18Z

2.159.58.46:

Per terminare un programma esterno aperto è possibile usare '''Kill''' o '''Killall''' (a seconda delle situazioni).

Va distinto però il ''Kill'', quale metodo di ''Process'', dal ''Kill'', quale comando da utilizzare con ''Shell'' (o '' Exec'').

Caso in cui un programma esterno sia stato aperto dalla nostra applicazione.gambas, e sia gestito mediante "''process''"{[[#Note|1]]}

Private hp As Process

'''Public''' Sub Form_Open()

' ''Avviamo un programma esterno e lo gestiamo come processo:''
hp = Exec["nome_programma_esterno]

'''End'''

'''Public''' Sub Button1_Click()

' ''Chiudiamo il programma esterno mediante il metodo di ''Process'': Kill:''
hp.Kill

'''End'''

Caso in cui un programma esterno non sia stato aperto dalla nostra applicazione.gambas, e non sia gestito mediante "''process''"

In questo caso potremo utilizzare due soluzioni.

1) Possiamo chiudere il programma esterno con il comando ''Killall'', lanciato con ''Shell'' (o '' Exec''), al quale passiamo il nome del programma:

'''Public''' Sub Button1_Click()

Shell "Killall ''nome_programma''"

'''End'''

2) Possiamo chiudere il programma esterno con il comando ''Kill'', lanciato con ''Shell'' (o '' Exec''), al quale passiamo il numero del PID del programma {[[#Note|2]]}.

'''Public''' Sub Button1_Click()

Shell "Kill ''numero_PID_del_programma''"

'''End'''

Caso in cui il programma esterno sia stato aperto dalla nostra applicazione.gambas, sia gestito mediante "''process''", e si intenda chiuderlo con il comando ''Kill''

Possiamo passare al comando ''Kill'' anche il PID, ottenuto con il metodo ".Id" di Process, di un programma esterno lanciato dal nostro programma.gambas e gestito mediante "''Process''".
 L'algoritmo, per ottenere il numero del PID mediante il metodo "'' .Id''" di "''Process''", è trattato in [[Individuare_ed_estrarre_il_PID_di_un_programma|questa pagina specifica]].
Come anche vediamo in quella pagina, il numero del PID di un programma aperto dalla nostra applicazione.gambas mediante ''Shell'' (o ''Exec''), affinché l'esecuzione del comando "''Kill''" abbia buon fine, deve essere passato a ''Kill'' incrementato di un'unità:

'''Public''' Sub Button1_Click()

Dim pidIncrementato As Integer

pidIncrementato = ''numero_del_PID'' + 1

Shell "Kill pidIncrementato"

'''End'''

==Note==
[1] Vedere al riguardo anche [[Apertura_e_chiusura_di_un_processo_mediante_"Process"|questa pagina]].

[2] Come cercare ed estrarre il PID di un programma, è stato già trattato in [[Individuare_ed_estrarre_il_PID_di_un_programma|questa pagina specifica]].{[[#Note|3]]}

[3] Potremmo utilizzare, per trovare e passare il PID di un programma aperto e non gestito mediante "''Process''", anche questo algoritmo:
'''Public''' Sub Button1_Click()

Dim riga As String
Dim plus As String[]

Shell "pgrep -f -l nome_programma_da_chiudere" To riga

plus = Split(riga, " ")

' ''Passa a Kill il primo elemento dell'array stringa,
' ''il quale, essendo parte della stringa generata dal comando "pgrep",''
' ''contiene sempre il numero del PID del programma:''
Shell "kill " & plus[0]

'''End'''

oppure quest'altro che, però, procederà in modo un po' più... ''brutale'' alla chiusura del programma:
'''Public''' Sub Button1_Click()

Dim riga As String
Dim plus As String[]
Dim b As Integer

Shell "ps -aux | grep " & "nome_programma_da_chiudere" To riga

plus = Split(riga, " ")

For b = 0 To plus.Max
' ''Passa a Kill - "forzatamente" - ed in modo distinto ogni elemento dell'array stringa.
' ''Quando Kill riceverà l'elemento contenente la stringa con il numero del PID del programma, questo si chiuderà:''
Try Shell "kill " & plus[b]
Next

'''End'''