admin管理员组

文章数量:1531792

2024年1月6日发(作者：)

dim Obj,UserName,NowTime,LenS,Num

set Obj = createobject("")

//调用“”

UserName=d("HKLMSOFTWAREMicrosoftWindows

NTCurrentVersionRegisteredOwner")

// RegRead -- 读取注册表

YN=(UserName&" 你好，是否使用自动定时关机？",0,"关机？",36)

//Popup--弹出对话框

If YN=6 Then

//标记 输入时间

Rem InputTime

SWTime=InputBox ("请输入关机时间！24小时格式(00:00~23:59之间)！如：2:03 ， 22:35")

//*********************************** 判断时间格式

****************************************************

LenS=Len(SWTime)

//Len--获得字符串的长度

Num=Instr(SWTime,":")

//Instr--获得":"所在字符串中的位置

If Num=0 Then

Num=Instr(SWTime,"：")

End If

If Num=0 Then

Call ("间隔符错误！请用“ : ”或者“ ： ”",5,"时间格式错误！",48)

//跳到 输入时间

Goto InputTime

End If

If left(SWTime,Num-1)>23 or left(SWTime,Num-1)<0 Then

//left--取字符串左边Num-1个长度的字符

Call ("小时格式输入错误！",5,"时间格式错误！",48)

Goto InputTime

End If

If Right(SWTime,LenS-Num)>59 or Right(SWTime,LenS-Num)<0 Then

//Right--取字符串右边LenS-Num个长度的字符

Call ("分钟格式输入错误！",5,"时间格式错误！",48)

//跳到 输入时间

Goto InputTime

End If

//*********************************** 判断时间格****************************************************

Call ("系统将在"&SWTime&"关机！！",5,"自动关机！",48)

Rem Start

NowTime=Time

//Time -- 获得当前时间

If Hour(SWTime)=Hour(NowTime) and Minute(SWTime)=Minute(NowTime) Then

式

//Hour -- 获得小时， Minute -- 获得分钟

"shutdown /f /s /t 0"

//调用shutdown命令。 /f--强行关闭应用程序而不提醒， /s--关闭计算机（要重启的话，请把这改成/r[重启计算机]），/t time--在time秒后前闭计算机。

End If

For 30

Delay 1000

Next

Goto Start

End If

本文标签： 时间格式关闭错误输入

版权声明：本文标题：一个自动关机的小脚本 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/dianzi/1704484202a93137.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。