RGSS能处理窗口自定义消息吗？

SailCat · 发表于 2018-1-12 15:07:22

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

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

x

照着vb处理的方法用rgss写了一段，无法运行……

有对api比较了解的大牛看看什么情况……？

RUBY 代码复制

module Kernel
  class << self
 
    GetWindowLong = Win32API.new("user32", "GetWindowLong", "ii", "i")
    SetWindowLong = Win32API.new("user32", "SetWindowLong", "iii", "i")
    CallWindowProc = Win32API.new("user32", "CallWindowProc", "iiiii", "i")
 
 
    def hwnd
      Win32API.new("user32", "GetActiveWindow", "", "i").call
    end
 
    def wm_proc(hwnd, msg, wparam, lparam)
      if msg == 522 # WM_MOUSEWHEEL
        p 1
      else
        CallWindowProc.call(@old_proc_addr, hwnd, msg, wparam, lparam)
      end
    end
 
    def handle
      @old_proc_addr = GetWindowLong.call(hwnd, -4)
      @new_proc_addr = method(:wm_proc).object_id * 2
      SetWindowLong.call(hwnd, -4, @new_proc_addr)
    end
 
    def unhandle
      SetWindowLong.call(hwnd, -4, @old_proc_addr)
    end
  end
end
 
Kernel.handle

module Kernel


  class << self


 


    GetWindowLong = Win32API.new("user32", "GetWindowLong", "ii", "i")


    SetWindowLong = Win32API.new("user32", "SetWindowLong", "iii", "i")


    CallWindowProc = Win32API.new("user32", "CallWindowProc", "iiiii", "i")


 


 


    def hwnd


      Win32API.new("user32", "GetActiveWindow", "", "i").call


    end


 


    def wm_proc(hwnd, msg, wparam, lparam)


      if msg == 522 # WM_MOUSEWHEEL


        p 1


      else


        CallWindowProc.call(@old_proc_addr, hwnd, msg, wparam, lparam)


      end


    end


 


    def handle


      @old_proc_addr = GetWindowLong.call(hwnd, -4)


      @new_proc_addr = method(:wm_proc).object_id * 2


      SetWindowLong.call(hwnd, -4, @new_proc_addr)


    end


 


    def unhandle


      SetWindowLong.call(hwnd, -4, @old_proc_addr)


    end


  end


end


 


Kernel.handle

fux2 · 发表于 2018-1-12 15:32:43

啊，其实方法倒是对了，但是ruby的函数肯定不能用来做回调函数的……
https://rpg.blue/thread-370060-1-1.html
具体使用方法参考本文即可。
上面的方法是根据yangff的无DLL鼠标修改而来，过滤了消息类型。

晴兰 · 发表于 2018-1-12 18:24:54

提示: 作者被禁止或删除内容自动屏蔽

不死鸟之翼 · 发表于 2018-1-13 23:52:53

本帖最后由不死鸟之翼于 2018-1-13 23:54 编辑

这是一个典型的脚本语言和原生代码的互操作问题，回调参数一定需要是原生代码。
因为Win32 API层是C/C++的天下，所以我们用C/C++处理这类问题显然比手写机器指令舒服得多（我特么也脑仁儿疼啊）。
主要思路是Ruby到C++用Win32API call通信，回来就用RGSSEval。

大概写了一段，编译成DLL并导出Inject函数即可。

RUBY 代码复制

using RGSSEval_t = int(__cdecl*)(const char*);
 
RGSSEval_t RGSSEval = nullptr;
WNDPROC OldWindowProc = nullptr;
string rubyCallbackFunc;
 
LRESULT CALLBACK CustomWindowsProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam) 
{
        switch (uMsg) {
        case WM_MOUSEWHEEL: {
                int zDelta = GET_WHEEL_DELTA_WPARAM(wParam);
                int xPos = GET_X_LPARAM(lParam);
                int yPos = GET_Y_LPARAM(lParam);
                int fwKeys = GET_KEYSTATE_WPARAM(wParam);
                POINT clientPt = { xPos,yPos };
                ScreenToClient(hWnd, &clientPt);
                stringstream expr;
                expr << rubyCallbackFunc << "(" << zDelta << "," << clientPt.x << "," << clientPt.y << "," << fwKeys << ")";
                RGSSEval(expr.str().c_str());
                return CallWindowProcA(OldWindowProc, hWnd, uMsg, wParam, lParam);
        }
        default:
                return CallWindowProcA(OldWindowProc, hWnd, uMsg, wParam, lParam);
        }
}
 
