Позиционирование размера/положения окна чужого процесса - VB

Узнай цену своей работы

Формулировка задачи:

Всем привет! Постоянно администрирую маленький сервер.. При загрузке сервера на рабочем столе присутсвуют порядка 7-8 окон. из которых 4 упорно не запоминают расположение и размер. Задался целью написать программу которая бы при нахождении окна (по тимеру), автоматически изменяла его размеры и положение. Отсюда задачи три: 1. определить по заголовку окна "окно" есть или нет... тут все просто. 2. определить размер и положение окна, если оно загружено (НЕ ЗНАЮ КАК...) 3. установить размер и положение окна, если оно загружено (НЕ ЗНАЮ КАК..) Пробовал разные соффтины. Ни одна корректно не работает на Win10/WIn2012Server Буду признателен за помощь с п. №2, 3.

Решение задачи: «Позиционирование размера/положения окна чужого процесса»

textual
Листинг программы
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private Declare Function CopyRect Lib "user32" (lpDestRect As RECT, lpSourceRect As RECT) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Sub Form_Load()
   Dim rectWindow As RECT
       GetWindowRect Me.hwnd, rectWindow
      MsgBox "Координаты: X=" & Str$(rectWindow.Left) & " Y = " & Str$(rectWindow.Top)
End Sub

Оцени полезность:

8   голосов , оценка 3.75 из 5
Похожие ответы