VB实现向指定窗口发送组合键

VB 前端之家
前端之家收集整理的这篇文章主要介绍了VB实现向指定窗口发送组合键，前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。

模拟键盘http://hi.baidu.com/%B7%BF%B6%F7%BA%EA/blog/item/621c35c45b7a2fae8226ac2a.html

http://www.winu.cn/ask/response.php?aid=19336

待解决问题
vb WM_KEYDOWN 参数设置？？？？
(离问题结束还有 0天0小时)
id="question_content">Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String,ByVal lpWindowName As String) As Long
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
Dim cqhwnd As Long
Private Const VK_F1 = &H70
Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101
Private Const WM_CLOSE = &H10

Private Sub Command2_Click()
PostMessage cqhwnd,WM_KEYDOWN,VK_A,0&
PostMessage cqhwnd,WM_KEYUP,0&
End Sub

模拟按下按键。
=================
Private Const VK_F1 = &H70
Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101
Private Const WM_CLOSE = &H10
这些什么意思？貌似赋值？
如果我想模拟按Q键，应该赋值为什么？
为什么有些会输出2次？
提问者: tomore提问时间:09-06-17 14:39
其他答案
winu的答案
'函数申明
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte,ByVal Scan As Byte,ByVal dwFlags As Long,ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2 '释放按键常数

'回车键例子
Private Sub Command1_Click()
Text1.SetFocus
Call keybd_event(13,0) '按下
Call keybd_event(13,KEYEVENTF_KEYUP,0) '释放
End Sub


键码
常数 值 描述
vbKeyLButton 1 鼠标左键
vbKeyRButton 2 鼠标右键
vbKeyCancel 3 CANCEL 键
vbKeyMButton 4 鼠标中键
vbKeyBack 8 BACKSPACE 键
vbKeyTab 9 TAB 键
vbKeyClear 12 CLEAR 键
vbKeyReturn 13 ENTER 键
vbKeyShift 16 SHIFT 键
vbKeyControl 17 CTRL 键
vbKeyMenu 18 菜单键
vbKeyPause 19 PAUSE 键
vbKeyCapital 20 CAPS LOCK 键
vbKeyEscape 27 ESC 键
vbKeySpace 32 SPACEBAR 键
vbKeyPageUp 33 PAGEUP 键
vbKeyPageDown 34 PAGEDOWN 键
vbKeyEnd 35 END 键
vbKeyHome 36 HOME 键
vbKeyLeft 37 LEFT ARROW 键
vbKeyUp 38 UP ARROW 键
vbKeyRight 39 RIGHT ARROW 键
vbKeyDown 40 DOWN ARROW 键
vbKeySelect 41 SELECT 键
vbKeyPrint 42 PRINT SCREEN 键
vbKeyExecute 43 EXECUTE 键
vbKeySnapshot 44 SNAP SHOT 键
vbKeyInser 45 INS 键
vbKeyDelete 46 DEL 键
vbKeyHelp 47 HELP 键
vbKeyNumlock 144 NUM LOCK 键

vbKeyA 65 A 键
vbKeyB 66 B 键
vbKeyC 67 C 键
vbKeyD 68 D 键
vbKeyE 69 E 键
vbKeyF 70 F 键
vbKeyG 71 G 键
vbKeyH 72 H 键
vbKeyI 73 I 键
vbKeyJ 74 J 键
vbKeyK 75 K 键
vbKeyL 76 L 键
vbKeyM 77 M 键
vbKeyN 78 N 键
vbKeyO 79 O 键
vbKeyP 80 P 键
vbKeyQ 81 Q 键
vbKeyR 82 R 键
vbKeyS 83 S 键
vbKeyT 84 T 键
vbKeyU 85 U 键
vbKeyV 86 V 键
vbKeyW 87 W 键
vbKeyX 88 X 键
vbKeyY 89 Y 键
vbKeyZ 90 Z 键
vbKey0 48 0 键
vbKey1 49 1 键
vbKey2 50 2 键
vbKey3 51 3 键
vbKey4 52 4 键
vbKey5 53 5 键
vbKey6 54 6 键
vbKey7 55 7 键
vbKey8 56 8 键
vbKey9 57 9 键
vbKeyF1 112 F1 键
vbKeyF2 113 F2 键
vbKeyF3 114 F3 键
vbKeyF4 115 F4 键
vbKeyF5 116 F5 键
vbKeyF6 117 F6 键
vbKeyF7 118 F7 键
vbKeyF8 119 F8 键
vbKeyF9 120 F9 键
vbKeyF10 121 F10 键
vbKeyF11 122 F11 键
vbKeyF12 123 F12 键
vbKeyF13 124 F13 键
vbKeyF14 125 F14 键
vbKeyF15 126 F15 键
vbKeyF16 127 F16 键

这年头,在这个论坛里面已经没有什么技术贴了...呵呵~发一篇惊天地,泣鬼神的帖子.当然这个只是模拟键盘的终极模拟.呵呵~
键盘是我们使用计算机的一个很重要的输入设备了，即使在鼠标大行其道的今天，很多程序依然离不开键盘来操作。但是有时候，一些重复性的，很繁琐的键盘操作 总会让人疲惫，于是就有了用程序来代替人们按键的方法，这样可以把很多重复性的键盘操作交给程序来模拟，省了很多精力，按键精灵就是这样的一个软件。那么 我们怎样才能用VB来写一个程序，达到与按键精灵类似的功能呢？那就让我们来先了解一下windows中响应键盘事件的机制。
当用户按下 键盘上的一个键时，键盘内的芯片会检测到这个动作，并把这个信号传送到计算机。如何区别是哪一个键被按下了呢？键盘上的所有按键都有一个编码，称作键盘扫 描码。当你按下一个键时，这个键的扫描码就被传给系统。扫描码是跟具体的硬件相关的，同一个键，在不同键盘上的扫描码有可能不同。键盘控制器就是将这个扫 描码传给计算机，然后交给键盘驱动程序。键盘驱动程序会完成相关的工作，并把这个扫描码转换为键盘虚拟码。什么是虚拟码呢？因为扫描码与硬件相关，不具有 通用性，为了统一键盘上所有键的编码，于是就提出了虚拟码概念。无论什么键盘，同一个按键的虚拟码总是相同的，这样程序就可以识别了。简单点说，虚拟码就 是我们经常可以看到的像VK_A,VK_B这样的常数，比如键A的虚拟码是65，写成16进制就是&H41，注意，人们经常用16进制来表示虚拟 码。当键盘驱动程序把扫描码转换为虚拟码后，会把这个键盘操作的扫描码和虚拟码还有其它信息一起传递给操作系统。然后操作系统则会把这些信息封装在一个消 息中，并把这个键盘消息插入到消息列队。最后，要是不出意外的话，这个键盘消息最终会被送到当前的活动窗口那里，活动窗口所在的应用程序接收到这个消息 后，就知道键盘上哪个键被按下，也就可以决定该作出什么响应给用户了。这个过程可以简单的如下表示：
用户按下按键-----键盘驱动程序将此事件传递给操作系统-----操作系统将键盘事件插入消息队列-----键盘消息被发送到当前活动窗口
明白了这个过程，我们就可以编程实现在其中的某个环节来模拟键盘操作了。在VB中，有多种方法可以实现键盘模拟，我们就介绍几种比较典型的。
1.局部级模拟

