Как быстро перебрать окна по Классу

morgann55 · Регистрация: 09.02.2012

Студворк — интернет-сервис помощи студентам

Мне надо каждые 30 секунд проверять кол-во окон определённого Класса. Ищу так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Public Sub ÏîèñêÑòîëîâ1()
Dim hwnd& 
hwnd = GetWindow(GetDesktopWindow(), GW_CHILD)
   Do:
    lpClassName = Space(256): retval1 = GetClassName(hwnd, lpClassName, 256):
      If Left$(lpClassName, retval1) = KlaSto Then
         SpiSto(i) = hwnd: KolSto = KolSto + 1:
      End If
    hwnd = GetWindow(hwnd, GW_HWNDNEXT):
   Loop While hwnd <> 0:
End Sub

Но мне не нравится постоянная канитель с определением Класса КАЖДОГО окна

Ведь есть простая АПИ для поиска по классу:

Visual Basic
1
hwnd = FindWindow(KlaSto, vbNullString)

Но ОНА "останавливается" сразу после нахождения первого окна

Чего я только не пробовал, но так и не "заставил" ЕЁ перебрать все окна

Если такое возможно, то подскажите как, плз !!

@The trick · 08.09.2013, 15:06

Visual Basic
1
FindWindowEx

Добавлено через 7 минут

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
 
Private Sub Form_Load()
    Dim hwnd As Long, ClassName As String
    
    ClassName = "SciCalc"
    Do
        hwnd = FindWindowEx(0, hwnd, ClassName, vbNullString)
        If hwnd Then Debug.Print hwnd
    Loop While hwnd
End Sub

morgann55 · 08.09.2013, 17:17 **[ТС]**

The trick, Спасибо !!! Разница по времени поражает !! (как я и подозревал, видя притормаживание). Резалт на картинке...
Сверху при FindWindowEx (1000 циклов (после компиляции))

morgann55 · 08.09.2013, 19:01 **[ТС]**

Апострофф, Спасибо за правку !! Сам хотел ответить через КликПоНику, но в таком режиме отсутствует возможность прикрепить вложение (желательно доработать)
Пардон, нашёл - расширенный режим...

Новые блоги и статьи Все статьи Все блоги /
Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .

morgann55 1365 / 207 / 37 Регистрация: 09.02.2012 Сообщений: 745
	08.09.2013, 17:17 [ТС]
	The trick, Спасибо !!! Разница по времени поражает !! (как я и подозревал, видя притормаживание). Резалт на картинке... Сверху при FindWindowEx (1000 циклов (после компиляции)) Изображения 0

morgann55 1365 / 207 / 37 Регистрация: 09.02.2012 Сообщений: 745
	08.09.2013, 19:01 [ТС]
	Апострофф, Спасибо за правку !! Сам хотел ответить через КликПоНику, но в таком режиме отсутствует возможность прикрепить вложение (желательно доработать) Пардон, нашёл - расширенный режим... 0

Опции темы

Как быстро перебрать окна по Классу

Решение