激活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}"