VB 加载winIO，实现驱动级键盘模拟

VB 前端之家
前端之家收集整理的这篇文章主要介绍了VB 加载winIO，实现驱动级键盘模拟，前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。


最近用VB做外挂，模拟鼠标实现自动化操作。发现驱动级模拟，一直存在问题。今天终于解决了，记录下.

---------------------------------------------------------------------------------

系统环境：win7 64位，VB 32位

winIO环境： 3.0环境

下载地址：www.internals.com

---------------------------------------------------------------------------------

WinIO是一款免费、开源的系统组件，你可以在www.internals.com上面免费下载它的
源码。在最新版本3.0中，增加了对64位 Windows操作系统的支持。我就是利用它的功能，
实现了驱动级模拟按键。在我使用的WinIO 3.0中，里面有四个bin 文件，分别是
WinIO32.dll、WinIO64.dll、WinIO32.sys、WinIO64.sys。sys文件是实现核心功能的驱动，
dll文件是封装驱动功能的接口。由于我的系统是64 位系统，使用了VB做界面编程，所以
仅需要 WinIO32.dll和 WinIO64.sys。dll

  • VB调试的时候，要把 WinIO32.dll和 WinIO64.sys 文件拷贝到VB安装目录下
  • 生成exe文件后，WinIO32.dll和 WinIO64.sys 跟exe文件保持在同目录下即可
  • 关于数字签名：
    WinIO64.sys没有正式的数字签名，只有测试签名。要使它能成功加载，
    必须打开测试模式（cmd里切换到 system32目录再输入 bcdedit /set testsigning on），
    然后根据以下步骤信任WinIO64.sys的测试签名：
    1.打开 WinIO64.sys的属性框，翻到“数字签名”选项卡，点击“详细信息”
    2.在新出来的对话框中点击“查看证书”
    3.在又新出来的对话框中点击“安装证书”
    4.点击“下一步”，然后选择“将所有的证书放入下列存储”
    5.点击浏览，选择“受信任的根证书发布机构”
    受信任的根证书发布界面
    6.点击“下一步”，然后点击“完成”
    7.在弹出的“安全性警告”对话框中选择“是”，才能导入成功

实现方式：


调用：

  1.   Private Sub Command6_Click()
  2.     If InitializeWinIo = False Then
  3.      '用InitializeWinIo函数加载驱动程序，如果成功会返回true，否则返回false
  4.      MsgBox "驱动程序加载失败!"
  5.     Else
  6.       Dim hwnd As Long
  7.       hwnd = Shell("Notepad.exe",vbNormalFocus)
  8.       Sleep 1000
  9.       '模拟按下  alt+F 键
  10.       MyKeyDownEx VK_MENU
  11.       Sleep 200
  12.       MyKeyDown VK_F
  13.       MyKeyUp VK_F    '模拟按下并释放A键
  14.       MyKeyUpEx VK_MENU
  15.     
  16.       Sleep 500
  17.       '模拟按下 ctl+O 键
  18.       MyKeyDownEx VK_Control
  19.       Sleep 200
  20.       MyKeyDown VK_O
  21.       MyKeyUp VK_O    '模拟按下并释放A键
  22.       MyKeyUpEx VK_Control
  23.       
  24.       ShutdownWinIo '程序结束时记得用ShutdownWinIo函数卸载驱动程序
  25.     End If
  26. End Sub


