| Код | Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
Private Declare Function FindWindow& Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String)
Private Declare Function FindWindowEx& Lib "user32" Alias "FindWindowExA" (ByVal hWndParrent As Long, ByVal hWndChildren As Long, ByVal lpClassName As String, ByVal lpWindowName As String)
Private Const WM_LBUTTONUP = &H202
Private Const WM_LBUTTONDOWN = &H201
'Private Declare Function PostMessage Lib "user32" _
' Alias "PostMessageA" (ByVal hwnd As Long, _
' ByVal wMsg As Long, ByVal wParam As Long, _
' ByVal lParam As Long) As Long
Private Sub Command1_Click()
Dim sCaption As String, hW As String
sCaption = "Form1"
hW = FindWindow(vbNullString, sCaption)
MsgBox "Хэндл окна = " & hW
End Sub |
Получил хэндл, а отправлять надо с помощью SendMessage? Как отправить число хэндла например в Text1.Text ? |