Управление окнами приложений

[aave]

Часто приходится организовывать видеоконференции и собирать окна веб-камер участников на дополнительном рабочем столе. Делать это вручную довольно муторно, т.к. участников может быть более 20-ти, кто-то постоянно присоединяется, кто-то выходит из конференции. Используются разные программы для конференций типа Yahoo Messenger, TeamTalk и другие. Хочу написать программу, которая бы располагала заданные мною программные окна в определённом месте экрана, задавала им размер, и т.п.

Возможно ли в принципе реализовать подобную задачу на VB.NET? Вообще существуют возможности, позволяющие управлять окнами сторонних приложений? Куда мне рыть? Спасибо!

[Admiralisimys]

aave возможно благодаря Win32 функции MoveWindow, которое не только позволяет задать положение окна но и его размер.
Синтаксис на VB.NET

Код: Выделить всё

'объявление
Private Declare Function MoveWindow Lib "user32" Alias "MoveWindow" (ByVal hWnd As IntPtr, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal bRepaint As Boolean) As Boolean
'...
'использование
MoveWindow(hWindow, LocationX, LocationY, SizeX, SizeY, True)


[aave]

Спасибо большое!
По наводке нашёл рабочий пример, сделал всё на его основе - всё отлично работает!

Код: Выделить всё

<DllImport("user32.dll", EntryPoint:="FindWindow", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function FindWindowByCaption(ByVal zero As IntPtr, ByVal lpWindowName As String) As IntPtr
    End Function

    <DllImport("user32.dll")> _
    Private Shared Function GetWindowRect(ByVal hWnd As HandleRef, ByRef lpRect As RECT) As Boolean
    End Function

    Private Declare Function MoveWindow Lib "user32.dll" (ByVal hwnd As IntPtr, ByVal x As IntPtr, ByVal y As IntPtr, ByVal nWidth As IntPtr, ByVal nHeight As IntPtr, ByVal bRepaint As IntPtr) As Boolean

    Public Structure rect
        Public Left As Integer
        Public Top As Integer
        Public Right As Integer
        Public Bottom As Integer
    End Structure

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Shell("calc.exe")
        Dim r As New rect
        Dim hw As IntPtr = FindWindowByCaption(IntPtr.Zero, "Калькулятор")
        Dim hr As New HandleRef(Nothing, hw)
        GetWindowRect(hr, r)
        MoveWindow(hw, 0, 0, 300, 500, True)
    End Sub