[RMVX] 真·后台运行（2009/11/25 重要更新）

紫苏

RMVXBR.rar (258.57 KB, 下载次数: 2818)

2009-11-25 11:25 上传

点击文件名下载附件
点击下载范例工程

2009/07/14:

• 修正了 DLL 是调试编译，而非独立 DLL 的问题；
• 修正了窗口不在键盘焦点时按键按下仍然保持失去焦点前状态的问题（例：地图上按住 ←，切换到其它窗口，角色就会一直保持左移）

2009/09/01:

• 修正了 DLL 中获取窗口句柄潜在的问题（详情请阅读：http://rpg.blue/viewthread.php?tid=133018）；
• 将获取窗口句柄的操作放到了 Start 函数中；
• 添加对 Input.trigger? 的键盘焦点判断；
• 修改了 DLL 的文件名，这样 RMXP 和 RMVX 都可以使用同一份 DLL

2009/11/25:

• 改变后台运行 DLL 为静态链接 C 运行时（CRT），这样在没有安装 CRT 的平台上也能使用该 DLL。这个改变增加了约 5 倍于原 DLL 的文件大小

前不久刚发布了 RMXP 真·后台运行，当时感觉应该可以直接应用到 RMVX，结果 zh 测试后发现会发生错误。

通过调试发现，在 DLL 中不能直接调用老的窗口过程函数，而必须把地址传递给 CallWindowProc 函数让它来调用，否则在 VX 中就会出错，原因按照 MSDN 的说法，是因为 SetWindowLong 的返回值可能是函数地址，也可能是一个只对 CallWindowProc 有意义的特殊值～

修改为调用 CallWindowProc 之后，倒是不会出错了，但却又衍生出新的问题——在程序响应移动窗口、最大化、最小化等窗口消息时十分缓慢，原因不明……

于是今天尝试把拦截 WM_ACTIVATEAPP 的过程直接写到 DLL 中，测试就冇问题了 = =||
推测之前的问题可能是由于 RGSS2***.dll 中的 RGSSEval 函数效率不及 RGSS1***.dll 的，导致在 dll 中解释 Ruby 窗口过程缓慢……

用法见范例工程，绑定失去焦点时不响应键盘功能，否则可能被杀软认为是 keylogger～
请务必保留 Lib 文件夹 以及其中的 BackgroundRunning.dll

调用源代码：

1. unless $_Start
   
2. 
   
3. 
   
4. $_Start = Win32API.new("Lib/BackgroundRunning","Start",'V','L')
   
5. $_Stop = Win32API.new("Lib/BackgroundRunning","Stop",'V','L')
   
6. $_OnFocus = Win32API.new("Lib/BackgroundRunning","OnFocus",'V','L')
   
7. 
   
8. $_Start.call
   
9. 
   
10. module Input
    
11.   InputUpdate = method :update
    
12.   InputTrigger = method :trigger?
    
13.   InputPress = method :press?
    
14.   InputRepeat = method :repeat?
    
15.   InputDir4 = method :dir4
    
16.   InputDir8 = method :dir8
    
17.   def self.update
    
18.     InputUpdate.call if $_OnFocus.call != 0
    
19.   end
    
20.   def self.trigger?(num)
    
21.     return $_OnFocus.call != 0 ? InputTrigger.call(num) : false
    
22.   end
    
23.   def self.press?(num)
    
24.     return $_OnFocus.call != 0 ? InputPress.call(num) : false
    
25.   end
    
26.   def self.repeat?(num)
    
27.     return $_OnFocus.call != 0 ? InputRepeat.call(num) : false
    
28.   end
    
29.   def self.dir4
    
30.     return $_OnFocus.call != 0 ? InputDir4.call : 0   
    
31.   end
    
32.   def self.dir8
    
33.     return $_OnFocus.call != 0 ? InputDir8.call : 0   
    
34.   end
    
35. end
    
36. 
    
37. 
    
38. end

复制代码

DLL 源代码：

