[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Наш сайт » Visual basic » Написать текст в любом TextBox'e, зная его hwnd (Написать текст в любом TextBox'e, зная его hwnd)
Написать текст в любом TextBox'e, зная его hwnd
ilimДата: Среда, 09.11.2011, 22:31 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 680
Награды: 17
Репутация: 4
Статус: Offline
'В принципе, можно посылать текст любому окну.

Private Sub Command1_Click()
Dim r As Long
r = SendMessage(Text1.hwnd, WM_SETTEXT, 0, ByVal CStr("Привет хакер!" )
End Sub

'Добавить в модуль:

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_SETTEXT = &HC


www.ilim.kz
 
Форум » Наш сайт » Visual basic » Написать текст в любом TextBox'e, зная его hwnd (Написать текст в любом TextBox'e, зная его hwnd)
Страница 1 из 11
Поиск: