设为首页收藏本站|繁體中文

开启辅助访问

Project1»广场 › 技术讨论 › RPG Maker XP 讨论区 › 紫苏的10s异常脚本与RMXP1.03冲突！

紫苏的10s异常脚本与RMXP1.03冲突！

查看数: 2607 | 评论数: 6 | 收藏 0

关灯 | 提示：支持键盘翻页<-左右->

发布时间: 2014-11-4 18:16

正文摘要:

紫苏的脚本在这里：彻底根除10s异常在RMXP1.03下运行出错。基于现在论坛里都是RM1.03。那么强烈需要更新此脚本与其兼容。那么特别呼叫 @紫苏 ...

回复

OCTSJimmy 发表于 2014-11-11 17:10:45

RUBY 代码复制

#==============================================================================
# ■  Hangup 异常根除
#    Hangup Exception Eradication
#----------------------------------------------------------------------------
#
#    Hangup 异常是 RMXP 底层引擎内置的一个异常类，游戏进程会在 Graphics.update
#    没有调用超过 10 秒时抛出这个异常。这个脚本使用了 Windows API 暴力地解除
#    了这个限制。
#    使用方法：Hangup 异常根除脚本必须插入到脚本编辑器的最顶端，所有脚本之前，无
#    例外。
#
#----------------------------------------------------------------------------
#
#    更新作者： 紫苏
#    许可协议： FSL -MEE
#    项目版本： 1.2.0827
#    引用网址：
#    [url]http://rpg.blue/forum.php?mod=viewthread&tid=134316[/url]
#    [url]http://szsu.wordpress.com/2010/08/09/hangup_eradication[/url]
#
#----------------------------------------------------------------------------
#
#    - 1.2.0827 By 紫苏
#      * 更改了配置模块名
#      * 更改了 FSL 注释信息
#
#    - 1.2.0805 By 紫苏
#      * 脚本开始遵循 FSL
#      * 全局范围内改变了脚本结构
#
#    - 1.1.1101 By 紫苏
#      * 修正了脚本在 Windows XP 平台下失效的问题
#
#    - 1.0.0927 By 紫苏
#      * 初始版本完成
#
#==============================================================================
 
$__jmp_here.call if $__jmp_here
 
#----------------------------------------------------------------------------
# ● 登记 FSL。
#----------------------------------------------------------------------------
$fscript = {} if !$fscript
$fscript['HangupEradication'] = '1.2.0827'
 
#==============================================================================
# ■ FSL
#------------------------------------------------------------------------------
# 　自由RGSS脚本通用公开协议的功能模块。
#==============================================================================
 
module FSL
  module HangupEradication
    #------------------------------------------------------------------------
    # ● 定义需要的 Windows API。
    #------------------------------------------------------------------------
    OpenThread = Win32API.new('kernel32', 'OpenThread', 'LIL', 'L')
    CloseHandle = Win32API.new('kernel32', 'CloseHandle', 'L', 'I')
    Thread32Next = Win32API.new('kernel32', 'Thread32Next', 'LP', 'I')
    ResumeThread = Win32API.new('kernel32', 'ResumeThread', 'L', 'L')
    SuspendThread = Win32API.new('kernel32', 'SuspendThread', 'L', 'L')
    Thread32First = Win32API.new('kernel32', 'Thread32First', 'LP', 'I')
    GetCurrentProcessId = Win32API.new('kernel32', 'GetCurrentProcessId', 'V', 'L')
    CreateToolhelp32Snapshot = Win32API.new('kernel32', 'CreateToolhelp32Snapshot', 'LL', 'L')
  end
end
 
#==============================================================================
# ■ HangupEradication
#------------------------------------------------------------------------------
# 　处理根除 Hangup 异常的类。
#==============================================================================
 
