电脑每日使用时间限制易语言源码

系统结构:初始化,处理,Time_Today,Time_Start,钩子函数,风_输出调试文本,风_启动调试模式,风_调试提示框,风_调试系统锁定,风_调试模式关闭,SetCapture,CallWindowProcA,SetWindowLongA,新父窗口,寻找顶级窗口,安装钩子,取模块句柄,卸载钩子,下一个钩子,设置系统钩子_,CopyMemory,恢复窗口_,ReleaseCapture,

======启动窗口_程序集
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 初始化
           |  |
           |  |------ 处理
           |  |
           |  |------ _时钟_拦截到的消息_周期事件
           |  |
           |  |------ Time_Today
           |  |
           |  |------ Time_Start
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ __启动窗口_可否被关闭
           |  |
           |  |------ _标签1_反馈事件
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |
======提示窗口_程序集
           |  |
           |  |------ _提示框_创建完毕
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ _时钟2_周期事件
           |  |
           |  |------ _时钟3_周期事件
           |  |
           |  |------ _鼠标移入区域_鼠标位置被移动
           |  |
           |  |
======锁定窗口_程序集
           |  |
           |  |------ _锁定窗口_创建完毕
           |  |
           |  |------ 钩子函数
           |  |
           |  |------ _解除锁定_周期事件
           |  |
           |  |------ _解除锁定_按钮_被单击
           |  |
           |  |
======调试_程序集
           |  |
           |  |------ 风_输出调试文本
           |  |
           |  |------ 风_启动调试模式
           |  |
           |  |------ 风_调试提示框
           |  |
           |  |------ 风_调试系统锁定
           |  |
           |  |------ 风_调试模式关闭
           |  |
           |  |
======调试窗口_程序集
           |  |
           |  |------ _调试窗口_将被销毁
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetCapture
           |  |
           |  |---[dll]------   CallWindowProcA
           |  |
           |  |---[dll]------   SetWindowLongA
           |  |
           |  |---[dll]------   新父窗口
           |  |
           |  |---[dll]------   寻找顶级窗口
           |  |
           |  |---[dll]------   安装钩子
           |  |
           |  |---[dll]------   取模块句柄
           |  |
           |  |---[dll]------   卸载钩子
           |  |
           |  |---[dll]------   下一个钩子
           |  |
           |  |---[dll]------   设置系统钩子_
           |  |
           |  |---[dll]------   CopyMemory
           |  |
           |  |---[dll]------   恢复窗口_
           |  |
           |  |---[dll]------   ReleaseCapture

调用的DLL命令:

.DLL命令 SetCapture, 整数型, , "SetCapture"
    .参数 Hwnd, 整数型

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

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

.DLL命令 新父窗口, 整数型, "user32", "SetParent", , 指定一个窗口的新父（在vb里使用：利用这个函数，vb可以多种形式支持子窗口。例如，可将控件从一个容器移至窗体中的另一个。用这个函数在窗体间移动控件是相当冒险的，但却不失为一个有效的办法。如真的这样做，请在关闭任何一个窗体之前，注意用SetParent将控件的父设回原来的那个）  前一个父窗口的句柄
    .参数 hWndChild, 整数型, , 子窗口的句柄
    .参数 hWndNewParent, 整数型, , hWndChild的新父;

.DLL命令 寻找顶级窗口, 整数型, "user32", "FindWindowA", , 寻找窗口列表中第一个符合指定条件的顶级窗口（在vb里使用：FindWindow最常见的一个用途是获得ThunderRTMain类的隐藏窗口的句柄；该类是所有运行中vb执行程序的一部分。获得句柄后，可用api函数GetWindowText取得这个窗口的名称；该名也是应用程序的标题）  找到窗口的句柄。如未找到相符窗口，则返回零。会设置GetLastError
    .参数 窗口类名, 文本型, , 指向包含了窗口类名的空中止（C语言）字串的指针；或设为零，表示接收任何类
    .参数 窗口文本, 文本型, , 指向包含了窗口文本（或标签）的空中止（C语言）字串的指针；或设为零，表示接收任何窗口标题  示例Dim hw&

.DLL命令 安装钩子, 整数型, , "SetWindowsHookExA"
    .参数 钩子类型, 整数型
    .参数 回调函数地址, 子程序指针
    .参数 实例句柄, 整数型
    .参数 线程ID, 整数型

.DLL命令 取模块句柄, 整数型, , "GetModuleHandleA"
    .参数 模块名, 整数型

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

.DLL命令 下一个钩子, 整数型, "user32.dll", "CallNextHookEx", , CallNextHookEx
    .参数 钩子句柄, 整数型, , hHook
    .参数 代码值, 整数型, , ncode
    .参数 附加参数1, 整数型, , wParam
    .参数 附加参数2, 整数型, 传址, lParam

.DLL命令 设置系统钩子_, 整数型, "user32.dll", "SetWindowsHookExA", , SetWindowsHookEx
    .参数 钩子类型, 整数型, , idHook
    .参数 回调函数地址, 整数型, , lpfn
    .参数 实例句柄, 整数型, , hmod
    .参数 线程ID, 整数型, , dwThreadId

.DLL命令 CopyMemory, , , "RtlMoveMemory"
    .参数 Destination, 按键信息
    .参数 Source, 整数型
    .参数 cbCopy, 整数型

.DLL命令 恢复窗口_, 整数型, "user32.dll", "OpenIcon", , ,
    .参数 窗口句柄, 整数型, , hwnd，窗口句柄

.DLL命令 ReleaseCapture, 整数型, , "ReleaseCapture"