SetWindowText не меняет заголовок окна стороннего приложения

@Anforcer · Регистрация: 25.06.2013

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

Здравствуйте, я хочу поменять заголовок окна приложения:

VB.NET

Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As IntPtr _
                                                                               , ByVal lpString As String) As Long
 
' ************************************************
 
Dim hPanel As Long
 
 
' Ищем контейнер
hPanel = FindWindow("#32770", "User In")
If Not hPanel = 0 Then SetWindowText(hPanel, "Test")

В итоге контейнер наъодится, но имя окна меняется не на "Test", а вообще затирается. Если вместо "Test" указать Chr(81), то символ адекватно отображается.
Что не так делаю, подскажите пожалуйста.

@Yury Komar · 23.01.2016, 14:56

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

As Long

замените на Integer

@Anforcer · 23.01.2016, 15:11 **[ТС]**

Не знаю почему, но код заработал!!!

@Yury Komar · 23.01.2016, 15:15

Anforcer, потому что такое объявление было в VB6, а в VB.NET типы переменных немножко изменились... почитайте на эту тему в интернете много всего

@Yury Komar Модератор 4205 / 3288 / 498 Регистрация: 27.01.2014 Сообщений: 6,041
	23.01.2016, 14:56	2
	Сообщение от Anforcer As Long замените на Integer 1

@Anforcer 0 / 0 / 0 Регистрация: 25.06.2013 Сообщений: 124
	23.01.2016, 15:11 [ТС]	3
	Не знаю почему, но код заработал!!! 0

@Yury Komar Модератор 4205 / 3288 / 498 Регистрация: 27.01.2014 Сообщений: 6,041
	23.01.2016, 15:15	4
	Anforcer, потому что такое объявление было в VB6, а в VB.NET типы переменных немножко изменились... почитайте на эту тему в интернете много всего 2