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

来源：本站原创|时间：2020-01-10|栏目：vb|点击：次

以前有介绍如何使用命令行调用系统的关机对话框：
具体方法：开始／运行：

复制代码代码如下:

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

上一篇：VBS加密14法你会几种 VBS加密免杀浅谈

栏目：vb

下一篇：Win2003里用命令行刷新硬件列表，以扫描硬件改动的实现代码

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

本文地址：https://www.xiuzhanwang.com/a1/vb/7385.html

更多vb

vb

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

您可能感兴趣的文章

阅读排行

本栏相关

随机阅读