INT WINAPI Inject(const char* callbackName)
{
        HMODULE hModule=GetModuleHandleA("RGSS202E.dll"); //Change this if necessary
        if (hModule) {
                RGSSEval = (RGSSEval_t)GetProcAddress(hModule, "RGSSEval");
                if (RGSSEval) {
                        HWND hWnd = GetActiveWindow();
                        if (hWnd) {
                                OldWindowProc = (WNDPROC)SetWindowLongA(hWnd, GWL_WNDPROC, (LONG)CustomWindowsProc);
                                rubyCallbackFunc = callbackName;
                                return TRUE;
                        }
                }
        }
        return FALSE;
}

using RGSSEval_t = int(__cdecl*)(const char*);


 


RGSSEval_t RGSSEval = nullptr;


WNDPROC OldWindowProc = nullptr;


string rubyCallbackFunc;


 


LRESULT CALLBACK CustomWindowsProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam) 


{


        switch (uMsg) {


        case WM_MOUSEWHEEL: {


                int zDelta = GET_WHEEL_DELTA_WPARAM(wParam);


                int xPos = GET_X_LPARAM(lParam);


                int yPos = GET_Y_LPARAM(lParam);


                int fwKeys = GET_KEYSTATE_WPARAM(wParam);


                POINT clientPt = { xPos,yPos };


                ScreenToClient(hWnd, &clientPt);


                stringstream expr;


                expr << rubyCallbackFunc << "(" << zDelta << "," << clientPt.x << "," << clientPt.y << "," << fwKeys << ")";


                RGSSEval(expr.str().c_str());


                return CallWindowProcA(OldWindowProc, hWnd, uMsg, wParam, lParam);


        }


        default:


                return CallWindowProcA(OldWindowProc, hWnd, uMsg, wParam, lParam);


        }


}


 


INT WINAPI Inject(const char* callbackName)


{


        HMODULE hModule=GetModuleHandleA("RGSS202E.dll"); //Change this if necessary


        if (hModule) {


                RGSSEval = (RGSSEval_t)GetProcAddress(hModule, "RGSSEval");


                if (RGSSEval) {


                        HWND hWnd = GetActiveWindow();


                        if (hWnd) {


                                OldWindowProc = (WNDPROC)SetWindowLongA(hWnd, GWL_WNDPROC, (LONG)CustomWindowsProc);


                                rubyCallbackFunc = callbackName;


                                return TRUE;


                        }


                }


        }


        return FALSE;


}

Ruby侧提供回调函数

RUBY 代码复制

def on_mouse_wheel(zDelta,xPos,yPos,fwKeys)
  p "delta=#{zDelta} mouse_x=#{xPos} mouse_y=#{yPos} modifiers=#{fwKeys}"
end
 
fun=Win32API.new('WndProc.dll','Inject','p','i')
if fun.call('on_mouse_wheel')==0
  p 'Failed'
end

def on_mouse_wheel(zDelta,xPos,yPos,fwKeys)


  p "delta=#{zDelta} mouse_x=#{xPos} mouse_y=#{yPos} modifiers=#{fwKeys}"


end


 


fun=Win32API.new('WndProc.dll','Inject','p','i')


if fun.call('on_mouse_wheel')==0


  p 'Failed'


end

fwKeys当特定键按下时特定位为1，详情参考MSDN。

效果图

如果需要处理其他消息的话在窗口过程里增加即可。
因为窗口过程是在主消息循环中分发消息时调用的，所以不会有线程同步问题。

不死鸟之翼 · 发表于 2018-1-14 00:16:01

如果不要DLL的话也很好搞编译完了之后拿一个反汇编器（比如OD）把核心代码copy走，然后Ruby里申请一块内存填进去，给EXECUTE权限就完了。传回数据也是RGSSEval。

另外我点评我自己的帖子之后，其他点评了的人是否会收到通知？麻烦告知

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

[有事请教] RGSS能处理窗口自定义消息吗？

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

点评

点评

点评

开拓者

贵宾