后台运行脚本切屏后游戏会卡死，怎么解决 - Project1

#------------------------------------------------------------------------
# -----SixRC 2017.11.02
# 后台运行脚本含失去焦点时屏蔽键盘鼠标功能
#
# 使用前请务必阅读此否则脚本会失败
# 使用为 BGR.bgr(bool) true为开启 false关闭默认true
# BGR.update为在窗口失去或获得焦点时对于是否屏蔽键盘鼠标的刷新
# 下面的注释那里把它放进了Graphics.update 请自行选择要不要这样
# 然后
# 因为这个脚本涉及到对具体dll的修改不同的dll情况不同
# 下面是不同dll对应的地址请在 45 行开始自行修改DLL名和偏移地址及第二部分大小
# 除DLL外需要修改三处地方见下面 47 48 行
# RGSS103J 0x2E48 \x46
# RGSS102J 100J 0x2E09 \x46
# RGSS104E 0x4FA4 \x5F
# RGSS200J 200E 202E 0x19AA \x35
# RGSS300 301 0x2712 \x5A
#------------------------------------------------------------------------
module BGR
module_function
GetActiveWindow=Win32API.new('user32','GetActiveWindow','v','l')
Hwnd=GetActiveWindow.call
User32=Win32API.new('kernel32','LoadLibraryA','p','l').call("user32")
GetAsyncKeyState=Win32API.new('kernel32','GetProcAddress','lp','l').call(User32,'GetAsyncKeyState')
GetKeyState=Win32API.new('kernel32','GetProcAddress','lp','l').call(User32,'GetKeyState')
WriteProcessMemory=Win32API.new('kernel32','WriteProcessMemory','llpll','l')
Original="\0"*5
OriginalVA="\0"*5
Mask="\x31\xC0\xC2\x04\x00"
Win32API.new('kernel32','ReadProcessMemory','llpll','l').call(-1,GetAsyncKeyState,Original,5,0)
Win32API.new('kernel32','ReadProcessMemory','llpll','l').call(-1,GetKeyState,OriginalVA,5,0)
@state=0
def update
if @state==0 && Hwnd != GetActiveWindow.call
WriteProcessMemory.call(-1,GetAsyncKeyState,Mask,5,0) if $game_variables!=nil
WriteProcessMemory.call(-1,GetKeyState,Mask,5,0) if $game_variables!=nil
return @state=1
end
if @state==1 && Hwnd == GetActiveWindow.call
WriteProcessMemory.call(-1,GetAsyncKeyState,Original,5,0) #if $game_variables!=nil
WriteProcessMemory.call(-1,GetKeyState,OriginalVA,5,0) #if $game_variables!=nil
return @state=0
end
end
DLL=Win32API.new('kernel32','LoadLibrary','p','l').call('RGSS103J')
def bgr(x=true)
WriteProcessMemory.call(-1,DLL+0x2E48,"\0",1,0) if x
WriteProcessMemory.call(-1,DLL+0x2E48,"\x46",1,0) unless x
end
end
#整合进 Graphics.update 请选择性使用
class << Graphics
alias update_BGR update
def update
BGR.update #if $scene.is_a?(Scene_Map)
update_BGR
end
end
#使用

复制代码