同步网络时间

霜月寒冬 · 发表于 2015-5-15 20:11:07

加入我们，或者，欢迎回来。

您需要登录才可以下载或查看，没有帐号？注册会员

x

怎样才能使游戏同步网络时间，我想借此做一个签到系统，每天的这个时候签到可以获得礼品。
求大大给脚本啊

云海尘清 · 发表于 2015-7-24 19:58:44

同步时间

在其他脚本中截来的

霜月寒冬 · 发表于 2015-5-31 18:11:26

不联网的有没有啊

lanyaolove · 发表于 2015-5-17 04:30:48

本帖最后由 lanyaolove 于 2015-5-17 04:32 编辑

module ReadTime
module Config
#小时，分钟，秒设置的变量编号，默认放在了6,7,8号变量里面
HOUR = 6
MINUTE = 7
SECOND = 8
#年月日
YEAR = 9
MON = 10
MDAY = 11
end
end
module SAFX
module_function
def to_param(a)
case a when Integer then "L" when String then "p" end
end
def to_ptr(a)
case a when Integer then a when String then [a].pack('p').unpack("L").first end
end
def api(dll,func)
lambda{|*args|
Win32API.new(dll,func,args.map{|x|to_param(x)}, 'i').call(*args)
}
end
def memread(addr, size)
buf = "\0"*size
api('Kernel32','RtlMoveMemory').call buf, addr, size
buf
end
end
module ReadTime
class << self
TYPE_VOIDP = "L"
PTRLEN = 4
include SAFX
extend SAFX
%w[gethostbyname socket connect send recv closesocket].each{|name|
define_method(name, &api('ws2_32', name))
}
api('ws2_32', 'WSAStartup').call 0x202, "\0"*2048
def get
# get IP
baidu = gethostbyname("open.baidu.com\0")
raise "不能ping到open.baidu.com" if baidu == 0
addr = memread(baidu+PTRLEN*3, PTRLEN)
addr = addr.unpack(TYPE_VOIDP).first
addr = memread(addr, PTRLEN)
addr = addr.unpack(TYPE_VOIDP).first
addr = memread(addr, PTRLEN)
u = addr.unpack("L").first
#setup TCP
tcpclient = socket(2, 1, 6)
raise "无法初始化TCP" if tcpclient == -1
#connect
result = connect tcpclient, [2, 80, u].pack("SnLx8"), 16
raise "不能连接到open.baidu.com" if result == -1
#make request
req = "GET /special/time/ HTTP/1.1\r\n" <<
"host: open.baidu.com\r\n" <<
"\r\n" <<
"\r\n\r\n"
#send
send tcpclient, req, req.length, 0
#receive
buf = "\0"*1024
ret = ""
while true
len = recv tcpclient, buf, buf.length, 0
break if len < 1
ret << buf[0, len]
end
#shutdown
closesocket tcpclient
ret = ret.unpack("C*").pack("C*")
number = ret[/HTTP\/1\.1 (\d+)/, 1].to_i
if number != 200
raise "HTTP错误: #{number}"
end
#gettime
val = ret[/window\.baidu_time$(\d+)$/, 1].to_i
if val == 0
raise "网络数据格式已变更，请联系作者"
end
curtime = Time.at val / 1000
$game_variables[ReadTime::Config::HOUR] = curtime.hour
$game_variables[ReadTime::Config::MINUTE] = curtime.min
$game_variables[ReadTime::Config::SECOND] = curtime.sec
$game_variables[ReadTime::Config::YEAR] = curtime.year
$game_variables[ReadTime::Config::MDAY] = curtime.mday
$game_variables[ReadTime::Config::MON] = curtime.mon
end
end
end
def 获取时间
ReadTime.get
end

复制代码

这是兰兰写好的脚本 @晴兰
用法：在事件脚本里面或者其他地方写上获取时间就行了

wolves · 发表于 2015-5-16 01:34:26

首先要获取时间要有时间提供商，http://www.time.ac.cn/stime.asp
其次要分析有用信息，用正则匹配年月日

具体实践明天试试

帐号		自动登录	找回密码
密码			注册会员

[已经解决] 同步网络时间

加入我们，或者，欢迎回来。

点评

评分