Project1

标题: PeekMessage获取鼠标滚轮状态的问题 [打印本页]
作者: 心雪    时间: 2011-8-17 15:03
标题: PeekMessage获取鼠标滚轮状态的问题
本帖最后由 心雪 于 2011-8-17 15:19 编辑

  2. #==============================================================================
  3. # ■ Kernel
  4. #------------------------------------------------------------------------------
  5. # 　该模块中定义了可供所有类使用的方法。Object 类中包含了该模块。
  6. #==============================================================================
  7. module Kernel
  8.   #--------------------------------------------------------------------------
  9.   # ● 需要的 Windows API 函数
  10.   #--------------------------------------------------------------------------
  11.   GetWindowThreadProcessId = Win32API.new("user32", "GetWindowThreadProcessId", "LP", "L")
  12.   GetWindow = Win32API.new("user32", "GetWindow", "LL", "L")
  13.   GetClassName = Win32API.new("user32", "GetClassName", "LPL", "L")
  14.   GetWindowText = Win32API.new("user32", "GetWindowText", "LPL", "L")
  15.   GetCurrentThreadId = Win32API.new("kernel32", "GetCurrentThreadId", "V", "L")
  16.   GetForegroundWindow = Win32API.new("user32", "GetForegroundWindow", "V", "L")
  17.   #--------------------------------------------------------------------------
  18.   # ● 获取窗口句柄
  19.   #--------------------------------------------------------------------------
  20.   def get_window_handle
  21.     # 获取调用线程（RM 的主线程）的进程标识
  22.     threadID = GetCurrentThreadId.call
  23.     # 获取 Z 次序中最靠前的窗口
  24.     hWnd = GetWindow.call(GetForegroundWindow.call, 0)
  25.     # 枚举所有窗口
  26.     while hWnd != 0
  27.       # 如果创建该窗口的线程标识匹配本线程标识
  28.       if threadID == GetWindowThreadProcessId.call(hWnd, 0)
  29.         # 分配一个 11 个字节的缓冲区
  30.         className = " " * 11
  31.         # 获取该窗口的类名
  32.         GetClassName.call(hWnd, className, 12)
  33.         # 如果匹配 RGSS Player 则跳出循环
  34.         break if className == "RGSS Player"
  35.       end
  36.       # 获取下一个窗口
  37.       hWnd = GetWindow.call(hWnd, 2)
  38.     end
  39.     return hWnd
  40.   end
  41. end




  46. $peekmessage = Win32API.new("user32","PeekMessageA","pllll","l")
  47. module Input
  48.   class << self
  49.     alias old_update update
  50.     def update
  51.       old_update
  52.       point = [0,0].pack("ll")
  53.       a = [0,0,0,0,0,point].pack("l5a*")
  54.       if $peekmessage.call(a,get_window_handle,522,522,1) != 0
  55.         arr = a.unpack("l5a*")
  56.         @wheel = arr[2]
  57.       else
  58.         @wheel = 0
  59.       end
  60.     end
  61.     def wheel
  62.       if @wheel.nil?
  63.         return 0
  64.       else
  65.         return @wheel
  66.       end
  67.     end
  68.   end
  69. end
复制代码
代码如上，现在的问题是……只有当鼠标坐标发生改变的时候，滚轮消息才能被处理……否则的话无效……这到底是啥米诡异情况= =
利用PeekMessage处理滚轮消息的VB范例：
http://djrm.blogbus.com/logs/53774033.htmldsu_plus_rewardpost_czw


