[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[其他] win7下使用shutdown命令设置延时关机后如何获取剩余时间?

我的系统是64位win7. 在cmd窗口中输入“shutdown -s -t 7200”回车, 注销窗口只显示2秒钟就自动隐藏了。
如果我想看一下还有多少时间会关机,请问怎么将它再次调出。
1

评分人数

本帖最后由 pcl_test 于 2016-5-9 01:16 编辑

vbs
  1. Set ws = CreateObject("WScript.Shell")
  2. Set fso = CreateObject("Scripting.FileSystemObject")
  3. CommandMode()
  4. t = InputBox("请输入关机延时秒数(0-315360000):", "提示", 30)
  5. If t<>"" and t>=0 and t<=315360000 Then
  6.     dt = DateAdd("s", t, now)
  7.     r =t
  8.     ws.run "shutdown -s -t "&t
  9.     Set f = fso.OpenTextFile("CloseTime.txt", 2, True)
  10.     f.Write dt
  11.     f.Close
  12.     For i = r To 1 Step -1
  13.         WScript.Echo "系统将在 "& dt &" 时,"& GetDT(r) &" 后关闭。"
  14.         r = r - 1
  15.         Wscript.Sleep 1000
  16.     Next
  17. Else
  18.     WScript.Echo "数值错误"
  19. End If
  20. Function GetDT(t)
  21.     d = int(t / 86400)
  22.     h = int((t mod 86400)/3600)
  23.     m = int((t mod 3600)/60)
  24.     s = t mod 60
  25.     GetDT = d &"天"& h &"时"& m &"分"& s &"秒"
  26. End Function
  27. Sub CommandMode()
  28.     If InStr(1, WScript.FullName, "\cscript.exe", vbTextCompare) > 0 Then Exit Sub
  29.     Command = "%Comspec% /c cscript.exe //NoLogo """ & WScript.ScriptFullName & """"
  30.     CreateObject("WScript.Shell").Run Command & " & pause", 1, False
  31.     WScript.Quit
  32. End Sub
复制代码

TOP

应该没办法解决

TOP

我的问题为什么没有人回答,是真的很难还是没有人遇到过?

TOP

返回列表