ACE分辨率内存补丁（免DLL修改）感谢小黄鸡（：

灼眼的夏娜 · 发表于 2012-2-14 22:07:39

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

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

x

本帖最后由灼眼的夏娜于 2012-2-15 20:43 编辑

更新，调整reset方式。（修正过渡问题

RUBY 代码复制

#encoding:utf-8
#==============================================================================
# ■ String
#------------------------------------------------------------------------------
# 　String 类追加定义。
#==============================================================================
 
class String
  #----------------------------------------------------------------------------
  # ● API
  #----------------------------------------------------------------------------
  @@MultiByteToWideChar  = Win32API.new('kernel32', 'MultiByteToWideChar', 'ilpipi', 'i')
  @@WideCharToMultiByte  = Win32API.new('kernel32', 'WideCharToMultiByte', 'ilpipipp', 'i')
  #----------------------------------------------------------------------------
  # ● UTF-8 转 Unicode
  #----------------------------------------------------------------------------
  def u2w
    i = @@MultiByteToWideChar.call(65001, 0 , self, -1, nil,0)
    buffer = "\0" * (i*2)
    @@MultiByteToWideChar.call(65001, 0 , self, -1, buffer, i)
    buffer.chop!
    return buffer
  end  
  #----------------------------------------------------------------------------
  # ● UTF-8 转系统编码
  #----------------------------------------------------------------------------
  def u2s
    i = @@MultiByteToWideChar.call(65001, 0 , self, -1, nil,0)
    buffer = "\0" * (i*2)
    @@MultiByteToWideChar.call(65001, 0 , self, -1, buffer, i)
    i = @@WideCharToMultiByte.call(0, 0, buffer, -1, nil, 0, nil, nil)
    result = "\0" * i
    @@WideCharToMultiByte.call(0, 0, buffer, -1, result, i, nil, nil)
    result.chop!
    return result
  end
  #----------------------------------------------------------------------------
  # ● 系统编码转 UTF-8
  #----------------------------------------------------------------------------
  def s2u
    i = @@MultiByteToWideChar.call(0, 0, self, -1, nil, 0)
    buffer = "\0" * (i*2)
    @@MultiByteToWideChar.call(0, 0, self, -1, buffer, buffer.size / 2)
    i = @@WideCharToMultiByte.call(65001, 0, buffer, -1, nil, 0, nil, nil)
    result = "\0" * i
    @@WideCharToMultiByte.call(65001, 0, buffer, -1, result, result.size, nil, nil)
    result.chop!
    return result
  end
end
 
