取TIME_protocol日期时间信息

真冬

  

信息框 (取TIME_protocol日期时间信息 (“time.nist.gov”), 0, , )

子程序名	返回值类型	公开	备 注
取TIME_protocol日期时间信息	日期时间型		时间协议（英语：TIME protocol）是一个在RFC868内定义的网络传输协议。它用作提供机器可读的日期时间信息。
参数名	类 型	参考	可空	数组	备 注
参数_地址	文本型
参数_时区	字节型				留空则默认8

变量名	类 型	静态	数组	备 注
局_返回消息	字节集
局_i1	整数型
局_返回时间	日期时间型
局_句柄	整数型

局_返回消息 ＝ 取空白字节集 (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时间 ()
返回 (局_返回时间)

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	文本型			机器名称

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

之前有人发13和123端口的取网络时间，我这个是37端口的。
调试输出 (增减时间 (到时间 (“1970年1月1日”), #秒, 时间_取NTP服务器时间戳 ())) ‘精易模块里也有通过123端口获取时间的

wh1234567

感谢楼主分享

胖子葛格

感谢大神分享~！

光影魔术

感谢分享源码

please

感谢分享，支持开源！！！

豆豆灰常开心

已经顶贴，感谢您对论坛的支持！

查过

全都是大佬~

396384183

感谢分享 赞一个 ！

please

感谢分享，支持开源！！！

豆豆灰常开心

全都是大佬~