模拟组合框的下拉式效果

系统结构:A鼠标在外单击,截获鼠标动作,外部单击事件,B鼠标在外单击,启动时钟,停止时钟,判断鼠标范围,鼠标动作,C鼠标在外单击,鼠标钩子函数,在外部单击,置窗口特征,执行窗口程序,取范围,隐藏组件,取键状态,启动时钟事件,停止时钟事件,是否可见,取定点控件句柄,设置焦点,取进程句柄,安装钩子,调入下一个挂钩,卸载钩子,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _图形按钮1_被单击
           |  |
           |  |------ _图形按钮3_被单击
           |  |
           |  |------ _单选框2_被单击
           |  |
           |  |------ _单选框3_被单击
           |  |
           |  |------ _编辑框2_失去焦点
           |  |
           |  |
======程序集1
           |  |
           |  |------ A鼠标在外单击
           |  |
           |  |------ 截获鼠标动作
           |  |
           |  |------ 外部单击事件
           |  |
           |  |
======程序集2
           |  |
           |  |------ B鼠标在外单击
           |  |
           |  |------ 启动时钟
           |  |
           |  |------ 停止时钟
           |  |
           |  |------ 判断鼠标范围
           |  |
           |  |------ 鼠标动作
           |  |
           |  |
======程序集3
           |  |
           |  |------ C鼠标在外单击
           |  |
           |  |------ 鼠标钩子函数
           |  |
           |  |------ 在外部单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   置窗口特征
           |  |
           |  |---[dll]------   执行窗口程序
           |  |
           |  |---[dll]------   取范围
           |  |
           |  |---[dll]------   隐藏组件
           |  |
           |  |---[dll]------   取键状态
           |  |
           |  |---[dll]------   启动时钟事件
           |  |
           |  |---[dll]------   停止时钟事件
           |  |
           |  |---[dll]------   是否可见
           |  |
           |  |---[dll]------   取定点控件句柄
           |  |
           |  |---[dll]------   设置焦点
           |  |
           |  |---[dll]------   取进程句柄
           |  |
           |  |---[dll]------   安装钩子
           |  |
           |  |---[dll]------   调入下一个挂钩
           |  |
           |  |---[dll]------   卸载钩子

调用的DLL命令:

.DLL命令 置窗口特征, 子程序指针, "user32.dll", "SetWindowLongA"
    .参数 窗口句柄, 整数型
    .参数 特征索引, 整数型
    .参数 新特征, 子程序指针

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

.DLL命令 取范围, , , "GetWindowRect"
    .参数 窗口句柄, 整数型
    .参数 矩形, RECT

.DLL命令 隐藏组件, , , "ShowWindow"
    .参数 窗口句柄, 整数型
    .参数 隐藏窗口, 整数型, , 0

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

.DLL命令 启动时钟事件, 整数型, "winmm.dll", "timeSetEvent", , 返回时钟句柄
    .参数 时钟周期, 整数型
    .参数 uResolution, 整数型
    .参数 周期事件, 子程序指针
    .参数 dwUser, 整数型
    .参数 uFlags, 整数型

.DLL命令 停止时钟事件, 整数型, "winmm.dll", "timeKillEvent", , 返回0表示成功
    .参数 时钟事件句柄, 整数型

.DLL命令 是否可见, 整数型, , "IsWindowVisible", , 可见则返回非零
    .参数 句柄, 整数型

.DLL命令 取定点控件句柄, 整数型, "user32.dll", "WindowFromPoint"
    .参数 X, 整数型
    .参数 Y, 整数型

.DLL命令 设置焦点, , , "SetFocus"
    .参数 窗口句柄, 整数型

.DLL命令 取进程句柄, 整数型, , "GetModuleHandleA"
    .参数 M, 整数型

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

.DLL命令 调入下一个挂钩, 整数型, , "CallNextHookEx", , 调入链中的下一个挂钩过程
    .参数 钩子, 整数型
    .参数 nCode, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

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