易语言通信测试修正源码

系统结构:系统_转换为IP地址,系统_通信测试,socket,closesocket,WSACleanup,WSAStartup,SendARP,inet_addr,IcmpCreateFile,IcmpSendEcho,IcmpCloseHandle,gethostbyname,CopyMemory_int2hostent,

======窗口程序集_启动窗口
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |
======程序集1
           |  |
           |  |------ 系统_转换为IP地址
           |  |
           |  |------ 系统_通信测试
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   socket
           |  |
           |  |---[dll]------   closesocket
           |  |
           |  |---[dll]------   WSACleanup
           |  |
           |  |---[dll]------   WSAStartup
           |  |
           |  |---[dll]------   SendARP
           |  |
           |  |---[dll]------   inet_addr
           |  |
           |  |---[dll]------   IcmpCreateFile
           |  |
           |  |---[dll]------   IcmpSendEcho
           |  |
           |  |---[dll]------   IcmpCloseHandle
           |  |
           |  |---[dll]------   gethostbyname
           |  |
           |  |---[dll]------   CopyMemory_int2hostent

调用的DLL命令:

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

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

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

.DLL命令 WSAStartup, 整数型, "ws2_32.dll", "WSAStartup", 公开, 初始化WnSocket服务
    .参数 必需版本, 整数型, , wVersionRequired
    .参数 服务信息, 套接字信息, , lpWSAData

.DLL命令 SendARP, 整数型, "IPHLPAPI.DLL", "SendARP", 公开
    .参数 目标IP, 整数型
    .参数 本机IP, 整数型
    .参数 MAC缓冲, 字节型, 传址 数组
    .参数 长度, 整数型, 传址

.DLL命令 inet_addr, 整数型, "ws2_32.dll", "inet_addr", 公开
    .参数 IP, 文本型

.DLL命令 IcmpCreateFile, 整数型, "iphlpapi.dll", "IcmpCreateFile", 公开

.DLL命令 IcmpSendEcho, 整数型, "ICMP.DLL", "IcmpSendEcho", 公开
    .参数 IcmpHandle, 整数型
    .参数 DestinationAddress, 整数型
    .参数 RequestData, 文本型
    .参数 RequestSize, 短整数型
    .参数 RequestOptions, 整数型
    .参数 ReplyBuffer, ICMP_ECHO_REPLY
    .参数 ReplySize, 整数型
    .参数 Timeout, 整数型

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

.DLL命令 gethostbyname, 整数型, "ws2_32.dll", "gethostbyname", 公开, 成功返回内存指针
    .参数 name, 文本型, , 机器名称

.DLL命令 CopyMemory_int2hostent, 整数型, "kernel32", "RtlMoveMemory", 公开
    .参数 目标数据地址, hostent
    .参数 源数据, 整数型
    .参数 尺寸, 整数型