易语言利用sock解析域名源码

系统结构:combine,域名解析,gethostbyname_,CopyMemory_,WSAGetLastError_,WSAStartup_,WSACleanup_,CopyMemory_Byte,CopyMemory_Int,LocalSize_,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ combine
           |  |
           |  |------ 域名解析
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   gethostbyname_
           |  |
           |  |---[dll]------   CopyMemory_
           |  |
           |  |---[dll]------   WSAGetLastError_
           |  |
           |  |---[dll]------   WSAStartup_
           |  |
           |  |---[dll]------   WSACleanup_
           |  |
           |  |---[dll]------   CopyMemory_Byte
           |  |
           |  |---[dll]------   CopyMemory_Int
           |  |
           |  |---[dll]------   LocalSize_

调用的DLL命令:

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

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

.DLL命令 WSAGetLastError_, 整数型, "ws2_32.dll", "WSAGetLastError"

.DLL命令 WSAStartup_, 整数型, "ws2_32.dll", "WSAStartup"
    .参数 wVersionRequired, 短整数型
    .参数 lpWSAData, WSAData, 传址

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

.DLL命令 CopyMemory_Byte, , "kernel32", "RtlMoveMemory"
    .参数 pDest, 字节型, 传址 数组
    .参数 pSrc, 整数型
    .参数 ByteLen, 整数型

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

.DLL命令 LocalSize_, 整数型, "kernel32", "LocalSize", , 返回本地内存块大小
    .参数 hMem, hostent