VB利用WinIo实现驱动级编程

SKY晓夜

WinIO程序库允许在32位的Windows应用程序中直接对I/O端口和物理内存进行存取操作。通过使用一种内核模式的设备驱动器和其它几种底层编程技巧，它绕过了Windows系统的保护机制。
　　WinNT/2000/XP下，WinIO函数库只允许被具有管理者权限的应用程序调用。如果使用者不是以管理者的身份进入的，则WinIO.DLL不能够被安装，也不能激活WinIO驱动器。通过在管理者权限下安装驱动器软件就可以克服这种限制。然而，在这种情况下，ShutdownWinIo函数不能在应用程序结束之前被调用，因为该函数将WinIO驱动程序从系统注册表中删除。
　　该函数库提供8个函数功能调用：
　　bool _stdcall InitializeWinIo();
　　本函数初始化WioIO函数库。
　　必须在调用所有其它功能函数之前调用本函数。
　　如果函数调用成功，返回值为非零值。
　　如果调用失败，则返回值为0。
　　void _stdcall ShutdownWinIo();
　　本函数在内存中清除WinIO库
　　本函数必须在中止应用函数之前或者不再需要WinIO库时调用，
　　bool _stdcall GetPortVal(WORD wPortAddr, PDWORD pdwPortVal, BYTE bSize);
　　使用此函数从一个输入或输出端口读取一个字节/字/双字数据。
　　参数：
　　wPortAddr – 输入输出端口地址
　　pdwPortVal – 指向双字变量的指针，接收从端口得到的数据。
　　bSize – 需要读的字节数，可以是1 (BYTE), 2 (WORD) or 4 (DWORD).
　　如果调用成功，则返回非零值。
　　如果函数调用失败，则函数返回值为零。
　　bool _stdcall SetPortVal(WORD wPortAddr, DWORD dwPortVal, BYTE bSize);
　　使用本函数将一个字节/字/双字的数据写入输入或输出接口。
　　参数：
　　wPortAddr – 输入输出口地址
　　dwPortVal – 要写入口的数据
　　bSize – 要写的数据个数，可以是 1 (BYTE), 2 (WORD) or 4 (DWORD).
　　如果调用成功，则返回非零值。
　　如果函数调用失败，则函数返回值为零。
　　PBYTE _stdcall MapPhysToLin(PBYTE pbPhysAddr, DWORD dwPhysSize, HANDLE *pPhysicalMemoryHandle)
　　使用此函数将物理内存的一部分映射到一个32位应用程序的线性地址空间。
　　下面是一个例子：
　　PBYTE pbLinAddr;
　　HANDLE PhysicalMemoryHandle;
　　pbLinAddr = MapPhysToLin(0xA0000, 65536, &PhysicalMemoryHandle);
　　该函数将把物理地址范围为0xA0000 - 0xAFFFF的地址空间映射到与应用程序对应的线性地址空间。 返回值为一个与物理地址0xA0000相关的线性地址。如果出现错误，则返回值为NULL。
　　参数：
　　pbPhysAddr – 指向物理地址的指针
　　dwPhysSize – 需要映射的字节数
　　pPhysicalMemoryHandle – 变量指针，如果调用成功，负责接收物理内存句柄。随后本句柄在调用UnmapPhysicalMemory函数时作为其第一个参数。
　　bool _stdcall UnmapPhysicalMemory(HANDLE PhysicalMemoryHandle, PBYTE
　　pbLinAddr)
　　使用本函数解除原先使用MapPhysToLin函数映射的一段线性物理内存区域，该区域被映射到应用程序所属的线性地址空间。
　　Windows 9x 应用程序不需要调用此函数。
　　参数：
　　PhysicalMemoryHandle – 物理内存区域所属的句柄，此参数由对MapPhysToLin函数的调用返回。
　　pbLinAddr – MapPhysToLin函数调用返回的线性地址。
　　bool _stdcall GetPhysLong(PBYTE pbPhysAddr, PDWORD pdwPhysVal);
　　从指定的物理地址读取一个双字数据。
　　参数：
　　pbPhysAddr – 指向物理地址的指针。
　　pdwPhysVal – 指向一个双字变量的指针，接收从物理内存中传来的数据。
　　如果此函数调用成功，返回一个非零值。
　　如果函数调用失败，则返回一个零值。
　　bool _stdcall SetPhysLong(PBYTE pbPhysAddr, DWORD dwPhysVal);
　　将一个双字型数据写入指定的物理地址。
　　参数：
　　pbPhysAddr – 指向物理地址的指针。
　　pdwPhysVal – 指定待写入物理内存地址出的双字型数据。
　　如果此函数调用成功，返回一个非零值。
　　如果函数调用失败，则返回一个零值。
ows消息，直接与键盘驱动程序打交道，效率当然提高了不少。因此也就造成，对这样的程序无论用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,&HD2    '把数据&HD2发送到&H64端口。这是一个KBC指令，表示将要向键盘写入数据
OUT &H60,(&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函数声明:

Declare Function MapPhysToLin Lib "WinIo.dll" (ByVal PhysAddr As Long, ByVal PhysSize As Long, ByRef PhysMemHandle) As Long
Declare Function UnmapPhysicalMemory Lib "WinIo.dll" (ByVal PhysMemHandle, ByVal LinAddr) As Boolean
Declare Function GetPhysLong Lib "WinIo.dll" (ByVal PhysAddr As Long, ByRef PhysVal As Long) As Boolean
Declare Function SetPhysLong Lib "WinIo.dll" (ByVal PhysAddr As Long, ByVal PhysVal As Long) As Boolean
Declare Function GetPortVal Lib "WinIo.dll" (ByVal PortAddr As Integer, ByRef PortVal As Long, ByVal bSize As Byte) As Boolean
Declare Function SetPortVal Lib "WinIo.dll" (ByVal PortAddr As Integer, ByVal PortVal As Long, ByVal bSize As Byte) As Boolean
Declare Function InitializeWinIo Lib "WinIo.dll" () As Boolean
Declare Function ShutdownWinIo Lib "WinIo.dll" () As Boolean
Declare Function InstallWinIoDriver Lib "WinIo.dll" (ByVal DriverPath As String, ByVal Mode As Integer) As Boolean
Declare Function RemoveWinIoDriver Lib "WinIo.dll" () As Boolean

' ------------------------------------以上是WINIO函数声明-------------------------------------------