易语言网络通信API源码

系统结构:取主机名,转换为主机名,转换为IP地址,通信测试,GetNetworkParams,LocalAlloc,LocalFree,WSAStartup,WSACleanup,inet_addr,gethostbyaddr,CopyMemory_int2hostent,gethostbyname,IcmpCreateFile,IcmpSendEcho,IcmpCloseHandle,

======窗口程序集_启动窗口
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _按钮4_被单击
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |
======网络通信
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 取主机名
           |  |
           |  |------ 转换为主机名
           |  |
           |  |------ 转换为IP地址
           |  |
           |  |------ 通信测试
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetNetworkParams
           |  |
           |  |---[dll]------   LocalAlloc
           |  |
           |  |---[dll]------   LocalFree
           |  |
           |  |---[dll]------   WSAStartup
           |  |
           |  |---[dll]------   WSACleanup
           |  |
           |  |---[dll]------   inet_addr
           |  |
           |  |---[dll]------   gethostbyaddr
           |  |
           |  |---[dll]------   CopyMemory_int2hostent
           |  |
           |  |---[dll]------   gethostbyname
           |  |
           |  |---[dll]------   IcmpCreateFile
           |  |
           |  |---[dll]------   IcmpSendEcho
           |  |
           |  |---[dll]------   IcmpCloseHandle

调用的DLL命令:

.DLL命令 GetNetworkParams, 整数型, "iphlpapi.dll", "GetNetworkParams", , 网络_取网关  网络_取网络上登记主机
    .参数 信息
    .参数 输出缓冲区长度, 整数型, 传址

.DLL命令 LocalAlloc, 整数型, "kernel32", "LocalAlloc"
    .参数 wFlags, 整数型
    .参数 wBytes, 整数型

.DLL命令 LocalFree, 整数型, "kernel32", "LocalFree"
    .参数 hMem, 整数型

.DLL命令 WSAStartup, 整数型, "ws2_32.dll", "WSAStartup"
    .参数 wVersionRequired, 短整数型
    .参数 lpWSAData, WSADATA

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

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

.DLL命令 gethostbyaddr, 整数型, "wsock32.dll", "gethostbyaddr", , 网络_取远程机器名
    .参数 addr, 整数型, 传址
    .参数 len, 整数型, 传址
    .参数 type, 整数型, 传址

.DLL命令 CopyMemory_int2hostent, 整数型, "kernel32", "RtlMoveMemory", , 网络_取远程机器名
    .参数 目标数据地址, hostent
    .参数 源数据, 整数型
    .参数 尺寸, 整数型

.DLL命令 gethostbyname, 整数型, "ws2_32.dll", "gethostbyname"
    .参数 name, 文本型

.DLL命令 IcmpCreateFile, 整数型, "iphlpapi.dll", "IcmpCreateFile", , 网络_Ping网络延迟时间

.DLL命令 IcmpSendEcho, 整数型, "ICMP.DLL", "IcmpSendEcho", , 网络_Ping网络延迟时间
    .参数 IcmpHandle, 整数型
    .参数 DestinationAddress, 整数型
    .参数 RequestData, 文本型
    .参数 RequestSize, 短整数型
    .参数 RequestOptions, 整数型
    .参数 ReplyBuffer, ICMP_ECHO_REPLY
    .参数 ReplySize, 整数型
    .参数 Timeout, 整数型

.DLL命令 IcmpCloseHandle, 整数型, "ICMP.DLL", "IcmpCloseHandle"
    .参数 IcmpHandle, 整数型