易语言多线程响应事件源码

系统结构:取子程序指针,子程序1,子程序2,取文本指针,子程序3,客户_接收事件,客户_断开事件,服务端_取客户端口,服务端_取客户IP,服务端_停止,服务端_启动,客户端_发送,客户端_停止,客户端_连接,取现时间戳记值,取戳记值格式时间,延时执行_3,延时执行_2,延时执行_1,取子程序指针,子程序1,子程序2,取文本指针,子程序3,服务_进入事件,服务_接收事件,服务_断开事件,服务端_发送,服务端_断开连接,服务端_取客户端口,服务端_取客户IP,服务端_停止,服务端_启动,取现时间戳记值,取戳记值格式时间,延时执行_3,延时执行_2,延时执行_1,

======窗口程序集1
           |  |
           |  |------ _延时没参数调用_被单击
           |  |
           |  |------ 取子程序指针
           |  |
           |  |------ 子程序1
           |  |
           |  |------ 子程序2
           |  |
           |  |------ _延时有参数调用_被单击
           |  |
           |  |------ 取文本指针
           |  |
           |  |------ _延时DLL内部多线程带参数调用_被单击
           |  |
           |  |------ 子程序3
           |  |
           |  |------ _客户连接服务器_被单击
           |  |
           |  |------ 客户_接收事件
           |  |
           |  |------ 客户_断开事件
           |  |
           |  |------ _客户断开连接_被单击
           |  |
           |  |------ _发送内容_被单击
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   服务端_取客户端口
           |  |
           |  |---[dll]------   服务端_取客户IP
           |  |
           |  |---[dll]------   服务端_停止
           |  |
           |  |---[dll]------   服务端_启动
           |  |
           |  |---[dll]------   客户端_发送
           |  |
           |  |---[dll]------   客户端_停止
           |  |
           |  |---[dll]------   客户端_连接
           |  |
           |  |---[dll]------   取现时间戳记值
           |  |
           |  |---[dll]------   取戳记值格式时间
           |  |
           |  |---[dll]------   延时执行_3
           |  |
           |  |---[dll]------   延时执行_2
           |  |
           |  |---[dll]------   延时执行_1
  ======窗口程序集1
           |  |
           |  |------ _延时没参数调用_被单击
           |  |
           |  |------ 取子程序指针
           |  |
           |  |------ 子程序1
           |  |
           |  |------ 子程序2
           |  |
           |  |------ _延时有参数调用_被单击
           |  |
           |  |------ 取文本指针
           |  |
           |  |------ _延时DLL内部多线程带参数调用_被单击
           |  |
           |  |------ 子程序3
           |  |
           |  |------ _启动服务_被单击
           |  |
           |  |------ 服务_进入事件
           |  |
           |  |------ 服务_接收事件
           |  |
           |  |------ 服务_断开事件
           |  |
           |  |------ _停止服务_被单击
           |  |
           |  |------ _断开连接_被单击
           |  |
           |  |------ _发送数据_被单击
           |  |
           |  |------ _群发数据_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   服务端_发送
           |  |
           |  |---[dll]------   服务端_断开连接
           |  |
           |  |---[dll]------   服务端_取客户端口
           |  |
           |  |---[dll]------   服务端_取客户IP
           |  |
           |  |---[dll]------   服务端_停止
           |  |
           |  |---[dll]------   服务端_启动
           |  |
           |  |---[dll]------   取现时间戳记值
           |  |
           |  |---[dll]------   取戳记值格式时间
           |  |
           |  |---[dll]------   延时执行_3
           |  |
           |  |---[dll]------   延时执行_2
           |  |
           |  |---[dll]------   延时执行_1

调用的DLL命令:

.DLL命令 服务端_取客户端口, 整数型, "pklam_001.dll", "s_cget_port"
    .参数 客户句柄, 整数型

.DLL命令 服务端_取客户IP, 文本型, "pklam_001.dll", "s_cget_ip"
    .参数 客户句柄, 整数型

