EXE与源码.rar
(64.99 KB, 下载次数: 163)
2015-3-26 10:16 上传
点击文件名下载附件
如果你完全不懂API或c++之类的请回头
EXE源码，大神勿喷(其实喷也没关系)
额外功能
带有WndProc的范例：
Custom RGSS Player.rar
(2.97 MB, 下载次数: 320)
2015-3-26 10:26 上传
点击文件名下载附件
@晴兰 @orzfly @yangff 求吐槽
作者: taroxd 时间: 2015-3-26 12:42
本帖最后由 taroxd 于 2015-3-26 12:45 编辑
RUBY 代码复制
作者: 长虹剑 时间: 2015-8-19 13:17
本帖最后由 长虹剑 于 2015-8-20 15:06 编辑
@英顺的马甲 百度空间的链接失效了，你给的参考链接打不开，不知哪里还有。
还有我很想知道RGSSxxx.dll到底是如何调用的，如何用纯ruby来启动程序，或者如何才能在我自己的ruby程序中使用RGSS的内置类。
请问楼主是如何知道 dll 里面有 RGSSEval，RGSSGameMain 等函数的，并且如何知道是用顺序，也就是楼主破解了dll了？我想知道如何破解，还有在rgss300.dll中RGSSInitialize是不存在的，所以如何给rgss300重写个启动器呢？
请给一个思路
@晴兰
作者: 长虹剑 时间: 2015-8-20 15:14
用纯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 17:19
RUBY 代码复制下载
作者: 长虹剑 时间: 2015-8-21 20:45
多谢楼主，看了你的程序真的让我大开眼见，没想到winapi还可以这样用，让程序减少了不少。其实今天中午我的程序也写完了，但是有300行之多，主要是定义了半天cstruct。刚才看了你的程序，下载后在我这里运行不了，所以就想到用你的程序来简化我的程序。本来想另外开帖，又觉得是在这个帖里面长大的所以就放在这里了。
示例工程如下
RGSS纯ruby启动器.zip
(1.13 MB, 下载次数: 120)
2015-8-21 20:33 上传
点击文件名下载附件
程序代码如下
- # -*- 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
作者: 浮云半仙 时间: 2016-1-20 20:46
本帖最后由 浮云半仙 于 2016-1-20 20:47 编辑
看了各位大神的代码，本蒟蒻深受启发，然而最终我只写出来个窗口...(并不了解RGSS的dll{:2_276:})
- #encoding:utf-8
- require 'Win32API'
- unless defined?(Ocra)
- Win32API.new("user32", "ShowWindow", "li", "i").call(Win32API.new("kernel32", "GetConsoleWindow", 'l', 'l').call(0),0)
- #隐藏控制台
- end
- WS_OVERLAPPEDWINDOW = 0xcf0000
- WS_VISIBLE = 0x10000000
- IDI_APPLICATION = 32512
- SW_HIDE = 0
- SW_NORMAL = 1
- IDC_ARROW = 32512
- COLOR_WINDOW = 5
- GetLastError = Win32API.new("kernel32", "GetLastError", nil, "i")
- GetProcAddress = Win32API.new("kernel32", "GetProcAddress", "lp", "l")
- GetModuleHandle = Win32API.new("kernel32", "GetModuleHandle", "l", "l")
- GetModuleHandleByName = Win32API.new("kernel32", "GetModuleHandle", "p", "l")
- LoadLibrary = Win32API.new("kernel32", "LoadLibrary", "p", "l")
- RegisterClass = Win32API.new("user32", "RegisterClass", "p", "i")
- FreeLibrary = Win32API.new("kernel32", "FreeLibrary", "l", "i")
- CreateWindowEx = Win32API.new("user32", "CreateWindowEx", "lppliiiillll", "l")
- MessageBox = Win32API.new("user32", "MessageBox", "ippi", "i")
- GetMessage = Win32API.new("user32", "GetMessage","plll", "i")
- DispatchMessage = Win32API.new("user32", "DispatchMessage", "p", "i")
- def msg_box(title, text)
- MessageBox.call(0, text.to_s, title.to_s, 0)
- end
- unless defined?(Ocra)
- classname = "win32appruby233" #窗口类名
- hInstance = GetModuleHandle.call 0 #程序实例句柄
- hDll = LoadLibrary.call "user32.dll" #加载user32.dll
- Win32API.new("user32", "UnregisterClass", "pl", "i").call(classname, hInstance)
- #先反注册一下窗口类名...然而八成没啥用...
- ar_DefWindowProc = GetProcAddress.call hDll, "DefWindowProcW"
- #user32.dll里面DefWindowProcW的地址
- wc = [0, ar_DefWindowProc, 0, 0, hInstance,
- Win32API.new("user32", "LoadIcon", "ll", "l").call(hInstance, IDI_APPLICATION),
- Win32API.new("user32", "LoadCursor", "ll", "l").call(hInstance, IDC_ARROW),
- COLOR_WINDOW + 1, #窗体颜色
- 0,
- classname].pack("lllllllllp")
- #参见WNDCLASS结构体，打包地址，句柄可以用 'l'
-
- if RegisterClass.call(wc) == 0
- msg_box "Error!", "Fail to register window class, Error code:#{GetLastError.call}"
- exit
- end
- hWnd = CreateWindowEx.call(0, classname, "Ruby big law is good", #title
- WS_VISIBLE | WS_OVERLAPPEDWINDOW, #style
- 200, 100, 544, 416, #x, y, width, height
- 0, 0,
- hInstance, 0)
- #参见CreateWindowEx的参数
- Win32API.new("user32", "ShowWindow", "li", "i").call hWnd, SW_NORMAL
- #让窗口显示出来
- if hWnd == 0
- msg_box("Error!", "Fail to CreateWindow")
- exit
- end
- msg = "0"*24 #MSG结构体的大小为24byte，开够空间
- while GetMessage.call(msg, 0, 0, 0) #消息循环
- DispatchMessage.call(msg)
- end
- Win32API.new("user32", "UnregisterClass", "pl", "i").call(classname, hInstance)
- end
BTW:win10上运行不了，报错注册窗口类失败。貌似win10上GetProcAddress一直返回0...好奇怪...{:2_278:}
作者: 浮云半仙 时间: 2016-1-22 21:29
taroxd 发表于 2015-3-26 12:42
我是来调戏论坛高亮的，不过论坛高亮竟然没出事情
{:2_270:}求解..ADDR_NWP,ADDR_AOWP怎么粗来的{:2_271:}
| 欢迎光临 Project1 (https://rpg.blue/) | Powered by Discuz! X3.1 |