数据报UDP获取NTP服务器UNIX时间戳！

黑咖啡

我看论坛上获取NTP时间戳的大多都是dll方法，最近刚好用到时间戳，写了个数据报UDP获取NTP服务器UNIX时间戳，只需易库即可，代码量也非常少，感兴趣的可以下载试试。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
网络数据报1	网络数据报		网络通讯支持库 （2.0#2版）

子程序名	返回值类型	公开	备 注
_按钮_数据报_被单击			核心库,窗口组件,数据报

数据报1.发送数据 (“time.windows.com”, 123, 取重复字节集 (48, { 27 }))

子程序名	返回值类型	公开	备 注
_数据报1_数据到达

调试输出 (“数据报”, NTP协议解析 (数据报1.取回数据 (), 假))

子程序名	返回值类型	公开	备 注
_按钮_网络数据报_被单击

变量名	类 型	静态	数组	备 注
NTP	对方信息

网络数据报1.配置 (0)  ' 自动分配本网络数据报的端口号
NTP.对方IP ＝ 转换为IP地址 (“time.windows.com”)  ' 域名转ip
NTP.对方端口 ＝ 123  ' 固定端口号
如果真 (网络数据报1.发送 (NTP, 取重复字节集 (48, { 27 }), 500))  ' 固定协议格式,长度48
调试输出 (“网络数据报”, NTP协议解析 (网络数据报1.接收 (500, NTP, ), 真))
网络数据报1.关闭 ()

子程序名	返回值类型	公开	备 注
NTP协议解析	文本型		返回“”表示失败
参数名	类 型	参考	可空	数组	备 注
时间戳字段	字节集
精确到毫秒	逻辑型

变量名	类 型	静态	数组	备 注
NTP时间戳整数秒	长整数型
UNIX时间戳	长整数型
NTP时间戳小数秒	文本型
局_返回	文本型

