[RMXP][FSL] 根除 10s Hangup “脚本已备份”异常 1.2.0827

紫苏

通用FSL信息

• 更新作者： 紫苏
• 许可协议： FSL -MEE
• 项目版本： 1.2.0827
• 引用网址：
  http://rpg.blue/forum.php?mod=viewthread&tid=134316
  http://szsu.wordpress.com/2010/08/09/hangup_eradication/
  

脚本说明

　　灼眼的夏娜曾经发布过一个解决 RMXP 10 秒不刷新就抛出 Hangup 异常，提示“脚本已备份”（这个错误信息是汉化失误）问题的脚本，其原理是创建一个 Ruby 线程，定期调用 Graphics.update，这样就能防止异常的抛出。这个解决方法有一个弊端，就是当 RM 进程阻塞时，Ruby 线程也会停止运行，超过 10 秒后仍如果进程从阻塞中恢复，仍然会抛出 Hangup 异常。我们自然而然地会想：难道不能从根本杜绝 Hangup 的抛出吗？
　　前不久在写精确获取窗口句柄的时候，发现 RMXP 游戏进程创建了不止一个的 Windows 线程，通过一个一个地结束线程发现，游戏进程最后创建的一个线程恰好就是控制 Hangup 异常抛出的线程。估计 10 秒的计时也是在这个线程内部的用户代码中进行的。那我们简单地、暴力地把这个线程咔嚓掉，不就搞定了吗？我这么做了，结果发现：原来处理程序最终化（即退出时）的也是这个线程，在我把这个线程咔嚓之后，无论是点窗口右上角的关闭按钮，所有脚本都解释完毕，还是在异常抛出到 Ruby 顶层后的正常退出都失效了，只能通过结束进程来关闭游戏。
　　想了几天，终于想到了解决方法：在程序初始化的时候就暂停掉这个线程，直到游戏需要退出的时候再恢复其用户代码的运行，这样，游戏过程中所有本来应该抛出 Hangup 异常的地方都被鞋盒掉了，这就是这个脚本的暴力之处。但关键就是——怎么在所有需要退出的场合下都进行线程的恢复？点窗口关闭按钮的场合很容易，可以重新定义 exit；所有脚本解释完毕的场合也很容易，可以在 main 脚本下面做相关的处理；而异常抛出到顶层的场合，似乎就不那么么简单了。你说可以在 main 脚本的 begin … rescue … end 那里捕获其它所有异常？那万一在前面定义 Game_Temp 啊 Scene_Title 啊之类的地方发生了异常（也就是解释到 main 脚本之前）怎么办呢？
　　现在的办法是这样的：游戏运行的时候，RM 会把脚本读取到一个全局数组 $RGSS_SCRIPTS 中，而实际在解释脚本的时候也是在访问这个数组的内容。我们可以越俎代庖，在 RM 解释所有脚本之前（不包括越俎代庖的这个脚本）先把脚本解释完了，然后直接退出程序。换句话说，就是通过 Ruby 的 eval 函数去代替了 RM 的 RGSSEval 函数，解释了所有的脚本。这样一来，在解释脚本过程中所有的异常（当然也不包括越俎代庖脚本中的异常，下面发布是经过调试后的脚本，应该不会有错误了，不过为了保险起见还望大家多多测试）都可以通过 rescue 来捕获到了！当然有利也有弊，这样做了之后，当异常抛出时，提示的消息就只有“eval:#{出错行数}#{出错信息}”，而没有为用户提供脚本的标题，并在脚本编辑器中把光标指向出错的地方了，这是这个脚本的副作用。
　　当然，发生错误的时候你完全可以暂时屏蔽掉这个脚本，这样就可以把异常后的效果恢复到从前那样了，反正调试的时候你也不一定需要这个脚本。另外，这个脚本在捕获到异常，恢复了线程的运行之后就直接把异常再次抛出给了顶层，所以异常错误信息没有脚本的标题。但其实在循环中，完全可以通过 $RGSS_SCRIPT[subscript] 的第二个元素获取到当前的脚本标题，有心人可以自己改一下，让脚本弹出消息框告诉你这些信息，而不是直接交给 RM 的异常处理机制来处理。
　　最后，这个脚本完全有可能引起未知的问题，因为被屏蔽掉的线程对我们普通 RM 用户来说还是未知的，万一它还处理了什么其它的东西呢？我们还需要更多的测试。

更新历史

• 1.2.0827 By 紫苏
  • 更改了配置模块名
  • 更改了 FSL 注释信息
    
• 1.2.0805 By 紫苏
  • 脚本开始遵循 FSL
  • 全局范围内改变了脚本结构
    
• 1.1.1101 By 紫苏
  • 修正了脚本在 Windows XP 平台下失效的问题
    
• 1.0.0927 By 紫苏
  • 初始版本完成
    
  
  

脚本源码

1. 
   
2. #==============================================================================
   
