易语言端口通讯测试源码

系统结构:接受连接线程,取错误文本,ServerWorkerThread,socket,WSASocket,WSAAccept,closesocket,Connect,Send,recv,WSARecv,bind,WSAStartup,WSACleanup,htons,inet_ntoa,inet_addr,listen,accept,ntohs,sendto,recvfrom,CreateThread,gethostname,gethostbyname,getpeername,select,getsockname,WSAAsyncSelect,ZeroMemory,LocalSize,WSAGetLastError,GetLastError,API_创建线程,API_关闭句柄,CreateIoCompletionPort,GetQueuedCompletionStatus,PostQueuedCompletionStatus,GetSystemInfo,GlobalAlloc,LPPER_HANDLE_DATA,FormatMessage,ReadProcessMemory_Int,GetCurrentProcess,

======启动窗口程序集
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 接受连接线程
           |  |
           |  |------ 取错误文本
           |  |
           |  |------ ServerWorkerThread
           |  |
           |  |------ _TCP_C_Socket按钮_被单击
           |  |
           |  |------ _TCP_C_Recv按钮_被单击
           |  |
           |  |------ _TCP_C_Recv按钮1_被单击
           |  |
           |  |------ _TCP_C_Recv按钮2_被单击
           |  |
           |  |------ __启动窗口_可否被关闭
           |  |
           |  |------ _TCP_C_CloseSocket按钮_被单击
           |  |
           |  |------ _按钮_启动关闭_被单击
           |  |
           |  |------ _客户1_数据到达
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   socket
           |  |
           |  |---[dll]------   WSASocket
           |  |
           |  |---[dll]------   WSAAccept
           |  |
           |  |---[dll]------   closesocket
           |  |
           |  |---[dll]------   Connect
           |  |
           |  |---[dll]------   Send
           |  |
           |  |---[dll]------   recv
           |  |
           |  |---[dll]------   WSARecv
           |  |
           |  |---[dll]------   bind
           |  |
           |  |---[dll]------   WSAStartup
           |  |
           |  |---[dll]------   WSACleanup
           |  |
           |  |---[dll]------   htons
           |  |
           |  |---[dll]------   inet_ntoa
           |  |
           |  |---[dll]------   inet_addr
           |  |
           |  |---[dll]------   listen
           |  |
           |  |---[dll]------   accept
           |  |
           |  |---[dll]------   ntohs
           |  |
           |  |---[dll]------   sendto
           |  |
           |  |---[dll]------   recvfrom
           |  |
           |  |---[dll]------   CreateThread
           |  |
           |  |---[dll]------   gethostname
           |  |
           |  |---[dll]------   gethostbyname
           |  |
           |  |---[dll]------   getpeername
           |  |
           |  |---[dll]------   select
           |  |
           |  |---[dll]------   getsockname
           |  |
           |  |---[dll]------   WSAAsyncSelect
           |  |
           |  |---[dll]------   ZeroMemory
           |  |
           |  |---[dll]------   LocalSize
           |  |
           |  |---[dll]------   WSAGetLastError
           |  |
           |  |---[dll]------   GetLastError
           |  |
           |  |---[dll]------   API_创建线程
           |  |
           |  |---[dll]------   API_关闭句柄
           |  |
           |  |---[dll]------   CreateIoCompletionPort
           |  |
           |  |---[dll]------   GetQueuedCompletionStatus
           |  |
           |  |---[dll]------   PostQueuedCompletionStatus
           |  |
           |  |---[dll]------   GetSystemInfo
           |  |
           |  |---[dll]------   GlobalAlloc
           |  |
           |  |---[dll]------   LPPER_HANDLE_DATA
           |  |
           |  |---[dll]------   FormatMessage
           |  |
           |  |---[dll]------   ReadProcessMemory_Int
           |  |
           |  |---[dll]------   GetCurrentProcess

调用的DLL命令:

