脑残物Custom RGSS Player(Game.exe)

长虹剑 · 发表于 2015-8-19 13:17:38

本帖最后由长虹剑于 2015-8-20 15:06 编辑

@英顺的马甲百度空间的链接失效了，你给的参考链接打不开，不知哪里还有。
还有我很想知道RGSSxxx.dll到底是如何调用的，如何用纯ruby来启动程序，或者如何才能在我自己的ruby程序中使用RGSS的内置类。

请问楼主是如何知道 dll 里面有 RGSSEval，RGSSGameMain 等函数的，并且如何知道是用顺序，也就是楼主破解了dll了？我想知道如何破解，还有在rgss300.dll中RGSSInitialize是不存在的，所以如何给rgss300重写个启动器呢？

请给一个思路
@晴兰

长虹剑 · 发表于 2015-8-20 15:14:18

用纯ruby实现Game.exe 目前写到这里了，参照你的那个程序写的，目前还没有写窗口的生成，打算就是完全调用Winapi实现。还有本来想基于rgss3写的，但是你给的这个例子不能用，我也不知道dll有什么，怎么用。

# -*- coding:utf-8 -*-
require 'Win32API'
require 'pathname'
require 'iniparse' #读取ini文件
require 'cstruct/win32struct'
MAX_PATH=100
Gameini="Game.ini"
#----------
#FindWindow=Win32API.new("user32", "FindWindow", ['P','P'], 'L')
LoadLibraryA=Win32API.new("kernel32", "LoadLibraryA", ['P'], 'L')
GetProcAddress=Win32API.new("kernel32", "GetProcAddress", ['L','P'], 'L')
#-------
szAppPath=Pathname.new(File.dirname(__FILE__)).realpath
#puts Dir.getwd 获得当前的执行目录 ***
Dir.chdir(szAppPath) #改变当前目录
hd_gameini=IniParse.parse( File.read "#{Gameini}" )
szLibrary=hd_gameini["Game"]["Library"]
szTitle=hd_gameini["Game"]["Title"]
szScripts=hd_gameini["Game"]["Scripts"]
#通过核心库加载程序
hRgssCore = LoadLibraryA.Call(szLibrary);
pRGSSEval=Win32API.new(szLibrary, "RGSSEval", ['P'], 'I') # 这种方式只是使用，根本没加入内存
#pRGSSEval=GetProcAddress.Call(hRgssCore,"RGSSEval") #之后就不会用了
pRGSSSetupRTP=Win32API.new(szLibrary, "RGSSSetupRTP", ['P','P','I'], 'B')
pRGSSInitialize=Win32API.new(szLibrary, "RGSSInitialize", 'L', 'L')
pRGSSGameMain=Win32API.new(szLibrary, "RGSSGameMain", ['L','P','P'], 'V')
#puts Win32API::COLOR_WINDOWFRAME
pRGSSInitialize.Call(hRgssCore)
pRGSSEval.Call(" s=Sprite.new "); #不报错
pRGSSEval.Call(" p 12*7+2 "); #正常显示了
#还差窗口显示
#puts pRGSSEval
#pRGSSEval.Call("$DEBUG = true");
#exit
#hInstance=FindWindow.Call("ConsoleWindowClass",nil)

复制代码

长虹剑 · 发表于 2015-8-21 20:45:17

多谢楼主，看了你的程序真的让我大开眼见，没想到winapi还可以这样用，让程序减少了不少。其实今天中午我的程序也写完了，但是有300行之多，主要是定义了半天cstruct。刚才看了你的程序，下载后在我这里运行不了，所以就想到用你的程序来简化我的程序。本来想另外开帖，又觉得是在这个帖里面长大的所以就放在这里了。

示例工程如下

RGSS纯ruby启动器.zip (1.13 MB, 下载次数: 120)
程序代码如下

