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 很精彩!!!