请问怎样向当前窗口发送字符串

Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long


Private Sub Timer1_Timer()
    SendMessage GetForegroundWindow(), WM_Char, 0, "abc"
End Sub

如题，上面的代码无效。。谢谢！
[解决办法]
WM_Char的定义在哪里？
[解决办法]

引用:

Quote: 引用:

WM_Char的定义在哪里？

是

Private Const WM_CHAR = &H102
Private Const WM_SETTEXT = &HC
Private Const WM_PASTE = &H302

这三个都不能实现，WM_SETTEXT可以更改目标窗口的标题值，我是想发送字符串到窗口内的输入栏。比如notepad的正文区域。

那你得找到输入栏的句柄。或者直接用vb里面的sendkeys函数
[解决办法]
那还不如用SendKeys，
把Notepad的窗口设为焦点，然后SendKeys一个字符串