易语言键盘指示灯操作源码

系统结构:初始化,取状态,置图标,事件处理,GetModuleHandle,CallNextHookEx,SetWindowsHookEx,UnhookWindowsHookEx,CopyMemory,keybd_event,MapVirtualKey,GetKeyState,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 初始化
           |  |
           |  |------ 取状态
           |  |
           |  |------ 置图标
           |  |
           |  |------ 事件处理
           |  |
           |  |------ __启动窗口_托盘事件
           |  |
           |  |------ _数字锁定_被选择
           |  |
           |  |------ _大小写锁定_被选择
           |  |
           |  |------ _滚动锁定_被选择
           |  |
           |  |------ _退出_被选择
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetModuleHandle
           |  |
           |  |---[dll]------   CallNextHookEx
           |  |
           |  |---[dll]------   SetWindowsHookEx
           |  |
           |  |---[dll]------   UnhookWindowsHookEx
           |  |
           |  |---[dll]------   CopyMemory
           |  |
           |  |---[dll]------   keybd_event
           |  |
           |  |---[dll]------   MapVirtualKey
           |  |
           |  |---[dll]------   GetKeyState

调用的DLL命令:

.DLL命令 GetModuleHandle, 整数型, , "GetModuleHandleA"
    .参数 lpModuleName, 整数型

.DLL命令 CallNextHookEx, 整数型
    .参数 hhk, 整数型
    .参数 nCode, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 SetWindowsHookEx, 整数型, , "SetWindowsHookExA"
    .参数 idHook, 整数型
    .参数 lpfn, 子程序指针
    .参数 hmod, 整数型
    .参数 dwThreadId, 整数型

.DLL命令 UnhookWindowsHookEx, 逻辑型
    .参数 hhk, 整数型

.DLL命令 CopyMemory, , , "RtlMoveMemory"
    .参数 Destination, MSG, 传址
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 keybd_event, 整数型
    .参数 bVk, 字节型
    .参数 bScan, 字节型
    .参数 dwFlags, 整数型
    .参数 dwExtraInfo, 整数型

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

.DLL命令 GetKeyState, 逻辑型
    .参数 nVirtKey, 整数型