<# .NOTES =========================================================================== FileName: spmover1.ps1 Author: SebastienQUEROL Created On: 2024/03/07 Last Updated: 2024/03/07 Organization: Version: v0.1 =========================================================================== .DESCRIPTION .DEPENDENCIES #> # ScriptBlock to Execute in STA Runspace $sbGUI = { param($BaseDir) #region Environment Setup try { Add-Type -AssemblyName System.Windows.Forms Add-Type -AssemblyName System.Drawing } catch {Update-ErrorLog -ErrorRecord $_ -Message "Exception encountered during Environment Setup."} #endregion Environment Setup #region Dot Sourcing of files $dotSourceDir = $BaseDir . "$($dotSourceDir)\Functions.ps1" . "$($dotSourceDir)\Events.ps1" #endregion Dot Sourcing of files #region Form Initialization try { ConvertFrom-WinFormsXML -Reference refs -Suppress -Xml @"

"@ } catch {Update-ErrorLog -ErrorRecord $_ -Message "Exception encountered during Form Initialization."} #endregion Form Initialization #region Event Assignment try { $Script:refs['btn_Start'].Add_Click($eventSB['btn_Start'].Click) } catch {Update-ErrorLog -ErrorRecord $_ -Message "Exception encountered during Event Assignment."} #endregion Event Assignment #region Other Actions Before ShowDialog try { Remove-Variable -Name eventSB } catch {Update-ErrorLog -ErrorRecord $_ -Message "Exception encountered before ShowDialog."} #endregion Other Actions Before ShowDialog # Show the form try {[void]$Script:refs['MainForm'].ShowDialog()} catch {Update-ErrorLog -ErrorRecord $_ -Message "Exception encountered unexpectedly at ShowDialog."} <# #region Actions After Form Closed try { } catch {Update-ErrorLog -ErrorRecord $_ -Message "Exception encountered after Form close."} #endregion Actions After Form Closed #> } #region Start Point of Execution # Initialize STA Runspace $rsGUI = [Management.Automation.Runspaces.RunspaceFactory]::CreateRunspace() $rsGUI.ApartmentState = 'STA' $rsGUI.ThreadOptions = 'ReuseThread' $rsGUI.Open() # Create the PSCommand, Load into Runspace, and BeginInvoke $cmdGUI = [Management.Automation.PowerShell]::Create().AddScript($sbGUI).AddParameter('BaseDir',$PSScriptRoot) $cmdGUI.RunSpace = $rsGUI $handleGUI = $cmdGUI.BeginInvoke() # Hide Console Window Add-Type -Name Window -Namespace Console -MemberDefinition ' [DllImport("Kernel32.dll")] public static extern IntPtr GetConsoleWindow(); [DllImport("user32.dll")] public static extern bool ShowWindow(IntPtr hWnd, Int32 nCmdShow); ' [Console.Window]::ShowWindow([Console.Window]::GetConsoleWindow(), 0) #Loop Until GUI Closure while ( $handleGUI.IsCompleted -eq $false ) {Start-Sleep -Seconds 5} # Dispose of GUI Runspace/Command $cmdGUI.EndInvoke($handleGUI) $cmdGUI.Dispose() $rsGUI.Dispose() Exit #endregion Start Point of Execution