PeekMessage获取鼠标滚轮状态的问题

心雪

1. 
   
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
    
42. 
    
43. 
    
44. 
    
45. 
    
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.html

逸豫

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
    
41. 
    
42. 
    
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
    

复制代码

就是这样的代码……错误状况是只有鼠标在移动的时候才可以处理滚轮滚动的消息……求解此诡异问题……

苏小脉

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 越低在一帧间处理的消息的数量就越多。

心雪

受教了……