.DLL命令 socket, 整数型, "ws2_32.dll", "socket", , 创建套接字
    .参数 af, 整数型, , 使用的通信协议的协议族
    .参数 type, 整数型, , 流套接字类型
    .参数 protocol, 整数型, , 使用的通信协议

.DLL命令 WSASocket, 整数型, "ws2_32.dll", "WSASocketA", , 创建套接字
    .参数 af, 整数型, , 使用的通信协议的协议族
    .参数 type, 整数型, , 流套接字类型
    .参数 protocol, 整数型, , 使用的通信协议
    .参数 lpProtocolInfo, 整数型
    .参数 g, 整数型
    .参数 dwFlags, 整数型

.DLL命令 WSAAccept, 整数型, "ws2_32.dll", "WSAAccept", , 创建套接字
    .参数 s, 整数型, , 使用的通信协议的协议族
    .参数 addr, sockaddr_in, 传址, 流套接字类型
    .参数 addrlen, 整数型, 传址, 使用的通信协议
    .参数 lpfnCondition, 整数型
    .参数 dwCallbackData, 整数型

.DLL命令 closesocket, 整数型, "ws2_32.dll", "closesocket", , 销毁套接字
    .参数 s, 整数型, , 套接字描述符

.DLL命令 Connect, 整数型, "ws2_32.dll", "connect", , 连接到服务器(TCP)
    .参数 s, 整数型, , 套接字描述符
    .参数 addr, sockaddr_in, 传址, 地址信息
    .参数 namelen, 整数型, , 地址信息长度

.DLL命令 Send, 整数型, "ws2_32.dll", "send", , 发送数据(TCP，当这次发送数据未发送完时返回剩余字节数)
    .参数 s, 整数型, , 套接字描述符
    .参数 buf, 字节集, 传址, 欲发送的数据
    .参数 buflen, 整数型, , 欲发送数据长度
    .参数 flags, 整数型, , 保留值，给0

.DLL命令 recv, 整数型, "ws2_32.dll", "recv", , 接收数据(TCP，当数据这次未接收完时返回剩余字节数)
    .参数 s, 整数型, , 套接字描述符
    .参数 buf, 字节集, 传址, 数据(提供变量)
    .参数 buflen, 整数型, , 数据长度
    .参数 flags, 整数型, , 保留值，给0

.DLL命令 WSARecv, 整数型, "ws2_32.dll", "WSARecv", , 接收数据(TCP，当数据这次未接收完时返回剩余字节数)
    .参数 s, 整数型, , 套接字描述符
    .参数 lpBuffers, WSABUF, 传址, 数据(提供变量)
    .参数 dwBufferCount, 整数型, , 数据长度
    .参数 lpNumberOfBytesRecvd, 整数型, 传址
    .参数 lpFlags, 整数型, 传址, 保留值，给0
    .参数 lpOverlapped, OVERLAPPED, 传址
    .参数 lpCompletionRoutine, 整数型

.DLL命令 bind, 整数型, "ws2_32.dll", "bind", , 绑定一个地址和端口
    .参数 s, 整数型, , 套接字描述符
    .参数 name, sockaddr_in, 传址, 地址信息
    .参数 namelen, 整数型, , 地址信息长度(长度16)

.DLL命令 WSAStartup, 整数型, "ws2_32.dll", "WSAStartup", , 初始化WnSocket服务
    .参数 wVR, 短整数型, , socket版本,第一个字节代表主版本，第2个字节代表从版本
    .参数 lpWSAD, WSADataType, 传址, 服务信息

.DLL命令 WSACleanup, 整数型, "ws2_32.dll", "WSACleanup", , 卸载Winsocket服务

.DLL命令 htons, 短整数型, "ws2_32.dll", "htons", , 转换为network 排列方式的数目
    .参数 hostshort, 短整数型, , 端口号

.DLL命令 inet_ntoa, 整数型, "ws2_32.dll", "inet_ntoa", , 将整数格式IP地址转换为点数格式（返回值是内存地址指针）
    .参数 inn, 整数型, , 欲转换整数格式IP地址

