易语言SOCK判断是否联网模块源码

系统结构:连接,是否联网_,WSAStartup,WSACleanup,socket,htons,inet_addr,Connect,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 连接
           |  |
           |  |------ 是否联网_
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   WSAStartup
           |  |
           |  |---[dll]------   WSACleanup
           |  |
           |  |---[dll]------   socket
           |  |
           |  |---[dll]------   htons
           |  |
           |  |---[dll]------   inet_addr
           |  |
           |  |---[dll]------   Connect
  ======窗口程序集1
           |  |
           |  |------ _按钮1_被单击

调用的DLL命令:

.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命令 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, 整数型, , 地址信息长度