自己写的一个定时关机或重启的vbs脚本

脚本专栏 2025/2/6 佚名

2 0 1

金狮镖局 Design By www.egabc.com

dim ActionID
ActionID = 1    '0注销，1关机，2重启,
ActionTime = "2006-1-4 13:42:30"    '关机或重启时间

function ShutDown()
    dim objShell
    Set objShell = WScript.CreateObject("Wscript.Shell")

    dim Application
    set Application = CreateObject("Shell.Application.1")
    Application.ShutdownWindows()
    dim upi
    for upi = 0 to 4
        WScript.Sleep(50)
        objShell.sendKeys("{UP}")
    next
    For upi = 1 to ActionID
        WScript.Sleep(50)
        objShell.sendKeys("{DOWN}")
    next
    '使用时，请把下行的注释符去掉
    'objShell.sendKeys("{ENTER}")
end function

While true
    if DateDiff("s", Now, ActionTime) < 0 then
        ShutDown()
    end if
    WScript.Sleep(5*1000)
wend

'将上面代码存为vbs文件，如：shutdown.vbs，然后双击或在文件上点右键选择以命令提示打开,
'如果到了你设置重启的时候，系统会出现关机的对话框。
'直接下面代码程序会出现关机的对话框，最后的回车注释掉了，正常使用时，请去掉注释符。

vbs,重启,定时关机

标签：

vbs,重启,定时关机

金狮镖局 Design By www.egabc.com

金狮镖局 免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com

金狮镖局 Design By www.egabc.com

评论“自己写的一个定时关机或重启的vbs脚本”

暂无自己写的一个定时关机或重启的vbs脚本的评论...

P70系列延期，华为新旗舰将在下月发布

3月20日消息，近期博主@数码闲聊站透露，原定三月份发布的华为新旗舰P70系列延期发布，预计4月份上市。

而博主@定焦数码爆料，华为的P70系列在定位上已经超过了Mate60，成为了重要的旗舰系列之一。它肩负着重返影像领域顶尖的使命。那么这次P70会带来哪些令人惊艳的创新呢？
根据目前爆料的消息来看，华为P70系列将推出三个版本，其中P70和P70 Pro采用了三角形的摄像头模组设计，而P70 Art则采用了与上一代P60 Art相似的不规则形状设计。这样的外观是否好看见仁见智，但辨识度绝对拉满。

更新日志

2025年02月06日

自己写的一个定时关机或重启的vbs脚本

vbs,重启,定时关机

用vbs实现修改dns的网关脚本

vbs base64 解密脚本代码

评论“自己写的一个定时关机或重启的vbs脚本”

P70系列延期，华为新旗舰将在下月发布

更新日志

友情链接