请问谁能给一个能调出关机菜单的批处理或VBS脚本

hyfl928

请问谁能给一个能调出关机菜单的批处理或,vbs脚本??
就是这个菜单

pusofalse

哪个菜单？

sniperhgy

1. Dim WshShell,min
   
2. Set WshShell=WScript.CreateObject("WScript.Shell")
   
3. 
   
4. WshShell.SendKeys "^{ESC}"
   
5. WScript.Sleep 200
   
6. WshShell.SendKeys "u"
   
7. 
   
8. WScript.Quit

复制代码

看看這個行不行

lixiaodaoaaa

代码需要再优化下

1. Set a=WScript.CreateObject("WScript.Shell")
   
2. a.SendKeys "^{ESC}"
   
3. WScript.Sleep 200
   
4. a.SendKeys "u"
   
5. WScript.Quit

复制代码

前面几句都是多余的。。

这样就行了。

sniperhgy

怎麽說呢，min的聲明是多餘的，不過，在使用變量之前先聲明，是一個好習慣，象4樓給的代碼，a就沒有進行聲明，雖然可以運行，但是，不太符合編程規範
PS：4樓的朋友所說的優化如果是指去掉一些聲名，就有些可笑了……

zqz0012005

1. taskkill /im explorer.exe

复制代码

注意不要加 /f 参数，否则效果完全不同。

newxso

试试这个VBS版：

1. 
   
2. Dim Shutdown
   
3. Set Shutdown=WScript.CreateObject("Shell.Application")
   
4. Shutdown.ShutdownWindows
   

复制代码

BAT版：

1. 
   
2. start mshta vbscript:CreateObject("Shell.Application").ShutdownWindows()(window.close)
   

复制代码

[ 本帖最后由 newxso 于 2009-3-6 23:19 编辑 ]

pusofalse

来个autoIt版的~
Dllcall("shell32.dll", "none", 60, "int", 0)

slore

rundll32.exe shell32.dll,#60

rat

60是什么参数？

zqz0012005

http://www.cn-dos.net/forum/viewthread.php?tid=27928&page=2

pusofalse

可以看成是函数所对应的序号，就像进程名和进程PID的关系。
题外话，从slore前辈的代码来看，rundll32.exe同样可以使用序号来代替函数名。以前看到过一段资料，rundll32貌似只能调用没有返回值的api函数。

newxso

想请教一下 zqz0012005版主 “taskkill /im explorer.exe”此句是无意的错误发现，还是确实存在此语句？

zqz0012005

你这句话有点囧。。。
这个命令的确是无意中发现的，但并不是错误，在XP下的确有调出关机菜单的功能。

LJY4.0

回复 13# newxso
他的返回值(指cmd下执行结果)都不同,应该不是错误