中国DOS联盟

我想用VBS做一个快速重启的脚本，利用任务管理器中{Ctrl}+U实现，脚本如下：

Set WshShell = WScript.CreateObject("WScript.Shell")

  WshShell.SendKeys ("^%{DEL}") '同时按下{Ctrl}{Alt}{Del}

  WScript.Sleep 500 '等待启动任务管理器

  WshShell.SendKeys ("%u") '同时按下{Alt}+U

  WshShell.SendKeys ("^r") '同时按下{Ctrl}+R

数次尝试均不成功,请帮忙修改下

为什么不直接run taskmgr……

run可以运行，但是{Alt}+U仍然调用不了

我这里测试可以。。。

{Alt}+U是什么操作？{Alt}+U

访问 菜单

可能是你机器性能的问题，你可以试试把等待时间延长，比如加个 0 改成 5000, 再在 Alt+U 之后再等 500 ms.

要实现重启或者关机可以试试这个：

Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\.\root\cimv2")

Set colOS = WMI.ExecQuery("Select * from Win32_OperatingSystem")

For Each OS in colOS

    OS.Reboot()  ' 关机为 OS.Win32Shutdown(1)

Next

WshShell.SendKeys ("^%{DEL}") '同时按下{Ctrl}{Alt}{Del}

原来windows不允许vbs同时调用这三个键

Set WshShell = WScript.CreateObject("WScript.Shell")

  WshShell.SendKeys ("^+{ESC}") '同时按下{Ctrl}{Shift}{ESC}

  WScript.Sleep 500 '等待启动任务管理器

  WshShell.SendKeys ("%u") '同时按下{Alt}+U

  WScript.Sleep 200 '延时

  WshShell.SendKeys ("^r") '同时按下{Ctrl}+R

这样可以执行，但是执行重启的时候不是预期的不保存任何进程快速重启，仍然是按照正常的重启步骤：注销-保存-关机-重启……

不知道何故，高手给下解释

[ Last edited by vlq5299 on 2009-8-14 at 07:03 ]

那个按住CTRL键不放再按R

不是CTRL+R

这个VBS模仿不了。

直接调用
shutdown.exe -r -f -t 0
可以吗？

套用上面的WMI

Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\.\root\cimv2")
Set colOS = WMI.ExecQuery("Select * from Win32_OperatingSystem")
For Each OS In colOS
OS.Win32Shutdown(6)
Next

Originally posted by slore at 2009-8-16 22:59:
那个按住CTRL键不放再按R

不是CTRL+R

这个VBS模仿不了。

Ctrl+Esc vbs就可以模仿的

汗～

你一起按看它出来不。。。

VBS发送的是一起的。。。不是按住的。。。

那个快捷键可以2个都行罢了