.DLL命令 服务端_停止, 逻辑型, "pklam_001.dll", "s_stop"
    .参数 服务句柄, 整数型

.DLL命令 服务端_启动, 逻辑型, "pklam_001.dll", "s_con"
    .参数 端口, 整数型, , 待连接服务器的端口。
    .参数 返回句柄, 整数型, 传址
    .参数 客户进入事件, 整数型
    .参数 接收事件指针, 整数型, , 接收事件子程序句柄
    .参数 断开事件指针, 整数型

.DLL命令 客户端_发送, 逻辑型, "pklam_001.dll", "c_send"
    .参数 连接句柄, 整数型
    .参数 发送内容, 字节集, , 字节集指针
    .参数 发送长度, 整数型

.DLL命令 客户端_停止, 逻辑型, "pklam_001.dll", "c_close"
    .参数 连接句柄, 整数型

.DLL命令 客户端_连接, 逻辑型, "pklam_001.dll", "c_con"
    .参数 地址, 文本型, , 待连接服务器的IP地址。
    .参数 端口, 整数型, , 待连接服务器的端口。
    .参数 返回句柄, 整数型, 传址
    .参数 接收事件指针, 整数型, , 接收事件子程序句柄
    .参数 断开事件指针, 整数型

.DLL命令 取现时间戳记值, 整数型, "pklam_001.dll", "php_time"

.DLL命令 取戳记值格式时间, 文本型, "pklam_001.dll", "php_date"
    .参数 时间戳记值, 整数型

.DLL命令 延时执行_3, 逻辑型, "pklam_001.dll", "call_3"
    .参数 指针地址, 整数型

.DLL命令 延时执行_2, 逻辑型, "pklam_001.dll", "call_2"
    .参数 指针地址, 整数型
    .参数 延时秒, 整数型
    .参数 参数1, 整数型

.DLL命令 延时执行_1, 逻辑型, "pklam_001.dll", "call_1"
    .参数 指针地址, 整数型
    .参数 延时秒, 整数型

调用的DLL命令:

.DLL命令 服务端_发送, 逻辑型, "pklam_001.dll", "s_send"
    .参数 连接句柄, 整数型
    .参数 发送内容, 字节集, , 字节集指针
    .参数 发送长度, 整数型

.DLL命令 服务端_断开连接, 整数型, "pklam_001.dll", "s_close"
    .参数 服务端句柄, 整数型
    .参数 客户句柄, 整数型

.DLL命令 服务端_取客户端口, 整数型, "pklam_001.dll", "s_cget_port"
    .参数 客户句柄, 整数型

.DLL命令 服务端_取客户IP, 文本型, "pklam_001.dll", "s_cget_ip"
    .参数 客户句柄, 整数型

.DLL命令 服务端_停止, 逻辑型, "pklam_001.dll", "s_stop"
    .参数 服务句柄, 整数型

.DLL命令 服务端_启动, 逻辑型, "pklam_001.dll", "s_con"
    .参数 端口, 整数型, , 待连接服务器的端口。
    .参数 返回句柄, 整数型, 传址
    .参数 客户进入事件, 整数型
    .参数 接收事件指针, 整数型, , 接收事件子程序句柄
    .参数 断开事件指针, 整数型

.DLL命令 取现时间戳记值, 整数型, "pklam_001.dll", "php_time"

.DLL命令 取戳记值格式时间, 文本型, "pklam_001.dll", "php_date"
    .参数 时间戳记值, 整数型

.DLL命令 延时执行_3, 逻辑型, "pklam_001.dll", "call_3"
    .参数 指针地址, 整数型

.DLL命令 延时执行_2, 逻辑型, "pklam_001.dll", "call_2"
    .参数 指针地址, 整数型
    .参数 延时秒, 整数型
    .参数 参数1, 整数型

.DLL命令 延时执行_1, 逻辑型, "pklam_001.dll", "call_1"
    .参数 指针地址, 整数型
    .参数 延时秒, 整数型