Visual Basic 6 - controllare esistenza processo

Forum - Visual Basic 6 - controllare esistenza processo

fa1212 (Normal User)
Pro

Messaggi: 101
Iscritto: 09/10/2008

Postato alle 19:02
Venerdì, 20/11/2009

Salve a tutti, tempo fa su internet avevo trovato 5-6 righe di codice vb6 che permetevano di controllare se un processo era attivo e di terminarlo. Pultroppo ho smarrito il files e quindi mi apello a voi.

Non vorrei il seguente codice:

Codice sorgente - presumibilmente Visual Basic 6

For Each obj In GetObject("winmgmts:").ExecQuery("select * fromWin32_Process WHERE Name='nomeprocesso.exe'")
 
     obj.Terminate
 
Next

perchè non mi permette di eseguire altre operazioni se il processo è stato trovato. (la mia esigenza sarebbe quella di mostrare una msgbox se un processo viene trovato attivo)

Grazie mille

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 19:25
Venerdì, 20/11/2009

in un array inserisci tutti i processi attivi e con un ciclo vedi se c'è anche quello ricercato...

Codice sorgente - presumibilmente VB.NET

Option Explicit
 
Private Const TH32CS_SNAPPROCESS = &H2
Private Const MAX_PATH As Integer = 260
 
Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * MAX_PATH
End Type
 
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function Process32First Lib "kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Sub CloseHandle Lib "kernel32" (ByVal hObject As Long)
 
Private Sub Command1_Click()
Dim hSnapShot As Long
Dim uProcess As PROCESSENTRY32
Dim lngRet As Long
dim arr(1 to 100) as string, x as integer
 
hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0&)
uProcess.dwSize = Len(uProcess)
lngRet = Process32First(hSnapShot, uProcess)
lbprocessi.Clear
Do While lngRet
x = x + 1
arr(x) = Left$(uProcess.szExeFile, InStr(1, uProcess.szExeFile, vbNullChar) - 1)
lngRet = Process32Next(hSnapShot, uProcess)
Loop
CloseHandle hSnapShot
end sub

il ciclo per il "controllo" implementalo tu...

fa1212 (Normal User)
Pro

Messaggi: 101
Iscritto: 09/10/2008

Postato alle 19:42
Venerdì, 20/11/2009

LOL, sono un botto di righe di codice per controllare l'esistenza di un processo...
comunque grazie

Ultima modifica effettuata da fa1212 il 20/11/2009 alle 20:11

fa1212 (Normal User)
Pro

Messaggi: 101
Iscritto: 09/10/2008

Postato alle 20:01
Venerdì, 20/11/2009

Grazie mille
Direi che ho trovato un alternativa valida, contrariamente a quanto detto, il codice che ho postato per primo se modificato funziona! non te la prendere XD, ero appena tornato da scuola ed ero alquanto rincoglionito!!:

Codice sorgente - presumibilmente VB.NET

Dim Process, strObject
strObject = "winmgmts://"
For Each Process In GetObject(strObject).InstancesOf("win32_process")
If Process.Name = "firefox.exe" Then
MsgBox ("firefox is running.")
End If
Next

Ultima modifica effettuata da fa1212 il 20/11/2009 alle 20:09

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 10:46
Sabato, 21/11/2009

tranquillo, questa volta io volevo aiutare te, invece alla fine ti sei "aiutato" da solo e mi hai insegnato una cosa nuova =)

fa1212 (Normal User)
Pro

Messaggi: 101
Iscritto: 09/10/2008

Postato alle 14:22
Domenica, 22/11/2009

XD
ricordati solo che siccome il codice utilizza le librerie winmgmt funzionerà automaticamente su tutti i pc con win xp o superiore mentre per gli altri sono da scaricare le librerie dal sito microsoft!