jianpan.txt

键盘 键盘 键盘 键盘 键盘 键盘 键盘 键盘 键盘 键盘 键盘 键盘 键盘 键盘

Public Const KBC_KEY_DATA = &H60    '键盘数据端口 

Sub MyKeyDown(ByVal vKeyCoad As Long)   
'这个用来模拟按下键，参数vKeyCoad传入按键的虚拟码
Dim btScancode As Long
btScancode = MapVirtualKey(vKeyCoad, 0)
  
     KBCWait4IBE    '发送数据前应该先等待键盘缓冲区为空
     SetPortVal KBC_KEY_CMD, &HD2, 1      '发送键盘写入命令
'SetPortVal函数用于向端口写入数据，它的用法是SetPortVal 端口号,欲写入的数据，写入数据的长度
     KBCWait4IBE
     SetPortVal KBC_KEY_DATA, btScancode, 1   '写入按键信息,按下键
    
End Sub 

Sub MyKeyUp(ByVal vKeyCoad As Long)   
'这个用来模拟释放键，参数vKeyCoad传入按键的虚拟码
Dim btScancode As Long
btScancode = MapVirtualKey(vKeyCoad, 0)
  
     KBCWait4IBE    '等待键盘缓冲区为空
     SetPortVal KBC_KEY_CMD, &HD2, 1   '发送键盘写入命令
     KBCWait4IBE
     SetPortVal KBC_KEY_DATA, (btScancode Or &H80), 1   '写入按键信息，释放键

End Sub


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

Private Sub Form_Load()

If InitializeWinIo = False Then   
   '用InitializeWinIo函数加载驱动程序，如果成功会返回true，否则返回false
     MsgBox "驱动程序加载失败!"
     Unload Me
End If
Timer1.Interval=3000
Timer1.Enabled=True
End Sub

Private Sub Form_Unload(Cancel As Integer)
ShutdownWinIo '程序结束时记得用ShutdownWinIo函数卸载驱动程序
End Sub

Private Sub Timer1_Timer()
Dim VK_A as Long = &H41 
MyKeyDown VK_A    
MyKeyUp VK_A     '模拟按下并释放A键
End Sub

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

     KBCWait4IBE    '等待键盘缓冲区为空
     SetPortVal KBC_KEY_CMD, &HD2, 1      '发送键盘写入命令
     KBCWait4IBE
     SetPortVal KBC_KEY_DATA, &HE0, 1   '写入扩展键标志信息
    
    
     KBCWait4IBE    '等待键盘缓冲区为空
     SetPortVal KBC_KEY_CMD, &HD2, 1      '发送键盘写入命令
     KBCWait4IBE
     SetPortVal KBC_KEY_DATA, btScancode, 1   '写入按键信息,按下键
    
    
End Sub


Sub MyKeyUpEx(ByVal vKeyCoad As Long)    '模拟扩展键弹起
Dim btScancode As Long
btScancode = MapVirtualKey(vKeyCoad, 0)

     KBCWait4IBE    '等待键盘缓冲区为空
     SetPortVal KBC_KEY_CMD, &HD2, 1      '发送键盘写入命令
     KBCWait4IBE
     SetPortVal KBC_KEY_DATA, &HE0, 1   '写入扩展键标志信息
    
    
     KBCWait4IBE    '等待键盘缓冲区为空
     SetPortVal KBC_KEY_CMD, &HD2, 1      '发送键盘写入命令
     KBCWait4IBE
     SetPortVal KBC_KEY_DATA, (btScancode Or &H80), 1   '写入按键信息，释放键
    
End Sub

还应该注意的是，如果要从扩展键转换到普通键，那么普通键的KeyDown事件应该发送两次。也就是说，如果我想模拟先按下一个扩展键，再按下一个普通键，那么就应该向端口发送两次该普通键被按下的信息。比如，我想模拟先按下左方向键，再按下空格键这个事件，由于左方向键是扩展键，空格键是普通键，那么流程就应该是这样的：
MyKeyDownEx VK_LEFT    '按下左方向键
Sleep 200              '延时200毫秒
MyKeyUpEx VK_LEFT      '释放左方向键

Sleep 500
MyKeyDown VK_SPACE    '按下空格键，注意要发送两次
MyKeyDown VK_SPACE
Sleep 200
MyKeyUp VK_SPACE      '释放空格键



















用程序模拟键盘和鼠标键盘 
在Windows大行其道的今天，windows界面程序受到广大用户的欢迎。对这些程序的操作不外乎两种，键盘输入控制和鼠标输入控制。有时，对于繁杂的，或重复性的操作，我们能否通过编制程序来代替手工输入，而用程序来模拟键盘及鼠标的输入呢？答案是肯定的。这主要是通过两个API函数来实现的。 　　 
　　下面以Delphi为例来介绍一下如何实现这两个功能。模拟键盘我们用Keybd_event这个api函数，模拟鼠标按键用mouse_event函数。大家不用担心，在delphi里调用api函数是很方便的事。 　　 

　　先介绍一下Keybd_event函数。Keybd_event能触发一个按键事件，也就是说回产生一个WM_KEYDOWN或WM_KEYUP消息。当然也可以用产生这两个消息来模拟按键，但是没有直接用这个函数方便。Keybd_event共有四个参数，第一个为按键的虚拟键值，如回车键为 vk_return,　tab键为vk_tab。第二个参数为扫描码，一般不用设置，用0代替就行。第三个参数为选项标志，如果为keydown则置0即可，如果为keyup则设成"KEYEVENTF_KEYUP"，第四个参数一般也是置0即可。用如下代码即可实现模拟按下i键，其中的$ 49表示i键的虚拟键值： 



