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

逸豫

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
    

复制代码

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