Api Функция GetWindowsText возвращает пустую строку

@Vera_Alex · Регистрация: 02.02.2021

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

Есть простейшая программа которая ищет хендл окна.Потом я хочу убедиться, что я нашла то окно которое надо.
Но почему-то Функция GetWindowsText возвращает пустую строку Вот программа:

Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub winapi()
Dim handl As Long
handl = FindWindow(vbNullString, "Microsoft Excel - Заявки.xlsm")
MsgBox (handl)
sstr = spase(32)
 
a = GetWindowText(handl, sstr, 32)
MsgBox (sstr)
 
End

Не подскажет ли кто-нибудь в чем ошибка.

@Vera_Alex · 06.10.2022, 03:38 **[ТС]**

Здравствуйте, есть простейшая программа ищет хендл окна. Потом я хочу убедиться, что нашла то окно которое надо, но функция GetWindowsText возвращает пустую строку. Подскажите пожалуйста как решить вопрос.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal IpClassName As String, ByVal IpWindowsName As String) As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal IpString As String, ByVal cch As Long) As Long
 
Sub winapi()
Dim handl As Long
handl = FindWindow(vbNullString, "Microsoft Excel - Заявки.xlsm")
MsgBox (handl)
sstr = spase(32)
 
a = GetWindowText(handl, sstr, 32)
MsgBox (sstr)
 
End Sub

@testuser2 · 06.10.2022, 08:51

Не шарю в етом дерме, но примерно могу предположить, что дело в несоответствии битности.

@Jack Famous · 06.10.2022, 09:57

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

дело в несоответствии битности

тогда бы была ошибка, а не неправильный результат.

Vera_Alex, проверьте корректность аргументов. Вы точно передаёте то, что нужно??? Подсказать не могу - не использую. Гуглите примеры.
Навскидку - в качестве IpClassName вы передаёте строку нолевой длины, а точно так надо?

Используйте отладку правильно: сначала добейтесь, чтобы handl вернулся корректный, потом и за вторую функцию можно браться.

Добавлено через 10 минут
Функции spase нет, но есть space и опять же - вы уверены, что в качестве аргумента нужно 32 пробела?

I can · 06.10.2022, 10:18

Всё работает, проверил

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal IpClassName As String, ByVal IpWindowsName As String) As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal IpString As String, ByVal cch As Long) As Long
 
 Sub winapi()
Dim handl As Long, sstr As String, a As Long
handl = FindWindow(vbNullString, "Microsoft Excel - Заявки.xlsm")
MsgBox (handl)
sstr = Space(32)
 
a = GetWindowText(handl, sstr, 32)
MsgBox sstr
 
End Sub

@Catstail · 06.10.2022, 11:40

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

sstr = spase(32)

- ты утверждаешь, что этот код запускается?

Правильно -

Visual Basic
1
sstr=space(32)

. Разницу видишь?

@АЕ · 06.10.2022, 21:10

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

Разницу видишь?

разница космическая.
Vera_Alex, а что за функция spase?

@Vera_Alex · 07.10.2022, 02:40 **[ТС]**

I can, скажите пожалуйста, а что Вам выдает второй MsgBox строка: MsgBox (sstr)

I can · 07.10.2022, 04:56

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

что Вам выдает

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .

@testuser2 1386 / 842 / 91 Регистрация: 08.02.2017 Сообщений: 3,586 Записей в блоге: 1
	06.10.2022, 08:51
	Не шарю в етом дерме, но примерно могу предположить, что дело в несоответствии битности. 0

@Vera_Alex 0 / 0 / 0 Регистрация: 02.02.2021 Сообщений: 8
	07.10.2022, 02:40 [ТС]
	I can, скажите пожалуйста, а что Вам выдает второй MsgBox строка: MsgBox (sstr) 0