从上面的流程可以看出，键盘事件是最终被送到活动窗口，然后才引起目标程序响应的。那么最直接的模拟方法就是：直接伪造一个键盘消息发给目标程序。哈哈， 这实在是很简单，windows提供了几个这样的API函数可以实现直接向目标程序发送消息的功能，常用的有SendMessage和 PostMessage，它们的区别是PostMessage函数直接把消息仍给目标程序就不管了，而SendMessage把消息发出去后，还要等待目 标程序返回些什么东西才好。这里要注意的是，模拟键盘消息一定要用PostMessage函数才好，用SendMessage是不正确的(因为模拟键盘消 息是不需要返回值的，不然目标程序会没反应)，切记切记！PostMessage函数的VB声明如下：
Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long,lParam As Any) As Long
参数hwnd 是你要发送消息的目标程序上某个控件的句柄，参数wMsg 是消息的类型，表示你要发送什么样的消息，最后wParam 和lParam 这两个参数是随消息附加的数据，具体内容要由消息决定。
再来看看wMsg 这个参数，要模拟按键就靠这个了。键盘消息常用的有如下几个：
WM_KEYDOWN 表示一个普通键被按下
WM_KEYUP 表示一个普通键被释放
WM_SYSKEYDOWN 表示一个系统键被按下，比如Alt键
WM_SYSKEYUP 表示一个系统键被释放，比如Alt键
如 果你确定要发送以上几个键盘消息，那么再来看看如何确定键盘消息中的wParam 和lParam 这两个参数。在一个键盘消息中，wParam 参数的 含义较简单，它表示你要发送的键盘事件的按键虚拟码，比如你要对目标程序模拟按下A键，那么wParam 参数的值就设为VK_A,至于lParam 这个参数就比较复杂了，因为它包含了多个信息，一般可以把它设为0，但是如果你想要你的模拟更真实一些，那么建议你还是设置一下这个参数。那么我们就详细 了解一下lParam 吧。lParam 是一个long类型的参数，它在内存中占4个字节，写成二进制就是 00000000 00000000 00000000 00000000 一共是32位，我们从右向左数，假设最右边那位为第0位(注意是从0而不是 从1开始计数)，最左边的就是第31位，那么该参数的的0-15位表示键的发送次数等扩展信息，16-23位为按键的扫描码，24-31位表示是按下键还 是释放键。大家一般习惯写成16进制的，那么就应该是&H00 00 00 00 ，第0-15位一般为&H0001，如果是按下键，那 么24-31位为&H00，释放键则为&HC0,那么16-23位的扫描码怎么会得呢？这需要用到一个API函数 MapVirtualKey，这个函数可以将虚拟码转换为扫描码，或将扫描码转换为虚拟码，还可以把虚拟码转换为对应字符的ASCII码。它的VB声明如 下：
Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long,ByVal wMapType As Long) As Long
参 数wCode 表示待转换的码，参数wMapType 表示从什么转换为什么，如果是虚拟码转扫描码，则wMapType 设置为0，如果是虚拟扫描码转 虚拟码，则wMapType 设置为1，如果是虚拟码转ASCII码，则wMapType 设置为2.相信有了这些，我们就可以构造键盘事件的 lParam参数了。下面给出一个构造lParam参数的函数：

@H_404_172@
view plain
  1. DeclareFunctionMapVirtualKeyLib"user32"Alias"MapVirtualKeyA"(ByValwCodeAsLong,ByValwMapTypeAsLong)AsLong
  3. FunctionMakeKeyLparam(ByValVirtualKeyAsLong,ByValflagAsLong)AsLong
  4. '参数VirtualKey表示按键虚拟码,flag表示是按下键还是释放键，用WM_KEYDOWN和WM_KEYUP这两个常数表示
  5. DimsAsString
  6. DimFirstbyteAsString'lparam参数的24-31位
  7. Ifflag=WM_KEYDOWNThen'如果是按下键
  8. Firstbyte="00"
  9. Else
  10. Firstbyte="C0"'如果是释放键
  11. EndIf
  12. DimScancodeAsLong
  13. '获得键的扫描码
  14. Scancode=MapVirtualKey(VirtualKey,0)
  15. DimSecondbyteAsString'lparam参数的16-23位，即虚拟键扫描码
  16. Secondbyte=Right("00"&Hex(Scancode),2)
  17. s=Firstbyte&Secondbyte&"0001"'0001为lparam参数的0-15位，即发送次数和其它扩展信息
  18. MakeKeyLparam=Val("&H"&s)
  19. EndFunction

这 个函数像这样调用，比如按下A键，那么lParam=MakeKeyLparam(VK_A,WM_KEYDOWN) ，很简单吧。值得注意的是，即使你 发送消息时设置了lParam参数的值，但是系统在传递消息时仍然可能会根据当时的情况重新设置该参数，那么目标程序收到的消息中lParam的值可能会 和你发送时的有所不同。所以，如果你很懒的话，还是直接把它设为0吧，对大多数程序不会有影响的，呵呵。
好了，做完以上的事情，现在我们可以向目标程序发送键盘消息了。首先取得目标程序接受这个消息的控件的句柄，比如目标句柄是12345，那么我们来对目标模拟按下并释放A键，像这样：(为了简单起见，lParam这个参数就不构造了，直接传0)
PostMessage 12345，WM_KEYDOWN，VK_A，0& '按下A键
PostMessage 12345，WM_UP，VK_A，0& '释放A键
好 了，一次按键就完成了。现在你可以迫不及待的打开记事本做实验，先用FindWindowEx这类API函数找到记事本程序的句柄，再向它发送键盘消息， 期望记事本里能诡异的自动出现字符。可是你马上就是失望了，咦，怎么一点反应也没有？你欺骗感情啊~~~~~~~~~~55555555555555 不是的哦，接着往下看啊。
一般目标程序都会含有多个控件，并不是每个控件都会对键盘消息作出反应，只有把键盘消息发送给接受它的控件才会得到期望 的反应。那记事本来说，它的编辑框其实是个edit类，只有这个控件才对键盘事件有反应，如果只是把消息发给记事本的窗体，那是没有用的。现在你找出记事 本那个编辑框的句柄，比如是54321，那么写如下代码：
PostMessage 54321，WM_KEYDOWN，VK_F1，0& '按下F1键
PostMessage 54321，WM_UP，VK_F1，0& '释放F1键
怎么样，是不是打开了记事本的“帮助”信息？这说明目标程序已经收到了你发的消息，还不错吧~~~~~~~~
可以马上新问题就来了，你想模拟向记事本按下A这个键，好在记事本里自动输入字符，可是，没有任何反应！这是怎么一回事呢？
原 来，如果要向目标程序发送字符，光靠WM_KEYDOWN和WM_UP这两个事件还不行，还需要一个事件：WM_CHAR，这个消息表示一个字符，程序需 靠它看来接受输入的字符。一般只有A，B，C等这样的按键才有WM_CHAR消息，别的键(比如方向键和功能键)是没有这个消息的，WM_CHAR消息一 般发生在WM_KEYDOWN消息之后。WM_CHAR消息的lParam参数的含义与其它键盘消息一样，而它的wParam则表示相应字符的ASCII 编码(可以输入中文的哦^_^)，现在你可以写出一个完整的向记事本里自动写入字符的程序了，下面是一个例子，并附有这些消息常数的具体值：