#==============================================================================
# ■ AceResolutionMemoryPatch
#------------------------------------------------------------------------------
#  用于调整RMACE分辨率的内存补丁脚本，免修改DLL。
#
#   by 灼眼的夏娜（感谢fux2君提供内存地址）
#==============================================================================
# 更多脚本请转到 [url]www.66rpg.com[/url]。
#==============================================================================
module AceResolutionMemoryPatch
 
  GetModuleFileName       = Win32API.new("kernel32", "GetModuleFileName", "lpl", "l")
  GetPrivateProfileString = Win32API.new("kernel32", "GetPrivateProfileString", "pppplp", "l")
  GetModuleHandle         = Win32API.new("kernel32", "GetModuleHandle", "p", "l")
  RtlMoveMemory           = Win32API.new("kernel32", "RtlMoveMemory", "pli", "v")
  RtlMoveMemoryLP         = Win32API.new("kernel32", "RtlMoveMemory", "lpi", "v")
  VirtualProtect          = Win32API.new("kernel32", "VirtualProtect", "lllp", "i")
  FindWindow              = Win32API.new("user32", "FindWindow", "pp", "l")
 
  module_function
 
  def patch(width = 800, height = 600)
    # 获取句柄
    path = 0.chr * 256
    return false if 0 == GetModuleFileName.call(0, path, path.size)
    path = path.s2u.gsub!(/.exe/ ,".ini").u2s
    buff = 0.chr * 256
    return false if 0 == GetPrivateProfileString.call("Game", "Library", nil, buff, buff.size, path)
    buff.delete!("\0")
    rgsshandle = GetModuleHandle.call(buff)
    # 获取标题名和脚本名字
    title = 0.chr * 256
    return false if 0 == GetPrivateProfileString.call("Game", "Title", nil, title, title.size, path)
    title = title.s2u.delete("\0").u2s
    scripts = 0.chr * 256
    return false if 0 == GetPrivateProfileString.call("Game", "Scripts", nil, scripts, scripts.size, path)
    scripts = scripts.s2u.delete("\0").u2w
    # 地址表
    addr = 
    {
      # 直接宽度替换
      :w0 => [0x000016EE, 0x000020F6, 0x000020FF, 0x0010DFED, 0x0010E025, 0x0010E059, 0x0010E08D, 0x000019AA, 0x00001A5B, 0x0001C528, 0x0001F49C, 0x0010E7E7, 0x0010EFE9],
      # 直接高度替换
      :h0 => [0x000016E9, 0x00002106, 0x0000210F, 0x0010DFE8, 0x0010E020, 0x0010E054, 0x0010E088, 0x000019A5, 0x00001A56, 0x0001C523, 0x0001F497, 0x0010E803, 0x0010EFF9],
 
      # 宽度+32
      :w1 => [0x000213E4],
      # 高度+32
      :h1 => [0x000213DF],
 
      # 最大宽度/32+1
      :w2 => [0x00021FE1],
      # 最大高度/32+1
      :h2 => [0x00021F5D]
    }
    # 更新
    w0 = [width].pack("L")
    addr[:w0].each{|ofs| return false if !write_memory(rgsshandle + ofs, w0)}
    h0 = [height].pack("L")
    addr[:h0].each{|ofs| return false if !write_memory(rgsshandle + ofs, h0)}
    w1 = [width + 32].pack("L")
    addr[:w1].each{|ofs| return false if !write_memory(rgsshandle + ofs, w1)}
    h1 = [height + 32].pack("L")
    addr[:h1].each{|ofs| return false if !write_memory(rgsshandle + ofs, h1)}
    w2 = [width / 32 + 1].pack("C")
    addr[:w2].each{|ofs| return false if !write_memory(rgsshandle + ofs, w2)}
    h2 = [height / 32 + 1].pack("C")
    addr[:h2].each{|ofs| return false if !write_memory(rgsshandle + ofs, h2)}
    # 重启
    rgssgamemain = Win32API.new(buff, "RGSSGameMain", "ipp", "v")
    rgssgamemain.call(FindWindow.call("RGSS Player", title), scripts, "")
    # 补丁成功
    return true
  end
 
  def write_memory(addr, str)
    old = 0.chr * 4
    return false if 0 == VirtualProtect.call(addr, str.size, 0x40, old)
    RtlMoveMemoryLP.call(addr, str, str.size)
    return false if 0 == VirtualProtect.call(addr, str.size, old.unpack("L").first, old)
    return true
  end
  private_class_method :write_memory
 
  def read_byte(addr)
    dst = 0.chr * 1
    RtlMoveMemory.call(dst, addr, dst.size)
    return dst.unpack("C").first
  end
  private_class_method :read_byte
 
  def read_dword(addr)
    dst = 0.chr * 4
    RtlMoveMemory.call(dst, addr, dst.size)
    return dst.unpack("L").first
  end
  private_class_method :read_dword
 
end
 
unless $ace_patched
  $ace_patched = true
  raise "应用分辨率补丁失败！" unless AceResolutionMemoryPatch.patch
  #raise RGSSReset.new
end
 
Graphics.resize_screen(800, 600)

#encoding:utf-8


#==============================================================================


# ■ String


#------------------------------------------------------------------------------


# 　String 类追加定义。


#==============================================================================


 


class String


  #----------------------------------------------------------------------------


  # ● API


  #----------------------------------------------------------------------------


  @@MultiByteToWideChar  = Win32API.new('kernel32', 'MultiByteToWideChar', 'ilpipi', 'i')


  @@WideCharToMultiByte  = Win32API.new('kernel32', 'WideCharToMultiByte', 'ilpipipp', 'i')


  #----------------------------------------------------------------------------


  # ● UTF-8 转 Unicode


  #----------------------------------------------------------------------------


  def u2w


    i = @@MultiByteToWideChar.call(65001, 0 , self, -1, nil,0)


    buffer = "\0" * (i*2)


    @@MultiByteToWideChar.call(65001, 0 , self, -1, buffer, i)


    buffer.chop!


    return buffer


  end  


  #----------------------------------------------------------------------------


  # ● UTF-8 转系统编码


  #----------------------------------------------------------------------------


  def u2s


    i = @@MultiByteToWideChar.call(65001, 0 , self, -1, nil,0)


    buffer = "\0" * (i*2)


    @@MultiByteToWideChar.call(65001, 0 , self, -1, buffer, i)


    i = @@WideCharToMultiByte.call(0, 0, buffer, -1, nil, 0, nil, nil)


    result = "\0" * i


    @@WideCharToMultiByte.call(0, 0, buffer, -1, result, i, nil, nil)


    result.chop!


    return result


  end


  #----------------------------------------------------------------------------


  # ● 系统编码转 UTF-8


  #----------------------------------------------------------------------------


  def s2u


    i = @@MultiByteToWideChar.call(0, 0, self, -1, nil, 0)


    buffer = "\0" * (i*2)


    @@MultiByteToWideChar.call(0, 0, self, -1, buffer, buffer.size / 2)


    i = @@WideCharToMultiByte.call(65001, 0, buffer, -1, nil, 0, nil, nil)


    result = "\0" * i


    @@WideCharToMultiByte.call(65001, 0, buffer, -1, result, result.size, nil, nil)


    result.chop!


    return result


  end


