易语言模拟蓝屏源码

系统结构:键盘锁定,键盘钩子处理,键盘解锁,抢占系统前台,处理,操作,提示页面,传输数据,启用,禁用,CallWindowProcA,SetWindowLongA,置系统前台,取系统前台,卸载钩子,安装钩子,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 键盘锁定
           |  |
           |  |------ 键盘钩子处理
           |  |
           |  |------ 键盘解锁
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ 抢占系统前台
           |  |
           |  |------ 处理
           |  |
           |  |------ _服务器1_数据到达
           |  |
           |  |------ 操作
           |  |
           |  |------ 提示页面
           |  |
           |  |------ 传输数据
           |  |
           |  |------ 启用
           |  |
           |  |------ 禁用
           |  |
           |  |------ __启动窗口_可否被关闭
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CallWindowProcA
           |  |
           |  |---[dll]------   SetWindowLongA
           |  |
           |  |---[dll]------   置系统前台
           |  |
           |  |---[dll]------   取系统前台
           |  |
           |  |---[dll]------   卸载钩子
           |  |
           |  |---[dll]------   安装钩子
           |  |
           |  |---[dll]------   _取模块句柄

调用的DLL命令:

.DLL命令 CallWindowProcA, 整数型, , "CallWindowProcA"
    .参数 程序指针, 子程序指针
    .参数 窗口句柄, 整数型
    .参数 消息, 整数型
    .参数 参数1, 整数型
    .参数 参数2, 整数型

.DLL命令 SetWindowLongA, 子程序指针, , "SetWindowLongA"
    .参数 窗口句柄, 整数型
    .参数 要置的特征, 整数型
    .参数 新特征, 子程序指针, , 仅易语言3.0支持

.DLL命令 置系统前台, 整数型, , "SetWindowPos", , SetWindowPos
    .参数 a
    .参数 b
    .参数 c
    .参数 d
    .参数 e
    .参数 f
    .参数 g

.DLL命令 取系统前台, 整数型, "user32", "GetForegroundWindow", , GetForegroundwindow

.DLL命令 卸载钩子, 整数型, , "UnhookWindowsHookEx", , 钩子
    .参数 hHook, 整数型

.DLL命令 安装钩子, 整数型, , "SetWindowsHookExA", , 钩子
    .参数 ihook, 整数型
    .参数 lpfunc, 子程序指针
    .参数 hin, 整数型
    .参数 threadid, 整数型

.DLL命令 _取模块句柄, 整数型, , "GetModuleHandleA", , 钩子
    .参数 lpModuleName, 整数型