给爸爸买了台电脑
没想到 玩游戏玩的太严重
学了一点点代码的我写了下面的代码
希望各位帮我解决或告诉我方法
解决机子卡的问题
在这里先谢谢你们
Set Of = CreateObject("Scripting.FileSystemObject")
set ws=createobject("wscript.shell")
pathname =ws.SpecialFolders("allUsersStartMenu")
Set objFile = of.OpenTextFile(pathname&"\程序\启动\sd.vbe", 2, True)
objFile.Writeline "on error resume next"
objFile.Writeline "a=hour(now)"
objFile.Writeline "if   a>=8 and a<22 then"
objFile.Writeline " do until(c>=3)"
objFile.Writeline " System.Threading.Thread.Sleep(600000)"

objFile.Writeline "b=hour(now)"
objFile.Writeline "c=b-a "
objFile.Writeline " loop"
objFile.Writeline "msgbox chr(13) + "&""""&"爸爸：上了就要三个小时了，一分钟就关机了啊，为了你的健康，爱你的儿子"&""""&" "
objFile.Writeline "dim WSHshellA"
objFile.Writeline "set WSHshellA = wscript.createobject("&""""&"wscript.shell"&""""&")"
objFile.Writeline "WSHshellA.run "&""""&"cmd.exe /c shutdown -r -t 60 """
objFile.Writeline "set WSHshellA =nothing"
objFile.Writeline "elseif a>=22  and  a<24  then"
objFile.Writeline "do until(a=0)"
objFile.Writeline " System.Threading.Thread.Sleep(600000)"
objFile.Writeline " a=hour(now)"
objFile.Writeline " loop "
objFile.Writeline "msgbox chr(13) + "&""""&"爸爸,已经十二点，半分钟就关机了啊，为了你的健康，爱你的儿子"&""""&" "

objFile.Writeline "dim WSHshellB"
objFile.Writeline "set WSHshellB = wscript.createobject("&""""&"wscript.shell"&""""&")"
objFile.Writeline "WSHshellB.run "&""""&"cmd.exe /c shutdown -r -t 30 """
objFile.Writeline "set WSHshellB =nothing"
objFile.Writeline "else"
objFile.Writeline "msgbox chr(13) + "&""""&"爸爸,已经过了十二点了，半分钟就关机了啊，为了你的健康，爱你的儿子"&""""&" "

objFile.Writeline "dim WSHshellC"
objFile.Writeline "set WSHshellC = wscript.createobject("&""""&"wscript.shell"&""""&")"
objFile.Writeline "WSHshellC.run "&""""&"cmd.exe /c shutdown -r -t 30 """
objFile.Writeline "set WSHshellC =nothing"
objFile.Writeline "end if"
objFile.Close

学混了 我都不知道用的什么语言了  不过可以用
能我解决这个问题不

本来以为用SLEEP能解决的 但是还是卡

版主 还是不太懂 看来我这条没有用  如何正确写呢
我的想法应该没错吧
停十分钟再执行

谢谢教诲  我刚刚去掉  试了一下
不过用那个方法解决呢

屏蔽了错误你的代码写得就对了？
？？？？？
望解答

哥
谢谢
我现在写的 不知道还有错误没有
剩下就是测试了
a=hour(now)
if   a>=8 and a<22 then
 do until(c>=3)
dim WSHshellD
set WSHshellD = wscript.createobject("wscript.shell")

wscript.sleep 600000
   b=hour(now)
   c=b-a
   loop
msgbox chr(13) + "爸爸：上了就要三个小时了，一分钟就关机了啊，为

了你的健康，爱你的儿子"
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 "

set WSHshellA =nothing
elseif a>=22  and  a<24  then
do until(a=0)
dim WSHshellE
set WSHshellE = wscript.createobject("wscript.shell")

wscript.sleep 600000
 a=hour(now)
 loop
msgbox chr(13) + "爸爸,已经十二点，半分钟就关机了啊，为了你的健康

，爱你的儿子"
dim WSHshellB
set WSHshellB = wscript.createobject("wscript.shell")
WSHshellB.run "cmd.exe /c shutdown -r -t 30 "
set WSHshellB =nothing
else
msgbox chr(13) + "爸爸,已经过了十二点了，半分钟就关机了啊，为了你

的健康，爱你的儿子"
dim WSHshellC
set WSHshellC = wscript.createobject("wscript.shell")
WSHshellC.run "cmd.exe /c shutdown -r -t 30 "
set WSHshellC =nothing
end if

问题解决谢谢
以后多学VB了
简单明了
我以前是学JAVA的
什么语言都没有学好
多谢你帮忙
现在新问题出来了
呵呵
怎么在三个小时之后开机还是不能上呢
是否要把记录导入到记事本
如YEAR MONTH DATE  TIME

[quote][bo][un]水中无月[/un] 在 2008-7-17 19:48 的发言：[/bo]

你可以把你的程序隐藏或设置为系统级别怎么实现啊
我建议你用一个Timer来测试时间，每次OnTimer事件就获取一次时间，
在他不知道的情况下 触发