小弟我想用"PostMessage"往当前台活动窗口发送一个回车操作，如何就不行呢

我想用"PostMessage"往当前台活动窗口发送一个回车操作，怎么就不行呢？
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   Declare   Function   GetForegroundWindow   Lib   "user32 "   ()   As   Long
Private   Const   VK_RETURN   =   &HD
Private   Const   WM_KEYDOWN   =   &H100
Private   Const   WM_KEYUP   =   &H101

Private   Sub   Timer1_timer()
Dim   hdl   As   Long
hdl   =   GetForegroundWindow   '   hdl   is   the   handle   to   the   foreground   window
PostMessage   hdl,   WM_KEYDOWN,   VK_RETURN,   0
PostMessage   hdl,   VK_RETURN,   0,   0
End   Sub

根据以上的程序我的操作哪个地方不对呢？想不通，不能用keybd_event和其它函数

------解决方案--------------------
没有错误。

很明显，这是给 窗口 发送的，不要期待它会发送给某一个控件。

Private Declare Function GetActiveWindow Lib "user32 " Alias "GetActiveWindow " () As Long


这两天，你发送 3+ 贴相同的类型的问题了。
------解决方案--------------------
对word或者记事本，你要找到那个输入文本的控件的句柄才能post
------解决方案--------------------
其实你可以用spy++查看一下你在记事本里面敲一下回车和post回车之间的消息有什么差别就明白了
------解决方案--------------------
spy++是一个visual studio自带的工具
如果你完全安装了vs的话，应该可以在程序菜单-Microsoft Visual Studio 6.0 Tools下面找到