"使用 VBA 将消息作为字符串发送到应用程序"

Question

我正在尝试使用 excel VBA FindWindow 和 sendMessage 函数将字符串发送到另一个应用程序。 请检查以下代码

Private Declare PtrSafe Function FindWindow Lib "user32.dll" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Const WM_SETTEXT As Long = &HC
Private Declare PtrSafe Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As String) As Long
Private Declare PtrSafe 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

Sub sendstring()

Do
DoEvents
the_notepad_window = FindWindow(vbNullString, "Untitled - Notepad")

Loop Until the_notepad_window > 0


mainview = FindWindowEx(the_notepad_window, 0&, "Edit", vbNullString)

Call SendMessageByString(mainview, WM_SETTEXT, 0, "Hello")
End Sub