Started working on Win32 Host

Author: ShortDevelopment

VBAudioRouter.Host/Program.cs

@@ -0,0 +1,68 @@
+using Microsoft.Toolkit.Forms.UI.XamlHost;
+using System;
+using System.Drawing;
+using System.Windows.Forms;
+using Windows.UI.Xaml;
+using Application = System.Windows.Forms.Application;
+
+namespace VBAudioRouter.Host
+{
+    static class Program
+    {
+        [STAThread]
+        static void Main()
+        {
+            Application.SetHighDpiMode(HighDpiMode.PerMonitorV2);
+            Application.EnableVisualStyles();
+            Application.SetCompatibleTextRenderingDefault(false);
+
+            XamlWindow<WelcomePage> window = new();
+            window.Show();
+            using (new App())
+            {
+                window.InitializeXamlContent();
+                Application.Run(window);
+            }
+        }
+    }
+
+    class XamlWindow<T> : Form where T : UIElement
+    {
+        public WindowsXamlHost XamlHost { get; private set; }
+        public void InitializeXamlContent()
+        {
+            this.SuspendLayout();
+
+            XamlHost = new();
+            XamlHost.Dock = DockStyle.Fill;
+            XamlHost.Child = Activator.CreateInstance<T>();
+            this.Controls.Add(XamlHost);
+
+            this.ResumeLayout(false);
+            this.PerformLayout();
+
+            SplashScreenVisible = false;
+            this.Refresh();
+        }
+
+        #region SplashScreen
+        public bool SplashScreenVisible { get; private set; } = true;
+        public void ShowSplashScreen()
+        {
+            SplashScreenVisible = true;
+            this.Refresh();
+        }
+
+        protected override void OnPaint(PaintEventArgs e)
+        {
+            if (SplashScreenVisible)
+                using (Graphics g = e.Graphics)
+                {
+                    g.Clear(Color.Red);
+                }
+            else
+                base.OnPaint(e);
+        }
+        #endregion
+    }
+}

VBAudioRouter.Host/VBAudioRouter.Host.csproj

@@ -0,0 +1,20 @@
+<Project Sdk="Microsoft.NET.Sdk.WindowsDesktop">
+
+	<PropertyGroup>
+		<OutputType>WinExe</OutputType>
+		<TargetFramework>netcoreapp3.1</TargetFramework>
+		<UseWindowsForms>true</UseWindowsForms>
+		<AssetTargetFallback>uap10.0.19041</AssetTargetFallback>
+		<LangVersion>9</LangVersion>
+		<Platforms>AnyCPU;x64</Platforms>
+	</PropertyGroup>
+
+	<ItemGroup>
+		<PackageReference Include="Microsoft.Toolkit.Forms.UI.XamlHost" Version="6.1.2" />
+	</ItemGroup>
+
+	<ItemGroup>
+		<ProjectReference Include="..\VBAudioRouter.UWP\VBAudioRouter.UWP.vbproj" />
+	</ItemGroup>
+
+</Project>

VBAudioRouter.Package/Images/LockScreenLogo.scale-200.png

