[技术讨论] 请问谁能给一个能调出关机菜单的批处理或VBS脚本

hyfl928

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

LJY4.0

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

zqz0012005

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

newxso

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

pusofalse

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

zqz0012005

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

rat

60是什么参数？

slore

rundll32.exe shell32.dll,#60

pusofalse

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

newxso

试试这个VBS版：

Dim Shutdown
Set Shutdown=WScript.CreateObject("Shell.Application")
Shutdown.ShutdownWindows
复制代码

BAT版：

start mshta vbscript:CreateObject("Shell.Application").ShutdownWindows()(window.close)
复制代码

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

zqz0012005

taskkill /im explorer.exe
复制代码

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

sniperhgy

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

lixiaodaoaaa

代码需要再优化下

Set a=WScript.CreateObject("WScript.Shell")
a.SendKeys "^{ESC}"
WScript.Sleep 200
a.SendKeys "u"
WScript.Quit
复制代码

前面几句都是多余的。。

这样就行了。

sniperhgy

Dim WshShell,min
Set WshShell=WScript.CreateObject("WScript.Shell")

WshShell.SendKeys "^{ESC}"
WScript.Sleep 200
WshShell.SendKeys "u"

WScript.Quit
复制代码

看看這個行不行

pusofalse

哪个菜单？