使用脚本调用系统的关机对话框

来源：百度文库编辑：神马文学网时间：2024/04/27 14:27:59

使用脚本调用系统的关机对话框收藏
以前有介绍如何使用命令行调用系统的关机对话框：http://blog.csdn.net/scz123/archive/2005/09/30/492991.aspx
具体方法：开始／运行：rundll32.exe shell32.dll #60
但是，上述方法会存在一问题，XP下无法正常使用该方法进行关机（感谢网友沐烨发现该问题）。问题原因可能是：正常情况下，关机对话框是有explorer.exe调用，直接使用rundll32调用时无法触发相关命令。
既然使用explorer.exe调用可以，我们可以尝试使用脚本来实现。实现原理：
激活explorer.exe
按ALT＋F4
编写VBS脚本如下（将下述内容另存为shutdown.vbs）：
Dim objWMI,wsh
Dim colProcesses,objProcess
pid=0
set objWMI = GetObject( "winmgmts:{impersonationLevel=impersonate}\\. \root\cimv2" )
set colProcesses = objWMI.ExecQuery( "SELECT * FROM Win32_Process" & _
" WHERE Name='explorer.exe'" )
for Each objProcess In colProcesses
pid = objProcess.ProcessId
Next
set wsh = WScript.CreateObject("WScript.Shell")
wsh.AppActivate pid
wsh.sendKeys "%{F4}"
上述脚本运行环境为：XP SP2
其他环境也可能正常工作，不过对于有多个explorer.exe进程的系统，就可能不正常工作了，如开了远程终端服务的多用户环境下。
发表于 @ 2008年01月14日　12:17:00 | 评论( 1 ) | 编辑| 举报| 收藏
旧一篇:我在显示器里养了条小鱼 | 新一篇:SVCHOST错误对话框（SVCHOST.exe 26777）
查看最新精华文章请访问博客首页相关文章 netfound 发表于2008年1月15日 15:14:19 IP:举报回复删除
我是下面这么写：
------------------------------------------------------------
dim delay
delay = inputbox("输入要延迟多长时间关机（单位：分）","定时关机小脚本 By netfound","10")
if isNumeric(delay) and delay>=0 Then
WScript.Sleep(delay*60*1000)
dim cmd : set cmd = CreateObject("Wscript.Shell")
cmd.run("shutdown /s /t 0")
set cmd = Nothing
End If
-------------------------------------------------------发表评论
本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/scz123/archive/2008/01/14/2043143.aspx

使用脚本调用系统的关机对话框使用脚本调用系统的关机对话框使用 Linux 系统调用的内核命令使用脚本恢复Windows XP系统的用户密码使用 Linux 系统调用的内核命令1 实现定义关机的批处理脚本实现定义关机的批处理脚本 [交流]关于对话框DoModal()函数调用失败的原因分析添加简单的系统调用(使用2.6.16.11内核) - System Call - lxcr... 问专家-如何调用"拨号网络"中某个"连接"的属性对话框使用PHP脚本修改Linux或Unix系统口令使用PHP脚本修改Linux或Unix系统口令直接调用内置数据源连接对话框深入理解Linux的系统调用 ARM linux系统调用的实现原理我的电脑系统强行关机怎么办 shell中调用另外的脚本文件的两种方法 MS-DOS脚本编程[5]-模块调用深入浅出Win2000 (xp)计算机启动/关机脚本 Linux系统调用 Linux系统调用讲义 Linux系统调用讲义 read 系统调用剖析系统调用过程