模块：


  1. Option Explicit
  2.  
  3. Declare Function MapPhysToLin Lib "WinIo32.dll" (ByVal PhysAddr As Long,ByVal PhysSize As Long,ByRef PhysMemHandle) As Long
  4. Declare Function UnmapPhysicalMemory Lib "WinIo32.dll" (ByVal PhysMemHandle,ByVal LinAddr) As Boolean
  5. Declare Function GetPhysLong Lib "WinIo32.dll" (ByVal PhysAddr As Long,ByRef PhysVal As Long) As Boolean
  6. Declare Function SetPhysLong Lib "WinIo32.dll" (ByVal PhysAddr As Long,ByVal PhysVal As Long) As Boolean
  7. Declare Function GetPortVal Lib "WinIo32.dll" (ByVal PortAddr As Integer,ByRef PortVal As Long,ByVal bSize As Byte) As Boolean
  8. Declare Function SetPortVal Lib "WinIo32.dll" (ByVal PortAddr As Integer,ByVal PortVal As Long,ByVal bSize As Byte) As Boolean
  9. Declare Function InitializeWinIo Lib "WinIo32.dll" () As Boolean
  10. Declare Function ShutdownWinIo Lib "WinIo32.dll" () As Boolean
  11. Declare Function InstallWinIoDriver Lib "WinIo32.dll" (ByVal DriverPath As String,ByVal Mode As Integer) As Boolean
  12. Declare Function RemoveWinIoDriver Lib "WinIo32.dll" () As Boolean
  13.  
  14. Public Const KBC_KEY_CMD = &H64    '键盘命令端口
  15. Public Const KBC_KEY_DATA = &H60   '键盘数据端口
  16.  
  17. Public Const VK_LButton = &H1 '鼠标左键
  18. Public Const VK_RButton = &H2 '鼠标右键
  19. Public Const VK_Cancel = &H3 'CANCEL键
  20. Public Const VK_MButton = &H4 '鼠标中键
  21. Public Const VK_Back = &H8 '退格键
  22. Public Const VK_Tab = &H9 'TAB键
  23. Public Const VK_Clear = &HC 'CLEAR健
  24. Public Const VK_RETURN = &HD '回车键
  25. Public Const VK_Shift = &H10  'SHIFT键
  26. Public Const VK_Control = &H11  'CTRL键
  27. Public Const VK_MENU = &H12  'MENU键
  28. Public Const VK_Pause = &H13  'PAUSE键
  29. Public Const VK_Capital = &H14  'CAPS LOCK 键
  30. Public Const VK_Escape = &H1B  'ESC键
  31. Public Const VK_Space = &H20 ' 空格键
  32. Public Const VK_PageUp = &H21  'Page Up 键
  33. Public Const VK_PageDown = &H22  'Page Down 键
  34. Public Const VK_End = &H23  'END键
  35. Public Const VK_Home = &H24  'HOME键
  36. Public Const VK_Left = &H25  '光标左键
  37. Public Const VK_Up = &H26  '光标上键
  38. Public Const VK_Right = &H27  '光标右键
  39. Public Const VK_Down = &H28  '光标下键
  40. Public Const VK_Select = &H29  'SELECT键
  41. Public Const VK_Print = &H2A  'Print Screen 键
  42. Public Const VK_Execute = &H2B  'EXECUTE键
  43. Public Const VK_Snapshot = &H2C 'SnapShot键
  44. Public Const VK_Insert = &H2D  'INSERT键
  45. Public Const VK_Delete = &H2E  'DELETE键
  46. Public Const VK_Help = &H2F  'HELP键
  47. Public Const VK_Numlock = &H90 'NUM LOCK 键
  48. Public Const VK_A = &H41 '字母A键
  49. Public Const VK_B = &H42 '字母B键
  50. Public Const VK_C = &H43 '字母C键
  51. Public Const VK_D = &H44 '字母D键
  52. Public Const VK_E = &H45 '字母E键
  53. Public Const VK_F = &H46 '字母F键
  54. Public Const VK_G = &H47 '字母G键
  55. Public Const VK_H = &H48 '字母H键
  56. Public Const VK_I = &H49 '字母I键
  57. Public Const VK_J = &H4A '字母J键
  58. Public Const VK_K = &H4B '字母K键
  59. Public Const VK_L = &H4C '字母L键
  60. Public Const VK_M = &H4D '字母M键
  61. Public Const VK_N = &H4E '字母N键
  62. Public Const VK_O = &H4F '字母O键
  63. Public Const VK_P = &H50 '字母P键
  64. Public Const VK_Q = &H51 '字母Q键
  65. Public Const VK_R = &H52 '字母R键
  66. Public Const VK_S = &H53 '字母S键
  67. Public Const VK_T = &H54 '字母T键
  68. Public Const VK_U = &H55 '字母U键
  69. Public Const VK_V = &H56 '字母V键
  70. Public Const VK_W = &H57 '字母W键
  71. Public Const VK_X = &H58 '字母X键
  72. Public Const VK_Y = &H59 '字母Y键
  73. Public Const VK_Z = &H5A '字母Z键
  74.  
  75. Public Const VK_0 = &H30 '数字0键
  76. Public Const VK_1 = &H31 '数字1键
  77. Public Const VK_2 = &H32 '数字2键
  78. Public Const VK_3 = &H33 '数字3键
  79. Public Const VK_4 = &H34 '数字4键
  80. Public Const VK_5 = &H35 '数字5键
  81. Public Const VK_6 = &H36 '数字6键
  82. Public Const VK_7 = &H37 '数字7键
  83. Public Const VK_8 = &H38 '数字8键
  84. Public Const VK_9 = &H39 '数字9键
  85.  
  86. Public Const VK_F1 = &H70  'F1功能键
  87. Public Const VK_F2 = &H71  'F2功能键
  88. Public Const VK_F3 = &H72  'F3功能键
  89. Public Const VK_F4 = &H73  'F4功能键
  90. Public Const VK_F5 = &H74  'F5功能键
  91. Public Const VK_F6 = &H75  'F6功能键
  92. Public Const VK_F7 = &H76  'F7功能键
  93. Public Const VK_F8 = &H77  'F8功能键
  94. Public Const VK_F9 = &H78  'F9功能键
  95. Public Const VK_F10 = &H79 'F10功能键
  96. Public Const VK_F11 = &H7A 'F11功能键
  97. Public Const VK_F12 = &H7B 'F12功能键
  98. Public Const VK_F13 = &H7C 'F13功能键
  99. Public Const VK_F14 = &H7D 'F14功能键
  100. Public Const VK_F15 = &H7E 'F15功能键
  101. Public Const VK_F16 = &H7F 'F16功能键
  102. Public Const VK_Numpad0 = &H60 '小键盘0键
  103. Public Const VK_Numpad1 = &H61 '小键盘1键
  104. Public Const VK_Numpad2 = &H62 '小键盘2键
  105. Public Const VK_Numpad3 = &H63 '小键盘3键
  106. Public Const VK_Numpad4 = &H64 '小键盘4键
  107. Public Const VK_Numpad5 = &H65 '小键盘5键
  108. Public Const VK_Numpad6 = &H66 '小键盘6键
  109. Public Const VK_Numpad7 = &H67 '小键盘7键
  110. Public Const VK_Numpad8 = &H68 '小键盘8键
  111. Public Const VK_Numpad9 = &H69 '小键盘9键
  112. Public Const VK_Multiply = &H6A '小键盘*键
  113. Public Const VK_Add = &H6B '小键盘+键
  114. Public Const VK_Separator = &H6C '小键盘回车键
  115. Public Const VK_Subtract = &H6D '小键盘-键
  116. Public Const VK_Decimal = &H6E '小键盘.键
  117. Public Const VK_Divide = &H6F '小键盘/键
  118.  
  119.  
  120.  
  121. '**************************
  122. '   等待键盘缓冲区为空
  123. '**************************
  124. Sub KBCWait4IBE()
  125.     Dim dwVal As Long
  126.     Do
  127.     GetPortVal &H64,dwVal,1
  128.     '这句表示从&H64端口读取一个字节并把读出的数据放到变量dwVal中
  129.     'GetPortVal函数的用法是GetPortVal 端口号,存放读出数据的变量,读入的长度
  130.     Loop While (dwVal And &H2)
  131. End Sub
  132.  
  133.  
  134.  
  135.  
  136. '**************************************
  137. '
  138. '这个用来模拟按下键，参数vKeyCoad传入按键的虚拟码
  139. '
  140. '**************************************
  141. Sub MyKeyDown(ByVal vKeyCoad As Long) '
  142.     Dim btScancode As Long
  143.     btScancode = MapVirtualKey(vKeyCoad,0)
  144.     KBCWait4IBE     '发送数据前应该先等待键盘缓冲区为空
  145.     SetPortVal KBC_KEY_CMD,&HD2,1     '发送键盘写入命令
  146.     'SetPortVal函数用于向端口写入数据，它的用法是SetPortVal 端口号,欲写入的数据，写入数据的长度
  147.     KBCWait4IBE
  148.     SetPortVal KBC_KEY_DATA,btScancode,1 '写入按键信息,按下键
  149. End Sub
  150.  
  151.  
  152. '**************************************
  153. '
  154. '这个用来模拟释放键，参数vKeyCoad传入按键的虚拟码
  155. '
  156. '**************************************
  157. Sub MyKeyUp(ByVal vKeyCoad As Long)
  158. '
  159.     Dim btScancode As Long
  160.     btScancode = MapVirtualKey(vKeyCoad,0)
  161.     KBCWait4IBE   '等待键盘缓冲区为空
  162.     SetPortVal KBC_KEY_CMD,1 '发送键盘写入命令
  163.     KBCWait4IBE
  164.     SetPortVal KBC_KEY_DATA,(btScancode Or &H80),1 '写入按键信息，释放键
  165. End Sub
  166.  
  167.  
  168. '*********************************************************************
  169. ' 从扩展键转换到普通键，那么普通键的KeyDown事件应该发送两次。
  170. ' 也就是说，如果我想模拟先按下一个扩展键，再按下一个普通键，
  171. ' 那么就应该向端口发送 两次 该普通键被按下的信息
  172.  
  173. ' MyKeyDownEx VK_LEFT   '按下左方向键
  174. ' Sleep 200             '延时200毫秒
  175. ' MyKeyUpEx VK_LEFT     '释放左方向键
  176. ' Sleep 500
  177. ' MyKeyDown VK_SPACE   '按下空格键，注意要发送两次
  178. ' MyKeyDown VK_SPACE
  179. ' Sleep 200
  180. ' MyKeyUp VK_SPACE     '释放空格键
  181.  
  182. '**********************************************************************
  183. Sub MyKeyDownEx(ByVal vKeyCoad As Long)   '模拟扩展键按下，参数vKeyCoad是扩展键的虚拟码
  184.     Dim btScancode As Long
  185.     btScancode = MapVirtualKey(vKeyCoad,1     '发送键盘写入命令
  186.     KBCWait4IBE
  187.     SetPortVal KBC_KEY_DATA,&HE0,1    '写入扩展键标志信息
  188.     
  189.     
  190.     KBCWait4IBE   '等待键盘缓冲区为空
  191.     SetPortVal KBC_KEY_CMD,按下键
  192. End Sub
  193.  
  194.  
  195.  
  196.  
  197.  '***********************************************
  198.  '模拟扩展键弹起
  199.  '**********************************************
  200. Sub MyKeyUpEx(ByVal vKeyCoad As Long)
  201.     Dim btScancode As Long
  202.     btScancode = MapVirtualKey(vKeyCoad,1 '写入扩展键标志信息
  203.     
  204.     
  205.     KBCWait4IBE   '等待键盘缓冲区为空
  206.     SetPortVal KBC_KEY_CMD,1 '写入按键信息，释放键
  207.     
  208. End Sub
  209.  
  210. '----------------------------------------------------------------------------------------------------------------------------------------------------------
  211.  
  212.  
  213. Sub MySendKey(bkey As Long)
  214.     '参数bkey传入要模拟按键的虚拟码即可模拟按下指定键
  215.     Dim GInput(0 To 1) As GENERALINPUT
  216.     Dim KInput As KEYBDINPUT
  217.     KInput.wVk = bkey  '你要模拟的按键
  218.     KInput.dwFlags = 0 '按下键标志
  219.     GInput(0).dwType = INPUT_KEYBOARD
  220.     CopyMemory GInput(0).xi(0),KInput,Len(KInput) '这个函数用来把内存中KInput的数据复制到GInput
  221.     KInput.wVk = bkey
  222.     KInput.dwFlags = KEYEVENTF_KEYUP  ' 释放按键
  223.     GInput(1).dwType = INPUT_KEYBOARD ' 表示该消息为键盘消息
  224.     CopyMemory GInput(1).xi(0),Len(KInput) '以上工作把按下键和释放键共2条键盘消息加入到GInput数据结构中
  225.     SendInput 2,GInput(0),Len(GInput(0))    '把GInput中存放的消息插入到消息列队
  226. End Sub
  227.  
  228.  
  229. Function MakeKeyLparam(ByVal VirtualKey As Long,ByVal flag As Long) As Long
  230.     Dim s As String
  231.     Dim Firstbyte As String     'lparam参数的24-31位
  232.     If flag = WM_KEYDOWN Then   '如果是按下键
  233.         Firstbyte = "00"
  234.     Else
  235.          Firstbyte = "C0"        '如果是释放键
  236.     End If
  237.     Dim Scancode As Long
  238.      '获得键的扫描码
  239.     Scancode = MapVirtualKey(VirtualKey,0)
  240.     Dim Secondbyte As String    'lparam参数的16-23位，即虚拟键扫描码
  241.     Secondbyte = Right("00" & Hex(Scancode),2)
  242.     s = Firstbyte & Secondbyte & "0001"   '0001为lparam参数的0-15位，即发送次数和其它扩展信息
  243.     MakeKeyLparam = Val("&H" & s)
  244.  End Function


参考链接：

http://bbs.csdn.net/topics/90509805

猜你在找的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()用法打印模型反卷积卷积