易语言取远程端口信息源码

系统结构:TCP连接,htons,inet_addr,Connect,WSAStartup,WSACleanup,socket,closesocket,getsockname,getpeername,inet_ntoa,ntohs,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ TCP连接
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   htons
           |  |
           |  |---[dll]------   inet_addr
           |  |
           |  |---[dll]------   Connect
           |  |
           |  |---[dll]------   WSAStartup
           |  |
           |  |---[dll]------   WSACleanup
           |  |
           |  |---[dll]------   socket
           |  |
           |  |---[dll]------   closesocket
           |  |
           |  |---[dll]------   getsockname
           |  |
           |  |---[dll]------   getpeername
           |  |
           |  |---[dll]------   inet_ntoa
           |  |
           |  |---[dll]------   ntohs

调用的DLL命令:

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

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

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

.DLL命令 WSAStartup, 整数型, "ws2_32.dll", "WSAStartup", , 初始化WnSocket服务
    .参数 wVR, 整数型, , socket版本
    .参数 lpWSAD, WSADataType, 传址, 服务信息

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

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

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

.DLL命令 getsockname, 整数型, "ws2_32.dll", "getsockname", , int WINAPI getsockname
    .参数 s, 整数型, , SOCKET s,
    .参数 name, sockaddr_in, 传址
    .参数 namelen, 整数型, 传址, int FAR namelen,

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

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

.DLL命令 ntohs, 短整数型, "ws2_32.dll", "ntohs"
    .参数 十六位网络端口, 短整数型