view plain
  1. DeclareFunctionPostMessageLib"user32"Alias"PostMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLong
  2. DeclareFunctionMapVirtualKeyLib"user32"Alias"MapVirtualKeyA"(ByValwCodeAsLong,ByValwMapTypeAsLong)AsLong
  4. PublicConstWM_KEYDOWN=&H100
  5. PublicConstWM_KEYUP=&H101
  6. PublicConstWM_CHAR=&H102
  7. PublicConstVK_A=&H41
  9. FunctionMakeKeyLparam(ByValVirtualKeyAsLong,ByValflagAsLong)AsLong
  10. DimsAsString
  11. DimFirstbyteAsString'lparam参数的24-31位
  12. Ifflag=WM_KEYDOWNThen'如果是按下键
  13. Firstbyte="00"
  14. Else
  15. Firstbyte="C0"'如果是释放键
  16. EndIf
  17. DimScancodeAsLong
  18. '获得键的扫描码
  19. Scancode=MapVirtualKey(VirtualKey,0)
  20. DimSecondbyteAsString'lparam参数的16-23位，即虚拟键扫描码
  21. Secondbyte=Right("00"&Hex(Scancode),2)
  22. s=Firstbyte&Secondbyte&"0001"'0001为lparam参数的0-15位，即发送次数和其它扩展信息
  23. MakeKeyLparam=Val("&H"&s)
  24. EndFunction
  26. PrivateSubForm_Load()
  27. dimhwndaslong
  28. hwnd=XXXXXX'XXXXX表示记事本编辑框的句柄
  29. PostMessagehwnd,WM_KEYDOWN，VK_A，MakeKeyLparam(VK_A,WM_KEYDOWN)'按下A键
  30. PostMessagehwnd,WM_CHAR，ASC("A"),MakeKeyLparam(VK_A,WM_KEYDOWN)'输入字符A
  31. PostMessagehwnd,WM_UP，VK_A，MakeKeyLparam(VK_A,WM_UP)'释放A键
  32. EndSub

这 就是通过局部键盘消息来模拟按键。这个方法有一个极大的好处，就是：它可以实现后台按键，也就是说他对你的前台操作不会有什么影响。比如，你可以用这个方 法做个程序在游戏中模拟按键来不断地执行某些重复的操作，而你则一边喝茶一边与QQ上的MM们聊得火热，它丝毫不会影响你的前台操作。无论目标程序是否获 得焦点都没有影响，这就是后台模拟按键的原理啦~~~~


2.全局级模拟

你会发现，用上面的方法模拟按键并不 是对所有程序都有效的，有的程序啊，你向它发了一大堆消息，可是它却一点反应也没有。这是怎么回事呢？这就要看具体的情况了，有些程序(特别是一些游戏) 出于某些原因，会禁止用户对它使用模拟按键程序，这个怎么实现呢？比如可以在程序中检查一下，如果发现自己不是活动窗口，就不接受键盘消息。或者仔细检查 一下收到的键盘消息，你会发现真实的按键和模拟的按键消息总是有一些小差别，从这些小差别上，目标程序就能判断出：这是假的！是伪造的！！因此，如果用 PostMessage发送局部消息模拟按键不成功的话，你可以试一试全局级的键盘消息，看看能不能骗过目标程序。
模拟全局键盘消息常见的可以有以下一些方法：
(1) 用API函数keybd_event，这个函数可以用来模拟一个键盘事件，它的VB声明为：
Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte,ByVal bScan As Byte,ByVal dwExtraInfo As Long)
参数bVk表示要模拟的按键的虚拟码，bScan表示该按键的扫描码(一般可以传0)，dwFlags表示是按下键还是释放键(按下键为0，释放键为2)，dwExtraInfo是扩展标志，一般没有用。比如要模拟按下A键，可以这样：
Const KEYEVENTF_KEYUP = &H2
keybd_event VK_A,0 '按下A键
keybd_event VK_A,0 '释放A键
注意有时候按键的速度不要太快，否则会出问题，可以用API函数Sleep来进行延时，声明如下：
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
参数dwMilliseconds表示延时的时间，以毫秒为单位。
那么如果要模拟按下功能键怎么做呢？比如要按下Ctrl+C实现拷贝这个功能，可以这样：
keybd_event VK_Ctrl,0 '按下Ctrl键
keybd_event VK_C,0 '按下C键
Sleep 500 '延时500毫秒
keybd_event VK_C,0 '释放C键
keybd_event VK_Ctrl,0 '释放Ctrl键
好 了，现在你可以试试是不是可以骗过目标程序了，这个函数对大部分的窗口程序都有效，可是仍然有一部分游戏对它产生的键盘事件熟视无睹，这时候，你就要用上 bScan这个参数了。一般的，bScan都传0，但是如果目标程序是一些DirectX游戏，那么你就需要正确使用这个参数传入扫描码，用了它可以产生 正确的硬件事件消息，以被游戏识别。这样的话，就可以写成这样：
keybd_event VK_A,MapVirtualKey(VK_A,0),0 '释放A键
以上就是用keybd_event函数来模拟键盘事件。除了这个函数，SendInput函数也可以模拟全局键盘事件。SendInput可以直接把一条消息插入到消息队列中，算是比较底层的了。它的VB声明如下：
Declare Function SendInput Lib "user32.dll" (ByVal nInputs As Long,pInputs As GENERALINPUT,ByVal cbSize As Long) As Long
参数：
nlnprts：定义plnputs指向的结构的数目。
plnputs：指向INPUT结构数组的指针。每个结构代表插人到键盘或鼠标输入流中的一个事件。
cbSize：定义INPUT结构的大小。若cbSize不是INPUT结构的大小，则函数调用失败。
返回值：函数返回被成功地插人键盘或鼠标输入流中的事件的数目。若要获得更多的错误信息，可以调用GetlastError函数。
备注：Sendlnput函数将INPUT结构中的事件顺序地插入键盘或鼠标的输入流中。这些事件与用户插入的（用鼠标或键盘）或调用keybd_event，mouse_event，或另外的Sendlnput插人的键盘或鼠标的输入流不兼容。
嗯，这个函数用起来蛮复杂的，因为它的参数都是指针一类的东西。要用它来模拟键盘输入，先要构造一组数据结构，把你要模拟的键盘消息装进去，然后传给它。为了方便起见，把它做在一个过程里面，要用的时候直接调用好了，代码如下：

