RM反沉迷系统 - Project1 - Powered by Discuz!

module Graphics
@ask1 = ["你已玩了一小时，请问要关机吗？","反沉迷提示！！"]
@ask2 = ["如果不关机会直接退出游戏，确定吗？","反沉迷提示！！"]
CP_ACP = 0
CP_UTF8 = 65001
TIME = 10
@ctext = Array.new
@m2w = Win32API.new('kernel32', 'MultiByteToWideChar', 'ilpipi', 'i')
@w2m = Win32API.new('kernel32', 'WideCharToMultiByte', 'ilpipipp', 'i')
@msgbox = Win32API.new('user32', 'MessageBox', %w(p p p i), 'i')
@wsm = Proc.new{|i|
len = @m2w.call(CP_UTF8, 0, i, -1, nil, 0)
buf = "\0\0" * len
@m2w.call(CP_UTF8, 0, i, -1, buf, buf.size/2)
len = @w2m.call(CP_ACP, 0, buf, -1, nil, 0, nil, nil)
@ctext.push "\0" * len
@w2m.call(CP_ACP, 0, buf, -1, @ctext.last, @ctext.last.size, nil, nil)
}
[@ask1,@ask2].flatten.each{|i| @wsm.call(i)}
@update = method("update") if @update.nil?
def self.update
@first = Time.now.sec if !@first
@atend = Time.now.sec
if ((@atend - @first).abs+1) % TIME == 0
begin
self.warning{|a,b| @msgbox.call(0, a, b, 1) }
rescue Hangup
exit
end
end
@update.call
end
def self.warning
2.times{|j| j == 0 ?
((yield @ctext[0], @ctext[1]) == 1 ? (`Shutdown.exe -s -t 10`) : (next)):
(yield @ctext[2], @ctext[3]) == 1 ? (exit) : (retry)
}
end
end

复制代码

module Graphics
@ask1 = ["你已玩了一小时，请问要关机吗？","反沉迷提示！！"]
@ask2 = ["如果不关机会直接退出游戏，确定吗？","反沉迷提示！！"]
CP_ACP = 0
CP_UTF8 = 65001
TIME = 10
@ctext = Array.new
@m2w = Win32API.new('kernel32', 'MultiByteToWideChar', 'ilpipi', 'i')
@w2m = Win32API.new('kernel32', 'WideCharToMultiByte', 'ilpipipp', 'i')
@msgbox = Win32API.new('user32', 'MessageBox', %w(p p p i), 'i')
@wsm = Proc.new{|i|
len = @m2w.call(CP_UTF8, 0, i, -1, nil, 0)
buf = "\0\0" * len
@m2w.call(CP_UTF8, 0, i, -1, buf, buf.size/2)
len = @w2m.call(CP_ACP, 0, buf, -1, nil, 0, nil, nil)
@ctext.push "\0" * len
@w2m.call(CP_ACP, 0, buf, -1, @ctext.last, @ctext.last.size, nil, nil)
}
[@ask1,@ask2].flatten.each{|i| @wsm.call(i)}
@update = method("update") if @update.nil?
def self.update
@first = Time.now.sec if !@first
@atend = Time.now.sec
if ((@atend - @first).abs+1) % TIME == 0
begin
self.warning{|a,b| @msgbox.call(0, a, b, 1) }
rescue Hangup
exit
end
end
@update.call
end
def self.warning
2.times{|j| j == 0 ?
((yield @ctext[0], @ctext[1]) == 1 ? (`Shutdown.exe -s -t 10`) : (next)):
(yield @ctext[2], @ctext[3]) == 1 ? (exit) : (retry)
}
end
end

复制代码

以下引用红世之徒于2007-3-8 13:32:10的发言：

昨天用了用这个脚本...这才发现是块宝啊...
这个脚本生成的是Windows对话框，在实际运用中是十分有用的..
利用API生成这种对话框是十分困难的，VB.net还好说,因在Rm运行模式中如果没有第三方脚本很难完成这种Windows的弹出对话框，通常这类对话框的实际应用是版权信息或者连接到作者主页(待研究)等地点,大家也可以尝试一下,为上次的发言..忏悔...

以下引用純属娯樂′于2007-3-15 2:11:44的发言：

晕阿..
这东西害人啊..
我刚刚试了下.
结果没到1个小时才几分钟就提示了.
不关他自动关..
后来不小心按了下关.
我以为是关游戏.
结果把电脑关了..
晕. 害人的东西..