sendmessage如何用SENDMESSAGE发送组合键如CTRL+A

哪位高手能帮我用＂SendMessage"函数举个例子，给我参考参考

其实还是同一个函数… 以向自己发送一个关闭消息为例 const WM_CLOSE=16 dim hwd& hwd=findwindow(vbnullstring,form1.caption) if hwd then sendmessage hwd,WM_CLOSE,0&,0& end if

SendMessage函数 急!

Private Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) Private Const WM_LBUTTONDOWN = &H201 Private Const MK_LBUTTON = &H1 Private Const WM_LBUTTONUP = &H202 Private Sub Command1_Click() Dim hwnd1 As Long, p As Long hwnd1 = Command2.hwnd p = y * 65536 + x SendMessage hwnd1, WM_LBUTTONDOWN, MK_LBUTTON, ByVal p SendMessage hwnd1, WM_LBUTTONUP, MK_LBUTTON, ByVal p End Sub Private Sub Command2_Click() MsgBox "AAA" End Sub

如何用SENDMESSAGE发送组合键如CTRL+A

如果是系统级的击键就再用WM_SYSKEYDOWN或者WM_SYSKEYUP试试看. 另外,我记得WM_KEYDOWN的LPARAM也不应该是0,不过记不大清楚了,查API帮助应该有更详细的信息. 好像偶也试过,SendMessage和PostMessage有点不大尽如人意,但是你可以试一下 VKKeyScan和MapVirtualKey来获得要发送的按键的扫描码和虚拟键值,这两个值 在SendMessage和PostMessage中分别对应wparam和lparam,当然还要经过移位和 KeyUp,KeyDown的Mask,好像可以通过发送四个消息来模拟Ctrl+A. 另外我觉得kbd_event这个API比较合适用来发送模拟按键,唯一的缺点是他只能向 当前最前的活动窗口发送消息. SendMessage(handle, WM_CHAR, aChar, aKeyData) aChar = "A" aKeyData = 32位 1-15位表示发送几遍， 16-23表示ALT、CTRL、NUM、CAPS等（具体何值忘了）， 24位表示是左ALT、CTRL还是右ALT、CTRL（通常为0）， 25-28位保留 30位表示上一个键的状态KEY DOWN OR UP，1为发送前的DWON状态，0为UP 31位表示：0表示键开始按下，1为开始释放。

从要求看：aKeyData为: 0000 0000 xxxx xxxx 0000 0000 其中xxxx xxxx放CTRL的扫描码，具体忘了，请自己查一下。