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

SailCat

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

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

[pre lang="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
[/pre]

fux2

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

不死鸟之翼

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

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

[pre lang="ruby" line="1"]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;
}[/pre]

Ruby侧提供回调函数

[pre lang="ruby" line="1"]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[/pre]

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

效果图



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

不死鸟之翼

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

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