脚本之家,脚本语言编程技术及教程分享平台!
分类导航

Python|VBS|Ruby|Lua|perl|VBA|Golang|PowerShell|Erlang|autoit|Dos|bat|

服务器之家 - 脚本之家 - VBS - 使用脚本调用系统的关机对话框实现代码

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

2020-08-05 11:04脚本之家 VBS

以前有介绍如何使用命令行调用系统的关机对话框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进程的系统,就可能不正常工作了,如开了远程终端服务的多用户环境下。

延伸 · 阅读

精彩推荐