易语言判断端口开放源码

系统结构:端口是否开放,创建网络通讯_,网络通讯连接_,网络通讯网络转换_,网络通讯启动_,网络通讯到网络地址_,关闭网络通讯_,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 端口是否开放
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   创建网络通讯_
           |  |
           |  |---[dll]------   网络通讯连接_
           |  |
           |  |---[dll]------   网络通讯网络转换_
           |  |
           |  |---[dll]------   网络通讯启动_
           |  |
           |  |---[dll]------   网络通讯到网络地址_
           |  |
           |  |---[dll]------   关闭网络通讯_

调用的DLL命令:

.DLL命令 创建网络通讯_, 整数型, "ws2_32.dll", "socket"
    .参数 地址, 整数型, , af
    .参数 类型, 整数型, , lType
    .参数 协议, 整数型, , protocol

.DLL命令 网络通讯连接_, 整数型, "ws2_32.dll", "connect"
    .参数 网络通讯标识符, 整数型
    .参数 名称结构, 套接字地址_
    .参数 名称结构长度, 整数型

.DLL命令 网络通讯网络转换_, 短整数型, "ws2_32.dll", "ntohs"
    .参数 十六位网络命令, 短整数型, , netshort

.DLL命令 网络通讯启动_, 整数型, "ws2_32.dll", "WSAStartup"
    .参数 必需版本, 整数型, , wVersionRequired
    .参数 网络通讯数据结构, 套接字信息_, , lpWSAData

.DLL命令 网络通讯到网络地址_, 整数型, "ws2_32.dll", "inet_addr"
    .参数 文本, 文本型, , cp

.DLL命令 关闭网络通讯_, 整数型, "ws2_32.dll", "closesocket", , ,
    .参数 网络通讯标识符, 整数型