易语言API的Ping代码源码

系统结构:test,Ping,指针到整数_,API_IcmpCloseHandle,API_IcmpCreateFile,inet_addr,API_IcmpSendEcho,API_GlobalSize,API_gethostbyname,API_WSAStartup,WSACleanup,API_CopyMemory,API_GlobalSize_host,API_CopyMemory_整数,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ test
           |  |
           |  |------ Ping
           |  |
           |  |------ 指针到整数_
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_IcmpCloseHandle
           |  |
           |  |---[dll]------   API_IcmpCreateFile
           |  |
           |  |---[dll]------   inet_addr
           |  |
           |  |---[dll]------   API_IcmpSendEcho
           |  |
           |  |---[dll]------   API_GlobalSize
           |  |
           |  |---[dll]------   API_gethostbyname
           |  |
           |  |---[dll]------   API_WSAStartup
           |  |
           |  |---[dll]------   WSACleanup
           |  |
           |  |---[dll]------   API_CopyMemory
           |  |
           |  |---[dll]------   API_GlobalSize_host
           |  |
           |  |---[dll]------   API_CopyMemory_整数

调用的DLL命令:

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

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

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

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

.DLL命令 API_GlobalSize, 整数型, "kernel32", "GlobalSize"
    .参数 hMem, ICMP_ECHO_REPLY

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

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

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

.DLL命令 API_CopyMemory, , "kernel32", "RtlMoveMemory"
    .参数 pDest, HOSTENT, 传址
    .参数 pSrc, 整数型
    .参数 ByteLen, 整数型

.DLL命令 API_GlobalSize_host, 整数型, "kernel32", "GlobalSize"
    .参数 hMem, HOSTENT

.DLL命令 API_CopyMemory_整数, , "kernel32", "RtlMoveMemory"
    .参数 pDest, 整数型, 传址
    .参数 pSrc, 整数型
    .参数 ByteLen, 整数型