class HangupEradication
  include FSL::HangupEradication
  #--------------------------------------------------------------------------
  # ● 初始化对像。
  #--------------------------------------------------------------------------
  def initialize
    @hSnapShot = CreateToolhelp32Snapshot.call(4, 0)
    @hLastThread = OpenThread.call(2, 0, self.getLastThreadId)
    #@hLastThread = OpenThread.call(2097151, 0, threadID)
    ObjectSpace.define_finalizer(self, self.method(:finalize))
  end
  #--------------------------------------------------------------------------
  # ● 获取当前进程创建的最后一个线程的标识。
  #--------------------------------------------------------------------------
  def getLastThreadId
    threadEntry = [28, 0, 0, 0, 0, 0, 0].pack("L*")
    threadId = 0                                          # 线程标识
    found = Thread32First.call(@hSnapShot, threadEntry)   # 准备枚举线程
    while found != 0
      arrThreadEntry = threadEntry.unpack("L*")           # 线程数据解包
      if arrThreadEntry[3] == GetCurrentProcessId.call    # 匹配进程标识
        threadId = arrThreadEntry[2]                      # 记录线程标识
      end
      found = Thread32Next.call(@hSnapShot, threadEntry)  # 下一个线程
    end
    return threadId
  end
  #--------------------------------------------------------------------------
  # ● 根除 Hangup 异常。
  #     2       : “暂停和恢复线程访问权限”代码；
  #     2097151 : “所有可能的访问权限”代码（Windows XP 平台下无效）。
  #--------------------------------------------------------------------------
  def eradicate
    SuspendThread.call(@hLastThread)
  end
  #--------------------------------------------------------------------------
  # ● 恢复 Hangup 异常。
  #--------------------------------------------------------------------------
  def resume
    while ResumeThread.call(@hLastThread) > 1; end        # 恢复最后一个线程
  end
  #--------------------------------------------------------------------------
  # ● 最终化对像。
  #--------------------------------------------------------------------------
  def finalize
    CloseHandle.call(@hSnapShot)
    CloseHandle.call(@hLastThread)
  end
end
 
hangupEradication = HangupEradication.new
hangupEradication.eradicate
 
callcc { |$__jmp_here| }                                  # F12 后的跳转标记
 
#==============================================================================
# ■ 游戏主过程
#------------------------------------------------------------------------------
# 　游戏脚本的解释从这个外壳开始。
#==============================================================================
 
for subscript in 1...$RGSS_SCRIPTS.size
  begin
    eval(Zlib::Inflate.inflate($RGSS_SCRIPTS[subscript][2]))
  rescue Exception => ex
    # 异常发生并抛出给解释器时恢复线程。
    hangupEradication.resume unless defined?(Reset) and ex.class == Reset
    raise ex
  end
end
 
hangupEradication.resume
exit

#==============================================================================


# ■  Hangup 异常根除


#    Hangup Exception Eradication


#----------------------------------------------------------------------------


#


#    Hangup 异常是 RMXP 底层引擎内置的一个异常类，游戏进程会在 Graphics.update


#    没有调用超过 10 秒时抛出这个异常。这个脚本使用了 Windows API 暴力地解除


#    了这个限制。


#    使用方法：Hangup 异常根除脚本必须插入到脚本编辑器的最顶端，所有脚本之前，无


#    例外。


#


#----------------------------------------------------------------------------


#


#    更新作者： 紫苏


#    许可协议： FSL -MEE


#    项目版本： 1.2.0827


#    引用网址：


#    [url]http://rpg.blue/forum.php?mod=viewthread&tid=134316[/url]


#    [url]http://szsu.wordpress.com/2010/08/09/hangup_eradication[/url]


#


#----------------------------------------------------------------------------


#


#    - 1.2.0827 By 紫苏


#      * 更改了配置模块名


#      * 更改了 FSL 注释信息


#


#    - 1.2.0805 By 紫苏


#      * 脚本开始遵循 FSL


#      * 全局范围内改变了脚本结构


#


#    - 1.1.1101 By 紫苏


#      * 修正了脚本在 Windows XP 平台下失效的问题


#


#    - 1.0.0927 By 紫苏


#      * 初始版本完成


#


#==============================================================================


 


$__jmp_here.call if $__jmp_here


 


#----------------------------------------------------------------------------


# ● 登记 FSL。


#----------------------------------------------------------------------------


$fscript = {} if !$fscript


$fscript['HangupEradication'] = '1.2.0827'


 


#==============================================================================


# ■ FSL


#------------------------------------------------------------------------------


# 　自由RGSS脚本通用公开协议的功能模块。


#==============================================================================


 


module FSL


  module HangupEradication


    #------------------------------------------------------------------------


    # ● 定义需要的 Windows API。


    #------------------------------------------------------------------------


    OpenThread = Win32API.new('kernel32', 'OpenThread', 'LIL', 'L')


    CloseHandle = Win32API.new('kernel32', 'CloseHandle', 'L', 'I')


    Thread32Next = Win32API.new('kernel32', 'Thread32Next', 'LP', 'I')


    ResumeThread = Win32API.new('kernel32', 'ResumeThread', 'L', 'L')


    SuspendThread = Win32API.new('kernel32', 'SuspendThread', 'L', 'L')


    Thread32First = Win32API.new('kernel32', 'Thread32First', 'LP', 'I')


    GetCurrentProcessId = Win32API.new('kernel32', 'GetCurrentProcessId', 'V', 'L')


    CreateToolhelp32Snapshot = Win32API.new('kernel32', 'CreateToolhelp32Snapshot', 'LL', 'L')


  end


