housegod의 공부방

실행파일 1에는 폼 캡션이 "Form1" 그리고 텍스트 박스 텍스트는 "Text1"이있다고 하고
아래소스는 실행파일 2에서 실행파일 1의 텍스트 박스에 현재 시각을 넣는 소스입니다.

Private Const WM_SETTEXT = &HC
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 SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Command1_Click()
Dim FrmHwnd As Long, FrmTxt, Txt As String
FrmHwnd = FindWindow("ThunderRT6FormDC", "Form1")
FrmTxt = FindWindowEx(FrmHwnd, 0&, "ThunderRT6TextBox", "Text1")
Txt = Now
SendMessage FrmTxt, WM_SETTEXT, 0, ByVal Txt
End Sub