要任意汉字/英文都能发送到其他程序窗口

Question

要任意汉字/英文都能发送到其他程序窗口
 比如打开word，然后打开我的程序，用我的程序中的一个按钮可以发送“你好啊”等等任意字符到word中，就像手工在word中打的一样。   
  当然不仅仅是word，任何接受字符的文字框比如QQ等都可以接受，接受的窗口可以直接用标题选择，或者是光标当前窗口。   
    
  对了，说白了有点像输入法一样，把文字送到当前光标处，不管是什么窗口。

Answer 1

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2Private Sub Timer1_Timer()
SendKeys "你好啊"
End Sub