Imports System.ServiceProcess
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
Copyright © 2024, NextGenUpdate.
All Rights Reserved.