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 |