脑残物Custom RGSS Player(Game.exe)

英顺的马甲 · 发表于 2015-3-26 10:27:12

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

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

x

本帖最后由英顺的马甲于 2015-3-26 16:46 编辑

前几天比较看得懂c++后拿了第三方RGSS Player来改，于是就出了此脑残物

这脑残物对普通人来说比较有用的功能就只有会自动加载与exe同目录内fonts文件夹里的字体
不过这个exe有个缺点，那就是并不是所有的RGSS10XX.dll都支持(目前已知肯定支持的有原版的)
杀毒信息：https://www.virustotal.com/en/file/cba1f55c2ac3bc31e47ddf99897482e41600fe022db05bbb5bac40d24a90e3c6/analysis/1427335101/
下载：

EXE与源码.rar (64.99 KB, 下载次数: 161)

如果你完全不懂API或c++之类的请回头

EXE源码，大神勿喷(其实喷也没关系)

额外功能

带有WndProc的范例：

Custom RGSS Player.rar (2.97 MB, 下载次数: 320)

@晴兰 @orzfly @yangff 求吐槽

英顺的马甲 · 发表于 2015-8-21 17:19:16

RUBY 代码复制下载

# coding: gbk
require 'win32api'
 
def err_msg(format, *args)
        Win32API.new('user32', 'MessageBox', 'lppl', 'i').call(@hWnd ? @hWnd : 0, format % args, @title, 16)
        stop
end
 
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
 
WndClassName = "RGSS Player"
DefaultLibrary = "RGSS102J.dll"
DefaultTitle = "Untitled"
DefaultScripts = "Data\\Scripts.rxdata"
 
@library = [0].pack('C') * 100
@title = [0].pack('C') * 100
@scripts = [0].pack('C') * 100
 
@hInstance = Win32API.new('kernel32', 'GetModuleHandle', 'l', 'l').call(0)
Win32API.new('user32', 'ShowWindow', 'li', 'i').call(Win32API.new('kernel32', 'GetConsoleWindow', 'v', 'l').call, 0)
 
