关于Microsoft VBScript 编译器错误 (0x800A0401)语句未结束问题?
答案:1 悬赏:10
解决时间 2021-10-11 00:51
- 提问者网友:浮克旳回音
- 2021-10-10 08:43
关于Microsoft VBScript 编译器错误 (0x800A0401)语句未结束问题?
最佳答案
- 二级知识专家网友:天凉才是好个秋
- 2021-10-10 09:53
dim curhour
dim aa
要分两行吧
------------------------
set myobject=wscript.createobject("wscript.network")
set myshell=wscript.createobject("wscript.shell")
name=trim(myobject.username)
dim curhour
dim aa
if name="XXX" then
curhour=hour(time)
aa=curhour
do
curhour=hour(time)
loop until curhour>=aa+2
if curhour<=19 then
myshell.run "shutdown -s -t 600 -c XXX,你已经玩很长时间了,要注意保护视力,不要耽误学习;请将你的文件保存,系统将在10分钟后自动关机。-f "
else
myshell.run "shutdown -s -t 600 -c XXX,时间不早了,该关机睡觉了,请将你的文件保存,系统将在10分钟后自动关机。-f "
end if
end if
-------------------
都要分行的.
0
dim aa
要分两行吧
------------------------
set myobject=wscript.createobject("wscript.network")
set myshell=wscript.createobject("wscript.shell")
name=trim(myobject.username)
dim curhour
dim aa
if name="XXX" then
curhour=hour(time)
aa=curhour
do
curhour=hour(time)
loop until curhour>=aa+2
if curhour<=19 then
myshell.run "shutdown -s -t 600 -c XXX,你已经玩很长时间了,要注意保护视力,不要耽误学习;请将你的文件保存,系统将在10分钟后自动关机。-f "
else
myshell.run "shutdown -s -t 600 -c XXX,时间不早了,该关机睡觉了,请将你的文件保存,系统将在10分钟后自动关机。-f "
end if
end if
-------------------
都要分行的.
0
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