定制自己的按键精灵

雪豹

本是路过，看到写得这么好的文章，特意顶一下。由浅入深，通俗易懂，资源完整的好文章！！

同心自相知

谢谢楼主分亨

blanksoul12

不好意思,請問一些問題
Declare Function PostMessage Lib "user32" Alias"PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParamAs Long, lParam As Any) As Long
Declare Function MapVirtualKey Lib "user32" Alias"MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) AsLong

Public Const WM_KEYDOWN = &H100
Public Const WM_KEYUP = &H101
Public Const WM_CHAR = &H102
Public Const VK_A = &H41

Function MakeKeyLparam(ByVal VirtualKey As Long, ByVal flag As Long) AsLong
Dim s As String
Dim Firstbyte As String 'lparam参数的24-31位
If flag = WM_KEYDOWN Then '如果是按下键
Firstbyte = "00"
Else
Firstbyte = "C0" '如果是释放键
End If
Dim Scancode As Long
'获得键的扫描码
Scancode = MapVirtualKey(VirtualKey, 0)
Dim Secondbyte As String 'lparam参数的16-23位，即虚拟键扫描码
Secondbyte = Right("00" & Hex(Scancode), 2)
s = Firstbyte & Secondbyte & "0001" '0001为lparam参数的0-15位，即发送次数和其它扩展信息
MakeKeyLparam = Val("&H" & s)
End Function

Private Sub Form_Load()
dim hwnd as long
hwnd = XXXXXX 'XXXXX表示记事本编辑框的句柄
PostMessage hwnd,WM_KEYDOWN，VK_A，MakeKeyLparam(VK_A,WM_KEYDOWN) '按下A键
PostMessage hwnd,WM_CHAR，ASC("A"),MakeKeyLparam(VK_A,WM_KEYDOWN)'输入字符A
PostMessage hwnd,WM_keyup, vK_A，MakeKeyLparam(VK_A,WM_keyUP)'释放A键
End Sub

最後那三行 postmessage 怎麼如果用在 記事本 時,會入了三個 "a" 呢?
還有,怎樣鍵入 crtl + 某個鍵 呢?

ahhfdw

超难不懂，佩服！！

iuin_01

羡慕以前，学习一下！

592rmb

不是说有例子吗？怎么没有啊，只是下载了网上的一篇文章，你的重点应该是用例子教会大家如何用各种方法模拟和各种方法在使用中的注意事项及要点的呀

luqiwe

有附件的，只是我认为主题中的内容基本上涵盖了附件中的实例， 能够够理解主题内容中的代码其实就不需要附件，如果连主题中的代码都理解不了要附件也没什么用。如果确实认为我应该发附件，OK,等工作轻松些时我会附上的。（我所开发过的VBA代码曾归类做成ACCESS数据库查询，但后来因换工忘了从公司电脑拷出来，问以前的同事说电脑已经拆掉了，悲，55555~~~~~~）

592rmb

那些代码能看懂，可是要有例子，用起来就更得心就手了，因为这里的菜不少，期盼中，我前段就是专门找这个，网上的这类文章基本看了个遍，可基本都差不多，实例很少，只能看懂代码的作用，可是不知道怎样才能用好

寒冰小处男

不错哈 谢谢分享

szroy

楼主牛人也！