@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="utf-8"?>
+
+<Package
+  xmlns="http://schemas.microsoft.com/appx/manifest/foundation/windows10"
+  xmlns:uap="http://schemas.microsoft.com/appx/manifest/uap/windows10"
+  xmlns:rescap="http://schemas.microsoft.com/appx/manifest/foundation/windows10/restrictedcapabilities"
+  IgnorableNamespaces="uap rescap">
+
+  <Identity
+    Name="373dc081-e2cd-4c79-84f4-b99c81d121ac"
+    Publisher="CN=lukas"
+    Version="1.0.0.0" />
+
+  <Properties>
+    <DisplayName>VBAudioRouter.Package</DisplayName>
+    <PublisherDisplayName>lukas</PublisherDisplayName>
+    <Logo>Images\StoreLogo.png</Logo>
+  </Properties>
+
+  <Dependencies>
+    <TargetDeviceFamily Name="Windows.Universal" MinVersion="10.0.0.0" MaxVersionTested="10.0.0.0" />
+    <TargetDeviceFamily Name="Windows.Desktop" MinVersion="10.0.14393.0" MaxVersionTested="10.0.14393.0" />
+  </Dependencies>
+
+  <Resources>
+    <Resource Language="x-generate"/>
+  </Resources>
+
+  <Applications>
+    <Application Id="App"
+      Executable="$targetnametoken$.exe"
+      EntryPoint="$targetentrypoint$">
+      <uap:VisualElements
+        DisplayName="VBAudioRouter.Package"
+        Description="VBAudioRouter.Package"
+        BackgroundColor="transparent"
+        Square150x150Logo="Images\Square150x150Logo.png"
+        Square44x44Logo="Images\Square44x44Logo.png">
+        <uap:DefaultTile Wide310x150Logo="Images\Wide310x150Logo.png" />
+        <uap:SplashScreen Image="Images\SplashScreen.png" />
+      </uap:VisualElements>
+    </Application>
+  </Applications>
+
+  <Capabilities>
+    <Capability Name="internetClient" />
+    <rescap:Capability Name="runFullTrust" />
+  </Capabilities>
+</Package>

VBAudioRouter.Package/Images/SplashScreen.scale-200.png

@@ -0,0 +1,89 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="15.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+
+  <PropertyGroup Condition="'$(VisualStudioVersion)' == '' or '$(VisualStudioVersion)' &lt; '15.0'">
+    <VisualStudioVersion>15.0</VisualStudioVersion>
+  </PropertyGroup>
+
+  <ItemGroup Label="ProjectConfigurations">
+    <ProjectConfiguration Include="Debug|x86">
+      <Configuration>Debug</Configuration>
+      <Platform>x86</Platform>
+    </ProjectConfiguration>
+    <ProjectConfiguration Include="Release|x86">
+      <Configuration>Release</Configuration>
+      <Platform>x86</Platform>
+    </ProjectConfiguration>
+    <ProjectConfiguration Include="Debug|x64">
+      <Configuration>Debug</Configuration>
+      <Platform>x64</Platform>
+    </ProjectConfiguration>
+    <ProjectConfiguration Include="Release|x64">
+      <Configuration>Release</Configuration>
+      <Platform>x64</Platform>
+    </ProjectConfiguration>
+    <ProjectConfiguration Include="Debug|ARM">
+      <Configuration>Debug</Configuration>
+      <Platform>ARM</Platform>
+    </ProjectConfiguration>
+    <ProjectConfiguration Include="Release|ARM">
+      <Configuration>Release</Configuration>
+      <Platform>ARM</Platform>
+    </ProjectConfiguration>
+    <ProjectConfiguration Include="Debug|ARM64">
+      <Configuration>Debug</Configuration>
+      <Platform>ARM64</Platform>
+    </ProjectConfiguration>
+    <ProjectConfiguration Include="Release|ARM64">
+      <Configuration>Release</Configuration>
+      <Platform>ARM64</Platform>
+    </ProjectConfiguration>
+    <ProjectConfiguration Include="Debug|AnyCPU">
+      <Configuration>Debug</Configuration>
+      <Platform>AnyCPU</Platform>
+    </ProjectConfiguration>
+    <ProjectConfiguration Include="Release|AnyCPU">
+      <Configuration>Release</Configuration>
+      <Platform>AnyCPU</Platform>
+    </ProjectConfiguration>
+  </ItemGroup>
+
+  <PropertyGroup>
+    <WapProjPath Condition="'$(WapProjPath)'==''">$(MSBuildExtensionsPath)\Microsoft\DesktopBridge\</WapProjPath>
+  </PropertyGroup>
+
+  <Import Project="$(WapProjPath)\Microsoft.DesktopBridge.props" />
+
+  <PropertyGroup>
+    <ProjectGuid>b5c5d13e-675b-4c34-bfbb-1125484cc5fd</ProjectGuid>
+    <TargetPlatformVersion>10.0.19041.0</TargetPlatformVersion>
+    <TargetPlatformMinVersion>10.0.17763.0</TargetPlatformMinVersion>
+    <DefaultLanguage>en-US</DefaultLanguage>
+    
+    <AppxPackageSigningEnabled>false</AppxPackageSigningEnabled>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <AppxManifest Include="Package.appxmanifest">
+      <SubType>Designer</SubType>
+    </AppxManifest>
+    
+  </ItemGroup>
+
+  <ItemGroup>
+    <Content Include="Images\SplashScreen.scale-200.png" />
+    <Content Include="Images\LockScreenLogo.scale-200.png" />
+    <Content Include="Images\Square150x150Logo.scale-200.png" />
+    <Content Include="Images\Square44x44Logo.scale-200.png" />
+    <Content Include="Images\Square44x44Logo.targetsize-24_altform-unplated.png" />
+    <Content Include="Images\StoreLogo.png" />
+    <Content Include="Images\Wide310x150Logo.scale-200.png" />
+  </ItemGroup>
+
+  <Import Project="$(WapProjPath)\Microsoft.DesktopBridge.targets" />
+
+  <ItemGroup>
+    <PackageReference Include="Microsoft.Windows.SDK.BuildTools" Version="10.0.19041.8" PrivateAssets="all" />
+  </ItemGroup>
+
+</Project>

