VB中SendMessage的详细用法!

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 Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101
Private Const VK_CONTROL = &H11
Private Const VK_END = &H23

Private Sub Command1_Click()
PostMessage Text1.hwnd, WM_KEYDOWN, VK_CONTROL, 0
PostMessage Text1.hwnd, WM_KEYDOWN, VK_END, 0
PostMessage Text1.hwnd, WM_KEYUP, VK_END, 0
PostMessage Text1.hwnd, WM_KEYUP, VK_RETURN, 0
'Text1.SetFocus
End Sub
这是在本地窗口上试验的，先在窗口上添加一个文本框和一个命令按钮，然后把上面的代码复制进去就可以了，如果是其他程序窗口中的文本框，先用findwindowex找到该文本框的句柄，替换掉上面的Text1.hwnd就行了

对于记事本这样界面非常简单（打开程序后焦点直接位于文本框控件之中）的程序，也可以用类似下面的代码：
Private Sub Command1_Click()
Dim lpid As Long
lpid = Shell("notepad.exe c:\a.txt", vbNormalFocus)
AppActivate lpid
SendKeys "^{END}"
End Sub

执行文件5秒后向光标处发送中文，所以执行文件后赶紧设置光标位置，好像只能发送几个字符，可以多发送几次
Imports System.Threading
Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
System.Threading.Thread.Sleep(5000)
SendKeys.Send("发送中文")
End Sub
End Class

PostMessage 是发入消息队列，不等待返回。
SendMessage 是直接发给目标窗体，并等待返回。

我手头有份详细的例子，是子窗口通信的，看了你就知道怎么用了，其实很简单，留下邮箱我发给你，骗人xxx的！（难听的省略）

相同类名就不能一个一个读了 要一起读出句柄 然后发送到每个句柄 看哪个是你想要的

消息 CB_INSERTSTRING 的返回值是列表项的索引，这个索引一般是从上到下由 0 开始。
你可以取得返回值之后，使用 CB_SETCURSEL 消息选中该项：
int index;
SendMessage(hComBox, CB_INSERTSTRING, 0, (LPARAM)_T("请选择"));
SendMessage(hComBox, CB_INSERTSTRING, 0, (LPARAM)_T("1 - AAA"));
index = (int)SendMessage(hComBox, CB_INSERTSTRING, 0, (LPARAM)_T("2 - BBB"));
SendMessage(hComBox, CB_SETCURSEL, index, 0);
SendMessage(hComBox, CB_INSERTSTRING, 0, (LPARAM)_T("3 - CCC"));
这样将 2 - BBB 选中。

做不到，你难道要做木马？