信息框 (取TIME_protocol日期时间信息 (“time.nist.gov”), 0, , )
局_返回消息 ＝ 取空白字节集 (444)
WSAStartup_取Internet时间 (1, 局_返回消息) ' 初始化版本1并写入套接字信息
局_句柄 ＝ socket_取Internet时间 (2, 1, 6) ' 2，IPV4协议。1，字节流类型，6，TCP协议，
connect_取Internet时间 (局_句柄, { 2, 0, 0, 37 } ＋ 指针到字节集 (指针到整数 (指针到整数 (gethostbyname_取Internet时间 (参数_地址) ＋ 12)), 4), 16) ' 37端口和IP地址，16大小结构
局_返回消息 ＝ 取空白字节集 (9)
recv_取Internet时间 (局_句柄, 局_返回消息, 4, 0) ' 取服务器返回消息
closesocket_取Internet时间 (局_句柄) ' 关闭句柄
判断 (局_返回消息 [1] ＝ 0)
局_返回时间 ＝ 到时间 (0) ' 服务器返回消息为空
计次循环首 (2, 局_i1) ' 将获取到的消息倒序前4字节
局_返回消息 [9] ＝ 局_返回消息 [局_i1]
局_返回消息 [局_i1] ＝ 局_返回消息 [4 - (局_i1 - 1)]
局_返回消息 [4 - (局_i1 - 1)] ＝ 局_返回消息 [9]
计次循环尾 ()
局_i1 ＝ 取字节集sj (局_返回消息, #长整数型, ) - 36524 × 24 × 60 × 60 ' 减掉100年的时间
局_i1 ＝ 局_i1 ＋ 选择 (是否为空 (参数_时区), 8, 参数_时区) × 3600
局_返回时间 ＝ 增减时间 (到时间 (“2000年1月1日”), #秒, 局_i1)
WSACleanup_取Internet时间 ()
返回 (局_返回时间)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 取TIME_protocol日期时间信息 | 日期时间型 | 时间协议（英语：TIME protocol）是一个在RFC868内定义的网络传输协议。它用作提供机器可读的日期时间信息。 | |||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 参数_地址 | 文本型 | 参数_时区 | 字节型 | 留空则默认8 | |||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 局_返回消息 | 字节集 | |||||
| 局_i1 | 整数型 | |||||
| 局_返回时间 | 日期时间型 | |||||
| 局_句柄 | 整数型 | |||||
WSAStartup_取Internet时间 (1, 局_返回消息) ' 初始化版本1并写入套接字信息
局_句柄 ＝ socket_取Internet时间 (2, 1, 6) ' 2，IPV4协议。1，字节流类型，6，TCP协议，
connect_取Internet时间 (局_句柄, { 2, 0, 0, 37 } ＋ 指针到字节集 (指针到整数 (指针到整数 (gethostbyname_取Internet时间 (参数_地址) ＋ 12)), 4), 16) ' 37端口和IP地址，16大小结构
局_返回消息 ＝ 取空白字节集 (9)
recv_取Internet时间 (局_句柄, 局_返回消息, 4, 0) ' 取服务器返回消息
closesocket_取Internet时间 (局_句柄) ' 关闭句柄
判断 (局_返回消息 [1] ＝ 0)局_返回时间 ＝ 到时间 (0) ' 服务器返回消息为空计次循环首 (2, 局_i1) ' 将获取到的消息倒序前4字节局_返回消息 [9] ＝ 局_返回消息 [局_i1]局_返回消息 [局_i1] ＝ 局_返回消息 [4 - (局_i1 - 1)]局_返回消息 [4 - (局_i1 - 1)] ＝ 局_返回消息 [9]计次循环尾 ()局_i1 ＝ 取字节集sj (局_返回消息, #长整数型, ) - 36524 × 24 × 60 × 60 ' 减掉100年的时间局_i1 ＝ 局_i1 ＋ 选择 (是否为空 (参数_时区), 8, 参数_时区) × 3600局_返回时间 ＝ 增减时间 (到时间 (“2000年1月1日”), #秒, 局_i1)WSACleanup_取Internet时间 ()
返回 (局_返回时间)
| DLL命令名 | 返回值类型 | 公开 | 备 注 | |
| WSACleanup_取Internet时间 | 整数型 | 卸载Winsocket服务 | ||
| DLL库文件名: | ||||
| ws2_32.dll | ||||
| 在DLL库中对应命令名: | ||||
| WSACleanup | ||||
| 参数名 | 类 型 | 传址 | 数组 | 备 注 |
| DLL命令名 | 返回值类型 | 公开 | 备 注 | |
| WSAStartup_取Internet时间 | 整数型 | |||
| DLL库文件名: | ||||
| ws2_32.dll | ||||
| 在DLL库中对应命令名: | ||||
| WSAStartup | ||||
| 参数名 | 类 型 | 传址 | 数组 | 备 注 |
| wVersionRequested | 整数型 | |||
| lpWSAData | 字节集 | |||
| DLL命令名 | 返回值类型 | 公开 | 备 注 | |
| socket_取Internet时间 | 整数型 | Socket又称套接字，应用程序通常通过套接字向网络发出请求或者应答网络请求。 | ||
| DLL库文件名: | ||||
| ws2_32.dll | ||||
| 在DLL库中对应命令名: | ||||
| socket | ||||
| 参数名 | 类 型 | 传址 | 数组 | 备 注 |
| af | 整数型 | |||
| type | 整数型 | SOCK_STREAM or SOCK_DGRAM | ||
| protocol | 整数型 | |||
| DLL命令名 | 返回值类型 | 公开 | 备 注 | |
| connect_取Internet时间 | 整数型 | 连接到服务器(TCP) | ||
| DLL库文件名: | ||||
| ws2_32.dll | ||||
| 在DLL库中对应命令名: | ||||
| connect | ||||
| 参数名 | 类 型 | 传址 | 数组 | 备 注 |
| 网络通讯标识符 | 整数型 | s | ||
| 名称结构 | 字节集 | 套接字地址addr | ||
| 名称结构长度 | 整数型 | namelen(16) | ||
| DLL命令名 | 返回值类型 | 公开 | 备 注 | |
| inet_addr_取Internet时间 | 整数型 | |||
| DLL库文件名: | ||||
| ws2_32.dll | ||||
| 在DLL库中对应命令名: | ||||
| inet_addr | ||||
| 参数名 | 类 型 | 传址 | 数组 | 备 注 |
| IP | 文本型 | |||
| DLL命令名 | 返回值类型 | 公开 | 备 注 | |
| recv_取Internet时间 | 整数型 | |||
| DLL库文件名: | ||||
| ws2_32.dll | ||||
| 在DLL库中对应命令名: | ||||
| recv | ||||
| 参数名 | 类 型 | 传址 | 数组 | 备 注 |
| socket | 整数型 | |||
| buf | 字节集 | __out_data_source(NETWORK) char *buf, | ||
| len | 整数型 | |||
| flag | 整数型 | |||
| DLL命令名 | 返回值类型 | 公开 | 备 注 | |
| closesocket_取Internet时间 | 整数型 | |||
| DLL库文件名: | ||||
| ws2_32.dll | ||||
| 在DLL库中对应命令名: | ||||
| closesocket | ||||
| 参数名 | 类 型 | 传址 | 数组 | 备 注 |
| s | 整数型 | 0 | ||
| DLL命令名 | 返回值类型 | 公开 | 备 注 | |
| gethostbyname_取Internet时间 | 整数型 | 成功返回内存指针 | ||
| DLL库文件名: | ||||
| ws2_32.dll | ||||
| 在DLL库中对应命令名: | ||||
| gethostbyname | ||||
| 参数名 | 类 型 | 传址 | 数组 | 备 注 |
| name | 文本型 | 机器名称 | ||