view plain
  1. DeclareFunctionSendInputLib"user32.dll"(ByValnInputsAsLong,pInputsAsGENERALINPUT,ByValcbSizeAsLong)AsLong
  2. DeclareSubCopyMemoryLib"kernel32"Alias"RtlMoveMemory"(pDstAsAny,pSrcAsAny,ByValByteLenAsLong)
  3. TypeGENERALINPUT
  4. dwTypeAsLong
  5. xi(0To23)AsByte
  6. EndType
  8. TypeKEYBDINPUT
  9. wVkAsInteger
  10. wScanAsInteger
  11. dwFlagsAsLong
  12. timeAsLong
  13. dwExtraInfoAsLong
  14. EndType
  16. ConstINPUT_KEYBOARD=1
  18. SubMySendKey(bkeyAsLong)
  19. '参数bkey传入要模拟按键的虚拟码即可模拟按下指定键
  20. DimGInput(0To1)AsGENERALINPUT
  21. DimKInputAsKEYBDINPUT
  22. KInput.wVk=bkey'你要模拟的按键
  23. KInput.dwFlags=0'按下键标志
  24. GInput(0).dwType=INPUT_KEYBOARD
  25. CopyMemoryGInput(0).xi(0),KInput,Len(KInput)'这个函数用来把内存中KInput的数据复制到GInput
  26. KInput.wVk=bkey
  27. KInput.dwFlags=KEYEVENTF_KEYUP'释放按键
  28. GInput(1).dwType=INPUT_KEYBOARD'表示该消息为键盘消息
  29. CopyMemoryGInput(1).xi(0),Len(KInput)
  30. '以上工作把按下键和释放键共2条键盘消息加入到GInput数据结构中
  31. SendInput2,GInput(0),Len(GInput(0))'把GInput中存放的消息插入到消息列队
  32. EndSub

除了以上这些，用全局钩子也可以模拟键盘消息。如果你对windows中消息钩子的用法已经有所了解，那么你可以通过设置一个全局HOOK来模拟键盘消 息，比如，你可以用WH_JOURNALPLAYBACK这个钩子来模拟按键。WH_JOURNALPLAYBACK是一个系统级的全局钩子，它和 WH_JOURNALRECORD的功能是相对的，常用它们来记录并回放键盘鼠标操作。WH_JOURNALRECORD钩子用来将键盘鼠标的操作忠实地 记录下来，记录下来的信息可以保存到文件中，而WH_JOURNALPLAYBACK则可以重现这些操作。当然亦可以单独使用 WH_JOURNALPLAYBACK来模拟键盘操作。你需要首先声明SetWindowsHookEx函数，它可以用来安装消息钩子：
Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long,ByVal lpfn As Long,ByVal hmod As Long,ByVal dwThreadId As Long) As Long
先 安装WH_JOURNALPLAYBACK这个钩子，然后你需要自己写一个钩子函数，在系统调用它时，把你要模拟的事件传递给钩子参数lParam所指向 的EVENTMSG区域，就可以达到模拟按键的效果。不过用这个钩子模拟键盘事件有一个副作用，就是它会锁定真实的鼠标键盘，不过如果你就是想在模拟的时 候不会受真实键盘操作的干扰，那么用用它倒是个不错的主意。
3.驱动级模拟

