Option Explicit
Private Const WM_SETTEXT As Long = &HC&
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String _
) As Long
Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" ( _
ByVal hWnd1 As Long, _
ByVal hWnd2 As Long, _
ByVal lpsz1 As String, _
ByVal lpsz2 As String _
) As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _
ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByRef lParam As Any _
) As Long
Private Sub Form_Load()
Dim hWnd As Long, hWnd2 As Long
hWnd = FindWindow("Notepad", vbNullString)
If hWnd = 0& Then Exit Sub
hWnd2 = FindWindowEx(hWnd, 0&, "Edit", vbNullString)
If hWnd2 = 0& Then Exit Sub
Call SendMessage(hWnd2, WM_SETTEXT, 0&, ByVal "test")
End Sub위의 코드를 이용하면 된다.