1. 
   
2. #include <windows.h>
   
3. #include <stdio.h>
   
4. 
   
5. HWND g_hWnd = NULL;
   
6. LONG g_pOldWndProc = NULL;
   
7. BOOL g_onFocus = TRUE;
   
8. bool g_started = FALSE;
   
9. 
   
10. LRESULT CALLBACK WindowProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
    
11. {
    
12.     switch(uMsg)
    
13.     {
    
14.     case WM_ACTIVATEAPP:
    
15.         g_onFocus = wParam;
    
16.         return TRUE;
    
17.     default:
    
18.         return CallWindowProc((WNDPROC)g_pOldWndProc, hWnd, uMsg, wParam, lParam);
    
19.     }
    
20. }
    
21. 
    
22. int Start()
    
23. {
    
24.     if(!g_started)
    
25.     {
    
26.         // Retrieve the current thread identifier.
    
27.         DWORD threadID = GetCurrentThreadId();
    
28.         // Retrieve the handle to the front-most window.
    
29.         g_hWnd = GetWindow(GetForegroundWindow(), GW_HWNDFIRST);
    
30.         // Enumerate all the windows.
    
31.         while(g_hWnd)
    
32.         {
    
33.             // If the current thread identifier matches the one being enumerated, then
    
34.             if(threadID == GetWindowThreadProcessId(g_hWnd, NULL))
    
35.             {
    
36.                 // Allocate a buffer of length 12.
    
37.                 char className[12];
    
38.                 // Get the class name of the window.
    
39.                 GetClassName(g_hWnd, className, 12);
    
40.                 // break the loop if the class name matches.
    
41.                 if(strcmp(className, "RGSS Player") == 0)
    
42.                     break;
    
43.             }
    
44.             // Retrieve the handle to the next window.
    
45.             g_hWnd = GetWindow(g_hWnd, GW_HWNDNEXT);
    
46.         }
    
47. 
    
48.         // Failed when retrieving the handle to the window.
    
49.         if(!g_hWnd)
    
50.             return 1;
    
51. 
    
52.         g_pOldWndProc = SetWindowLong(g_hWnd, GWL_WNDPROC, (LONG)WindowProc);
    
53.         // Failed when replacing window proc.
    
54.         if(!g_pOldWndProc)
    
55.             return 2;
    
56. 
    
57.         g_started = true;
    
58.     }
    
59.     return 0;
    
60. }
    
61. 
    
62. int Stop()
    
63. {
    
64.     if(g_started)
    
65.     {
    
66.         // Failed when retrieving the handle to the window.
    
67.         if(!g_hWnd)
    
68.             return 1;
    
69. 
    
70.         // Failed when reverting the window proc.
    
71.         if(!SetWindowLong(g_hWnd, GWL_WNDPROC, (LONG)g_pOldWndProc))
    
72.             return 2;
    
73. 
    
74.         g_started = false;
    
75.     }
    
76.     return 0;
    
77. }
    
78. 
    
79. int OnFocus()
    
80. {
    
81.     return g_onFocus;
    
82. }

复制代码

zh99998

终于出现了~~~先坐沙发
嗯……范例工程出错了

---------------------------
真·后台运行
---------------------------
脚本 '真·后台运行' 的第 4 行发生了 RuntimeError .

LoadLibrary: Lib/VXBkRun

---------------------------
确定   
---------------------------

IamI

故障同LS

猫哥哥

打开工程运行正常。

紫苏

1、2楼的问题已经修复，感谢提出 ^^

风雪优游

昨天看到问题，今天就看到脚本。LZ真有效率，支持一个。

zh99998

外星星人
现在再下载一次试试呢

第二疯子

1. 脚本 '真·后台运行' 的第 4 行发生了 RuntimeError .

复制代码

故障依然…………

zh99998

话说……那个键盘好像没重定义trigger……如果刚按下一个键的时候切到后台了
然后不更新，就一直trigger了
(好吧我是来挑刺的)