如果上面的方法你都试过了，可是你发现目标程序却仍然顽固的不接受你模拟的消息，寒~~~~~~~~~还好，我还剩下最后一招，这就是驱动级模拟：直接读写键盘的硬件端口！
有一些使用DirectX接口的游戏程序，它们在读取键盘操作时绕过了windows的消息机制，而使用DirectInput.这是因为有些游戏对实时 性控制的要求比较高，比如赛车游戏，要求以最快速度响应键盘输入。而windows消息由于是队列形式的，消息在传递时会有不少延迟，有时1秒钟也就传递 十几条消息，这个速度达不到游戏的要求。而DirectInput则绕过了windows消息，直接与键盘驱动程序打交道，效率当然提高了不少。因此也就 造成，对这样的程序无论用PostMessage或者是keybd_event都不会有反应，因为这些函数都在较高层。对于这样的程序，只好用直接读写键 盘端口的方法来模拟硬件事件了。要用这个方法来模拟键盘，需要先了解一下键盘编程的相关知识。
在DOS时代，当用户按下或者放开一个键 时，就会产生一个键盘中断(如果键盘中断是允许的)，这样程序会跳转到BIOS中的键盘中断处理程序去执行。打开windows的设备管理器，可以查看到 键盘控制器由两个端口控制。其中&H60是数据端口，可以读出键盘数据，而&H64是控制端口，用来发出控制信号。也就是，从& H60号端口可以读此键盘的按键信息，当从这个端口读取一个字节，该字节的低7位就是按键的扫描码，而高1位则表示是按下键还是释放键。当按下键时，最高 位为0，称为通码，当释放键时，最高位为1，称为断码。既然从这个端口读数据可以获得按键信息，那么向这个端口写入数据就可以模拟按键了！用过 QbASIC4.5的朋友可能知道，QB中有个OUT命令可以向指定端口写入数据，而INP函数可以读取指定端口的数据。那我们先看看如果用QB该怎么写 代码：
假如你想模拟按下一个键，这个键的扫描码为&H50，那就这样
OUT &H64,&HD2 '把数据&HD2发送到&H64端口。这是一个KBC指令，表示将要向键盘写入数据
OUT &H60,&H50 '把扫描码&H50发送到&H60端口，表示模拟按下扫描码为&H50的这个键
那么要释放这个键呢？像这样，发送该键的断码：
OUT &H64,(&H50 OR &H80) '把扫描码&H50与数据&H80进行或运算，可以把它的高位置1，得到断码，表示释放这个键
好了，现在的问题就是在VB中如何向端口写入数据了。因为在windows中，普通应用程序是无权操作端口的，于是我们就需要一个驱动程序来帮助我们实 现。在这里我们可以使用一个组件WINIO来完成读写端口操作。什么是WINIO？WINIO是一个全免费的、无需注册的、含源程序的 WINDOWS2000端口操作驱动程序组件(可以到http://www.internals.com/上 去下载)。它不仅可以操作端口，还可以操作内存；不仅能在VB下用，还可以在DELPHI、VC等其它环境下使用，性能特别优异。下载该组件，解压缩后可 以看到几个文件夹，其中Release文件夹下的3个文件就是我们需要的，这3个文件是WinIo.sys(用于win xp下的驱动程序)， WINIO.VXD(用于win 98下的驱动程序)，WinIo.dll(封装函数的动态链接库)，我们只需要调用WinIo.dll中的函数，然后 WinIo.dll就会安装并调用驱动程序来完成相应的功能。值得一提的是这个组件完全是绿色的，无需安装，你只需要把这3个文件复制到与你的程序相同的 文件夹下就可以使用了。用法很简单，先用里面的InitializeWinIo函数安装驱动程序，然后就可以用GetPortVal来读取端口或者用 SetPortVal来写入端口了。好，让我们来做一个驱动级的键盘模拟吧。先把winio的3个文件拷贝到你的程序的文件夹下，然后在VB中新建一个工 程，添加一个模块，在模块中加入下面的winio函数声明:

view plain
  1. DeclareFunctionMapPhysToLinLib"WinIo.dll"(ByValPhysAddrAsLong,ByValPhysSizeAsLong,ByRefPhysMemHandle)AsLong
  2. DeclareFunctionUnmapPhysicalMemoryLib"WinIo.dll"(ByValPhysMemHandle,ByValLinAddr)AsBoolean
  3. DeclareFunctionGetPhysLongLib"WinIo.dll"(ByValPhysAddrAsLong,ByRefPhysValAsLong)AsBoolean
  4. DeclareFunctionSetPhysLongLib"WinIo.dll"(ByValPhysAddrAsLong,ByValPhysValAsLong)AsBoolean
  5. DeclareFunctionGetPortValLib"WinIo.dll"(ByValPortAddrAsInteger,ByRefPortValAsLong,ByValbSizeAsByte)AsBoolean
  6. DeclareFunctionSetPortValLib"WinIo.dll"(ByValPortAddrAsInteger,ByValPortValAsLong,ByValbSizeAsByte)AsBoolean
  7. DeclareFunctionInitializeWinIoLib"WinIo.dll"()AsBoolean
  8. DeclareFunctionShutdownWinIoLib"WinIo.dll"()AsBoolean
  9. DeclareFunctionInstallWinIoDriverLib"WinIo.dll"(ByValDriverPathAsString,ByValModeAsInteger)AsBoolean
  10. DeclareFunctionRemoveWinIoDriverLib"WinIo.dll"()AsBoolean
  12. '------------------------------------以上是WINIO函数声明-------------------------------------------
  14. DeclareFunctionMapVirtualKeyLib"user32"Alias"MapVirtualKeyA"(ByValwCodeAsLong,ByValwMapTypeAsLong)AsLong
  16. '-----------------------------------以上是WIN32API函数声明-----------------------------------------

再添加下面这个过程：

view plain
  1. SubKBCWait4IBE()'等待键盘缓冲区为空
  2. DimdwValAsLong
  3. Do
  4. GetPortVal&H64,dwVal,1
  5. '这句表示从&H64端口读取一个字节并把读出的数据放到变量dwVal中
  6. 'GetPortVal函数的用法是GetPortVal端口号,存放读出数据的变量,读入的长度
  7. LoopWhile(dwValAnd&H2)
  8. EndSub

上面的是一个根据KBC规范写的过程，它的作用是在向键盘端口写入数据前等待一段时间，后面将会用到。
然后再添加如下过程，这2个过程用来模拟按键：

view plain

  1. PublicConstKBC_KEY_CMD=&H64'键盘命令端口
  2. PublicConstKBC_KEY_DATA=&H60'键盘数据端口
  4. SubMyKeyDown(ByValvKeyCoadAsLong)
  5. '这个用来模拟按下键，参数vKeyCoad传入按键的虚拟码
  6. DimbtScancodeAsLong
  7. btScancode=MapVirtualKey(vKeyCoad,0)
  9. KBCWait4IBE'发送数据前应该先等待键盘缓冲区为空
  10. SetPortValKBC_KEY_CMD,&HD2,1'发送键盘写入命令
  11. 'SetPortVal函数用于向端口写入数据，它的用法是SetPortVal端口号,欲写入的数据，写入数据的长度
  12. KBCWait4IBE
  13. SetPortValKBC_KEY_DATA,btScancode,1'写入按键信息,按下键
  15. EndSub
  17. SubMyKeyUp(ByValvKeyCoadAsLong)
  18. '这个用来模拟释放键，参数vKeyCoad传入按键的虚拟码
  19. DimbtScancodeAsLong
  20. btScancode=MapVirtualKey(vKeyCoad,0)
  22. KBCWait4IBE'等待键盘缓冲区为空
  23. SetPortValKBC_KEY_CMD,1'发送键盘写入命令
  24. KBCWait4IBE
  25. SetPortValKBC_KEY_DATA,(btScancodeOr&H80),1'写入按键信息，释放键
  27. EndSub


定义了上面的过程后，就可以用它来模拟键盘输入了。在窗体模块中添加一个定时器控件，然后加入以下代码：


view plain
  1. PrivateSubForm_Load()
  2. IfInitializeWinIo=FalseThen
  3. '用InitializeWinIo函数加载驱动程序，如果成功会返回true，否则返回false
  4. MsgBox"驱动程序加载失败!"
  5. UnloadMe
  6. EndIf
  7. Timer1.Interval=3000
  8. Timer1.Enabled=True
  9. EndSub
  11. PrivateSubForm_Unload(CancelAsInteger)
  12. ShutdownWinIo'程序结束时记得用ShutdownWinIo函数卸载驱动程序
  13. EndSub
  15. PrivateSubTimer1_Timer()
  16. DimVK_AasLong=&H41
  17. MyKeyDownVK_A
  18. MyKeyUpVK_A'模拟按下并释放A键
  19. EndSub

[/quote]
运行上面的程序，就会每隔3秒钟模拟按下一次A键，试试看，怎么样，是不是对所有程序都有效果了？
需要注意的问题：
要在VB的调试模式下使用WINIO，需要把那3个文件拷贝到VB的安装目录中。
键盘上有些键属于扩展键(比如键盘上的方向键就是扩展键)，对于扩展键不应该用上面的MyKeyDown和MyKeyUp过程来模拟，可以使用下面的2个过程来准确模拟扩展键：
[quote]

view plain

  1. SubMyKeyDownEx(ByValvKeyCoadAsLong)'模拟扩展键按下，参数vKeyCoad是扩展键的虚拟码
  2. DimbtScancodeAsLong
  3. btScancode=MapVirtualKey(vKeyCoad,0)
  5. KBCWait4IBE'等待键盘缓冲区为空
  6. SetPortValKBC_KEY_CMD,1'发送键盘写入命令
  7. KBCWait4IBE
  8. SetPortValKBC_KEY_DATA,&HE0,1'写入扩展键标志信息
  11. KBCWait4IBE'等待键盘缓冲区为空
  12. SetPortValKBC_KEY_CMD,按下键
  15. EndSub
  18. SubMyKeyUpEx(ByValvKeyCoadAsLong)'模拟扩展键弹起
  19. DimbtScancodeAsLong
  20. btScancode=MapVirtualKey(vKeyCoad,1'写入扩展键标志信息
  23. KBCWait4IBE'等待键盘缓冲区为空
  24. SetPortValKBC_KEY_CMD,51); font-size:16px; line-height:26px">
    [/quote]
    还 应该注意的是，如果要从扩展键转换到普通键，那么普通键的KeyDown事件应该发送两次。也就是说，如果我想模拟先按下一个扩展键，再按下一个普通键， 那么就应该向端口发送两次该普通键被按下的信息。比如，我想模拟先按下左方向键，再按下空格键这个事件，由于左方向键是扩展键，空格键是普通键，那么流程 就应该是这样的：
    [quote]

    view plain
    1. MyKeyDownExVK_LEFT'按下左方向键
    2. Sleep200'延时200毫秒
    3. MyKeyUpExVK_LEFT'释放左方向键
    5. Sleep500
    6. MyKeyDownVK_SPACE'按下空格键，注意要发送两次
    7. MyKeyDownVK_SPACE
    8. Sleep200
    9. MyKeyUpVK_SPACE'释放空格键


    好了，相信到这里，你的模拟按键程序也就差不多了，测试一下，是不是很有效呢，嘿嘿~~~~
    WINIO组件的下载地址：http://www.114vip.com.cn/download/winio.zip
    4.骨灰级模拟
    方法3算是很底层的模拟了，我现在还没有发现有它模拟无效的程序。但是如果你用尽上面所有的方法，仍然无效的话，那么还有最后一个方法，绝对对任何程序都会有效，那就是：把键盘拿出来，老老实实地按下去吧。~~~~

    我用WINIO在VB下模拟鼠标左键点击,具体代码如下:

    view plain

    1. PrivateSubXR()
    2. DimResultAsBoolean
    4. Result=SetPortVal(Val("&H64"),Val("&HD3"),1)
    6. If(Result=False)Then
    7. MsgBox"Whoops!ThereisaproblemwithSetPortByte.",vbOKOnly+vbCritical,"VBDumpPort32"
    8. UnloadFrmVBDumpPort32
    9. EndIf
    10. Sleep100
    11. Result=SetPortVal(Val("&H64"),Val("&Hf4"),1)
    13. If(Result=False)Then
    14. MsgBox"Whoops!ThereisaproblemwithSetPortByte.","VBDumpPort32"
    15. UnloadFrmVBDumpPort32
    16. EndIf
    18. Result=SetPortVal(Val("&H60"),Val("&H09"),"VBDumpPort32"
    19. UnloadFrmVBDumpPort32
    20. EndIf
    22. Result=SetPortVal(Val("&H60"),Val("&H00"),Val("&H08"),"VBDumpPort32"
    23. UnloadFrmVBDumpPort32
    24. EndIf
    25. EndSub

    winio 模拟方向键：http://laomaspeak.blog.sohu.com/94919159.html

    view plain

    1. '模块
    3. PublicDeclareFunctionMapPhysToLinLib"WinIo.dll"(ByValPhysAddrAsLong,ByRefPhysMemHandle)AsLong
    4. PublicDeclareFunctionUnmapPhysicalMemoryLib"WinIo.dll"(ByValPhysMemHandle,ByValLinAddr)AsBoolean
    5. PublicDeclareFunctionGetPhysLongLib"WinIo.dll"(ByValPhysAddrAsLong,ByRefPhysValAsLong)AsBoolean
    6. PublicDeclareFunctionSetPhysLongLib"WinIo.dll"(ByValPhysAddrAsLong,ByValPhysValAsLong)AsBoolean
    7. PublicDeclareFunctionGetPortValLib"WinIo.dll"(ByValPortAddrAsInteger,ByValbSizeAsByte)AsBoolean
    8. PublicDeclareFunctionSetPortValLib"WinIo.dll"(ByValPortAddrAsInteger,ByValbSizeAsByte)AsBoolean
    9. PublicDeclareFunctionInitializeWinIoLib"WinIo.dll"()AsBoolean
    10. PublicDeclareFunctionShutdownWinIoLib"WinIo.dll"()AsBoolean
    11. PublicDeclareFunctionInstallWinIoDriverLib"WinIo.dll"(ByValDriverPathAsString,ByValModeAsInteger)AsBoolean
    12. PublicDeclareFunctionRemoveWinIoDriverLib"WinIo.dll"()AsBoolean
    14. '------------------------------------以上是WINIO函数声明-------------------------------------------
    15. PublicConstKBC_KEY_CMD=&H64'键盘命令端口
    16. PublicConstKBC_KEY_DATA=&H60'键盘数据端口
    17. PublicDeclareFunctionMapVirtualKeyLib"user32"Alias"MapVirtualKeyA"(ByValwCodeAsLong,ByValwMapTypeAsLong)AsLong
    18. PublicVK_AAsLong
    21. PublicConstVK_LBUTTON=&H1
    22. PublicConstVK_RBUTTON=&H2
    23. PublicConstVK_CANCEL=&H3
    24. PublicConstVK_MBUTTON=&H4
    25. PublicConstVK_BACK=&H8
    26. PublicConstVK_TAB=&H9
    27. PublicConstVK_CLEAR=&HC
    28. PublicConstVK_RETURN=&HD
    29. PublicConstVK_SHIFT=&H10
    30. PublicConstVK_CONTROL=&H11
    31. PublicConstVK_MENU=&H12
    32. PublicConstVK_PAUSE=&H13
    33. PublicConstVK_CAPITAL=&H14
    34. PublicConstVK_ESCAPE=&H1B
    35. PublicConstVK_SPACE=&H20
    36. PublicConstVK_PRIOR=&H21
    37. PublicConstVK_NEXT=&H22
    38. PublicConstVK_END=&H23
    39. PublicConstVK_HOME=&H24
    40. PublicConstVK_LEFT=&H25
    41. PublicConstVK_UP=&H26
    42. PublicConstVK_RIGHT=&H27
    43. PublicConstVK_DOWN=&H28
    44. PublicConstVK_Select=&H29
    45. PublicConstVK_PRINT=&H2A
    46. PublicConstVK_EXECUTE=&H2B
    47. PublicConstVK_SNAPSHOT=&H2C
    48. PublicConstVK_Insert=&H2D
    49. PublicConstVK_Delete=&H2E
    50. PublicConstVK_HELP=&H2F
    51. PublicConstVK_0=&H30
    52. PublicConstVK_1=&H31
    53. PublicConstVK_2=&H32
    54. PublicConstVK_3=&H33
    55. PublicConstVK_4=&H34
    56. PublicConstVK_5=&H35
    57. PublicConstVK_6=&H36
    58. PublicConstVK_7=&H37
    59. PublicConstVK_8=&H38
    60. PublicConstVK_9=&H39
    61. PublicConstVK_B=&H42
    62. PublicConstVK_C=&H43
    63. PublicConstVK_D=&H44
    64. PublicConstVK_E=&H45
    65. PublicConstVK_F=&H46
    66. PublicConstVK_G=&H47
    67. PublicConstVK_H=&H48
    68. PublicConstVK_I=&H49
    69. PublicConstVK_J=&H4A
    70. PublicConstVK_K=&H4B
    71. PublicConstVK_L=&H4C
    72. PublicConstVK_M=&H4D
    73. PublicConstVK_N=&H4E
    74. PublicConstVK_O=&H4F
    75. PublicConstVK_P=&H50
    76. PublicConstVK_Q=&H51
    77. PublicConstVK_R=&H52
    78. PublicConstVK_S=&H53
    79. PublicConstVK_T=&H54
    80. PublicConstVK_U=&H55
    81. PublicConstVK_V=&H56
    82. PublicConstVK_W=&H57
    83. PublicConstVK_X=&H58
    84. PublicConstVK_Y=&H59
    85. PublicConstVK_Z=&H5A
    86. PublicConstVK_STARTKEY=&H5B
    87. PublicConstVK_CONTEXTKEY=&H5D
    88. PublicConstVK_NUMPAD0=&H60
    89. PublicConstVK_NUMPAD1=&H61
    90. PublicConstVK_NUMPAD2=&H62
    91. PublicConstVK_NUMPAD3=&H63
    92. PublicConstVK_NUMPAD4=&H64
    93. PublicConstVK_NUMPAD5=&H65
    94. PublicConstVK_NUMPAD6=&H66
    95. PublicConstVK_NUMPAD7=&H67
    96. PublicConstVK_NUMPAD8=&H68
    97. PublicConstVK_NUMPAD9=&H69
    98. PublicConstVK_MULTIPLY=&H6A
    99. PublicConstVK_ADD=&H6B
    100. PublicConstVK_SEPARATOR=&H6C
    101. PublicConstVK_SUBTRACT=&H6D
    102. PublicConstVK_DECIMAL=&H6E
    103. PublicConstVK_DIVIDE=&H6F
    104. PublicConstVK_F1=&H70
    105. PublicConstVK_F2=&H71
    106. PublicConstVK_F3=&H72
    107. PublicConstVK_F4=&H73
    108. PublicConstVK_F5=&H74
    109. PublicConstVK_F6=&H75
    110. PublicConstVK_F7=&H76
    111. PublicConstVK_F8=&H77
    112. PublicConstVK_F9=&H78
    113. PublicConstVK_F10=&H79
    114. PublicConstVK_F11=&H7A
    115. PublicConstVK_F12=&H7B
    116. PublicConstVK_F13=&H7C
    117. PublicConstVK_F14=&H7D
    118. PublicConstVK_F15=&H7E
    119. PublicConstVK_F16=&H7F
    120. PublicConstVK_F17=&H80
    121. PublicConstVK_F18=&H81
    122. PublicConstVK_F19=&H82
    123. PublicConstVK_F20=&H83
    124. PublicConstVK_F21=&H84
    125. PublicConstVK_F22=&H85
    126. PublicConstVK_F23=&H86
    127. PublicConstVK_F24=&H87
    128. PublicConstVK_NUMLOCK=&H90
    129. PublicConstVK_OEM_SCROLL=&H91
    130. PublicConstVK_OEM_1=&HBA
    131. PublicConstVK_OEM_PLUS=&HBB
    132. PublicConstVK_OEM_COMMA=&HBC
    133. PublicConstVK_OEM_MINUS=&HBD
    134. PublicConstVK_OEM_PERIOD=&HBE
    135. PublicConstVK_OEM_2=&HBF
    136. PublicConstVK_OEM_3=&HC0
    137. PublicConstVK_OEM_4=&HDB
    138. PublicConstVK_OEM_5=&HDC
    139. PublicConstVK_OEM_6=&HDD
    140. PublicConstVK_OEM_7=&HDE
    141. PublicConstVK_OEM_8=&HDF
    142. PublicConstVK_ICO_F17=&HE0
    143. PublicConstVK_ICO_F18=&HE1
    144. PublicConstVK_OEM102=&HE2
    145. PublicConstVK_ICO_HELP=&HE3
    146. PublicConstVK_ICO_00=&HE4
    147. PublicConstVK_ICO_CLEAR=&HE6
    148. PublicConstVK_OEM_RESET=&HE9
    149. PublicConstVK_OEM_JUMP=&HEA
    150. PublicConstVK_OEM_PA1=&HEB
    151. PublicConstVK_OEM_PA2=&HEC
    152. PublicConstVK_OEM_PA3=&HED
    153. PublicConstVK_OEM_WSCTRL=&HEE
    154. PublicConstVK_OEM_CUSEL=&HEF
    155. PublicConstVK_OEM_ATTN=&HF0
    156. PublicConstVK_OEM_FINNISH=&HF1
    157. PublicConstVK_OEM_COPY=&HF2
    158. PublicConstVK_OEM_AUTO=&HF3
    159. PublicConstVK_OEM_ENLW=&HF4
    160. PublicConstVK_OEM_BACKTAB=&HF5
    161. PublicConstVK_CRSEL=&HF7
    162. PublicConstVK_EXSEL=&HF8
    163. PublicConstVK_EREOF=&HF9
    164. PublicConstVK_PLAY=&HFA
    165. PublicConstVK_ZOOM=&HFB
    166. PublicConstVK_NONAME=&HFC
    167. PublicConstVK_PA1=&HFD
    168. PublicConstVK_OEM_CLEAR=&HFE
    169. 'PublicButtonAsComboBox
    171. '-----------------------------------以上是WIN32API函数声明-----------------------------------------
    172. SubKBCWait4IBE()'等待键盘缓冲区为空
    173. DimdwValAsLong
    174. Do
    175. GetPortVal&H64,1
    176. '这句表示从&H64端口读取一个字节并把读出的数据放到变量dwVal中
    177. 'GetPortVal函数的用法是GetPortVal端口号,读入的长度
    178. LoopWhile(dwValAnd&H2)
    179. EndSub
    182. '窗体
    184. PrivateDeclareSubkeybd_eventLib"user32"(ByValbVkAsByte,ByValScanAsByte,ByValdwFlagsAsLong,ByValdwExtraInfoAsLong)
    186. PrivateDeclareFunctionGetAsyncKeyStateLib"user32"(ByValvKeyAsLong)AsInteger
    188. PrivateConststrEnabled="0123456789"
    191. PrivateSubCommand1_Click()
    192. Timer1.Interval=Val(Text2.Text)*1000
    193. Timer1.Enabled=True
    194. Command2.Enabled=True
    195. Command1.Enabled=False
    196. Form1.WindowState=1
    197. Text1.Locked=True
    198. EndSub
    200. PrivateSubCommand2_Click()
    201. Timer1.Interval=0
    202. Command1.Enabled=True
    203. Command2.Enabled=False
    204. Form1.WindowState=0
    205. Text1.Locked=False
    206. EndSub
    208. PrivateSubForm_Load()
    209. Text1.Text="这里输入你要说的话"
    210. Text2.Text="1"
    211. Command1.Caption="开始"
    212. Command2.Caption="停止"
    213. Timer2.Interval=10
    214. Timer2.Enabled=True
    215. Timer1.Enabled=Flash
    216. Command2.Enabled=False
    217. IfInitializeWinIo=FalseThen
    218. '用InitializeWinIo函数加载驱动程序，如果成功会返回true，否则返回false
    219. MsgBox"驱动程序加载失败!"
    220. UnloadMe
    221. EndIf
    222. EndSub
    223. SubMyKeyDown(ByValvKeyCoadAsLong)
    224. '这个用来模拟按下键，参数vKeyCoad传入按键的虚拟码
    225. DimbtScancodeAsLong
    226. btScancode=MapVirtualKey(vKeyCoad,0)
    228. KBCWait4IBE'发送数据前应该先等待键盘缓冲区为空
    229. SetPortValKBC_KEY_CMD,1'发送键盘写入命令
    230. 'SetPortVal函数用于向端口写入数据，它的用法是SetPortVal端口号,欲写入的数据，写入数据的长度
    231. KBCWait4IBE
    232. SetPortValKBC_KEY_DATA,按下键
    234. EndSub
    236. SubMyKeyUp(ByValvKeyCoadAsLong)
    237. '这个用来模拟释放键，参数vKeyCoad传入按键的虚拟码
    238. DimbtScancodeAsLong
    239. btScancode=MapVirtualKey(vKeyCoad,1'写入按键信息，释放键
    241. EndSub
    243. SubMyKeyDownEx(ByValvKeyCoadAsLong)'模拟扩展键按下，参数vKeyCoad是扩展键的虚拟码
    244. DimbtScancodeAsLong
    245. btScancode=MapVirtualKey(vKeyCoad,0)
    246. KBCWait4IBE'等待键盘缓冲区为空
    247. SetPortValKBC_KEY_CMD,按下键
    250. EndSub
    252. SubMyKeyUpEx(ByValvKeyCoadAsLong)'模拟扩展键弹起
    253. DimbtScancodeAsLong
    254. btScancode=MapVirtualKey(vKeyCoad,0)
    255. KBCWait4IBE'等待键盘缓冲区为空
    256. SetPortValKBC_KEY_CMD,1'写入按键信息，释放键
    258. EndSub
    261. PrivateSubForm_Unload(CancelAsInteger)
    262. ShutdownWinIo'程序结束时记得用ShutdownWinIo函数卸载驱动程序
    263. EndSub
    264. PrivateSubTimer1_Timer()
    265. MyKeyDownVK_A
    266. MyKeyUpVK_A
    267. Callkeybd_event(13,0)'回车
    268. 'Callkeybd_event(40,0)'向下
    269. SendKeysText1
    270. EndSub
    273. PrivateSubTimer3_Timer()
    274. MyKeyDownExVK_DOWN'按下向下方向键
    275. EndSub
    277. PrivateSubTimer2_Timer()
    278. IfGetAsyncKeyState(vbKeyF6)Then'按下F6开始说话
    279. Command1_Click
    280. EndIf
    281. IfGetAsyncKeyState(vbKeyF8)Then'按下F8停止说话
    282. Command2_Click
    283. EndIf
    284. EndSub
    285. PrivateSubText2_KeyPress(KeyAsciiAsInteger)
    286. IfInStr(1,strEnabled,Chr$(KeyAscii))=0Then
    287. KeyAscii=0
    288. EndIf
    289. EndSub

    VB:如何发送WM_KEYDOWN和WM_KEYUP消息

    http://hi.baidu.com/29277723/blog/item/918bfe1b5fdec81d8718bf4a.html

    其实没什么说的，只是最近一段时间问的人比较多，所以写上几句
    简单的说，有两个需要注意的地方，一是要用postmessage发送消息，二是这两个消息lparam参数比较复杂，发送消息的时候要构造好lparam参数，下面给出示例代码：

    view plain
    1. OptionExplicit
    2. PrivateDeclareFunctionMapVirtualKeyLib"user32"Alias"MapVirtualKeyA"(ByValwCodeAsLong,ByValwMapTypeAsLong)AsLong
    3. PrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLong
    4. PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLong
    5. PrivateDeclareFunctionFindWindowExLib"user32"Alias"FindWindowExA"(ByValhWnd1AsLong,ByValhWnd2AsLong,ByVallpsz1AsString,ByVallpsz2AsString)AsLong
    6. PrivateConstWM_KEYDOWN=&H100
    7. PrivateConstWM_KEYUP=&H101
    8. PrivateDeclareFunctionPostMessageLib"user32"Alias"PostMessageA"(ByValhwndAsLong,ByVallParamAsLong)AsLong
    10. PrivateSubCommand1_Click()
    11. DimjsbAsLong
    12. jsb=FindWindow("notepad",vbNullString)
    13. DimmhwndAsLong
    14. mhwnd=FindWindowEx(jsb,"edit",vbNullString)
    15. DimlParamAsLong
    16. lParam=makelparam(vbKey5,False)
    17. PostMessagemhwnd,vbKey5,lParam
    18. lParam=makelparam(vbKey5,True)
    19. PostMessagemhwnd,lParam
    20. EndSub
    22. PrivateFunctionmakelparam(ByValVirtualKeyAsLong,ByValflagAsBoolean)AsLong
    23. DimsAsString
    24. DimFirstbyteAsString'lparam参数的24-31位
    25. Ifflag=FalseThen'keydown
    26. Firstbyte="00"
    27. Else
    28. Firstbyte="C0"'keyup
    29. EndIf
    30. DimScancodeAsLong
    31. '获得虚拟键扫描码
    32. Scancode=MapVirtualKey(VirtualKey,0)
    33. DimSecondbyteAsString'lparam参数的16-23位，即虚拟键扫描码
    34. Secondbyte=Right("00"&Hex(Scancode),2)
    35. s=Firstbyte&Secondbyte&"0001"'0001为lparam参数的0-15位，即发送次数
    36. makelparam=Val("&H"&s)
    37. EndFunction

    猜你在找的VB相关文章

    VB Format函数
    Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------...
    vb6/ASP FORMAT MM/DD/YYYY
    VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTi...
    VB.net 捕获项目全局异常
    在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的...
    实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
    转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，...
    vb，wps，excel 分裂
    Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m...
    VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）
      Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS ...
    VB.NET 使用ADODB連接資料庫滙出到EXCEL
    ‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Di...
    vb.net 多线程運用 ping
    Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class F...
    VB等待进程结束
    VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5...
    vb中去掉string数组的一部分
    今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时...
    PHPJavaJava SEPythonC#C&C++RubyVBasp.NetGoPerlnettyDjangoDelphiJsp.NET CoreSpringFlaskSpringbootSpringMVCLuaLaravelMybatisAspGroovyThinkPHPYiiswoole
    文件时间pythonm相等性PHP Warning时间问题问题解决pcntl_signal采样点wav模块动态文本调用频率限制对外暴露多个访问请求更新数据表模型结构type()方法比较速度手写体sobel算子保存模型Image类nn.Conv2dpytorch1.0kaggleDCGAN交并比range()用法打印模型反卷积卷积