Nella due Sub che seguono è mostrato come sia possibile ottenere l'elenco dei processi in esecuzione o come sia possibile killare un processo in esecuzione.
'OTTENERE L'Elenco dei processi in esecuzione:
Private Sub Form_Load()
Dim obj As Object
For Each obj In GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_Process ")
Debug.Print "Name=" & obj.Name & " PID=" & obj.Handle
Next
End Sub
'KILLARE un processo
Private Sub Form_Load()
Dim obj As Object
For Each obj In GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_Process WHERE Name='calc.exe'")
Debug.Print "Name=" & obj.Name & " PID=" & obj.Handle
obj.Terminate
Next
End Sub
|