Отправка сообщения окну

[beat_swamp]

итак есть окно (процесс) с именем "Auto"1
код:

Код: Выделить всё


Dim WinHwnd As Long
Dim strNumber As String 'тут хранится какой то номер
Dim RetVal As Long

Private Sub Command1_Click()
     WinHwnd = FindWindow("ThunderRT6FormDC", "Auto")
     strNumber = Text2.Text

     '??? ошибка где то тут (см строчку ниже)
     RetVal = SendMessage(WinHwnd, WM_COPYDATA, 0,strNumber)
End Sub


вобщем вопрос1 как прально отослать эту строку другому процессу? может на ошибку укажете? мож правильный код приведете?

[GSerg]

итак есть окно (процесс)

То есть это одно и то же?

как прально отослать эту строку другому процессу?

Процессу пофиг, что ему шлют. Куда именно?

мож правильный код приведете?

Ввиду большого количества флуда, исходившего от beat_swamp долгое время - вряд ли. Имхо.

[keks-n]

По просьбам флудящихся:

Код: Выделить всё


Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Private Const WM_CHAR = &H102, KeyDown = 1048577
Private Sub Form_Click()
SendMessage Text1.hwnd, WM_CHAR, Asc("a"), KeyDown
End Sub


Если не понятно, то поясню, что на форме лежит Text1, который при нажатии на форму думает, что в нём печатают.

Что либо более полезное, можно было получить, если бы не раздражал GSerg'а

[beat_swamp]

+)