verificare se un processo è attivo in vb

[KillerPenguin]

Salve, come al solito mi trovo qui a chiedere a chi ne sa più di me sul mondo del VB.
vorrei sapere come verificare tramite VB e un processo è attivo o meno, in particolar modo vorrei che se il processo preso in questione non è attivo compia delle operazioni mentre se è attivo ne compia delle altre. Qualcuno sa dirmi come fare?

[developerwinme]

Se per attivo intendi che "un processo con il nome in questione è in esecuzione", il punto di partenza è questo: http://msdn.microsoft.com/en-us/library/z3w4xdc9.aspx

In ogni caso, per il futuro, ti segnalo che MSDN è una ottima risorsa ufficiale dove cercare materiale di buon livello per documentarti.

[KillerPenguin]

Si ma... non sto capendo come utilizzarlo... potresti farmi un esempio xFavore?

[M@ttia]

Scusa ma quale parte del link sopra non ti è chiara? C'è un esempio che mostra tutte le possibilità di cercare/selezionare i processi con nome, id, IP, ... che meglio di così non si può... Lo ri-copio qua sotto per comodità...

Codice: Seleziona tutto

Imports System
Imports System.Diagnostics
Imports System.ComponentModel


Namespace MyProcessSample
    _
   '/ <summary>
   '/ Shell for the sample.
   '/ </summary>
   Class MyProcess




      Sub BindToRunningProcesses()
         ' Get the current process.
         Dim currentProcess As Process = Process.GetCurrentProcess()


         ' Get all instances of Notepad running on the local
         ' computer.
         Dim localByName As Process() = Process.GetProcessesByName("notepad")


         ' Get all instances of Notepad running on the specifiec
         ' computer.
         ' 1. Using the computer alias (do not precede with "\\").
         Dim remoteByName As Process() = Process.GetProcessesByName("notepad", "myComputer")

         ' 2. Using an IP address to specify the machineName parameter.
         Dim ipByName As Process() = Process.GetProcessesByName("notepad", "169.0.0.0")


         ' Get all processes running on the local computer.
         Dim localAll As Process() = Process.GetProcesses()


         ' Get all processes running on the remote computer.
         Dim remoteAll As Process() = Process.GetProcesses("myComputer")


         ' Get a process on the local computer, using the process id.
         Dim localById As Process = Process.GetProcessById(1234)


         ' Get a process on a remote computer, using the process id.
         Dim remoteById As Process = Process.GetProcessById(2345, "myComputer")
      End Sub 'BindToRunningProcesses




      Shared Sub Main()

         Dim myProcess As New MyProcess()


         myProcess.BindToRunningProcesses()
      End Sub 'Main
   End Class 'MyProcess
End Namespace 'MyProcessSample

[KillerPenguin]

Scusate ma non sto proprio capendo come fare a verificare se un processo è in esecuzione o meno

ho capito che bisogna importare le istruzioni

Codice: Seleziona tutto

Imports System
Imports System.Diagnostics
Imports System.ComponentModel

ma per il resto il vuoto

[M@ttia]

Poniamo l'esempio di voler verificare se il blocco note (notepad) è in esecuzione. Con:

Codice: Seleziona tutto

Dim ListaProcessi() As Process = Process.GetProcessesByName("notepad")

ti crei un array ListaProcessi contenente tutte le istanze di "notepad" aperte in quel momento (che possono essere 0, 1 o più di una magari). Se ti basta sapere se almeno un'istanza di notepad è aperta, allora farai:

Codice: Seleziona tutto

If ListaProcessi.Count > 0 Then
   Textbox1.text = "In Esecuzione"
Else
   Textbox1.text = "Non in Esecuzione"
End If

I vari Imports credo fossero necessari per l'esempio completo sopra ma penso che anche lasciandoli via vada comunque

[developerwinme]

I vari Imports credo fossero necessari per l'esempio completo sopra ma penso che anche lasciandoli via vada comunque

Credo che System.Diagnostics gli serva comunque.

[Andy94]

System.Diagnostics non dovrebbe essere necessario, ho appena provato. Però mi permetto di apportare una correzione.
Count non è un membro di System.Array. Per ottenere la lunghezza di un array come ListaProcessi bisogna utilizzare GetLength.

Tutto il resto rimane uguale.

[KillerPenguin]

Poniamo l'esempio di voler verificare se il blocco note (notepad) è in esecuzione. Con:

Codice: Seleziona tutto

Dim ListaProcessi() As Process = Process.GetProcessesByName("notepad")

ti crei un array ListaProcessi contenente tutte le istanze di "notepad" aperte in quel momento (che possono essere 0, 1 o più di una magari). Se ti basta sapere se almeno un'istanza di notepad è aperta, allora farai:

Codice: Seleziona tutto

If ListaProcessi.Count > 0 Then
   Textbox1.text = "In Esecuzione"
Else
   Textbox1.text = "Non in Esecuzione"
End If

I vari Imports credo fossero necessari per l'esempio completo sopra ma penso che anche lasciandoli via vada comunque

Grazie mille funziona

Count non è un membro di System.Array. Per ottenere la lunghezza di un array come ListaProcessi bisogna utilizzare GetLength.

Tutto il resto rimane uguale.

ho provato a sostituire count con GetLength ma mi da errore