首页 > 编程 > VBScript > 正文

使用脚本调用系统的关机对话框实现代码

2020-06-26 18:30:52
字体:
来源:转载
供稿:网友
以前有介绍如何使用命令行调用系统的关机对话框rundll32.exe shell32.dll #60,但是,上述方法会存在一问题,XP下无法正常使用该方法进行关机
 
以前有介绍如何使用命令行调用系统的关机对话框: 
具体方法:开始/运行: 
复制代码代码如下:

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进程的系统,就可能不正常工作了,如开了远程终端服务的多用户环境下。
 

发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表