Get all process and thread in Visual Basic
You could get all the process running on your computer in visual basic with a very simple command. Use the Process.GetProcesses method to get almost everything on process on your Windows.
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Dim oAllProcess() As System.Diagnostics.Process Dim oProcess As System.Diagnostics.Process Dim str As String Try str = "" oAllProcess = Process.GetProcesses() For index1 = 0 To oAllProcess.Length - 6 Step 5 'oProcess = oAllProcess(index1) str = str & oAllProcess(index1).ProcessName & " " & _ oAllProcess(index1 + 1).ProcessName & " " & _ oAllProcess(index1 + 2).ProcessName & " " & _ oAllProcess(index1 + 3).ProcessName & " " & _ oAllProcess(index1 + 4).ProcessName & " " & _ oAllProcess(index1 + 5).ProcessName & vbCrLf Next Catch ex As Exception Finally MsgBox(str) End Try End Sub |
How could you get all the threads in a process?
Is very simple, use the same process method to get all the thread running under each process. Using the same loop, use the property .Threads
Here is a sample and this could give you al lot of information on threads and process on your computer:
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim oAllProcess() As System.Diagnostics.Process Dim oProcess As System.Diagnostics.Process Dim str As String Try str = "" oAllProcess = Process.GetProcesses() For index1 = 0 To oAllProcess.Length - 6 Step 5 oProcess = oAllProcess(index1) str = str & oAllProcess(index1).ProcessName & " " & oAllProcess(index1).Threads.Count & " " & _ oAllProcess(index1 + 1).ProcessName & " " & oAllProcess(index1 + 1).Threads.Count & " " & _ oAllProcess(index1 + 2).ProcessName & " " & oAllProcess(index1 + 2).Threads.Count & " " & _ oAllProcess(index1 + 3).ProcessName & " " & oAllProcess(index1 + 3).Threads.Count & " " & _ oAllProcess(index1 + 4).ProcessName & " " & oAllProcess(index1 + 4).Threads.Count & " " & _ oAllProcess(index1 + 5).ProcessName & " " & oAllProcess(index1 + 5).Threads.Count & vbCrLf 'oProcess = oAllProcess(index1).Threads.Count Next Catch ex As Exception Finally MsgBox(str) End Try End Sub |
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :
