VBS关机代码

timestr = InputBox("请输入延时时间(小时)","关机时间")
if(timestr<>"") then
    shutdownbut = msgbox("是否确定在"+timestr+"个小时后关机",vbOKCancel,"提示")
    if shutdownbut=vbOK then
        tm = (0)
        'tm = (timestr*3600)  
        msgbox "系统将在"+timestr+"小时后关机",vbOKOnly+VbExclamation,"提示"
        CreateObject("Wscript.Shell").run "cmd.exe /c shutdown -s -t "&cstr(tm)
    else
        msgbox "取消了关机",vbOKOnly+vbinformation,"提示"
    end if
end if


已标记关键词 清除标记
相关推荐
©️2020 CSDN 皮肤主题: 数字20 设计师:CSDN官方博客 返回首页