module1.bas

利用WINPORT.dll来实现驱动级模拟键盘本程式只示范模拟A键如有需要 可以自己更改

Attribute VB_Name = "Module1"
Declare Sub SetPortDWord Lib "WinPortIO.DLL" (ByVal Port As Integer, ByVal Data As Long)
Declare Function GetPortDWord Lib "WinPortIO.DLL" (ByVal Port As Integer) As Long
Declare Function InitializeWinPortIO Lib "WinPortIO.DLL" () As Boolean
Declare Sub ShutWinPortIO Lib "WinPortIO.DLL" ()


Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long


Public Const KBC_KEY_CMD = &H64    '龄絃㏑