WinSock易语言模块源码

资源介绍：

WinSock易语言模块源码

.版本 2

.程序集 窗口1程序集
.程序集变量 服务器, 服务器类
.程序集变量 窗口函数, 整数型

.子程序 _窗口1_创建完毕

窗口函数 ＝ 设置窗口信息 (窗口1.取窗口句柄 (), #GWL_WNDPROC, 到整数 (&窗口1消息处理))
' 本源码来自三叶资源网(www.sanye.cx)

.子程序 _按钮1_被单击

服务器.启动 (到整数 (编辑框1.内容))
服务器.异步选择 (窗口1.取窗口句柄 (), #服务器消息, #FD_READ ＋ #FD_CLOSE ＋ #FD_ACCEPT)
画板1.滚动写行 (“启动成功:” ＋ “ 端口;” ＋ 到文本 (服务器.取服务器端口 ()))
' 本源码来自三叶资源网(www.sanye.cx)

.子程序 窗口1消息处理, 整数型
.参数 hwnd, 整数型, , hwnd
.参数 msg, 整数型, , 消息
.参数 wParam, 整数型, , 客户句柄
.参数 lParam, 整数型, , 事件类型

.如果真 (msg ＝ #服务器消息)
    .判断开始 (lParam ＝ #FD_READ)
        数据到达 (wParam)
    .判断 (lParam ＝ #FD_CLOSE 或 lParam ＝ #FD_ERROR)
        客户离开 (wParam)
    .判断 (lParam ＝ #FD_ACCEPT)
        客户进入 (wParam)
    .默认

    .判断结束
    返回 (0)
.如果真结束
' 本源码来自三叶资源网(www.sanye.cx)
.如果真 (msg ＝ #WM_CLOSE)
    服务器.停止 ()
    设置窗口信息 (hwnd, #GWL_WNDPROC, 窗口函数)
.如果真结束
返回 (设置窗口函数 (窗口函数, hwnd, msg, wParam, lParam))


.子程序 客户进入
.参数 客户句柄, 整数型

客户句柄 ＝ 服务器.监听 ()
画板1.滚动写行 (“客户[” ＋ 到文本 (客户句柄) ＋ “]进入”)


.子程序 客户离开
.参数 客户句柄

服务器.断开连接 (客户句柄)
画板1.滚动写行 (“客户[ ” ＋ 到文本 (客户句柄) ＋ “]离开”)
' 本源码来自三叶资源网(www.sanye.cx)

.子程序 数据到达
.参数 客户句柄, 整数型
.局部变量 数据, 字节集
.局部变量 是否成功, 逻辑型

处理事件 ()
数据 ＝ 服务器.接收 (客户句柄, 是否成功)
.如果真 (是否成功)
    画板1.滚动写行 (“[” ＋ 到文本 (客户句柄) ＋ “] ” ＋ 到文本 (数据))
    服务器.发送 (客户句柄, 数据)
.如果真结束


.子程序 _停止_被单击

服务器.停止 ()
' 本源码来自三叶资源网(www.sanye.cx)

.子程序 _按钮2_被单击

.如果真 (是否已创建 (窗口2) ＝ 假)
    载入 (窗口2, , 假)
.如果真结束


.子程序 _窗口1_将被销毁

.如果真 (是否已创建 (窗口2) ＝ 真)
    窗口2.销毁 ()
.如果真结束
窗口0.可视 ＝ 真

@易语言源码下载

资源界面：