金狮镖局 Design By www.egabc.com
网络授时服务是一些网络上的时间服务器提供的时间,一般用于本地时钟同步。 授时服务有很多种,一般我们选择RFC-868。这个协议的工作流程是:(S代表Server,C代表Client)
S: 检测端口37
U: 连接到端口37
S: 以32位二进制数发送时间
U: 接收时间
U: 关闭连接
S: 关闭连接
协议非常简单,用TCP连接上后,服务器直接把时间发送回来。发送的是从1900年1月1日午夜到现在的秒数。
使用luasocket
实现的方案有很多种,Lua不一定是最简单的,选择只是出于个人兴趣。直接上代码吧
----------------------------------------------------------------------------- -- Network Time Protocal -- Author: ani_di ----------------------------------------------------------------------------- package.cpath = package.cpath .. ';D:\\tools\\Lua\\5.1\\clibs\\"socket.core" server_ip = { -- "129.6.15.29", "132.163.4.101", "132.163.4.102", "132.163.4.103", "128.138.140.44", "192.43.244.18", "131.107.1.10", "66.243.43.21", "216.200.93.8", "208.184.49.9", "207.126.98.204", "207.200.81.113", "205.188.185.33"} function nstol(str) assert(str and #str == 4) local t = {str:byte(1,-1)} local n = 0 for k = 1, #t do n= n*256 + t[k] end return n end -- get time from a ip address, use tcp protocl function gettime(ip) print('connect ', ip) local tcp = socket.tcp() tcp:settimeout(10) tcp:connect(ip, 37) success, time = pcall(nstol, tcp:receive(4)) tcp:close() return success and time or nil end function nettime() for _, ip in pairs(server_ip) do time = gettime(ip) if time then return time end end end
代码原理不细说,非常简单。唯一值得一提的是socket库包含。最开始用的这句 require "socket"
在解释器中表现很好,但在用C中调用会找不到相应的module。错误提示
no field package.preload['socket'] no file '.\socket.lua' no file 'F:\Projects\Lua\nettime\lua\socket.lua' no file 'F:\Projects\Lua\nettime\lua\socket\init.lua' no file 'F:\Projects\Lua\nettime\socket.lua' no file 'F:\Projects\Lua\nettime\socket\init.lua' no file 'D:\tools\Lua\5.1\lua\socket.luac' no file '.\socket.dll' no file '.\socket51.dll' no file 'F:\Projects\Lua\nettime\socket.dll' no file 'F:\Projects\Lua\nettime\socket51.dll' no file 'F:\Projects\Lua\nettime\clibs\socket.dll' no file 'F:\Projects\Lua\nettime\clibs\socket51.dll' no file 'F:\Projects\Lua\nettime\loadall.dll' no file 'F:\Projects\Lua\nettime\clibs\loadall.dll'.
网上也有好多类似的提问,大抵是没仔细看作者的Guide。显著的有这么一句
The other two environment variables instruct the compatibility module to look for dynamic libraries and extension modules in the appropriate directories and with the appropriate filename extensions.>
LUAPATH=/"socket.core",windows默认安装位于“\socket\core.dll”。
C宿主调用
#include <stdio.h> #include <string.h> #include <lua.h> #include <lauxlib.h> #include <lualib.h> #include <time.h> #include <Windows.h> int load(lua_State* L, const char* func, unsigned int* utc) { lua_getglobal(L, func); if (lua_pcall(L, 0, 1, 0)) { printf("Error Msg pcall %s.\n", lua_tostring(L, -1)); return -1; } if (!lua_isnumber(L,-1)) { printf("time should be a number\n" ); return -2; } *utc = lua_tonumber(L,-1); lua_pop(L, -1); return 0; } void TimetToFileTime( time_t t, LPFILETIME pft ) { LONGLONG ll = Int32x32To64(t, 10000000) + 116444736000000000; pft->dwLowDateTime = (DWORD) ll; pft->dwHighDateTime = ll 32; } int main() { lua_State* L = luaL_newstate(); unsigned int utc = 0; luaL_openlibs(L); if (luaL_loadfile(L, "nettime.lua") || lua_pcall(L, 0, 0, 0)) { printf("Error Msg load %s.\n", lua_tostring(L, -1)); return -1; } do { if(load(L,"nettime", &utc) == 0) { time_t tt = utc - 2208988800L; SYSTEMTIME st; FILETIME ft; TimetToFileTime(tt, &ft); if (FileTimeToSystemTime(&ft, &st)) { printf("Today is: %d-%d-%d\n", st.wYear, st.wMonth, st.wDay); SetSystemTime(&st); } break; } else { puts("No network!"); Sleep(10000); } } while (1); lua_close(L); return 0; }
标签:
Lua,获取网络时间
金狮镖局 Design By www.egabc.com
金狮镖局
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件!
如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
金狮镖局 Design By www.egabc.com
暂无Lua获取网络时间(获取时间同步服务器的时间)的评论...
更新日志
2024年10月09日
2024年10月09日
- 【原神】V5.0攻略 | 林尼攻略一图流
- 李翊君.1993-相思的烈酒【上华】【WAV+CUE】
- 古巨基.1998-LEO.KU(国)【千禧年代】【WAV+CUE】
- 郭子.2001-原来你什么都不想要创作集丫滚石】【WAV+CUE】
- 《使命召唤:黑色行动6》新预告公布!10月25日发售
- Atlus《暗喻幻想》媒体评分汇总:高分好评如潮!
- 2024金摇杆奖提名揭晓 《黑神话》角逐最佳视觉设计!
- 群星《新说唱2024 第3期 (上)》[320K/MP3][32.76MB]
- 群星《新说唱2024 第3期 (上)》[FLAC/分轨][95.38MB]
- 群星《新说唱2024 第3期 (下)》[320K/MP3][31.36MB]
- 幻兽帕鲁手游什么时候正式上线 最新消息一览
- 西普大陆BOSS位置盘点 解锁天启纪元玩法
- 西普大陆精灵进阶培养攻略 精灵养成指南
- dnf手游法控法系职业哪个强 dnf手游法控法系职业强度排行
- 魔兽世界血藤护目镜图纸在哪买 wlk血藤护目镜图纸购买位置介绍