易语言Ping网络IP地址源码

系统结构:网络_PING网络延迟时间,Ping返回状态,GetEnvironmentVar,IcmpSendEcho,IcmpCreateFile,IcmpCloseHandle,Len_ICMP,网络通讯到网络地址_,设置时钟_,销毁时钟_,取环境变量值_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 网络_PING网络延迟时间
           |  |
           |  |------ Ping返回状态
           |  |
           |  |------ GetEnvironmentVar
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ _编辑框1_放开某键
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   IcmpSendEcho
           |  |
           |  |---[dll]------   IcmpCreateFile
           |  |
           |  |---[dll]------   IcmpCloseHandle
           |  |
           |  |---[dll]------   Len_ICMP
           |  |
           |  |---[dll]------   网络通讯到网络地址_
           |  |
           |  |---[dll]------   设置时钟_
           |  |
           |  |---[dll]------   销毁时钟_
           |  |
           |  |---[dll]------   取环境变量值_

调用的DLL命令:

.DLL命令 IcmpSendEcho, 整数型, "ICMP.DLL", "IcmpSendEcho", , 返回值：成功，返回1，ICMP_ECHO_REPLY类型的数目保存在ReplyBuffer中。每一个响应的状态包含在此类型。如果返回0，调用GetLastError获取更多错误信息。
    .参数 IcmpHandle, 整数型, , 由IcmpCreateFile打开的句柄
    .参数 DestinationAddress, 整数型, , [输入] 响应要求的目的地
    .参数 RequestData, 文本型, , [输入] 包含要发送的请求数据中的缓存
    .参数 RequestSize, 短整数型, , [输入] RequestData请求数据缓存的大小，字节
    .参数 RequestOptions, 整数型, , [输入] 指向IP头请求选项的IP_OPTION_INFORMATION类型的指针，可以为空。
    .参数 ReplyBuffer, ICMP_ECHO_REPLY, , [输出] 用来保存请求响应的缓存。成功，包含一个类型的阵列，缓存应该足够大至少保存一个ICMP_ECHO_REPLY类型加上MAXRequestSize(=8) 字节的数据（一个ICMP错误信息包含8字节数据）。
    .参数 ReplySize, 整数型, , [输出] ReplyBuffer 的大小，字节
    .参数 Timeout, 整数型, , [输出] 等待响应时间，毫秒

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

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

.DLL命令 Len_ICMP, 整数型, "kernel32", "GlobalSize", , 返回全局内存块大小
    .参数 hMem, ICMP_ECHO_REPLY

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

.DLL命令 设置时钟_, 整数型, "user32.dll", "SetTimer"
    .参数 窗口句柄, 整数型, , hwnd
    .参数 事件标识符, 整数型, , nIDEvent
    .参数 时钟周期, 整数型, , uElapse
    .参数 回调函数地址, 整数型, , lpTimerFunc

.DLL命令 销毁时钟_, 整数型, "user32.dll", "KillTimer"
    .参数 窗口句柄, 整数型, , hwnd
    .参数 事件标识符, 整数型, , nIDEvent

.DLL命令 取环境变量值_, 整数型, "kernel32", "GetEnvironmentVariableA"
    .参数 环境字串名称, 文本型
    .参数 缓冲区, 文本型
    .参数 缓冲区长度, 整数型