수다닷컴

제가 만든 백구메모장 이란 프로그램을 핸들로 찾아서.. PostMessage 로 특정 글씨 (Text1.Text내용) 을 보내고싶거든요.

근데 엔터까진 성공을 했는데;; 그다음을 모르겠네요..

Call PostMessage(hwnd, WM_KEYDOWN, Text1.Text, 0%) -이건가요? ㅋㅋㅋㅋㅋㅋㅋ

아무리해두 모르겠네요... ㅜㅜ 구체적인 답변 부탁드립니다.. 알기쉽게 소스로...

밑에는 제가 만든 소스 입니다.. 참고하시길..

(참고 : 반드시 postmessage 로만 보내야됩니다..)
Option Explicit
Private Declare Function FindWindow Lib user32 Alias FindWindowA (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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 Const WM_KEYDOWN = &H100
Private Const VK_RETURN = &HD

Private Sub Command1_Click()
Dim hwnd As Long
hwnd = FindWindow(vbNullString, 백구메모장)
Call PostMessage(hwnd, WM_KEYDOWN, VK_RETURN, 0&)
End Sub

-----------------------------------------------------------------------------------------------------------

위는 제가 만든 소스인데요...

신청하기