易语言客户端应用源码

系统结构:监听,连接,发送数据,断开连接,ResetEvent,CreateThread,WaitForSingleObject,CloseHandle,htons,inet_addr,WSAStartup,send,connect,send1,recv,WSACreateEvent,WSAEventSelect,WSAResetEvent,WSACloseEvent,WSAEnumNetworkEvents,closesocket,WSASocketA,setsockopt,select,lstrcpyn_字节集,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ 监听
           |  |
           |  |
======客户端_
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 连接
           |  |
           |  |------ 发送数据
           |  |
           |  |------ 断开连接
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   ResetEvent
           |  |
           |  |---[dll]------   CreateThread
           |  |
           |  |---[dll]------   WaitForSingleObject
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   htons
           |  |
           |  |---[dll]------   inet_addr
           |  |
           |  |---[dll]------   WSAStartup
           |  |
           |  |---[dll]------   send
           |  |
           |  |---[dll]------   connect
           |  |
           |  |---[dll]------   send1
           |  |
           |  |---[dll]------   recv
           |  |
           |  |---[dll]------   WSACreateEvent
           |  |
           |  |---[dll]------   WSAEventSelect
           |  |
           |  |---[dll]------   WSAResetEvent
           |  |
           |  |---[dll]------   WSACloseEvent
           |  |
           |  |---[dll]------   WSAEnumNetworkEvents
           |  |
           |  |---[dll]------   closesocket
           |  |
           |  |---[dll]------   WSASocketA
           |  |
           |  |---[dll]------   setsockopt
           |  |
           |  |---[dll]------   select
           |  |
           |  |---[dll]------   lstrcpyn_字节集

调用的DLL命令:

.DLL命令 ResetEvent, , , , 公开
    .参数 a

.DLL命令 CreateThread, 整数型, , "CreateThread", 公开, 句柄
    .参数 security
    .参数 栈大小, 整数型
    .参数 子程序, 子程序指针
    .参数 参数, 整数型
    .参数 标志, 整数型
    .参数 线程ID, 整数型, 传址

.DLL命令 WaitForSingleObject, 整数型, , , 公开
    .参数 a
    .参数 b

.DLL命令 CloseHandle, , , , 公开
    .参数 a

.DLL命令 htons, 整数型, "wsock32.dll", , 公开, 把16位的数字从主机字节顺序转换到网络字节顺序
    .参数 主机字节

.DLL命令 inet_addr, 整数型, "wsock32.dll", , 公开, 把一个Internet标准的"."记号地址转换成Internet地址数值
    .参数 IP, 文本型

.DLL命令 WSAStartup, 整数型, "wsock32.dll", , 公开
    .参数 版本
    .参数 版本信息, 文本型

.DLL命令 send, 整数型, "Ws2_32.dll", , 公开, 当调用该函数时，欲发送的数据长度参数（后面简称数据长度）先比较待数据的长度和套接字描述符的发送缓冲区的长度，如果数据长度大于描述符的发送缓冲区的长度，该函数返回-1；如果数据长度小于或者等于描述符的发送缓冲区的长度，那么send先检查协议是否正在发送描述符的发送缓冲中的数据，如果是就等待协议把数据发送完，如果协议还没有开始发送描述符的发送缓冲中的数据或者描述符的发送缓冲中没有数据，那么send就比较描述符的发送缓冲区的剩余空间和数据长度，如果数据长度大于剩余空间大小send就一直等待协议把s的发送缓冲中的数据发送完，如果数据长度小于剩余空间大小send就仅仅把数据缓冲区中的数据复制到剩余空间里（注意并不是send把描述符的发送缓冲中的数据传到连接的另一端的，而是协议传的，send仅仅是把缓冲区中的数据copy到s的发送缓冲区的剩余空间里）。如果send函数复制数据成功，就返回实际复制的字节数，如果send在复制数据时出现错误，那么send就返回-1；如果send在等待协议传送数据时网络断开的话，那么send函数也返回-1。要注意send函数把缓冲中的数据成功复制到描述符的发送缓冲的剩余空间里后它就返回了，但是此时这些数据并不一定马上被传到连接的另一端。如果协议在后续的传送过程中出现网络错误的话，那么下一个Socket函数就会返回-1。（每一个除send外的Socket函数在执行的最开始总要先等待套接字的发送缓冲中的数据被协议传送完毕才能继续，如果在等待时出现网络错误，那么该Socket函数就返回-1）
    .参数 套接字描述符
    .参数 欲发送的数据, 字节集
    .参数 欲发送数据的长度
    .参数 flags, , , 一般默认为0

