易语言Winsock实现网络聊天室源码

系统结构:New_WindProc,OnServerMessage,OnClientMessage,InitAndListen,ServerInit,ClientInit,InitAndConnet,GetString,SendString,CallWindowProcA,SetWindowLongA,WSAAsyncSelect,GetLastError,accept,AcceptEx,bind,closesocket,connect,GetAcceptExSockaddrs,WSAGetLastError,htons,inet_addr,inet_ntoa,listen,ntohs,recv,send,shutdown,socket,WSACleanup,WSACreateEvent,WSARecv,WSASend,WSASocket,WSAStartup,WSAEventSelect,WSAEnumNetworkEvents,WSACloseEvent,WSAWaitForMultipleEvents,WSASetEvent,WSAResetEvent,WSASetLastError,TransmitFile,setsockopt,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _Example_创建完毕
           |  |
           |  |------ New_WindProc
           |  |
           |  |------ OnServerMessage
           |  |
           |  |------ _IDC_SETSERVER_被单击
           |  |
           |  |------ _IDOK_被单击
           |  |
           |  |------ _IDC_CONNECT_被单击
           |  |
           |  |------ OnClientMessage
           |  |
           |  |------ _IDC_INPUTTEXT_按下某键
           |  |
           |  |
======CServer
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ InitAndListen
           |  |
           |  |------ ServerInit
           |  |
           |  |
======CClient
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ ClientInit
           |  |
           |  |------ InitAndConnet
           |  |
           |  |------ GetString
           |  |
           |  |------ SendString
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CallWindowProcA
           |  |
           |  |---[dll]------   SetWindowLongA
           |  |
           |  |---[dll]------   WSAAsyncSelect
           |  |
           |  |---[dll]------   GetLastError
  ======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   accept
           |  |
           |  |---[dll]------   AcceptEx
           |  |
           |  |---[dll]------   bind
           |  |
           |  |---[dll]------   closesocket
           |  |
           |  |---[dll]------   connect
           |  |
           |  |---[dll]------   GetAcceptExSockaddrs
           |  |
           |  |---[dll]------   WSAGetLastError
           |  |
           |  |---[dll]------   htons
           |  |
           |  |---[dll]------   inet_addr
           |  |
           |  |---[dll]------   inet_ntoa
           |  |
           |  |---[dll]------   listen
           |  |
           |  |---[dll]------   ntohs
           |  |
           |  |---[dll]------   recv
           |  |
           |  |---[dll]------   send
           |  |
           |  |---[dll]------   shutdown
           |  |
           |  |---[dll]------   socket
           |  |
           |  |---[dll]------   WSACleanup
           |  |
           |  |---[dll]------   WSACreateEvent
           |  |
           |  |---[dll]------   WSARecv
           |  |
           |  |---[dll]------   WSASend
           |  |
           |  |---[dll]------   WSASocket
           |  |
           |  |---[dll]------   WSAStartup
           |  |
           |  |---[dll]------   WSAEventSelect
           |  |
           |  |---[dll]------   WSAEnumNetworkEvents
           |  |
           |  |---[dll]------   WSACloseEvent
           |  |
           |  |---[dll]------   WSAWaitForMultipleEvents
           |  |
           |  |---[dll]------   WSASetEvent
           |  |
           |  |---[dll]------   WSAResetEvent
           |  |
           |  |---[dll]------   WSASetLastError
           |  |
           |  |---[dll]------   TransmitFile
           |  |
           |  |---[dll]------   setsockopt

  

调用的DLL命令:

.DLL命令 CallWindowProcA, 整数型, , "CallWindowProcA"
    .参数 lpPrevWndFunc, 子程序指针
    .参数 hWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 SetWindowLongA, 子程序指针, , "SetWindowLongA"
    .参数 hWnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 子程序指针

.DLL命令 WSAAsyncSelect, 整数型, "ws2_32.dll", "WSAAsyncSelect"
    .参数 s, 整数型
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 iEvent, 整数型

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

调用的DLL命令:

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

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

.DLL命令 bind, 整数型, "ws2_32.dll", , 公开
    .参数 s, 整数型
    .参数 name, sockaddr_in
    .参数 namelen, 整数型

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

.DLL命令 connect, 整数型, "ws2_32.dll", , 公开
    .参数 s, 整数型
    .参数 name, sockaddr_in
    .参数 namelen, 整数型

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

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

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

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

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

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

.DLL命令 ntohs, 整数型, "ws2_32.dll", , 公开
    .参数 netshort, 短整数型

.DLL命令 recv, 整数型, "ws2_32.dll", , 公开
    .参数 s, 整数型
    .参数 buf, 整数型
    .参数 len, 整数型
    .参数 flags, 整数型

.DLL命令 send, 整数型, "ws2_32.dll", , 公开
    .参数 s, 整数型
    .参数 buf, 整数型
    .参数 len, 整数型
    .参数 flags, 整数型

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

.DLL命令 socket, 整数型, "ws2_32.dll", , 公开
    .参数 af, 整数型
    .参数 type, 整数型
    .参数 protocol, 整数型

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

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

.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命令 WSASocket, 整数型, "Ws2_32.dll", "WSASocketA", 公开
    .参数 af, 整数型
    .参数 type, 整数型
    .参数 protocol, 整数型
    .参数 lpProtocolInfo, 整数型
    .参数 g, 整数型
    .参数 dwFlags, 整数型

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

.DLL命令 WSAEventSelect, 整数型, "ws2_32.dll", , 公开
    .参数 s, 整数型
    .参数 hEventObject, 整数型
    .参数 lNetworkEvents, 整数型

.DLL命令 WSAEnumNetworkEvents, 整数型, "ws2_32.dll", , 公开
    .参数 s, 整数型
    .参数 hEventObject, 整数型
    .参数 lpNetworkEvents, WSANETWORKEVENTS

.DLL命令 WSACloseEvent, 逻辑型, "ws2_32.dll", , 公开
    .参数 hEvent, 整数型

.DLL命令 WSAWaitForMultipleEvents, 整数型, "ws2_32.dll", , 公开
    .参数 cEvents, 整数型
    .参数 lphEvents, 整数型, 数组
    .参数 fWaitAll, 逻辑型
    .参数 dwTimeout, 整数型
    .参数 fAlertable, 逻辑型

.DLL命令 WSASetEvent, 逻辑型, "ws2_32.dll", , 公开
    .参数 hEvent, 整数型

.DLL命令 WSAResetEvent, 逻辑型, "ws2_32.dll", , 公开
    .参数 hEvent, 整数型

.DLL命令 WSASetLastError, , "ws2_32.dll", , 公开
    .参数 iError, 整数型

.DLL命令 TransmitFile, 逻辑型, "Mswsock.dll", , 公开
    .参数 hSocket, 整数型
    .参数 hFile, 整数型
    .参数 nNumberOfBytesToWrite, 整数型
    .参数 nNumberOfBytesPerSend, 整数型
    .参数 lpOverlapped, 整数型
    .参数 lpTransmitBuffers, 整数型
    .参数 dwFlags, 整数型

.DLL命令 setsockopt, 整数型, "Ws2_32.dll", , 公开
    .参数 s, 整数型
    .参数 level, 整数型
    .参数 optname, 整数型
    .参数 optval, 整数型
    .参数 optlen, 整数型