心雪于2011-8-17 19:01补充以下内容：
三小时自顶……
作者: 逸豫    时间: 2011-8-17 19:06
6R神码时候还带度娘自动吞贴功能了
重新补充：
  1. #==============================================================================
  2. # ■ Kernel
  3. #------------------------------------------------------------------------------
  4. # 　该模块中定义了可供所有类使用的方法。Object 类中包含了该模块。
  5. #==============================================================================
  6. module Kernel
  7.   #--------------------------------------------------------------------------
  8.   # ● 需要的 Windows API 函数
  9.   #--------------------------------------------------------------------------
  10.   GetWindowThreadProcessId = Win32API.new("user32", "GetWindowThreadProcessId", "LP", "L")
  11.   GetWindow = Win32API.new("user32", "GetWindow", "LL", "L")
  12.   GetClassName = Win32API.new("user32", "GetClassName", "LPL", "L")
  13.   GetWindowText = Win32API.new("user32", "GetWindowText", "LPL", "L")
  14.   GetCurrentThreadId = Win32API.new("kernel32", "GetCurrentThreadId", "V", "L")
  15.   GetForegroundWindow = Win32API.new("user32", "GetForegroundWindow", "V", "L")
  16.   #--------------------------------------------------------------------------
  17.   # ● 获取窗口句柄
  18.   #--------------------------------------------------------------------------
  19.   def get_window_handle
  20.     # 获取调用线程（RM 的主线程）的进程标识
  21.     threadID = GetCurrentThreadId.call
  22.     # 获取 Z 次序中最靠前的窗口
  23.     hWnd = GetWindow.call(GetForegroundWindow.call, 0)
  24.     # 枚举所有窗口
  25.     while hWnd != 0
  26.       # 如果创建该窗口的线程标识匹配本线程标识
  27.       if threadID == GetWindowThreadProcessId.call(hWnd, 0)
  28.         # 分配一个 11 个字节的缓冲区
  29.         className = " " * 11
  30.         # 获取该窗口的类名
  31.         GetClassName.call(hWnd, className, 12)
  32.         # 如果匹配 RGSS Player 则跳出循环
  33.         break if className == "RGSS Player"
  34.       end
  35.       # 获取下一个窗口
  36.       hWnd = GetWindow.call(hWnd, 2)
  37.     end
  38.     return hWnd
  39.   end
  40. end


  43. $peekmessage = Win32API.new("user32","PeekMessageA","pllll","l")
  44. module Input
  45.   class << self
  46.     alias old_update update
  47.     def update
  48.       old_update
  49.       point = [0,0].pack("ll")
  50.       a = [0,0,0,0,0,point].pack("l5a*")
  51.       if $peekmessage.call(a,get_window_handle,522,522,1) != 0
  52.         arr = a.unpack("l5a*")
  53.         @wheel = arr[2]
  54.       else
  55.         @wheel = 0
  56.       end
  57.     end
  58.     def wheel
  59.       if @wheel.nil?
  60.         return 0
  61.       else
  62.         return @wheel
  63.       end
  64.     end
  65.   end
  66. end
复制代码
就是这样的代码……错误状况是只有鼠标在移动的时候才可以处理滚轮滚动的消息……求解此诡异问题……
作者: 苏小脉    时间: 2011-8-18 08:28
本帖最后由 苏小脉 于 2011-8-18 09:08 编辑

RM 的 Graphics.update 有处理消息的过程，队列中有一部分消息会直接被 RM 内核取走，而且 FPS 越高处理消息的频率就越高。鼠标移动时 OS 会发送各种和 WM_MOUSEMOVE 相关联的消息，队列长度陡增，Graphics.update 调用一次后取走的就不像没有鼠标移动消息时那样多了，所以有时可能就可以被 Ruby 层的 PeekMessage 拿到，但这样的行为是不可预知的，所以不可依赖。

更好的处理消息的方法自然还是通过本地代码 SetWindowsHookEx 安装钩子过程或是 SetWindowLong 直接拦截窗口过程函数。参考 http://rpg.blue/thread-147594-2-1.html 13~15 楼。

编辑：

而且 FPS 越高处理消息的频率就越高。

应为：

而且 FPS 越低在一帧间处理的消息的数量就越多。
作者: 心雪    时间: 2011-8-18 11:22
受教了……



欢迎光临 Project1 (https://rpg.blue/) Powered by Discuz! X3.1