end


 


#==============================================================================


# ■ AceResolutionMemoryPatch


#------------------------------------------------------------------------------


#  用于调整RMACE分辨率的内存补丁脚本，免修改DLL。


#


#   by 灼眼的夏娜（感谢fux2君提供内存地址）


#==============================================================================


# 更多脚本请转到 [url]www.66rpg.com[/url]。


#==============================================================================


module AceResolutionMemoryPatch


 


  GetModuleFileName       = Win32API.new("kernel32", "GetModuleFileName", "lpl", "l")


  GetPrivateProfileString = Win32API.new("kernel32", "GetPrivateProfileString", "pppplp", "l")


  GetModuleHandle         = Win32API.new("kernel32", "GetModuleHandle", "p", "l")


  RtlMoveMemory           = Win32API.new("kernel32", "RtlMoveMemory", "pli", "v")


  RtlMoveMemoryLP         = Win32API.new("kernel32", "RtlMoveMemory", "lpi", "v")


  VirtualProtect          = Win32API.new("kernel32", "VirtualProtect", "lllp", "i")


  FindWindow              = Win32API.new("user32", "FindWindow", "pp", "l")


 


  module_function


 


  def patch(width = 800, height = 600)


    # 获取句柄


    path = 0.chr * 256


    return false if 0 == GetModuleFileName.call(0, path, path.size)


    path = path.s2u.gsub!(/.exe/ ,".ini").u2s


    buff = 0.chr * 256


    return false if 0 == GetPrivateProfileString.call("Game", "Library", nil, buff, buff.size, path)


    buff.delete!("\0")


    rgsshandle = GetModuleHandle.call(buff)


    # 获取标题名和脚本名字


    title = 0.chr * 256


    return false if 0 == GetPrivateProfileString.call("Game", "Title", nil, title, title.size, path)


    title = title.s2u.delete("\0").u2s


    scripts = 0.chr * 256


    return false if 0 == GetPrivateProfileString.call("Game", "Scripts", nil, scripts, scripts.size, path)


    scripts = scripts.s2u.delete("\0").u2w


    # 地址表


    addr = 


    {


      # 直接宽度替换


      :w0 => [0x000016EE, 0x000020F6, 0x000020FF, 0x0010DFED, 0x0010E025, 0x0010E059, 0x0010E08D, 0x000019AA, 0x00001A5B, 0x0001C528, 0x0001F49C, 0x0010E7E7, 0x0010EFE9],


      # 直接高度替换


      :h0 => [0x000016E9, 0x00002106, 0x0000210F, 0x0010DFE8, 0x0010E020, 0x0010E054, 0x0010E088, 0x000019A5, 0x00001A56, 0x0001C523, 0x0001F497, 0x0010E803, 0x0010EFF9],


 


      # 宽度+32


      :w1 => [0x000213E4],


      # 高度+32


      :h1 => [0x000213DF],


 


      # 最大宽度/32+1


      :w2 => [0x00021FE1],


      # 最大高度/32+1


      :h2 => [0x00021F5D]


    }


    # 更新


    w0 = [width].pack("L")


    addr[:w0].each{|ofs| return false if !write_memory(rgsshandle + ofs, w0)}


    h0 = [height].pack("L")


    addr[:h0].each{|ofs| return false if !write_memory(rgsshandle + ofs, h0)}


    w1 = [width + 32].pack("L")


    addr[:w1].each{|ofs| return false if !write_memory(rgsshandle + ofs, w1)}


    h1 = [height + 32].pack("L")


    addr[:h1].each{|ofs| return false if !write_memory(rgsshandle + ofs, h1)}


    w2 = [width / 32 + 1].pack("C")


    addr[:w2].each{|ofs| return false if !write_memory(rgsshandle + ofs, w2)}


    h2 = [height / 32 + 1].pack("C")


    addr[:h2].each{|ofs| return false if !write_memory(rgsshandle + ofs, h2)}


    # 重启


    rgssgamemain = Win32API.new(buff, "RGSSGameMain", "ipp", "v")


    rgssgamemain.call(FindWindow.call("RGSS Player", title), scripts, "")


    # 补丁成功


    return true


  end


 


  def write_memory(addr, str)


    old = 0.chr * 4


    return false if 0 == VirtualProtect.call(addr, str.size, 0x40, old)


    RtlMoveMemoryLP.call(addr, str, str.size)


    return false if 0 == VirtualProtect.call(addr, str.size, old.unpack("L").first, old)


    return true


  end


  private_class_method :write_memory


 


  def read_byte(addr)


    dst = 0.chr * 1


    RtlMoveMemory.call(dst, addr, dst.size)


    return dst.unpack("C").first


  end


  private_class_method :read_byte


 


  def read_dword(addr)


    dst = 0.chr * 4


    RtlMoveMemory.call(dst, addr, dst.size)


    return dst.unpack("L").first


  end


  private_class_method :read_dword


 


