易语言取UTC时间源码

系统结构:取UTC时间,WSAStartup,socket,getpeername,Connect,GetDateFormat,GetLocalTime,GetTimeFormat,recv,closesocket,WSACleanup,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 取UTC时间
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   WSAStartup
           |  |
           |  |---[dll]------   socket
           |  |
           |  |---[dll]------   getpeername
           |  |
           |  |---[dll]------   Connect
           |  |
           |  |---[dll]------   GetDateFormat
           |  |
           |  |---[dll]------   GetLocalTime
           |  |
           |  |---[dll]------   GetTimeFormat
           |  |
           |  |---[dll]------   recv
           |  |
           |  |---[dll]------   closesocket
           |  |
           |  |---[dll]------   WSACleanup

调用的DLL命令:

.DLL命令 WSAStartup, 整数型, "wsock32"
    .参数 VersionReq, 整数型
    .参数 WSADataReturn, WSADATA, 传址

.DLL命令 socket, 整数型, "ws2_32.dll", "socket"
    .参数 af, 整数型
    .参数 type, 整数型
    .参数 protocol, 整数型

.DLL命令 getpeername, 整数型, "ws2_32.dll", "getpeername"
    .参数 s, 整数型
    .参数 name, sockaddr_in, 传址
    .参数 namelen, 整数型

.DLL命令 Connect, 整数型, "ws2_32.dll", "connect"
    .参数 s, 整数型
    .参数 addr, sockaddr_in, 传址
    .参数 namelen, 整数型

.DLL命令 GetDateFormat, 整数型, "kernel32", "GetDateFormatA"
    .参数 Locale, 整数型
    .参数 dwFlags, 整数型
    .参数 lpDate, SYSTEMTIME
    .参数 lpFormat, 文本型
    .参数 lpDateStr, 文本型
    .参数 cchDate, 整数型

.DLL命令 GetLocalTime, , "kernel32", "GetLocalTime"
    .参数 lpSystemTime, SYSTEMTIME, 传址

.DLL命令 GetTimeFormat, 整数型, "kernel32", "GetTimeFormatA"
    .参数 Locale, 整数型
    .参数 dwFlags, 整数型
    .参数 lpTime, SYSTEMTIME
    .参数 lpFormat, 文本型
    .参数 lpTimeStr, 文本型
    .参数 cchTime, 整数型

.DLL命令 recv, 整数型, "ws2_32.dll", "recv"
    .参数 s, 整数型
    .参数 buf, 文本型, 传址
    .参数 lLen, 整数型
    .参数 flags, 整数型

.DLL命令 closesocket, 整数型, "ws2_32.dll", "closesocket"
    .参数 s, 整数型

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