用GetWindowText找到dos窗口,怎么用SendMessage向dos窗口发WM_CHAR之类的键盘消息

用GetWindowText找到dos窗口,如何用SendMessage向dos窗口发WM_CHAR之类的键盘消息
Dim   TheWindows   As   String
TheWindows   =   String(100,   Chr$(0))
GetWindowText   GetForegroundWindow(),   TheWindows,   256

然后我想用SendMessage向dos窗口发 "wdori "这五个字符，然后再发送回车，如何实现阿。总是调不通。帮忙啊


[解决办法]
控制台窗口，有一套API的，不要当作是普通的窗口来处理。



[解决办法]
说明。。。cmd的窗口不能这么用～
[解决办法]
试试在自己的vb程序里直接用CreateProcess创建CMD进程，再用管道进行通讯。