易语言演示源码,易语言TCP服务器模块源码

易语言TCP服务器模块源码

系统结构:初始化,取未使用数组成员,回调,call,释放资源,释放资源2,添加黑名单,删除黑名单,是否拒绝,启动服务器,关闭服务器,工作线程,取客户地址,取数据,发数据,启动,关闭,取回客户,取回数据,发送数据,断开客户,WSAStartup,WSACleanup,closesocket,listen,bind,htons,inet_addr,accept,shutdown,getpeername,ntohs,inet_ntoa,WaitForSingleObject,GetLastError,AcceptEx,WSARecv,WSASend,GetTickCount,CreateIoCompletionPort,GetQueuedCompletionStatus,PostQueuedCompletionStatus,WSASocket,GetAcceptExSockaddrs,GetSystemInfo,CloseHandle,RtlMoveMemory_int_1,RtlMoveMemory_int_2,RtlMoveMemory_short_1,RtlMoveMemory_short_2,RtlMoveMemory_sockaddr_in_2,RtlMoveMemory_byte_1,RtlMoveMemory_byte_2,服务器1,服务器2,控制台,

======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |
======WinSocket
| |
| |------ 初始化
| |
| |------ 取未使用数组成员
| |
| |------ 回调
| |
| |------ call
| |
| |------ 释放资源
| |
| |------ 释放资源2
| |
| |------ 添加黑名单
| |
| |------ 删除黑名单
| |
| |------ 是否拒绝
| |
| |------ 启动服务器
| |
| |------ 关闭服务器
| |
| |------ 工作线程
| |
| |------ 取客户地址
| |
| |------ 取数据
| |
| |------ 发数据
| |
| |
======TCP服务器
| |
| |------ _初始化
| |
| |------ _销毁
| |
| |------ 启动
| |
| |------ 关闭
| |
| |------ 取回客户
| |
| |------ 取回数据
| |
| |------ 发送数据
| |
| |------ 断开客户
| |
| |
======调用的Dll
| |
| |---[dll]------ WSAStartup
| |
| |---[dll]------ WSACleanup
| |
| |---[dll]------ closesocket
| |
| |---[dll]------ listen
| |
| |---[dll]------ bind
| |
| |---[dll]------ htons
| |
| |---[dll]------ inet_addr
| |
| |---[dll]------ accept
| |
| |---[dll]------ shutdown
| |
| |---[dll]------ getpeername
| |
| |---[dll]------ ntohs
| |
| |---[dll]------ inet_ntoa
| |
| |---[dll]------ WaitForSingleObject
| |
| |---[dll]------ GetLastError
| |
| |---[dll]------ AcceptEx
| |
| |---[dll]------ WSARecv
| |
| |---[dll]------ WSASend
| |
| |---[dll]------ GetTickCount
| |
| |---[dll]------ CreateIoCompletionPort
| |
| |---[dll]------ GetQueuedCompletionStatus
| |
| |---[dll]------ PostQueuedCompletionStatus
| |
| |---[dll]------ WSASocket
| |
| |---[dll]------ GetAcceptExSockaddrs
| |
| |---[dll]------ GetSystemInfo
| |
| |---[dll]------ CloseHandle
| |
| |---[dll]------ RtlMoveMemory_int_1
| |
| |---[dll]------ RtlMoveMemory_int_2
| |
| |---[dll]------ RtlMoveMemory_short_1
| |
| |---[dll]------ RtlMoveMemory_short_2
| |
| |---[dll]------ RtlMoveMemory_sockaddr_in_2
| |
| |---[dll]------ RtlMoveMemory_byte_1
| |
| |---[dll]------ RtlMoveMemory_byte_2
======程序集1
| |
| |------ _启动子程序
| |
| |------ 服务器1
| |
| |------ 服务器2
| |
| |------ 控制台

调用的DLL命令:

.DLL命令 WSAStartup, 整数型, "ws2_32.dll"
.参数 wVersionRequiredas, 整数型
.参数 lpWSAData, WSADATA, 传址

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

.DLL命令 closesocket, 整数型, "ws2_32.dll"
.参数 s, 整数型

.DLL命令 listen, 整数型, "ws2_32.dll"
.参数 s, 整数型
.参数 backlog, 整数型

.DLL命令 bind, 整数型, "ws2_32.dll"
.参数 s, 整数型
.参数 addr, sockaddr_in, 传址
.参数 namelen, 整数型

.DLL命令 htons, 短整数型, "ws2_32.dll"
.参数 hostshortas, 短整数型

.DLL命令 inet_addr, 整数型, "ws2_32.dll"
.参数 cp, 文本型

.DLL命令 accept, 整数型, "ws2_32.dll"
.参数 s, 整数型
.参数 addr, 整数型
.参数 addrlen, 整数型

.DLL命令 shutdown, 整数型, "ws2_32.dll"
.参数 s, 整数型
.参数 how, 整数型