end


 


unless $ace_patched


  $ace_patched = true


  raise "应用分辨率补丁失败！" unless AceResolutionMemoryPatch.patch


  #raise RGSSReset.new


end


 


Graphics.resize_screen(800, 600)

hide秀 · 发表于 2012-2-14 22:09:29

凌童鞋 · 发表于 2012-2-14 22:54:25

纯粹来膜拜夏娜大人的凌飘过~
(郁闷，当纯水扣吧，郁闷的是水区活动发经验到手软，我却一分拿不到……)

各种压力的猫君 · 发表于 2012-2-14 23:08:40

万能的夏娜大出现了 _ _
能改完之后直接Dump出来么？
手动改dll计算那几个数值略麻烦 = = b
发布游戏的时候还是希望不要直接对内存操作……

fux2 · 发表于 2012-2-15 00:32:03

Shy07 发表于 2012-2-14 23:28
渐变似乎还是锁定了 640×480 = =

囧，哪里漏掉了吗，明早补上。

wbsy8241 · 发表于 2012-2-15 00:51:35

本帖最后由 wbsy8241 于 2012-2-15 00:59 编辑

测试系统:XP SP3
1.下面有黑条(非左上角对齐以后:上下位移,左右正常上下移动后最下格是黑的然后画面滚动)
2.FPS下降明显{640x480=>60FPS, 800x600=>46FPS, 1024x768=>20FPS)} 改DLL的1024x768仍为60FPS
3.无法指定640x480 800x600 1024x768 以外的全屏

fux2 · 发表于 2012-2-15 01:10:53

本帖最后由 fux2 于 2012-2-15 01:19 编辑

wbsy8241 发表于 2012-2-15 00:51
测试系统:XP SP3
1.下面有黑条(非左上角对齐以后:上下位移,左右正常上下移动后最下格是黑的然后画面滚动 ...

32的倍数即可，至于黑边，咱这里没有，目测是因为设置分辨率不能整除32的原因。

wbsy8241 · 发表于 2012-2-15 01:22:08

本帖最后由 wbsy8241 于 2012-2-15 01:25 编辑

fux2 发表于 2012-2-15 01:10
32的倍数即可，至于黑边，咱这里没有，目测是因为设置分辨率不能整除32的原因。 ...

地图画够大再移动, 只有我说的那3个分辨率就算800*480 也是无法全屏
600/32 = 18.75
(是可以进游戏但无法全屏按ALT+ENTER 画面只是闪几并不会全屏)

fux2 · 发表于 2012-2-15 07:14:27

本帖最后由 fux2 于 2012-2-15 07:19 编辑

@Shy07 @灼眼的夏娜 @wbsy8241
貌似有点问题……
内存地址一个没漏，直接改dll之后一切正常。
目测是第一次载入dll的时候某些东西就已经固定了……

灼眼的夏娜 · 发表于 2012-2-15 20:44:05

过渡问题修正（：

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

[RMVA发布] ACE分辨率内存补丁（免DLL修改）感谢小黄鸡（：

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

评分

评分

点评

评分

点评

点评

评分

贵宾

第1届Title华丽大赛新人奖

开拓者