易语言ICMP路由追踪者源码

系统结构:TraceRT,TraceRTSendEcho,ShowResults,网络_域名转IP,SocketsInitialize,GetIPFromAddress,GetStrFromPtrA,清除网络通讯_,网络通讯启动_,取主机地址信息_,拷贝内存_Host结构,拷贝内存_字节,拷贝内存_整数3,网络通讯到网络地址_,IcmpCreateFile,IcmpSendEcho,Len_ICMp,网络通讯到文本地址_,取文本内容长度_,复制字符串_,IcmpCloseHandle,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ TraceRT
           |  |
           |  |------ TraceRTSendEcho
           |  |
           |  |------ ShowResults
           |  |
           |  |
======程序集1
           |  |
           |  |------ 网络_域名转IP
           |  |
           |  |------ SocketsInitialize
           |  |
           |  |------ GetIPFromAddress
           |  |
           |  |------ GetStrFromPtrA
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   清除网络通讯_
           |  |
           |  |---[dll]------   网络通讯启动_
           |  |
           |  |---[dll]------   取主机地址信息_
           |  |
           |  |---[dll]------   拷贝内存_Host结构
           |  |
           |  |---[dll]------   拷贝内存_字节
           |  |
           |  |---[dll]------   拷贝内存_整数3
           |  |
           |  |---[dll]------   网络通讯到网络地址_
           |  |
           |  |---[dll]------   IcmpCreateFile
           |  |
           |  |---[dll]------   IcmpSendEcho
           |  |
           |  |---[dll]------   Len_ICMp
           |  |
           |  |---[dll]------   网络通讯到文本地址_
           |  |
           |  |---[dll]------   取文本内容长度_
           |  |
           |  |---[dll]------   复制字符串_
           |  |
           |  |---[dll]------   IcmpCloseHandle

调用的DLL命令:

.DLL命令 清除网络通讯_, 整数型, "ws2_32.dll", "WSACleanup"

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

.DLL命令 取主机地址信息_, 整数型, "ws2_32.dll", "gethostbyname"
    .参数 name, 文本型

.DLL命令 拷贝内存_Host结构, 整数型, "kernel32", "RtlMoveMemory", , RtlMoveMemory
    .参数 目标数据地址, HOSTENT, , lpvDest
    .参数 源数据, 整数型, , lpvSource
    .参数 尺寸, 整数型, , cbCopy

.DLL命令 拷贝内存_字节, 整数型, "kernel32", "RtlMoveMemory", , RtlMoveMemory
    .参数 目标数据地址, 字节型, 传址, lpvDest
    .参数 源数据, 整数型, , lpvSource
    .参数 尺寸, 整数型, , cbCopy

.DLL命令 拷贝内存_整数3, 整数型, "kernel32", "RtlMoveMemory", 公开, 系统_剪贴板取文件
    .参数 目标数据地址, 整数型, 传址, lpvDest
    .参数 源数据, 整数型, , lpvSource
    .参数 尺寸, 整数型, , cbCopy

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

.DLL命令 IcmpCreateFile, 整数型, "ICMP.DLL", "IcmpCreateFile"

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

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

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

.DLL命令 取文本内容长度_, 整数型, "kernel32.dll", "lstrlenA", , lstrlenA
    .参数 文本, 整数型, , Ptr

.DLL命令 复制字符串_, 整数型, "kernel32.dll", "lstrcpyA", , lstrcpyA
    .参数 文本1, 文本型, 传址, RetVal
    .参数 文本2, 整数型, , Ptr

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