keybd_event($ 49,0,0,0); 
keybd_event($ 49,0,KEYEVENTF_KEYUP,0); ... 　　 

　　 

　　mouse_event最好配合setcursorpos(x,y)函数一起使用，与Keybd_event类似，mouse_event有五个参数，第一个为选项标志，为 MOUSEEVENTF_LEFTDOWN时表示左键按下，为MOUSEEVENTF_LEFTUP表示左键松开，向系统发送相应消息。第二三个参数分别表示x,y相对位置，一般可设为0,0,第四五个参数并不重要，一般也可设为0,0。若要得到Keybd_event和mouse_event函数的更详细的用法，可以查阅msdn或delphi帮助。下面是关于mouse_event的示例代码： 
　 



在Windows大行其道的今天，windows界面程序受到广大用户的欢迎。对这些程序的操作不外乎两种，键盘输入控制和鼠标输入控制。有时，对于繁杂的，或重复性的操作，我们能否通过编制程序来代替手工输入，而用程序来模拟键盘及鼠标的输入呢？答案是肯定的。这主要是通过两个API函数来实现的。 　　 
　　下面以Delphi为例来介绍一下如何实现这两个功能。模拟键盘我们用Keybd_event这个api函数，模拟鼠标按键用mouse_event函数。大家不用担心，在delphi里调用api函数是很方便的事。 　　 

　　先介绍一下Keybd_event函数。Keybd_event能触发一个按键事件，也就是说回产生一个WM_KEYDOWN或WM_KEYUP消息。当然也可以用产生这两个消息来模拟按键，但是没有直接用这个函数方便。Keybd_event共有四个参数，第一个为按键的虚拟键值，如回车键为 vk_return,　tab键为vk_tab。第二个参数为扫描码，一般不用设置，用0代替就行。第三个参数为选项标志，如果为keydown则置0即可，如果为keyup则设成"KEYEVENTF_KEYUP"，第四个参数一般也是置0即可。用如下代码即可实现模拟按下i键，其中的$ 49表示i键的虚拟键值： 



keybd_event($ 49,0,0,0); 
keybd_event($ 49,0,KEYEVENTF_KEYUP,0); ... 　　 

　　 

　　mouse_event最好配合setcursorpos(x,y)函数一起使用，与Keybd_event类似，mouse_event有五个参数，第一个为选项标志，为 MOUSEEVENTF_LEFTDOWN时表示左键按下，为MOUSEEVENTF_LEFTUP表示左键松开，向系统发送相应消息。第二三个参数分别表示x,y相对位置，一般可设为0,0,第四五个参数并不重要，一般也可设为0,0。若要得到Keybd_event和mouse_event函数的更详细的用法，可以查阅msdn或delphi帮助。下面是关于mouse_event的示例代码： 
　 

setcursorpos(20,132); 
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0); 
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0); 
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0); 
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0); ... 


　　　上面的代码表示鼠标的双击，若要表示单击，用两个mouse_event即可(一次放下，一次松开)。 　 
　　　注意，不管是模拟键盘还是鼠标事件，都要注意还原，即按完键要松开，一个keydown对应一个keyup；鼠标单击　完也要松开， 不然可能影响程序的功能。 　 
　 
　　　好了，希望本文能让你对模拟键盘和鼠标按键有个初步的了解，如果想更深入的了解其中的奥妙，可以查阅详实的msdn在线帮助，并多多动手实践。 



（出处：http://blog.csdn.net/VBEND/） 

- 作者： dragonvery 2005年03月24日, 星期四 14:35　 回复（0） |　 引用（0） 加入博采 
编写后台监控软件 
后台监控软件，为了达到隐蔽监控的目的，应该满足正常运行时，不显示在任务栏上，在按Ctrl+Alt+Del出现的任务列表中也不显示，管理员可以通过热键调出隐藏的运行界面。要作到这些，必须把当前进程变为一个系统服务，并且定义全局热键。 
一、把当前进程变为一个系统服务: 
目的是在任务列表中把程序隐藏起来。调用API函数RegisterServiceProcess实现。 
二、定义全局热键（本例中定义热键Ctrl+Del+R），步骤： 
1、定义捕获Windows消息WM_HOTKEY的钩子函数，即： 
procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY; 
2、向Windows加入一个全局原子 Myhotkey: GlobalAddAtom('MyHotkey'), 
并保留其句柄。 
3、向Windows登记热键：调用API函数RegisterHotKey实现。 

后台监控软件，为了达到隐蔽监控的目的，应该满足正常运行时，不显示在任务栏上，在按Ctrl+Alt+Del出现的任务列表中也不显示，管理员可以通过热键调出隐藏的运行界面。要作到这些，必须把当前进程变为一个系统服务，并且定义全局热键。 
一、把当前进程变为一个系统服务: 
目的是在任务列表中把程序隐藏起来。调用API函数RegisterServiceProcess实现。 
二、定义全局热键（本例中定义热键Ctrl+Del+R），步骤： 
1、定义捕获Windows消息WM_HOTKEY的钩子函数，即： 
procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY; 
2、向Windows加入一个全局原子 Myhotkey: GlobalAddAtom('MyHotkey'), 
并保留其句柄。 
3、向Windows登记热键：调用API函数RegisterHotKey实现。 
三、源程序： 



unit Unit1;