заполнить текст бокс в другом окне

[v-adix]

как заполнить текст бокс в другом окне? точнее какой использовать message и как определить handle текст бокса ?

[GSerg]

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

Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

[v-adix]

может пояснишь написанное? вырезать кусок кода из API Guide я тоже могу

[GSerg]

Я фигею... Имеет api-guide и не юзает его по назначению...

Ищется окно по заголовку через findwindow. Ищется текстбокс через findwindowex. Устанавливается текст через setwindowtext.

[v-adix]

спасибо щас попробую !

[v-adix]

я не рабобрался с параметрами findwindowex! помогите!

[v-adix]

ну помогите же! срочно нужно!

[alibek]

Ну блин...
Разжевать надо? В API-Guide и так пюре подается.
Нашел FindWindow, запомнил в hWindow.
В FindWindowEx первый параметр - hWindow, второй параметр указываешь null (он полезен, чтобы перебирать все контролы), третий и четвертый параметр - класс и текст окна. Если точно не знаешь третий и четвертый параметр, то придется делать перебор, запоминая полученные значения и подставляя их как второй параметр. Получаешь hControl.
Подсовываешь hControl вместе с текстом в SetWindowText.

[v-adix]

а как я узнаю что это действительно тот контрол какой нужен? вдруг я получу handle например лэйбла? хотя в окне всего 2 текст бокса + лэйбл и пикчер бокс... можно как нибудь перебирать только текст боксы?

[A.A.Z.]

Label - lightweight - не имеет хендла.
PictureBox отсеиваем по lpClassName.
TextBox'ы перебираем.

[v-adix]

сделал всё как сказал alibek. получилось, но поменялись названия всех кнопок и лэйблов! а текст бокс (он в окне один) не поменялся!
код:

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

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Sub Form_Load()
Dim x As Long
Dim y As Long
Dim z As Long
Dim arr() As Long
x = FindWindow(vbNullString, "title okna")
y = FindWindowEx(x, 0, vbNullString, vbNullString)

Do While y <> 0
    z = z + 1
    ReDim Preserve arr(z)
    arr(z) = y
    DoEvents
    y = FindWindowEx(x, arr(z), vbNullString, vbNullString)
Loop

For x = 1 To UBound(arr)
    SetWindowText arr(x), "privet"
Next x
End Sub

[/quote]

[alibek]

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

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWndParent As Long, ByVal hWndChildAfter As Long, ByVal lpszClass As String, ByVal lpszWindow As String) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String) As Long

Private Sub Form_Load()
Dim H As Long, H0 As Long, C As String, ret As Long
H0 = FindWindow(vbNullString, "title okna")
H = 0&
Do
  H = FindWindowEx(H0, H, vbNullString, vbNullString)
  If H = 0 Then Exit Do
  C = Space$(256)
  ret = GetClassName(H, C, Len(C))
  C = Left$(C, ret)
  If C Like "*Edit*" Then
    SetWindowText H, "privet"
    'Refresh
  End If 
Until
End Sub


На место рефреша помоему надо вставить какую-то APIшку, уведомляющую окно о том, что его содержимое надо перерисовать (не помню точно, искать долго).

[v-adix]

хорошо а как по хэндлу узнать что это именно текстбокс? и ещё желательно определить ширину текстбокса. какие API использовать для этого?

[alibek]

GetWindowRect, GetClassName

[v-adix]

всё получилось. осталось только разобраться с Refresh...