.DLL命令 inet_addr, 整数型, "ws2_32.dll", "inet_addr", , 点数格式转换为整数格式IP地址
    .参数 cp, 文本型, 传址, 欲被转换的IP地址

.DLL命令 listen, 整数型, "ws2_32.dll", "listen", , 监听
    .参数 s, 整数型, , 套接字描述符
    .参数 backlog, 整数型, , 最多容纳客户请求数

.DLL命令 accept, 整数型, "ws2_32.dll", "accept", , 等待用户进入并接受连接
    .参数 s, 整数型, , 套接字描述符
    .参数 addr, sockaddr_in, 传址, 地址信息
    .参数 addrlen, 整数型, 传址, 地址信息长度（长度为16）

.DLL命令 ntohs, 短整数型, "ws2_32.dll", "ntohs", , 转换为端口号
    .参数 netshort, 短整数型, , 欲转换值

.DLL命令 sendto, 整数型, "ws2_32.dll", "sendto", , 发送数据(UDP)
    .参数 s, 整数型, , 套接字描述符
    .参数 buf, 字节集, 传址, 数据
    .参数 len, 整数型, , 数据长度
    .参数 flags, 整数型, , 保留值，给0
    .参数 to, sockaddr_in, 传址, 目标地址信息
    .参数 tolen, 整数型, , 地址信息长度

.DLL命令 recvfrom, 整数型, "ws2_32.dll", "recvfrom", , 接收数据(UDP)
    .参数 s, 整数型, , 套接字描述符
    .参数 buf, 字节集, 传址, 数据(提供变量)
    .参数 len, 整数型, , 数据长度
    .参数 flags, 整数型, , 保留值，给0
    .参数 from, sockaddr_in, 传址, 来源地址信息(提供变量)
    .参数 fromlen, 整数型, 传址, 地址信息长度(提供变量)

.DLL命令 CreateThread, 整数型, "kernel32.dll", "CreateThread", , 创建线程
    .参数 lpThreadAttributes, 整数型
    .参数 dwStackSize, 整数型
    .参数 lpStartAddress, 子程序指针, , 子程序
    .参数 lpParameter, 整数型
    .参数 dwCreationFlags, 整数型
    .参数 lpThreadID, 整数型, 传址, 提供变量，返回线程ID

.DLL命令 gethostname, 整数型, "ws2_32.dll", "gethostname", , 取本机名，失败返回-1，成功返回0。
    .参数 name, 文本型, 传址, 给变量，用于存放名称
    .参数 namelen, 整数型, , 上一个参数的长度

.DLL命令 gethostbyname, 整数型, "ws2_32.dll", "gethostbyname", , 成功返回内存指针
    .参数 name, 文本型, 传址, 机器名称

.DLL命令 getpeername, 整数型, "ws2_32.dll", "getpeername", , 获取远端信息（已连接对方IP和端口）。成功返回0
    .参数 s, 整数型, , 句柄
    .参数 name, sockaddr_in, 传址, 地址信息
    .参数 namelen, 整数型, 传址, name长度,Sockaddr_in长度为16

.DLL命令 select, 整数型, "ws2_32.dll", "select", , 检查套接字状态
    .参数 nfds, 整数型
    .参数 readfds, fd_set, 传址, 读
    .参数 writefds, fd_set, 传址, 写
    .参数 exceptfds, fd_set, 传址, 错误
    .参数 timeout, 整数型, 传址, 超时

.DLL命令 getsockname, 整数型, "ws2_32.dll", "getsockname", , 获取本地信息（用于连接对方的端口）。成功返回0
    .参数 s, 整数型, , 句柄
    .参数 name, sockaddr_in, 传址, 地址信息
    .参数 namelen, 整数型, 传址, name长度,Sockaddr_in长度为16

