Imports System
Imports System.Diagnostics
Public Module modmain
   Sub Main()
      'The KPD-Team 2001
      'URL: http://www.allapi.net/dotnet/
      'E-Mail: KPDTeam@Allapi.net
      Dim running() as Process = Process.GetProcesses()
      If running.Length > 0 Then
         Dim Cnt as Integer
For Cnt = 0 to running.Length - 1
    Console.WriteLine(running(Cnt).ProcessName)
Next Cnt
      End If
   End Sub
End Module

Close this window