@inipath = File.basename(__FILE__).sub(/\.rb$/i, '.ini')
@inipath = File.join(Dir.pwd, @inipath).gsub(/\//, "\\")
if File.exist?(@inipath)
        gpps = Win32API.new('kernel32', 'GetPrivateProfileString', 'ppppip', 'i')
        gpps.call('Game', 'Library', DefaultLibrary, @library, 100, @inipath)
        gpps.call('Game', 'Title', DefaultTitle, @title, 100, @inipath)
        gpps.call('Game', 'Scripts', DefaultScripts, @scripts, 100, @inipath)
        @library.delete([0].pack('C'))
        @title.delete([0].pack('C'))
        @scripts.delete([0].pack('C'))
else
        @library = DefaultLibrary
        @title = DefaultTitle
        @scripts = DefaultScripts
end
 
if File.exist?(File.basename(__FILE__).sub(/\.rb$/i, '.rgssad'))
        @rgssad = File.basename(__FILE__).sub(/\.rb$/i, '.rgssad')
        @rgssad = File.join(Dir.pwd, @rgssad).gsub(/\//, "\\")
end        
 
@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')
 
temp = Win32API.new('user32', 'RegisterClass', 'p', 'l').call(@wndclass)
err_msg("注册窗口类失败 %s。", WndClassName) if temp == 0
 
gsm = Win32API.new('user32', 'GetSystemMetrics', 'i', 'i')
 
width = gsm.call(7) * 2 + 640
height = gsm.call(8) * 2 + gsm.call(4) + 480
x = (gsm.call(0) - width) / 2
y = (gsm.call(1) - height) / 2
 
@hWnd = Win32API.new('user32','CreateWindowExA','lpplllllllll','l').call(
        0x100, WndClassName, @title, 0x90CA0000, x, y, width, height, 0, 0, @hInstance, 0)
err_msg("创建窗口失败 %s。", @title) if @hWnd == 0
 
@hRGSSCore = Win32API.new('kernel32', 'LoadLibrary', 'p', 'l').call(@library)
err_msg("加载RGSS核心库失败 %s。", @library) if @hRGSSCore == 0
 
def get_check(ary)
        begin
                Kernel.const_set(ary[0], Win32API.new(@library, *ary))
        rescue Exception
                err_msg("获取RGSS核心库导出函数失败 %s。", ary[0])
        end
end
get_check(%w{RGSSEval p i})
get_check(%w{RGSSInitialize l v})
get_check(%w{RGSSGameMain lpl v})
get_check(%w{RGSSSetupRTP ppi})
undef :get_check
 
rtpname = [0].pack('C') * 1024
if (RGSSSetupRTP.call(@inipath, rtpname, 1024) == 0)
        err_msg("没有发现 RGSS-RTP %s。", rtpname.delete([0].pack('C')))
end
 
RGSSInitialize.call(@hRGSSCore)
if ARGV.include?("btest")
        RGSSEval.call("$DEBUG = true; $BTEST = true")
        @rgssad = nil
elsif ARGV.include?('debug')
        RGSSEval.call("$DEBUG = true")
end
 
RGSSGameMain.call(@hWnd, @scripts, @rgssad ? rgssad.object_id * 2 + 16 : 0)
 
stop

# coding: gbk


require 'win32api'


 


def err_msg(format, *args)


        Win32API.new('user32', 'MessageBox', 'lppl', 'i').call(@hWnd ? @hWnd : 0, format % args, @title, 16)


        stop


end


 


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


 


WndClassName = "RGSS Player"


DefaultLibrary = "RGSS102J.dll"


DefaultTitle = "Untitled"


DefaultScripts = "Data\\Scripts.rxdata"


 


@library = [0].pack('C') * 100


@title = [0].pack('C') * 100


@scripts = [0].pack('C') * 100


 


@hInstance = Win32API.new('kernel32', 'GetModuleHandle', 'l', 'l').call(0)


Win32API.new('user32', 'ShowWindow', 'li', 'i').call(Win32API.new('kernel32', 'GetConsoleWindow', 'v', 'l').call, 0)


 


@inipath = File.basename(__FILE__).sub(/\.rb$/i, '.ini')


@inipath = File.join(Dir.pwd, @inipath).gsub(/\//, "\\")


if File.exist?(@inipath)


        gpps = Win32API.new('kernel32', 'GetPrivateProfileString', 'ppppip', 'i')


        gpps.call('Game', 'Library', DefaultLibrary, @library, 100, @inipath)


        gpps.call('Game', 'Title', DefaultTitle, @title, 100, @inipath)


        gpps.call('Game', 'Scripts', DefaultScripts, @scripts, 100, @inipath)


        @library.delete([0].pack('C'))


        @title.delete([0].pack('C'))


        @scripts.delete([0].pack('C'))


else


        @library = DefaultLibrary


        @title = DefaultTitle


        @scripts = DefaultScripts


end


 


if File.exist?(File.basename(__FILE__).sub(/\.rb$/i, '.rgssad'))


        @rgssad = File.basename(__FILE__).sub(/\.rb$/i, '.rgssad')


        @rgssad = File.join(Dir.pwd, @rgssad).gsub(/\//, "\\")


end        


 


@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')


 


temp = Win32API.new('user32', 'RegisterClass', 'p', 'l').call(@wndclass)


err_msg("注册窗口类失败 %s。", WndClassName) if temp == 0


 


gsm = Win32API.new('user32', 'GetSystemMetrics', 'i', 'i')


 


width = gsm.call(7) * 2 + 640


height = gsm.call(8) * 2 + gsm.call(4) + 480


x = (gsm.call(0) - width) / 2


y = (gsm.call(1) - height) / 2


 


@hWnd = Win32API.new('user32','CreateWindowExA','lpplllllllll','l').call(


        0x100, WndClassName, @title, 0x90CA0000, x, y, width, height, 0, 0, @hInstance, 0)


err_msg("创建窗口失败 %s。", @title) if @hWnd == 0


 


@hRGSSCore = Win32API.new('kernel32', 'LoadLibrary', 'p', 'l').call(@library)


err_msg("加载RGSS核心库失败 %s。", @library) if @hRGSSCore == 0


 


def get_check(ary)


        begin


                Kernel.const_set(ary[0], Win32API.new(@library, *ary))


        rescue Exception


                err_msg("获取RGSS核心库导出函数失败 %s。", ary[0])


        end


end


get_check(%w{RGSSEval p i})


get_check(%w{RGSSInitialize l v})


get_check(%w{RGSSGameMain lpl v})


get_check(%w{RGSSSetupRTP ppi})


undef :get_check


 


rtpname = [0].pack('C') * 1024


if (RGSSSetupRTP.call(@inipath, rtpname, 1024) == 0)


        err_msg("没有发现 RGSS-RTP %s。", rtpname.delete([0].pack('C')))


end


 


RGSSInitialize.call(@hRGSSCore)


if ARGV.include?("btest")


        RGSSEval.call("$DEBUG = true; $BTEST = true")


        @rgssad = nil


elsif ARGV.include?('debug')


        RGSSEval.call("$DEBUG = true")


end


 


RGSSGameMain.call(@hWnd, @scripts, @rgssad ? rgssad.object_id * 2 + 16 : 0)


 


stop

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

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

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

点评

评分