Results 1 to 1 of 1
11-21-2010, 03:04 PM #1
- Join Date
- Nov 2010
[VB.NET] Get Active Processes and Services
This kinda works much like Task manager except in this example you can't end the process / service. I do plan on actually making a slimmed down version of task manager in the future so those who get infected with malware and lose rights to use it will still be able to find out what is running and possibly stop the virus from running.
Anywho, we'll start off with our imports:
Dim processList() As Process Dim ServiceCon() As ServiceController = ServiceController.GetServices() Dim saveFile As IO.StreamWriter Dim eachline As Integer Try processList = Process.GetProcesses() For Each proc As Process In processList lst_process_list.Items.Add(proc.ProcessName) Next (proc) saveFile = New IO.StreamWriter(".\processes.txt") For i = 0 To lst_process_list.Items.Count - 1 saveFile.WriteLine(lst_process_list.Items.Item(i)) Next saveFile.Close() For Each serv As ServiceController In ServiceCon If serv.Status.ToString() = "Running" Then lst_service_list.Items.Add(serv.ServiceName) End If Next serv saveFile = New IO.StreamWriter(".\services.txt") For i = 0 To lst_service_list.Items.Count - 1 saveFile.WriteLine(lst_service_list.Items.Item(i)) Next saveFile.Close() Catch ex As Exception End Try