如何获取网络时间？

大放异彩

RUBY 代码复制

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

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

这段脚本是获取网络时间的，事件脚本“获取时间”，就可以将时间储存到指定变量中
我想脚本应该没什么问题的吧？毕竟是大神写的，可是为何会提示195行错误   “HTTP错误:302”（为了避免跟其他脚本冲突，所以我是新建工程测试这段代码的）
求解

enghao_lim

https://baike.baidu.com/item/302/878045

302 是重定向，可是脚本只考虑了请求成功（200）的情况，所以提示错误。估计是因为HTTP的关系，应该会重定向到HTTPS。这玩意儿我不熟，只能给出可能原因无法给出解决方案。

guoxiaomi

似乎：http://open.baidu.com/special/time，这个页面已经不能访问了