键盘记录

系统结构:检查窗口,窗口单元名,窗口名,是否大写,呼出窗口,注册程序热键,热键注册完毕,撤消程序热键,取前台窗口句柄,窗口类名,窗体标题,标题长度,取键状态,取当前进程,注册进程,设置透明,取窗口风格,置窗口风格,GetDC,DelDC,取功能键状态,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 检查窗口
           |  |
           |  |------ 窗口单元名
           |  |
           |  |------ 窗口名
           |  |
           |  |------ 是否大写
           |  |
           |  |------ _按键记录时钟_周期事件
           |  |
           |  |------ _存储记录时钟_周期事件
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _编辑框2_获得焦点
           |  |
           |  |------ 呼出窗口
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮5_被单击
           |  |
           |  |
======_模块_注册系统热键1.0
           |  |
           |  |------ 注册程序热键
           |  |
           |  |------ 热键注册完毕
           |  |
           |  |------ 撤消程序热键
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ _背景窗口_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取前台窗口句柄
           |  |
           |  |---[dll]------   窗口类名
           |  |
           |  |---[dll]------   窗体标题
           |  |
           |  |---[dll]------   标题长度
           |  |
           |  |---[dll]------   取键状态
           |  |
           |  |---[dll]------   取当前进程
           |  |
           |  |---[dll]------   注册进程
           |  |
           |  |---[dll]------   设置透明
           |  |
           |  |---[dll]------   取窗口风格
           |  |
           |  |---[dll]------   置窗口风格
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   DelDC
           |  |
           |  |---[dll]------   取功能键状态

调用的DLL命令:

.DLL命令 取前台窗口句柄, 整数型, , "GetForegroundWindow"

.DLL命令 窗口类名, 整数型, , "GetClassNameA"
    .参数 hwnd, 整数型
    .参数 lpClassName, 文本型
    .参数 nMaxCount, 整数型

.DLL命令 窗体标题, 整数型, , "GetWindowTextA"
    .参数 hwnd, 整数型
    .参数 lpString, 文本型
    .参数 cch, 整数型

.DLL命令 标题长度, 整数型, , "GetWindowTextLengthA"
    .参数 hwnd, 整数型

.DLL命令 取键状态, 整数型, , "GetAsyncKeyState"
    .参数 vKey, 整数型

.DLL命令 取当前进程, 整数型, , "GetCurrentProcessId"

.DLL命令 注册进程, 整数型, , "RegisterServiceProcess"
    .参数 dwProcessID, 整数型
    .参数 dwType, 整数型, , 为1时为显示，为0时为隐藏进程

.DLL命令 设置透明, 整数型, , "SetLayeredWindowAttributes"
    .参数 hwnd, 整数型
    .参数 crkey, 整数型
    .参数 alpha, 字节型
    .参数 dwflags, 整数型

.DLL命令 取窗口风格, 整数型, , "GetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型

.DLL命令 置窗口风格, 整数型, , "SetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nindex, 整数型
    .参数 hnew, 整数型

.DLL命令 GetDC, 整数型, "user32.dll", "GetDC"
    .参数 hnd, 整数型

.DLL命令 DelDC, 整数型, "user32.dll", "ReleaseDC"
    .参数 hnd, 整数型
    .参数 hdc, 整数型

.DLL命令 取功能键状态, 整数型, , "GetKeyState"
    .参数 nVirtKey