Открыто ли окно?

@winkot · Регистрация: 26.10.2024

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

Как определить открыто ли окно? Например, Блокнот?
Я так понимаю, что надо использовать Result = IsWindow(#Window). Но что подставить в качестве #Window?

@locm · 26.10.2024, 15:24

Нужно перечислить все окна других приложений и найти нужное окно по заголовку (должно быть слово Блокнот) или по имени процесса (notepad.exe).

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Procedure EnumProcedure(hWnd, *Parameter.Integer)
  Protected Title.s{1024}, Res = #True
 
  If GetWindowText_(hWnd, @Title, 1024) > 0
    If FindString(LCase(Title), "блокнот")
      Res = #False
      *Parameter\i = #True
    EndIf
  EndIf
  ProcedureReturn Res
EndProcedure 
 
IsNotepad = #False
EnumWindows_(@EnumProcedure(), @IsNotepad)
 
If IsNotepad
  Debug "Окно блокнота найдено"
Else
  Debug "Окно блокнота не найдено"
EndIf

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Structure ProcInfo
  Name.s
  PID.l
EndStructure
 
Global NewList ProcList.ProcInfo()
 
Procedure ProcessList() ; Список процессов.
  Protected pe32.PROCESSENTRY32
  Protected hthSnapshot
  
  pe32\dwSize = SizeOf(PROCESSENTRY32)
  ClearList(ProcList())
  
  hthSnapshot = CreateToolhelp32Snapshot_(#TH32CS_SNAPPROCESS, 0)
  If hthSnapshot
    Process32First_(hthSnapshot, @pe32) 
    While Process32Next_(hthSnapshot, @pe32) 
      If AddElement(ProcList())
        ProcList()\Name = LCase(PeekS(@pe32\szExeFile))
        ProcList()\PID  = pe32\th32ProcessID
      EndIf
    Wend 
    CloseHandle_(hthSnapshot)
  EndIf
  
EndProcedure
 
Procedure EnumProcedure(hWnd, *Parameter.Integer)
  Protected Title.s{1024}, Res = #True, PID, ProcName.s
  If GetWindowText_(hWnd, @Title, 1024) > 0
    If GetWindowThreadProcessId_(hWnd, @PID)
      
      ProcName=""
      ForEach ProcList() ; Поиск окна которому принадлежит процесс.
        If ProcList()\PID = PID
          ProcName = ProcList()\Name
          Break
        EndIf
      Next
      
      If ProcName="notepad.exe"
        Res = #False
        *Parameter\i = #True
      EndIf
    EndIf
  EndIf
  ProcedureReturn Res
EndProcedure 
 
ProcessList() ; Список процессов.
 
IsNotepad = #False
EnumWindows_(@EnumProcedure(), @IsNotepad)
 
If IsNotepad
  Debug "Окно блокнота найдено"
Else
  Debug "Окно блокнота не найдено"
EndIf

@winkot · 26.10.2024, 18:10 **[ТС]**

Спасибо! То, что надо. А есть ли возможность управлять найденным окном? Например, сделать его активным, послать ему нажатие Enter или другую клавиатурную команду?

@locm · 26.10.2024, 20:29

Автоматизацию окон проще будет сделать через библиотеку PureAutoIt.
Запуск блокнота и активация его окна.

PureBasic
1
2
3
4
5
6
7
8
9
10
XIncludeFile "PureAutoIt.pbi"
UseModule PureAutoIt
 
; Run Notepad
Run("notepad.exe")
; Wait 10 seconds for the Notepad window to appear.
hWnd.s = Str(WinWait("[CLASS:Notepad]", "", 10))
 
; Activate the Notepad window using the handle returned by WinWait.
WinActivate(hWnd)

Ввод текста.

PureBasic
1
2
3
4
5
6
7
8
9
10
XIncludeFile "PureAutoIt.pbi"
UseModule PureAutoIt
 
; Run Notepad
Run("notepad.exe")
; Wait 10 seconds for the Notepad window to appear.
WinWait("[CLASS:Notepad]", "", 10)
 
; Simulate entering the following string and pressing the 'F5' key to input the date and time into edit control of Notepad.
Send("Текущие время и дата {F5}{Enter}")

@winkot · 27.10.2024, 18:48 **[ТС]**

Сообщение от locm

PureAutoIt.zip (168.8 Кб, 6 просмотров)

Подскажите, пожалуйста, как установить эту библиотеку в PureBasic.

@locm · 27.10.2024, 20:25

Ее не нужно устанавливать.
Из архива копируете файлы PureAutoIt.pbi, PureAutoItW.obj и PureAutoItW64.obj в папку куда сохранили файл с кодом.

@winkot · 27.10.2024, 20:35 **[ТС]**

Сообщение от locm

Из архива копируете файлы PureAutoIt.pbi, PureAutoItW.obj и PureAutoItW64.obj в папку куда сохранили файл с кодом.

А XIncludeFile и UseModule PureAutoIt надо в коде прописывать?

@locm · 27.10.2024, 20:51

Сообщение от winkot

А XIncludeFile и UseModule PureAutoIt надо в коде прописывать?

Да.
XIncludeFile подключает другой исходный файл к текущему.
UseModule позволяет использовать содержимое из указанного пространства имен без обязательного указания имени. Без последнего можно обойтись, но тогда придется указывать имя модуля.

PureBasic
1
2
3
4
5
6
7
8
XIncludeFile "PureAutoIt.pbi"
 
; Run Notepad
PureAutoIt::Run("notepad.exe")
; Wait 10 seconds for the Notepad window to appear.
hWnd.s = Str(PureAutoIt::WinWait("[CLASS:Notepad]", "", 10))
; Activate the Notepad window using the handle returned by WinWait.
PureAutoIt::WinActivate(hWnd)

А если открыть файл PureAutoIt.pbi и скопировать его содержимое, а после вставить в файл с кодом, то можно и без XIncludeFile обойтись.

@winkot · 27.10.2024, 21:13 **[ТС]**

AutoIt язык интерпретируемый. Что же получается когда мы используем его в PureBasic? Функции AutoIt вставляются в exe файл вместе с интерпретатором?

@locm · 27.10.2024, 21:23

Сообщение от winkot

Что же получается когда мы используем его в PureBasic? Функции AutoIt вставляются в exe файл вместе с интерпретатором?

Нет. От AutoIt только название, т. к. функции максимально похожи (имена и назначение). В остальном никакой связи нет.
Просто откройте файл в любом текстовом редакторе и посмотрите его.

@winkot · 27.10.2024, 21:33 **[ТС]**

Сообщение от locm

От AutoIt только название

Что то я совсем запутался. Т.е. это только имитация AutoIt? Это просто функции? написанные на PB по синтаксису похожем на AutoIt? Но почему же тогда exe файл с одной лишь функцией от AutoIt весит 1Мб, в то время как файл с такой же функцией на PB весит 200 кБ?

@locm · 27.10.2024, 21:45

Сообщение от winkot

Это просто функции? написанные на PB по синтаксису похожем на AutoIt?

Да.

Сообщение от winkot

Но почему же тогда exe файл с одной лишь функцией от AutoIt весит 1Мб, в то время как файл с такой же функцией на PB весит 200 кБ?

AutoIt интерпретируемый и exe файл содержит интерпретатор и все функции, а не только те что используются. То есть в exe файл добавляется исходный код который выполняется при запуске.
PureBasic компилируемый и exe файл создается из исходного кода и в нем только используемые функции, а не все. Тем самым размер напрямую зависит от кода.

@winkot · 28.10.2024, 09:06 **[ТС]**

Наверное я не точно задал вопрос. Я имел виду несколько иное. Создаю простейшую функцию Beep. Если это сделать средствами PB, то получится такой скрипт:

Code
1
Beep_(500,1000)

В скомпилированном виде exe файл весит 143 кБ. Если такую же функцию реализовать с помощью PureAutoIt то получится скрипт:

Code
1
2
3
4
5
6
XIncludeFile "PureAutoIt.pbi"
UseModule PureAutoIt
 
; plays back a beep noise, at the frequency 500 for 1 second
 
Beep(500, 1000)

В скомпилированном виде он весит 546 Кб. Почему же такая разница? Если исходить из того, что PureAutoIt использует те же функции, что и сам PB и только изменяет их синтаксис, то такой разницы не должно быть. А она есть.

@locm · 28.10.2024, 13:23

Сообщение от winkot

В скомпилированном виде exe файл весит 143 кБ.

Если компилировать версии 6.04 или более ранней, размер 2 КБ если это имеет значение.

Сообщение от winkot

В скомпилированном виде он весит 546 Кб.

В исполняемый файл попадают и другие функции из PureAutoIt.pbi.
Из-за них увеличивается размер.

@winkot · 28.10.2024, 15:40 **[ТС]**

Сообщение от locm

В исполняемый файл попадают и другие функции из PureAutoIt.pbi.
Из-за них увеличивается размер.

Спасибо! Теперь ясно.

Сообщение от locm

Если компилировать версии 6.04 или более ранней, размер 2 КБ

Вот это вы меня удивили! Я пользуюсь PB 6.12 и, соответственно, его же компилятором. А можно скачать отдельно компилятор версии 6.04? И еще вопрос - что же такое и ради чего разработчики сделали в более поздних компиляторах, что размер исполняемого файла увеличился в 70 раз(!) ? И ради чего это сделали?

@locm · 28.10.2024, 18:27

Сообщение от winkot

А можно скачать отдельно компилятор версии 6.04?

На официальном сайте в музее версий ~~или на рутрекере~~.

Сообщение от winkot

что же такое и ради чего разработчики сделали в более поздних компиляторах, что размер исполняемого файла увеличился в 70 раз(!) ?

https://www.purebasic.fr/blog/?p=538
Если кратко, для добавления новых функций потребовалась более свежая версия Си рантайма. Раньше она подключалась динамически (MSVCRT.dll) что существенно уменьшало размер, а начиная с версии 6.10, подключается статически.

@locm · 28.10.2024, 19:45

Адаптировал файл PureAutoIt.pbi под C backend.
Размер немного меньше стал. Файл с вызовом функции Beep имеет размер 33 КБ, а не 390 КБ.

Новые блоги и статьи Все статьи Все блоги /
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .

Открыто ли окно?

Решение

Решение

Решение

@winkot 0 / 0 / 0 Регистрация: 26.10.2024 Сообщений: 70

	Открыто ли окно? 26.10.2024, 09:48. Показов 1073. Ответов 16 Метки нет (Все метки) Как определить открыто ли окно? Например, Блокнот? Я так понимаю, что надо использовать Result = IsWindow(#Window). Но что подставить в качестве #Window? 0

@winkot 0 / 0 / 0 Регистрация: 26.10.2024 Сообщений: 70
	26.10.2024, 18:10 [ТС]
	Спасибо! То, что надо. А есть ли возможность управлять найденным окном? Например, сделать его активным, послать ему нажатие Enter или другую клавиатурную команду? 0

@winkot 0 / 0 / 0 Регистрация: 26.10.2024 Сообщений: 70
	27.10.2024, 21:13 [ТС]
	AutoIt язык интерпретируемый. Что же получается когда мы используем его в PureBasic? Функции AutoIt вставляются в exe файл вместе с интерпретатором? 0