Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
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
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
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 19