标题: 固定时间弹出提示窗口 [打印本页]
作者: junyee 时间: 2006-12-17 04:36 标题: 固定时间弹出提示窗口
大部分像我一样的电脑（游戏）爱好者，，在使用电脑的时候总是不太注意保护自己的眼睛。如果能写一个批处理（或其它的-_-）,能在使用电脑的时候，在一段时间内自动弹出窗口，（或其它类型的提示）对我们进行提醒，那不是一件很好的事情吗？
在本论坛里潜了一段时间的水，对批处理只是有一个大概的了解，故又想请教各位大仙了~~~
具体实现效果：
运行后，
每隔15分钟，弹出窗口，对用眼者进行提示，10秒后窗口关闭
当离运行该批处理（或其它类型程序）达到3小时后，自动关机！
我不是偷懒，而是对批处理了解不够深入
为了eyes，就请大侠们多多赐福喽！！！
作者: jmz573515 时间: 2006-12-17 05:41 标题: 用VBS写了一个，没有经过测试。
set ws=createobject("wscript.shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
do
if b=12 then wscript.quit
wscript.sleep 1000*60*15
intReturn = ws.Popup("你已经玩了很长时间了，要注意保护眼睛啊！", 10, "系统提示")
b=b+1
loop
作者: jmz573515 时间: 2006-12-17 06:09 标题: 这个我觉得有点意思 ：）(时间可能没有那么准确)
set ws=createobject("wscript.shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
do
if b=12 then wscript.quit
wscript.sleep 1000*60*14
call tishi()
b=b+1
loop
sub tishi()
set AgentControl=createobject("agent.control")
AgentControl.Connected = True
AgentControl.Characters.Load "Merlin", "merlin.acs"
Set Merlin = AgentControl.Characters("Merlin")
Merlin.Show
Merlin.MoveTo 400,200
Merlin.Speak "你已经玩了很长时间了，请注意保护眼睛！"
wscript.sleep 7000
end sub
'不好意思原来的不行，我给更改了一下，请各位测试。
[ Last edited by jmz573515 on 2006-12-16 at 06:17 PM ]
作者: junyee 时间: 2006-12-17 06:29
很精彩！！！
能不能加入超过多小时间自动运行某个指令的功能？？？比如自动关机（提前5分钟提示：“您上机时间超过3小时，系统将在5分钟后关闭！”）
作者: junyee 时间: 2006-12-17 06:43
这是我用后的一些看法，
（RE：2楼）
在每隔15分钟会弹出一个提示。但是我在浏览网页（全屏）时，并不醒目，它只是在任务栏里多出一个蓝框，过了10秒就关闭了！
能不能写一个弹出一个窗口能覆盖当前页面的？？就像某些软件中有一个选项：总在最前面，最好弹出的窗口是不能直接关闭的！
还有，请教一下
if b=12 then wript.quit
wscript.sleep 1000*60*15
中的b=12是什么意思？？
怎么修改弹出窗口的停留时间？？？
作者: jmz573515 时间: 2006-12-17 07:02
因为你的要求是弹出对话框10妙后自动关闭，所以很难做出覆盖当前页面的。
if b=12 then wript.quit
wscript.sleep 1000*60*15
这里的B也没有特殊的意义，只是说明循环了12次（一次15分，所以是180分就是3小时）
intReturn = ws.Popup("你已经玩了很长时间了，要注意保护眼睛啊！", 10, "系统提示") （这里的10就是表示停留10妙）
你可以用第二个。
作者: junyee 时间: 2006-12-19 02:40
为了追求，顶~
作者: junyee 时间: 2006-12-19 02:46
我的一些想法，盼有高人指点以得到实现~
1：2楼的给出的代码，每次弹出的都是同一个内容~如果能每次随机（或按顺序）弹出不同的内容就更好了~
2：希望能在每隔一小时，能锁定屏幕10s，强行暂停电脑使用者进行游戏等内容！
3：要是能用bat实现就更好了，bat我稍懂一点，vb的话可就一窍不通了。。。