易语言服务器模块源码

系统结构:窗口消息处理,到达,离开,进入,取时间2,加入文本,开始服务,停止服务,取现在,优化内存,新处理事件,呼叫窗口函数地址_,取系统时间_,SetProcessWorkingSetSize,设置窗口信息_,GetInputState,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 窗口消息处理
           |  |
           |  |------ 到达
           |  |
           |  |------ 离开
           |  |
           |  |------ 进入
           |  |
           |  |------ 取时间2
           |  |
           |  |------ 加入文本
           |  |
           |  |------ 开始服务
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ 停止服务
           |  |
           |  |------ _开始服务_被选择
           |  |
           |  |------ _停止服务_被选择
           |  |
           |  |------ 取现在
           |  |
           |  |------ 优化内存
           |  |
           |  |------ __启动窗口_可否被关闭
           |  |
           |  |------ 新处理事件
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   呼叫窗口函数地址_
           |  |
           |  |---[dll]------   取系统时间_
           |  |
           |  |---[dll]------   SetProcessWorkingSetSize
           |  |
           |  |---[dll]------   设置窗口信息_
           |  |
           |  |---[dll]------   GetInputState

调用的DLL命令:

.DLL命令 呼叫窗口函数地址_, 整数型, "user32.dll", "CallWindowProcA", , CallWindowProcA将消息传答窗口函数　
    .参数 前一窗口函数地址, 整数型, , lpPrevWndFunc
    .参数 窗口句柄, 整数型, , hwnd
    .参数 消息值, 整数型, , msg
    .参数 附加参数1, 整数型, , wParam
    .参数 附加参数2, 整数型, , lParam

.DLL命令 取系统时间_, 整数型, "kernel32", "GetSystemTime", , ,
    .参数 时间格式, 系统时间_

.DLL命令 SetProcessWorkingSetSize, 整数型, , "SetProcessWorkingSetSize"
    .参数 hProcess
    .参数 dwMinimumWorkingSetSize
    .参数 dwMaximumWorkingSetSize

.DLL命令 设置窗口信息_, 整数型, "user32.dll", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息  指定数据的前一个值
    .参数 窗口句柄, 整数型, , hwnd，欲为其取得信息的窗口的句柄
    .参数 窗口信息值, 整数型, , nIndex，请参考GetWindowLong函数的nIndex参数的说明
    .参数 窗口信息新值, 整数型, , dwNewLong，由nIndex指定的窗口信息的新值

.DLL命令 GetInputState, 整数型, "user32", "GetInputState"