.DLL命令 getpeername, 整数型, "ws2_32.dll"
.参数 s, 整数型
.参数 name, sockaddr_in, 传址
.参数 namelen, 整数型, 传址

.DLL命令 ntohs, 整数型, "ws2_32.dll"
.参数 netshortas, 短整数型

.DLL命令 inet_ntoa, 文本型, "ws2_32.dll"
.参数 in, 整数型

.DLL命令 WaitForSingleObject, 整数型
.参数 hHandle, 整数型
.参数 dwMilliseconds, 整数型

.DLL命令 GetLastError, 整数型

.DLL命令 AcceptEx, 逻辑型, "mswsock.dll"
.参数 sListenSocket, 整数型
.参数 sAcceptSocket, 整数型
.参数 lpOutputBuffer, 整数型
.参数 dwReceiveDataLength, 整数型
.参数 dwLocalAddressLength, 整数型
.参数 dwRemoteAddressLength, 整数型
.参数 lpdwBytesReceived, 整数型, 传址
.参数 lpOverlapped, 整数型

.DLL命令 WSARecv, 整数型, "ws2_32.dll"
.参数 s, 整数型
.参数 lpBuffers, 整数型
.参数 dwBufferCount, 整数型
.参数 lpNumberOfBytesRecvd, 整数型, 传址
.参数 lpFlags, 整数型, 传址
.参数 lpOverlapped, 整数型
.参数 lpCompletionRoutine, 整数型

.DLL命令 WSASend, 整数型, "ws2_32.dll"
.参数 s, 整数型
.参数 lpBuffers, 整数型
.参数 dwBufferCount, 整数型
.参数 lpNumberOfBytesSent, 整数型, 传址
.参数 dwFlags, 整数型
.参数 lpOverlapped, 整数型
.参数 lpCompletionRoutine, 整数型

.DLL命令 GetTickCount, 整数型

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

.DLL命令 GetQueuedCompletionStatus, 逻辑型
.参数 CompletionPort, 整数型
.参数 lpNumberOfBytesTransferred, 整数型, 传址
.参数 lpCompletionKey, 整数型, 传址
.参数 lpOverlapped, 整数型, 传址
.参数 dwMilliseconds, 整数型

.DLL命令 PostQueuedCompletionStatus, 整数型
.参数 CompletionPort, 整数型
.参数 dwNumberOfBytesTransferred, 整数型
.参数 dwCompletionKey, 整数型
.参数 lpOverlapped, 整数型

.DLL命令 WSASocket, 整数型, "Ws2_32.dll", "WSASocketA"
.参数 af, 整数型
.参数 type, 整数型
.参数 protocol, 整数型
.参数 lpProtocolInfo, 整数型
.参数 g, 整数型
.参数 dwFlags, 整数型

.DLL命令 GetAcceptExSockaddrs, , "Mswsock.dll"
.参数 lpOutputBuffer, 整数型
.参数 dwReceiveDataLength, 整数型
.参数 dwLocalAddressLength, 整数型
.参数 dwRemoteAddressLength, 整数型
.参数 LocalSockaddr, 整数型, 传址
.参数 LocalSockaddrLength, 整数型, 传址
.参数 RemoteSockaddr, 整数型, 传址
.参数 RemoteSockaddrLength, 整数型, 传址

.DLL命令 GetSystemInfo
.参数 lpSystemInfo, SYSTEM_INFO

.DLL命令 CloseHandle, 逻辑型
.参数 hObject, 整数型

.DLL命令 RtlMoveMemory_int_1, , , "RtlMoveMemory"
.参数 Destination, 整数型
.参数 Source, 整数型, 传址
.参数 Length, 整数型

.DLL命令 RtlMoveMemory_int_2, , , "RtlMoveMemory"
.参数 Destination, 整数型, 传址
.参数 Source, 整数型
.参数 Length, 整数型

.DLL命令 RtlMoveMemory_short_1, , , "RtlMoveMemory"
.参数 Destination, 整数型
.参数 Source, 短整数型, 传址
.参数 Length, 整数型

.DLL命令 RtlMoveMemory_short_2, , , "RtlMoveMemory"
.参数 Destination, 短整数型, 传址
.参数 Source, 整数型
.参数 Length, 整数型

.DLL命令 RtlMoveMemory_sockaddr_in_2, , , "RtlMoveMemory"
.参数 Destination, sockaddr_in
.参数 Source, 整数型
.参数 Length, 整数型

.DLL命令 RtlMoveMemory_byte_1, , , "RtlMoveMemory"
.参数 Destination, 整数型
.参数 Source, 字节集
.参数 Length, 整数型

.DLL命令 RtlMoveMemory_byte_2, , , "RtlMoveMemory"
.参数 Destination, 字节集
.参数 Source, 整数型
.参数 Length, 整数型