VBAudioRouter.Package/Images/Square150x150Logo.scale-200.png

@@ -1,4 +1,5 @@
-<Application
+<xamlhost:XamlApplication
+    xmlns:xamlhost="using:Microsoft.Toolkit.Win32.UI.XamlHost"
     x:Class="VBAudioRouter.App"
     xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
     xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
@@ -31,4 +32,4 @@
             </controls:XamlControlsResources.MergedDictionaries>
         </controls:XamlControlsResources>
     </Application.Resources>
-</Application>
+</xamlhost:XamlApplication>

VBAudioRouter.Package/Images/Square44x44Logo.scale-200.png

@@ -1,10 +1,17 @@
-Imports VBAudioRouter.Dialogs
+Imports System.Runtime.InteropServices
+Imports Microsoft.Toolkit.Win32.UI.XamlHost
+Imports VBAudioRouter.Dialogs
 Imports VBAudioRouter.Utils
 Imports Windows.UI
 Imports Windows.UI.Core.Preview
 
 NotInheritable Class App
-    Inherits Application
+    Inherits XamlApplication
+
+    Public Sub New()
+        Initialize()
+        InitializeComponent()
+    End Sub
 
     Protected Overrides Async Sub OnLaunched(e As LaunchActivatedEventArgs)
         LaunchApp(e)

VBAudioRouter.Package/Images/Square44x44Logo.targetsize-24_altform-unplated.png

@@ -4,6 +4,7 @@ Imports VBAudioRouter.Utils
 Imports Windows.Media.Audio
 Imports Windows.Media.Core
 Imports Windows.Storage.Pickers
+Imports WinUI.Interop
 
 Namespace Controls.Nodes
 
@@ -50,6 +51,9 @@ Namespace Controls.Nodes
 
         Private Async Sub Button_Click(sender As Object, e As RoutedEventArgs)
             Dim filePicker As New FileOpenPicker()
+            If Not InteropHelper.IsUWP() Then
+                DirectCast(filePicker, NativeWindow.IInitializeWithWindow).Initialize(Process.GetCurrentProcess().MainWindowHandle)
+            End If
 #Region "Picker Init"
             filePicker.SuggestedStartLocation = PickerLocationId.MusicLibrary
             filePicker.FileTypeFilter.Add(".mp3")

VBAudioRouter/Assets/StoreLogo.backup.png renamed to VBAudioRouter.Package/Images/StoreLogo.png

