易语言全数据嗅探器源码

系统结构:子程序1,取消息,等待数据到达,被单击,子程序2,socket,bind,WSAAsyncSelect,WSAIoctl,ntohs,inet_ntoa,inet_addr,检查消息队列_,等待消息_,recv,accept,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 子程序1
           |  |
           |  |------ 取消息
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 等待数据到达
           |  |
           |  |------ 被单击
           |  |
           |  |------ 子程序2
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   socket
           |  |
           |  |---[dll]------   bind
           |  |
           |  |---[dll]------   WSAAsyncSelect
           |  |
           |  |---[dll]------   WSAIoctl
           |  |
           |  |---[dll]------   ntohs
           |  |
           |  |---[dll]------   inet_ntoa
           |  |
           |  |---[dll]------   inet_addr
           |  |
           |  |---[dll]------   检查消息队列_
           |  |
           |  |---[dll]------   等待消息_
           |  |
           |  |---[dll]------   recv
           |  |
           |  |---[dll]------   accept

调用的DLL命令:

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

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

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

.DLL命令 WSAIoctl, 整数型, "ws2_32.dll", "WSAIoctl"
    .参数 s, 整数型
    .参数 dwIoControlCode, 整数型
    .参数 lpvInBuffer, 整数型, 传址
    .参数 cbInBuffer, 整数型
    .参数 lpvOutBuffer, 整数型, 传址
    .参数 cbOutBuffer, 整数型
    .参数 lpcbBytesReturned, 整数型, 传址
    .参数 lpOverlapped, 整数型
    .参数 lpCompletionRoutine, 整数型

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

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

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

.DLL命令 检查消息队列_, 整数型, "user32.dll", "PeekMessageA", , ,
    .参数 消息格式, 消息_, , lpMsg
    .参数 窗口句柄, 整数型, , hWnd
    .参数 消息最小过滤值, 整数型, , wMsgFilterMin
    .参数 消息最大过滤值, 整数型, , wMsgFilterMax
    .参数 删除消息, 整数型, , wRemoveMsg，是否取得消息后，从消息队列中删除该消息

.DLL命令 等待消息_, 整数型, "user32.dll", "WaitMessage", , ,

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

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