end


 


#==============================================================================


# ■ HangupEradication


#------------------------------------------------------------------------------


# 　处理根除 Hangup 异常的类。


#==============================================================================


 


class HangupEradication


  include FSL::HangupEradication


  #--------------------------------------------------------------------------


  # ● 初始化对像。


  #--------------------------------------------------------------------------


  def initialize


    @hSnapShot = CreateToolhelp32Snapshot.call(4, 0)


    @hLastThread = OpenThread.call(2, 0, self.getLastThreadId)


    #@hLastThread = OpenThread.call(2097151, 0, threadID)


    ObjectSpace.define_finalizer(self, self.method(:finalize))


  end


  #--------------------------------------------------------------------------


  # ● 获取当前进程创建的最后一个线程的标识。


  #--------------------------------------------------------------------------


  def getLastThreadId


    threadEntry = [28, 0, 0, 0, 0, 0, 0].pack("L*")


    threadId = 0                                          # 线程标识


    found = Thread32First.call(@hSnapShot, threadEntry)   # 准备枚举线程


    while found != 0


      arrThreadEntry = threadEntry.unpack("L*")           # 线程数据解包


      if arrThreadEntry[3] == GetCurrentProcessId.call    # 匹配进程标识


        threadId = arrThreadEntry[2]                      # 记录线程标识


      end


      found = Thread32Next.call(@hSnapShot, threadEntry)  # 下一个线程


    end


    return threadId


  end


  #--------------------------------------------------------------------------


  # ● 根除 Hangup 异常。


  #     2       : “暂停和恢复线程访问权限”代码；


  #     2097151 : “所有可能的访问权限”代码（Windows XP 平台下无效）。


  #--------------------------------------------------------------------------


  def eradicate


    SuspendThread.call(@hLastThread)


  end


  #--------------------------------------------------------------------------


  # ● 恢复 Hangup 异常。


  #--------------------------------------------------------------------------


  def resume


    while ResumeThread.call(@hLastThread) > 1; end        # 恢复最后一个线程


  end


  #--------------------------------------------------------------------------


  # ● 最终化对像。


  #--------------------------------------------------------------------------


  def finalize


    CloseHandle.call(@hSnapShot)


    CloseHandle.call(@hLastThread)


  end


end


 


hangupEradication = HangupEradication.new


hangupEradication.eradicate


 


callcc { |$__jmp_here| }                                  # F12 后的跳转标记


 


#==============================================================================


# ■ 游戏主过程


#------------------------------------------------------------------------------


# 　游戏脚本的解释从这个外壳开始。


#==============================================================================


 


for subscript in 1...$RGSS_SCRIPTS.size


  begin


    eval(Zlib::Inflate.inflate($RGSS_SCRIPTS[subscript][2]))


  rescue Exception => ex


    # 异常发生并抛出给解释器时恢复线程。


    hangupEradication.resume unless defined?(Reset) and ex.class == Reset


    raise ex


  end


end


 


hangupEradication.resume


exit

只含紫苏大脚本的空白工程

Project1.zip (202.05 KB, 下载次数: 47)

评分

参与人数 2	星屑 +250	梦石 +1	收起理由
RyanBern	+ 150		认可答案+凑整
精灵使者	+ 100	+ 1	认可答案

查看全部评分

瓦林卡新 发表于 2014-11-10 13:33:38

脚本不兼容也很麻烦

OCTSJimmy 发表于 2014-11-10 10:08:58

精灵大大，貌似我新建一个空工程，然后将紫苏大的脚本插入，并放在编辑器的最顶端，运行的时候没有问题啊。
精灵大大是否可以给个出错的截图啥的？m(_ _)m

点评

WIN7系统下不报错 XP系统会异常（好像139行是Nil）发表于 2014-11-10 21:46

1.03报错如下：发表于 2014-11-10 21:42

风若·飘絮 发表于 2014-11-4 22:27:07

版主大人解决不掉吗

点评

恩，这个脚本的黑科技超过了我的解决范围，不过这也是我的核心脚本之一，所以必须要解决口牙！发表于 2014-11-5 14:51

英顺的马甲 发表于 2014-11-4 21:39:44

精灵好久不见
表示1.03无压力==
顺带吐槽精灵球

站长信箱：[email protected]|手机版|小黑屋|无图版|Project1游戏制作

GMT+8, 2024-11-23 15:20

Powered by Discuz! X3.1

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表