不知道怎样才能得到另一个程序中文本框中的内容？

Question

如题VB 下可以实现吗？

Answer 1

例子：Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPrivate 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 Const WM_PASTE = &H302
Private Const WM_SETTEXT = &HCPrivate Sub Command1_Click()
    Dim TemphWnd As Long
    
    TemphWnd = FindWindow("Notepad", vbNullString) '找到名为Notepad的另一个程序
    TemphWnd = FindWindowEx(TemphWnd, 0, "Edit", vbNullString) '找到名为Edit的文本框
    If TemphWnd Then
        ''-- 将Text1中的文本粘贴到记事本
        'VB.Clipboard.SetText Text1.Text
        'SendMessage TemphWnd, WM_PASTE, 0, ByVal 0&
        
        '把记事本的内容设置为Text1中的文本
        SendMessage TemphWnd, WM_SETTEXT, 0, ByVal CStr(Text1.Text)
        
    End If
    
End Sub

Answer 2

SendMessage TemphWnd, WM_GETTEXT, 0, ByVal Text1.Text怎么得不到？