Project1

标题: XP如何检测是否联网了 [打印本页]
作者: The小炳    时间: 2016-1-31 22:30
标题: XP如何检测是否联网了
RPGXP游戏如何检测有没有联网，希望大神给个范例或者教程。
（游戏内已经有了联网脚本，只需要一个检测的就可以了。）
作者: yang1zhi    时间: 2016-2-1 19:58



RUBY 代码复制
  1. module ReadTime
  2.   module Config
  3.     #小时，分钟，秒设置的变量编号， 默认放在了6,7,8号变量里面
  4.     HOUR   = 6
  5.     MINUTE = 7
  6.     SECOND = 8
  7.  
  8.     #年月日
  9.     YEAR  = 9
  10.     MON   = 10
  11.     MDAY  = 11
  12.   end
  13. end
  14.  
  15.  
  16.  
  17.  
  18. module SAFX
  19.   module_function
  20.  
  21.   def to_param(a)
  22.     case a when Integer then "L" when String then "p" end
  23.   end
  24.  
  25.   def to_ptr(a)
  26.     case a  when Integer then a when String then [a].pack('p').unpack("L").first end
  27.   end
  28.  
  29.   def api(dll,func)
  30.     lambda{|*args|
  31.        Win32API.new(dll,func,args.map{|x|to_param(x)}, 'i').call(*args)
  32.     }
  33.   end
  34.  
  35.   def memread(addr, size)
  36.                         buf = "\0"*size
  37.                         api('Kernel32','RtlMoveMemory').call buf, addr, size
  38.                         buf
  39.         end
  40. end
  41.  
  42. module ReadTime
  43.  
  44.  
  45.  
  46.   class << self
  47.     TYPE_VOIDP = "L"
  48.     PTRLEN = 4
  49.     include SAFX
  50.     extend SAFX
  51.     %w[gethostbyname socket connect send recv closesocket].each{|name|
  52.        define_method(name, &api('ws2_32', name)) 
  53.     }
  54.     api('ws2_32', 'WSAStartup').call 0x202, "\0"*2048
  55.  
  56.     def get
  57.         # get IP
  58.         baidu =  gethostbyname("open.baidu.com\0")
  59.         raise "不能ping到open.baidu.com" if baidu == 0
  60.         addr = memread(baidu+PTRLEN*3, PTRLEN)
  61.                                 addr = addr.unpack(TYPE_VOIDP).first
  62.                                 addr = memread(addr, PTRLEN)
  63.                                 addr = addr.unpack(TYPE_VOIDP).first
  64.                                 addr = memread(addr, PTRLEN)
  65.                                 u = addr.unpack("L").first
  66.  
  67.         #setup TCP
  68.         tcpclient = socket(2, 1, 6)
  69.         raise "无法初始化TCP" if tcpclient == -1
  70.         #connect
  71.         result = connect tcpclient, [2, 80, u].pack("SnLx8"), 16
  72.         raise "不能连接到open.baidu.com" if result == -1
  73.  
  74.         #make request
  75.         req = "GET /special/time/ HTTP/1.1\r\n"  <<
  76.               "host: open.baidu.com\r\n" <<
  77.               "\r\n" <<
  78.               "\r\n\r\n"
  79.         #send
  80.         send tcpclient, req, req.length, 0
  81.  
  82.         #receive
  83.         buf = "\0"*1024
  84.         ret = ""
  85.         while true
  86.           len = recv tcpclient, buf, buf.length, 0
  87.           break if len < 1 
  88.           ret << buf[0, len]
  89.         end
  90.  
  91.         #shutdown
  92.         closesocket tcpclient
  93.  
  94.         ret = ret.unpack("C*").pack("C*")
  95.         number = ret[/HTTP\/1\.1 (\d+)/, 1].to_i
  96.  
  97.         if number != 200
  98.           raise "HTTP错误: #{number}"
  99.         end
  100.  
  101.  
  102.         #gettime
  103.         val = ret[/window\.baidu_time\((\d+)\)/, 1].to_i
  104.         if val == 0
  105.           raise "网络数据格式已变更，请联系作者"
  106.         end
  107.         curtime = Time.at val / 1000
  108.         $game_variables[ReadTime::Config::HOUR] = curtime.hour
  109.         $game_variables[ReadTime::Config::MINUTE] = curtime.min
  110.         $game_variables[ReadTime::Config::SECOND] = curtime.sec
  111.  
  112.         $game_variables[ReadTime::Config::YEAR] = curtime.year
  113.         $game_variables[ReadTime::Config::MDAY] = curtime.mday
  114.         $game_variables[ReadTime::Config::MON] = curtime.mon
  115.  
  116.      end
  117.   end
  118. end
  119.  
  120. def 获取时间
  121.   ReadTime.get
  122. end
作者: 冷峻逸    时间: 2016-2-1 21:23
提示: 作者被禁止或删除 内容自动屏蔽



欢迎光临 Project1 (https://rpg.blue/) Powered by Discuz! X3.1