# -*- coding:utf-8 -*-
=begin
参考资料
https://rpg.blue/thread-377723-1-1.html 想法来源（后来还用楼主的脚本重新改写）
http://skandhas.iteye.com/blog/809806 解决了创建windows窗口的问题
有些windows的常量没有定义需要查看MSDN
http://rpg.blue/thread-282803-1-1.html 解决了最后读不了脚本文件的问题
解决不了的问题
1.RTP无法加载（也不知道加载是什么原理）
2.想知道RGSS.dll是如何实现的
3.RGSSGameMain 究竟干了什么，为什么之前的RGSSEval不能使用Sprite
=end
require 'Win32API'
require 'pathname'
require 'iniparse' #读取ini文件
RGSSversion=3 # 1 or 3
Gameini="Game_debug.ini" #"Game.ini"
WndClassName = "Pure Ruby Window For RGSS"
@title=WndClassName
#--------
szAppPath=Pathname.new(File.dirname(__FILE__)).realpath
#puts Dir.getwd 获得当前的执行目录 ***
Dir.chdir(szAppPath) #改变当前目录
#-------------
#隐藏掉控制台
#Win32API.new('user32', 'ShowWindow', 'li', 'i').call(
# Win32API.new('kernel32', 'GetConsoleWindow', 'v', 'l').call, 0)
#-------------
@hInstance = Win32API.new('kernel32', 'GetModuleHandle', 'l', 'l').call(0)
@wndclass = [
43, # style
Win32API.new('kernel32', 'GetProcAddress', 'lp', 'l').call(
Win32API.new('kernel32', 'LoadLibrary', 'p', 'l').call('User32.dll'),
'DefWindowProcW'), # wndproc
0, # class extra
0, # wnd extra
@hInstance,
Win32API.new('user32', 'LoadIcon', 'll', 'l').call(0, 32512), # icon
Win32API.new('user32', 'LoadCursor', 'll', 'l').call(0, 32512), # cursor
Win32API.new('gdi32', 'GetStockObject', 'i', 'l').call(4), # brush
0, # menu name
WndClassName # class name
].pack('ILiiLLLLLp')
atom = Win32API.new('user32', 'RegisterClass', 'p', 'l').call(@wndclass)
atom &=0x0000ffff
return if atom==0
#在第一个实现的脚本中atom本来是要用在WndClassName位置的
x=200; y=100; width=640 ; height=480
@hWnd = Win32API.new('user32','CreateWindowExA','lpplllllllll','l').call(
0x100, WndClassName, @title, 0x90CA0000, x, y, width, height, 0, 0, @hInstance, 0)
#-------------
hd_gameini=IniParse.parse( File.read "#{Gameini}" )
szLibrary=hd_gameini["Game"]["Library"]
szTitle =hd_gameini["Game"]["Title"]
szScripts=hd_gameini["Game"]["Scripts"]
szRtpName=hd_gameini["Game"]["RTP"]
@title=szTitle
#通过核心库加载程序
@hRgssCore = Win32API.new('kernel32', 'LoadLibrary', 'p', 'l').call(szLibrary)
pRGSSEval=Win32API.new(szLibrary, "RGSSEval", ['P'], 'I')
pRGSSSetupRTP=Win32API.new(szLibrary, "RGSSSetupRTP", ['P','P','I'], 'B')
pRGSSInitialize=if RGSSversion==3
Win32API.new(szLibrary, "RGSSInitialize3", 'L', 'L')
elsif RGSSversion==1
Win32API.new(szLibrary, "RGSSInitialize", 'L', 'L')
end
pRGSSGameMain=Win32API.new(szLibrary, "RGSSGameMain", ['L','P','P'], 'V')
#puts Win32API::COLOR_WINDOWFRAME
def stop
Win32API.new('kernel32', 'FreeLibrary', 'l', 'i').call(@hRGSSCore) if @hRGSSCore and @hRGSSCore != 0
Win32API.new('user32', 'DestroyWindow', 'l', 'i').call(@hWnd) if @hWnd and @hWnd != 0
Win32API.new('user32', 'UnregisterClass', 'pl', 'i').call(WndClassName, @hInstance)
exit
end
#RTP就是不行
szRtpName= [0].pack('C') * 1024
p pRGSSSetupRTP.Call("#{Gameini}", szRtpName, 1024)
pRGSSInitialize.Call(@hRgssCore) # 没有这个就不行，说明还是有关系的
szScripts="Scripts.rvdata2"
class String
MultiByteToWideChar = Win32API.new('kernel32', 'MultiByteToWideChar', 'ilpipi', 'i')
WideCharToMultiByte = Win32API.new('kernel32', 'WideCharToMultiByte', 'ilpipipp', 'i')
def to_uni
len = MultiByteToWideChar.call 65001, 0, self, -1, nil, 0
buf = "\0" * (len * 2 + 2)
MultiByteToWideChar.call 65001, 0, self, -1, buf, buf.size / 2
buf
end
def from_uni
len = WideCharToMultiByte.call 65001, 0, (self.respond_to?(:force_encoding) ? self.force_encoding("ASCII-8BIT") : self) + "\000\000", -1, nil, 0, nil, nil
ret = "\0" * len
WideCharToMultiByte.call 65001, 0, self, -1, ret, ret.size, nil, nil
self.respond_to?(:force_encoding) ?
ret.force_encoding("ASCII-8BIT").delete("\000") :
ret.delete("\000")
end
end
pRGSSGameMain.call(@hWnd,szScripts.to_uni,"") #必须这样才行
stop

复制代码

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

[原创发布] 脑残物Custom RGSS Player(Game.exe)

点评

点评

点评