如果真 (取字节集长度 (时间戳字段) ＝ 48)
NTP时间戳整数秒 ＝ 取字节集数据 (到字节集 (反转整数字节序 (取字节集数据 (时间戳字段, #整数型, 41))), #长整数型, )  ' NTP时间戳从1900年1月1日开始计时
UNIX时间戳 ＝ NTP时间戳整数秒 － 2208988800  ' UNIX时间戳从1970年1月1日开始计时,需减70年的秒数差
判断 (精确到毫秒)
NTP时间戳小数秒 ＝ 到文本 (四舍五入 (取字节集数据 (到字节集 (反转整数字节序 (取字节集数据 (时间戳字段, #整数型, 45))), #长整数型, ) ÷ 4294967296, 3) × 1000)
局_返回 ＝ 到文本 (UNIX时间戳) ＋ NTP时间戳小数秒
局_返回 ＝ 到文本 (UNIX时间戳)

返回 (局_返回)

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

_按钮_数据报_被单击 ()
_按钮_网络数据报_被单击 ()
' NTP服务器：
' “time.windows.com”
' “cn.ntp.org.cn”
' “time1.cloud.tencent.com”
' “ntp.ntsc.ac.cn”
' “time.pool.aliyun.com”
' “ntp1.aliyun.com”
' “time1.aliyun.com”
' “0.north-america.pool.ntp.org”
' ”0.europe.pool.ntp.org”
' 开始运行被调试程序
' * “网络数据报” | “1761099130268”
' * “数据报” | “1761099130”
' * “网络数据报” | “1761099131250”
' * “数据报” | “1761099131”
' * “网络数据报” | “1761099132242”
' * “数据报” | “1761099132”
' * “网络数据报” | “1761099133237”
' * “数据报” | “1761099133”
' 被调试易程序运行完毕

i支持库列表	支持库注释
sock	网络通讯支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 sock<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 网络数据报1, 网络数据报, , , 网络通讯支持库 （2.0#2版）<br /> <br /> .子程序 _按钮_数据报_被单击, , , 核心库,窗口组件,数据报<br /> <br /> 数据报1.发送数据 (“time.windows.com”, 123, 取重复字节集 (48, { 27 }))<br /> <br /> .子程序 _数据报1_数据到达<br /> <br /> 调试输出 (“数据报”, NTP协议解析 (数据报1.取回数据 (), 假))<br /> <br /> .子程序 _按钮_网络数据报_被单击<br /> .局部变量 NTP, 对方信息<br /> <br /> 网络数据报1.配置 (0)  ' 自动分配本网络数据报的端口号<br /> NTP.对方IP ＝ 转换为IP地址 (“time.windows.com”)  ' 域名转ip<br /> NTP.对方端口 ＝ 123  ' 固定端口号<br /> .如果真 (网络数据报1.发送 (NTP, 取重复字节集 (48, { 27 }), 500))  ' 固定协议格式,长度48<br />     调试输出 (“网络数据报”, NTP协议解析 (网络数据报1.接收 (500, NTP, ), 真))<br /> .如果真结束<br /> 网络数据报1.关闭 ()<br /> <br /> .子程序 NTP协议解析, 文本型, , 返回“”表示失败<br /> .参数 时间戳字段, 字节集<br /> .参数 精确到毫秒, 逻辑型<br /> .局部变量 NTP时间戳整数秒, 长整数型<br /> .局部变量 UNIX时间戳, 长整数型<br /> .局部变量 NTP时间戳小数秒, 文本型<br /> .局部变量 局_返回, 文本型<br /> <br /> .如果真 (取字节集长度 (时间戳字段) ＝ 48)<br />     NTP时间戳整数秒 ＝ 取字节集数据 (到字节集 (反转整数字节序 (取字节集数据 (时间戳字段, #整数型, 41))), #长整数型, )  ' NTP时间戳从1900年1月1日开始计时<br />     UNIX时间戳 ＝ NTP时间戳整数秒 － 2208988800  ' UNIX时间戳从1970年1月1日开始计时,需减70年的秒数差<br />     .判断开始 (精确到毫秒)<br />         NTP时间戳小数秒 ＝ 到文本 (四舍五入 (取字节集数据 (到字节集 (反转整数字节序 (取字节集数据 (时间戳字段, #整数型, 45))), #长整数型, ) ÷ 4294967296, 3) × 1000)<br />         局_返回 ＝ 到文本 (UNIX时间戳) ＋ NTP时间戳小数秒<br />     .默认<br />         局_返回 ＝ 到文本 (UNIX时间戳)<br />     .判断结束<br /> <br /> .如果真结束<br /> 返回 (局_返回)<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> _按钮_数据报_被单击 ()<br /> _按钮_网络数据报_被单击 ()<br /> <br /> ' NTP服务器：<br /> ' “time.windows.com”<br /> ' “cn.ntp.org.cn”<br /> ' “time1.cloud.tencent.com”<br /> ' “ntp.ntsc.ac.cn”<br /> ' “time.pool.aliyun.com”<br /> ' “ntp1.aliyun.com”<br /> ' “time1.aliyun.com”<br /> ' “0.north-america.pool.ntp.org”<br /> ' ”0.europe.pool.ntp.org”<br /> <br /> ' 开始运行被调试程序<br /> ' * “网络数据报” | “1761099130268”<br /> ' * “数据报” | “1761099130”<br /> ' * “网络数据报” | “1761099131250”<br /> ' * “数据报” | “1761099131”<br /> ' * “网络数据报” | “1761099132242”<br /> ' * “数据报” | “1761099132”<br /> ' * “网络数据报” | “1761099133237”<br /> ' * “数据报” | “1761099133”<br /> ' 被调试易程序运行完毕

please

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

张澈

感谢分享

kingchain

感谢分享，很给力！~

wh1234567

谢谢分享

一指温柔

谢谢分享

wgqxj

谢谢分享

Fate

感谢分享

魂影丿残殇

666666666666666666666

小虎来了

感谢分享，很给力！~