3. # ■  Hangup 异常根除
   
4. #    Hangup Exception Eradication
   
5. #----------------------------------------------------------------------------
   
6. #
   
7. #    Hangup 异常是 RMXP 底层引擎内置的一个异常类，游戏进程会在 Graphics.update
   
8. #    没有调用超过 10 秒时抛出这个异常。这个脚本使用了 Windows API 暴力地解除
   
9. #    了这个限制。
   
10. #    使用方法：Hangup 异常根除脚本必须插入到脚本编辑器的最顶端，所有脚本之前，无
    
11. #    例外。
    
12. #
    
13. #----------------------------------------------------------------------------
    
14. #
    
15. #    更新作者： 紫苏
    
16. #    许可协议： FSL -MEE
    
17. #    项目版本： 1.2.0827
    
18. #    引用网址：
    
19. #    http://rpg.blue/forum.php?mod=viewthread&tid=134316
    
20. #    http://szsu.wordpress.com/2010/08/09/hangup_eradication
    
21. #
    
22. #----------------------------------------------------------------------------
    
23. #
    
24. #    - 1.2.0827 By 紫苏
    
25. #      * 更改了配置模块名
    
26. #      * 更改了 FSL 注释信息
    
27. #
    
28. #    - 1.2.0805 By 紫苏
    
29. #      * 脚本开始遵循 FSL
    
30. #      * 全局范围内改变了脚本结构
    
31. #
    
32. #    - 1.1.1101 By 紫苏
    
33. #      * 修正了脚本在 Windows XP 平台下失效的问题
    
34. #
    
35. #    - 1.0.0927 By 紫苏
    
36. #      * 初始版本完成
    
37. #
    
38. #==============================================================================
    
39. 
    
40. $__jmp_here.call if $__jmp_here
    
41. 
    
42. #----------------------------------------------------------------------------
    
43. # ● 登记 FSL。
    
44. #----------------------------------------------------------------------------
    
45. $fscript = {} if !$fscript
    
46. $fscript['HangupEradication'] = '1.2.0827'
    
47. 
    
48. #==============================================================================
    
49. # ■ FSL
    
50. #------------------------------------------------------------------------------
    
51. # 　自由RGSS脚本通用公开协议的功能模块。
    
52. #==============================================================================
    
53. 
    
54. module FSL
    
55.   module HangupEradication
    
56.     #------------------------------------------------------------------------
    
57.     # ● 定义需要的 Windows API。
    
58.     #------------------------------------------------------------------------
    
59.     OpenThread = Win32API.new('kernel32', 'OpenThread', 'LIL', 'L')
    
60.     CloseHandle = Win32API.new('kernel32', 'CloseHandle', 'L', 'I')
    
61.     Thread32Next = Win32API.new('kernel32', 'Thread32Next', 'LP', 'I')
    
62.     ResumeThread = Win32API.new('kernel32', 'ResumeThread', 'L', 'L')
    
63.     SuspendThread = Win32API.new('kernel32', 'SuspendThread', 'L', 'L')
    
64.     Thread32First = Win32API.new('kernel32', 'Thread32First', 'LP', 'I')
    
65.     GetCurrentProcessId = Win32API.new('kernel32', 'GetCurrentProcessId', 'V', 'L')
    
66.     CreateToolhelp32Snapshot = Win32API.new('kernel32', 'CreateToolhelp32Snapshot', 'LL', 'L')
    
67.   end
    
68. end
    
69. 
    
70. #==============================================================================
    
71. # ■ HangupEradication
    
72. #------------------------------------------------------------------------------
    
73. # 　处理根除 Hangup 异常的类。
    
74. #==============================================================================
    
75. 
    
76. class HangupEradication
    
77.   include FSL::HangupEradication
    
78.   #--------------------------------------------------------------------------
    
79.   # ● 初始化对像。
    
80.   #--------------------------------------------------------------------------
    
81.   def initialize
    
82.     @hSnapShot = CreateToolhelp32Snapshot.call(4, 0)
    
83.     @hLastThread = OpenThread.call(2, 0, self.getLastThreadId)
    
84.     #@hLastThread = OpenThread.call(2097151, 0, threadID)
    
85.     ObjectSpace.define_finalizer(self, self.method(:finalize))
    
86.   end
    
87.   #--------------------------------------------------------------------------
    
88.   # ● 获取当前进程创建的最后一个线程的标识。
    
89.   #--------------------------------------------------------------------------
    
90.   def getLastThreadId
    
91.     threadEntry = [28, 0, 0, 0, 0, 0, 0].pack("L*")
    
92.     threadId = 0                                          # 线程标识
    
93.     found = Thread32First.call(@hSnapShot, threadEntry)   # 准备枚举线程
    
94.     while found != 0
    
95.       arrThreadEntry = threadEntry.unpack("L*")           # 线程数据解包
    
