[VB] Aktives Fenster ermitteln und deren Prozess-ID auslesen

using System;
using System.Diagnostics;

namespace ConsoleApplication1
{
    class Program
    {
        static void Main(string[] args)
        {
            IntPtr deinHandle = Process.GetCurrentProcess().Handle;
            foreach (Process p in Process.GetProcesses())
            {
                try
                {
                    if (p.Handle == deinHandle)
                    {
                        Console.WriteLine("Prozess mit Handle {0} gefunden.\n  Id: {1}\n  Name: {2}\n  Titel des Hauptfensters: {3}", deinHandle, p.Id, p.ProcessName, p.MainWindowTitle); // oder eine andere Ausgabe
                        break;
                    }
                }
                catch (Exception e)
                {
                    Console.WriteLine("Ausnahme: {0}", e.Message);
                }
            }
            Console.Write("Drücken Sie eine Beliebige Taste um zu beenden");
            Console.ReadKey();
        }
    }
}

Imports System
Imports System.Diagnostics
 
Namespace ConsoleApplication1
    Class Program
        Shared  Sub Main(ByVal args() As String)
            Dim deinHandle As IntPtr =  Process.GetCurrentProcess().Handle 
            Dim p As Process
            For Each p In Process.GetProcesses()
                Try
                    If p.Handle = deinHandle Then
                        Console.WriteLine("Prozess mit Handle {0} gefunden.\n  Id: {1}\n  Name: {2}\n  Titel des Hauptfensters: {3}",deinHandle,p.Id,p.ProcessName,p.MainWindowTitle) 'oder andere ausgabe
                        Exit For
                    End If
                Catch e As Exception
                    Console.WriteLine("Ausnahme: {0}", e.Message)
                End Try
            Next
            Console.Write("Drücken Sie eine Beliebige Taste um zu beenden")
            Console.ReadKey()
        End Sub
    End Class
End Namespace