.DLL命令 connect, 整数型, "wsock32.dll", , 公开
    .参数 套接字描述符
    .参数 地址结构, sokt
    .参数 结构大小

.DLL命令 send1, 整数型, "Ws2_32.dll", "send", 公开, 当调用该函数时，欲发送的数据长度参数（后面简称数据长度）先比较待数据的长度和套接字描述符的发送缓冲区的长度，如果数据长度大于描述符的发送缓冲区的长度，该函数返回-1；如果数据长度小于或者等于描述符的发送缓冲区的长度，那么send先检查协议是否正在发送描述符的发送缓冲中的数据，如果是就等待协议把数据发送完，如果协议还没有开始发送描述符的发送缓冲中的数据或者描述符的发送缓冲中没有数据，那么send就比较描述符的发送缓冲区的剩余空间和数据长度，如果数据长度大于剩余空间大小send就一直等待协议把s的发送缓冲中的数据发送完，如果数据长度小于剩余空间大小send就仅仅把数据缓冲区中的数据复制到剩余空间里（注意并不是send把描述符的发送缓冲中的数据传到连接的另一端的，而是协议传的，send仅仅是把缓冲区中的数据copy到s的发送缓冲区的剩余空间里）。如果send函数复制数据成功，就返回实际复制的字节数，如果send在复制数据时出现错误，那么send就返回-1；如果send在等待协议传送数据时网络断开的话，那么send函数也返回-1。要注意send函数把缓冲中的数据成功复制到描述符的发送缓冲的剩余空间里后它就返回了，但是此时这些数据并不一定马上被传到连接的另一端。如果协议在后续的传送过程中出现网络错误的话，那么下一个Socket函数就会返回-1。（每一个除send外的Socket函数在执行的最开始总要先等待套接字的发送缓冲中的数据被协议传送完毕才能继续，如果在等待时出现网络错误，那么该Socket函数就返回-1）
    .参数 套接字描述符
    .参数 欲发送的数据
    .参数 欲发送数据的长度
    .参数 flags, , , 一般默认为0

.DLL命令 recv, 整数型, "Ws2_32.dll", , 公开
    .参数 套接字描述符
    .参数 欲接收的数据缓冲, 字节集
    .参数 欲接收数据的长度
    .参数 flags, , , 一般默认为0

.DLL命令 WSACreateEvent, 整数型, "Ws2_32.dll", , 公开

.DLL命令 WSAEventSelect, 整数型, "Ws2_32.dll", , 公开
    .参数 a
    .参数 b
    .参数 c

.DLL命令 WSAResetEvent, 整数型, "Ws2_32.dll", , 公开
    .参数 a

.DLL命令 WSACloseEvent, , "Ws2_32.dll", , 公开
    .参数 b

.DLL命令 WSAEnumNetworkEvents, 整数型, "Ws2_32.dll", , 公开
    .参数 s
    .参数 jb
    .参数 cwdm, , 传址 数组

.DLL命令 closesocket, 整数型, "Ws2_32.dll", , 公开, 成功就返回0，否则返回-1
    .参数 套接字描述符

.DLL命令 WSASocketA, 整数型, "Ws2_32.dll", , 公开, 成功就返回新创建的套接字的描述符，如果失败就返回-1
    .参数 协议类型, , , 2-表示TCP/IP协议
    .参数 套接字类型, , , 流套接字类型为1；数据报套接字2
    .参数 通信协议
    .参数 套接口描述指针
    .参数 套接口组描述字
    .参数 套接口属性描述

.DLL命令 setsockopt, 整数型, "wsock32.dll", , 公开
    .参数 套接字描述符
    .参数 定义层次
    .参数 选项
    .参数 选项值缓冲区指针, , 传址
    .参数 缓冲区大小指针, , 传址

.DLL命令 select, 整数型, "wsock32.dll", , 公开
    .参数 a
    .参数 b
    .参数 c, , 传址 数组
    .参数 d
    .参数 e, , 传址 数组

.DLL命令 lstrcpyn_字节集, 整数型, , "lstrcpynA", 公开
    .参数 lpString1, 字节集, 传址
    .参数 lpString2, 字节集, 传址
    .参数 iMaxLength, 整数型