Fenster mit VBS neu positionieren

function initTools() {
    [String]$SourceCode = @"  
Namespace colinardo
Public Class MyFunctions
<System.Runtime.InteropServices.StructLayoutAttribute(System.Runtime.InteropServices.LayoutKind.Sequential)> _
    Private Structure RECT
        Public left As Integer
        Public top As Integer
        Public right As Integer
        Public bottom As Integer
    End Structure

    <System.Runtime.InteropServices.DllImport("user32.dll")> _  
    Private Shared Function MoveWindow(ByVal hWnd As System.IntPtr, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal bRepaint As Boolean) As Boolean
    End Function

    <System.Runtime.InteropServices.DllImport("user32.dll")> _  
    Private Shared Function GetWindowRect(ByVal hWnd As System.IntPtr, <System.Runtime.InteropServices.Out()> ByRef lpRect As RECT) As <System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.Bool)> Boolean
    End Function

    <System.Runtime.InteropServices.DllImport("user32.dll")> _  
    Private Shared Function SetForegroundWindow(ByVal hWnd As System.IntPtr) As Boolean
    End Function

    Public Shared Function StartAppAtPosition(strPath As String, posX As Integer, posY As Integer, Optional intWidth As Integer = 0, Optional intHeight As Integer = 0) As Boolean
        Dim proc As New System.Diagnostics.Process
        Dim hwnd As System.IntPtr
        Try
            proc.StartInfo.FileName = strPath
            proc.StartInfo.WindowStyle = System.Diagnostics.ProcessWindowStyle.Normal
            proc.Start()
            proc.WaitForInputIdle(True)
            While Not proc.HasExited
                proc.Refresh()
                If proc.MainWindowHandle <> System.IntPtr.Zero Then
                    hwnd = proc.MainWindowHandle
                    System.Console.WriteLine("Window Handle: " & hwnd.ToString())  
                    Exit While
                End If
            End While
            If SetForegroundWindow(hwnd) Then
                Dim rec As RECT 'structure to get size and location   
                If GetWindowRect(hwnd, rec) Then
                    Dim sizeW As Integer
                    Dim sizeH As Integer
                    If intWidth > 0 And intHeight > 0 Then
                        sizeW = intWidth
                        sizeH = intHeight
                    Else
                        sizeW = rec.right - rec.left 'Width size  
                        sizeH = rec.bottom - rec.top 'Heigth Size  
                    End If
                    Dim ret As Boolean = MoveWindow(hwnd, posX, posY, sizeW, sizeH, True)
                    If ret Then
                        Return True
                    Else
                        Return False
                    End If
                End If
            Else
                Return False
            End If
            Return False
        Catch ex As System.Exception
            System.Console.WriteLine(ex.Message)
            Return False
        End Try
    End Function
End Class
End Namespace
"@  
 add-type -TypeDefinition $SourceCode -Language VisualBasic
}

initTools

[colinardo.MyFunctions]::StartAppAtPosition("C:\Program Files\Paint.NET\PaintDotNet.exe",200,200,640,480)