.DLL命令 WSAAsyncSelect, 整数型, "ws2_32.dll", "WSAAsyncSelect"
    .参数 s, 整数型
    .参数 hWnd, 整数型
    .参数 wMsg, 整数型
    .参数 lEvent, 整数型

.DLL命令 ZeroMemory, , , "RtlZeroMemory", , 内存清空
    .参数 Destination, 整数型
    .参数 Length, 整数型

.DLL命令 LocalSize, 整数型, "kernel32.dll", "LocalSize"
    .参数 参数一, , 传址

.DLL命令 WSAGetLastError, 整数型, "ws2_32.dll", "WSAGetLastError"

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

.DLL命令 API_创建线程, 整数型, , "CreateThread", , 生成线程成功，CreateThread函数返回新线程的句柄。否则返回NULL。线程执行完毕后自动退出（除非进入的是循环）。
    .参数 lpThreadAttributes, 整数型, , 线程的security属性，缺省为0
    .参数 dwStackSize, 整数型, , 线程的堆栈大小，为0时与进程相同
    .参数 lpStartAddress, 子程序指针, , 线程函数的起始地址
    .参数 lpParameter, 整数型, , 传递线程的上下文,可以传递一个整数型参数。
    .参数 dwCreationFlags, 整数型, , 0：创建线程后立即启动，相反的是标志位CREATE_SUSPENDED，这样您需要稍后显示地让该线程运行（可设为－1）
    .参数 lpThreadId, 整数型, 传址, 内核给新生成的线程分配的线程ID

.DLL命令 API_关闭句柄, 逻辑型, , "CloseHandle"
    .参数 对象句柄, 整数型

.DLL命令 CreateIoCompletionPort, 整数型, , "CreateIoCompletionPort"
    .参数 FileHandle, 整数型
    .参数 ExistingCompletionPort, 整数型
    .参数 CompletionKey, 整数型
    .参数 NumberOfConcurrentThreads, 整数型

.DLL命令 GetQueuedCompletionStatus, 整数型, , "GetQueuedCompletionStatus"
    .参数 CompletionPort, 整数型
    .参数 lpNumberOfBytesTransferred, 整数型, 传址
    .参数 lpCompletionKey, 整数型, 传址
    .参数 Overlapped, 整数型, 传址
    .参数 dwMilliseconds, 整数型

.DLL命令 PostQueuedCompletionStatus, , , "PostQueuedCompletionStatus"
    .参数 CompletionPort, 整数型
    .参数 lpNumberOfBytesTransferred, 整数型
    .参数 lpCompletionKey, 整数型
    .参数 Overlapped, 整数型

.DLL命令 GetSystemInfo, 整数型, , "GetSystemInfo"
    .参数 SystemInfo, SYSTEM_INFO, 传址

.DLL命令 GlobalAlloc, 整数型, , "GlobalAlloc"
    .参数 wFlags, 整数型
    .参数 dwBytes, 整数型

.DLL命令 LPPER_HANDLE_DATA, 整数型, , "lstrcpyn"
    .参数 目的指针, PER_HANDLE_DATA, 传址
    .参数 源指针, PER_HANDLE_DATA, 传址
    .参数 复制长度, 整数型, , 0

.DLL命令 FormatMessage, 整数型, , "FormatMessageA"
    .参数 标志, 整数型
    .参数 源, 整数型
    .参数 消息号, 整数型
    .参数 语言, 整数型
    .参数 缓冲, 文本型
    .参数 缓冲大小, 整数型
    .参数 插入, 整数型

.DLL命令 ReadProcessMemory_Int, 整数型, , "ReadProcessMemory", 公开, 读内存指针整型内容
    .参数 hProcess, 整数型
    .参数 lpBaseAddress, 整数型
    .参数 lpBuffer, 整数型, 传址
    .参数 nSize, 整数型
    .参数 lpNumberOfBytesRead, 整数型

.DLL命令 GetCurrentProcess, 整数型, , "GetCurrentProcess", 公开, API_取当前进程句柄