Public Class Form1
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
Dim processos As Process
For Each processos In Process.GetProcesses
ListBox1.Items.Add("ID: "
& processos.Id & " / Nome: "
& processos.ProcessName & " / Esta
funcionando? " & processos.Responding)
Next
End Sub
End Class
0 comentários:
Postar um comentário