Я использовал для отправки строк и нажатия клавиш в окне другой программы процедуру SendKeys(handle,window$,keys$), найденную по ссылке:

https://www.purebasic.fr/english/viewtopic.php?t=3766
SendKeys procedure by PB -- do whatever you want with it. 
Syntax: r=SendKeys(handle,window$,keys$) ; r = 0 for failure.
Specify either a handle or window$ title to type to, but not both!
You cannot type curly braces { } as part of the keystrokes, sorry!

Эта процедура принимает параметрами или имя чужого окна, или его дескриптор (handle).
Практика показала, что удобнее иногда бывает отправлять строки в чужое окно по его дескриптору (handle), а не по имени окна, которые могут быть одинаковыми у разных открытых окон.

А теперь к ответу на заданный здесь вопрос о списке окон чужих программ.
Список открытых окон, видимых и скрытых, с их именами и дескрипторами (handle) я заполнял процедурой GetAllWindows(), которую увидел в книге "Программирование в PureBasic глазами хакера": "Глава 3. Система, п. 3.1. Работа с чужими окнами", и немного изменил для удобства.

Procedure GetAllWindows(hWnd, lparam) 
  name.s = Space(100) ; Резервируем  под название окна 100 символов
  GetWindowText_(hWnd, @name, 100) 
  IsWindowVisible0.l=IsWindowVisible_(hWnd)
  If IsWindowVisible0
    AddElement(WndList1())
    WndList1()\hWnd = hWnd
    WndList1()\isHidden = IsWindowVisible0
    WndList1()\NameWnd = name
  Else
    AddElement(WndList2())
    WndList2()\hWnd = hWnd
    WndList2()\isHidden = IsWindowVisible0
    WndList2()\NameWnd = name
  EndIf 
  ProcedureReturn #True 
EndProcedure 

Эту процедуру GetAllWindows() я вызывал из исходной процедуры WindowsList(), сохраняющей список открытых окон в текстовый файл, командой EnumWindows_(@GetAllWindows(), 0)

Процедура GetAllWindows(hWnd, lparam) заполняет два отдельных списка - для видимых и для скрытых окон, которые я потом сортирую по имени окна и записываю оба эти списка в один текстовый файл.

Итак, сначала я объявляю в программе структуру для сохранения списка окон и создаю два списка с типом этой структуры:

Structure WindowListInfo
  hWnd.l
  NameWnd.s
  isHidden.l
EndStructure
Global NewList WndList1.WindowListInfo()
Global NewList WndList2.WindowListInfo()

А затем в процедуре WindowsList():

  ;Заполнить списки данными открытых видимых и скрытых окон
  EnumWindows_(@GetAllWindows(), 0)

  ;Отсортировать списки по именам окон (просто для удобства поиска нужного окна в текстовом файле)
  SortStructuredList(WndList1(), #PB_Sort_Ascending, OffsetOf(WindowListInfo\hWnd), TypeOf(WindowListInfo\hWnd))
  SortStructuredList(WndList1(), #PB_Sort_Ascending|#PB_Sort_NoCase, OffsetOf(WindowListInfo\NameWnd), TypeOf(WindowListInfo\NameWnd))
  SortStructuredList(WndList2(), #PB_Sort_Ascending, OffsetOf(WindowListInfo\hWnd), TypeOf(WindowListInfo\hWnd))
  SortStructuredList(WndList2(), #PB_Sort_Ascending|#PB_Sort_NoCase, OffsetOf(WindowListInfo\NameWnd), TypeOf(WindowListInfo\NameWnd))
  
  ;записать списки в текстовую переменную и сохранить ее в файл
  sList1.s=""
  ForEach WndList1()
    sList1=sList1+StrU(WndList1()\hWnd)+Chr(9)+WndList1()\NameWnd+#LFCR$
  Next
  sList2.s=""
  ForEach WndList2()
    sList2=sList2+StrU(WndList2()\hWnd)+Chr(9)+WndList2()\NameWnd+#LFCR$
  Next

Ну, а затем я просто сохраняю эти две текстовые переменные в один текстовый файл с полным списком открытых окон: сначала видимых, а затем скрытых окон, и открываю этот файл для просмотра.

Отредактировано Nemo3001 (16.06.2024 12:41:03)

egons
Пока попробовал на windows 7, 10 и 11, работает. Использую эти процедуры в разных программах, где нужно управлять работой окон других программ - в браузерах, или в других прикладных программах.

Отредактировано Nemo3001 (13.06.2024 21:30:12)

С keybd_event_() я долго мучился пока не узнал? что в AutoIt3 используется SendKeys() и перейдя на неё стало работать как часы, без тормозов. На WinXP я годами использовал прогу на AutoIt3, а сейчас годами использую на Win10x64, ну и от пользователей не слышал проблем.

На оф.форуме стали обсуждать, чтобы выкладывать код под лицензией MIT, потому что без неё в некоторых странах можно получить иск в суд, используя чужой код.

Отредактировано AZJIO (14.06.2024 06:34:05)