@@ -22,6 +22,7 @@ Public NotInheritable Class GraphViewPage
         isLoaded = True
 
         Dim dialog As New Dialogs.OutputDeviceSelectDialog()
+        dialog.XamlRoot = Me.XamlRoot
         Await dialog.ShowAsync()
 
         Await InitAudioGraphAsync(CreateGraphSettings(dialog.SelectedRenderDevice))
@@ -56,6 +57,7 @@ Public NotInheritable Class GraphViewPage
     Public ReadOnly Property BackgroundAudioSession As ExtendedExecutionForegroundSession
 
     Private Async Function EnableBackgroundAudioAsync() As Task
+        If Not WinUI.Interop.InteropHelper.IsUWP() Then Exit Function
         _BackgroundAudioSession = New ExtendedExecutionForegroundSession()
         BackgroundAudioSession.Reason = ExtendedExecutionForegroundReason.BackgroundAudio
         BackgroundAudioSession.Description = "Play Background audio"

VBAudioRouter.Package/Images/Wide310x150Logo.scale-200.png

@@ -22,18 +22,17 @@ Public NotInheritable Class SpeakerControlPage
         Dim timer As New Timers.Timer()
         timer.Interval = 30
         AddHandler timer.Elapsed, Sub()
-                                      Dim unused = Dispatcher.RunIdleAsync(Sub()
-                                                                               Dim meters As Single() = New Single(MeterInformation.GetMeteringChannelCount() - 1) {}
-                                                                               Dim metersRef = GCHandle.Alloc(meters, GCHandleType.Pinned)
-                                                                               MeterInformation.GetChannelsPeakValues(meters.Length, metersRef.AddrOfPinnedObject)
-                                                                               metersRef.Free()
-                                                                               LeftMeter.ScaleY = meters(0)
-                                                                               RightMeter.ScaleY = meters(1)
-                                                                           End Sub)
+                                      Dim unused = Dispatcher?.RunIdleAsync(Sub()
+                                                                                Dim meters As Single() = New Single(MeterInformation.GetMeteringChannelCount() - 1) {}
+                                                                                Dim metersRef = GCHandle.Alloc(meters, GCHandleType.Pinned)
+                                                                                MeterInformation.GetChannelsPeakValues(meters.Length, metersRef.AddrOfPinnedObject)
+                                                                                metersRef.Free()
+                                                                                LeftMeter.ScaleY = meters(0)
+                                                                                RightMeter.ScaleY = meters(1)
+                                                                            End Sub)
                                   End Sub
         timer.Enabled = True
 
-        Exit Sub
         _AudioSessionManager = DirectCast(Await AudioInterfaceActivator.ActivateAudioInterfaceAsync(Of IAudioSessionManager)(deviceId), IAudioSessionManager2)
         AudioSessionManager.RegisterSessionNotification(Me)
         Dim sessionEnumerator = AudioSessionManager.GetSessionEnumerator()

VBAudioRouter.Package/Package.appxmanifest

@@ -431,6 +431,9 @@
     <PackageReference Include="Microsoft.Toolkit.Uwp.UI.Controls">
       <Version>7.1.2</Version>
     </PackageReference>
+    <PackageReference Include="Microsoft.Toolkit.Win32.UI.XamlApplication">
+      <Version>6.1.3</Version>
+    </PackageReference>
     <PackageReference Include="Microsoft.UI.Xaml">
       <Version>2.8.0-prerelease.210927001</Version>
     </PackageReference>
@@ -447,7 +450,7 @@
       <Version>1.0.38</Version>
     </PackageReference>
     <PackageReference Include="WinUI.Interop">
-      <Version>0.1.0</Version>
+      <Version>0.1.2</Version>
     </PackageReference>
   </ItemGroup>
   <PropertyGroup Condition=" '$(VisualStudioVersion)' == '' or '$(VisualStudioVersion)' &lt; '14.0' ">