96.       if arrThreadEntry[3] == GetCurrentProcessId.call    # 匹配进程标识
    
97.         threadId = arrThreadEntry[2]                      # 记录线程标识
    
98.       end
    
99.       found = Thread32Next.call(@hSnapShot, threadEntry)  # 下一个线程
    
100.     end
     
101.     return threadId
     
102.   end
     
103.   #--------------------------------------------------------------------------
     
104.   # ● 根除 Hangup 异常。
     
105.   #     2       : “暂停和恢复线程访问权限”代码；
     
106.   #     2097151 : “所有可能的访问权限”代码（Windows XP 平台下无效）。
     
107.   #--------------------------------------------------------------------------
     
108.   def eradicate
     
109.     SuspendThread.call(@hLastThread)
     
110.   end
     
111.   #--------------------------------------------------------------------------
     
112.   # ● 恢复 Hangup 异常。
     
113.   #--------------------------------------------------------------------------
     
114.   def resume
     
115.     while ResumeThread.call(@hLastThread) > 1; end        # 恢复最后一个线程
     
116.   end
     
117.   #--------------------------------------------------------------------------
     
118.   # ● 最终化对像。
     
119.   #--------------------------------------------------------------------------
     
120.   def finalize
     
121.     CloseHandle.call(@hSnapShot)
     
122.     CloseHandle.call(@hLastThread)
     
123.   end
     
124. end
     
125. 
     
126. hangupEradication = HangupEradication.new
     
127. hangupEradication.eradicate
     
128. 
     
129. callcc { |$__jmp_here| }                                  # F12 后的跳转标记
     
130. 
     
131. #==============================================================================
     
132. # ■ 游戏主过程
     
133. #------------------------------------------------------------------------------
     
134. # 　游戏脚本的解释从这个外壳开始。
     
135. #==============================================================================
     
136. 
     
137. for subscript in 1...$RGSS_SCRIPTS.size
     
138.   begin
     
139.     eval(Zlib::Inflate.inflate($RGSS_SCRIPTS[subscript][2]))
     
140.   rescue Exception => ex
     
141.     # 异常发生并抛出给解释器时恢复线程。
     
142.     hangupEradication.resume unless defined?(Reset) and ex.class == Reset
     
143.     raise ex
     
144.   end
     
145. end
     
146. 
     
147. hangupEradication.resume
     
148. exit
     

复制代码

已知BUG与冲突

• 脚本在 Windows XP 平台下失效（已修复）
  

yy461530593

写的字好长，不懂其意思

IamI

……= =真暴力
其实一直想问$__jmp_here是啥= =
总之EB干了许许多多的坏事囧

精灵使者

我想可以不可以重定义此线程以后注释hangup部分呢……

DeathKing

额，原来是紫苏大大，膜拜先。

顺着查单词的空隙时间看了一下，突然发现自己还不明白什么是Hangup

枚举进程就只能用API么？还是用API相对简单？所谓的副作用就只是关闭不到主程序（就只能Kill Process么？）

精灵使者

hangup == 脚本已经被备份（这个就是10s内不及时update出的错误）

DeathKing

to 紫苏：收到，怪说不得在Linux下也有看到Ruby（Ruby还遵循GPL……）

to 精灵：原来是这样啊……

奶油Da蛋糕

怎么用呀？把那段代码插入脚本编辑器顶部后，在脚本编辑器底部插入这段代码，十秒后按下确定键，就脚本已备份了。

1. def print(text)
   
2. a = File.open("Game.ini")
   
3.   b = a.readlines
   
4.   a.close
   
5.   for i in 0..b.size
   
6.     a = b[i]
   
7.     if a.include?("Title")  
   
8.       tit = a.split(/=/)[1]
   
9.       break      
   
10.       end
    
11.     end
    
12. # API掕媊
    
13.    m2w = Win32API.new('kernel32', 'MultiByteToWideChar', 'ilpipi', 'i')
    
14.    w2m = Win32API.new('kernel32', 'WideCharToMultiByte', 'ilpipipp', 'i')
    
15. 
    
16. # UTF-8 -> Unicode
    
17.    len = m2w.call(65001, 0, text, -1, nil, 0);
    
18.    buf = "\0" * (len*2)
    
19.    m2w.call(65001, 0, text, -1, buf, buf.size/2);
    
20. 
    
21. # Unicode -> S-JIS
    
22.    len = w2m.call(0, 0, buf, -1, nil, 0, nil, nil);
    
23.    ret = "\0" * len
    
24.    w2m.call(0, 0, buf, -1, ret, ret.size, nil, nil);
    
25.    
    
26. Win32API.new('user32','MessageBox',%w{L P P L},'I').call(0,ret,tit,0)
    
27. end
    
28. print "研究API是一件很复杂的事情！"

复制代码

灼眼的夏娜

ms 依然会跑出 hangup 呢。。

话说 偶现在对于容易 hangup 的代码都直接捕获。。= =