茄子在线看片免费人成视频,午夜福利精品a在线观看,国产高清自产拍在线观看,久久综合久久狠狠综合

以前有介紹如何使用命令行調(diào)用系統(tǒng)的關(guān)機(jī)對(duì)話框rundll32.exe shell32.dll #60,但是，上述方法會(huì)存在一問(wèn)題，XP下無(wú)法正常使用該方法進(jìn)行關(guān)機(jī)

以前有介紹如何使用命令行調(diào)用系統(tǒng)的關(guān)機(jī)對(duì)話框：

具體方法：開(kāi)始／運(yùn)行：

代碼如下:

rundll32.exe shell32.dll #60

但是，上述方法會(huì)存在一問(wèn)題，XP下無(wú)法正常使用該方法進(jìn)行關(guān)機(jī)（感謝網(wǎng)友沐燁 發(fā)現(xiàn)該問(wèn)題）。問(wèn)題原因可能是：正常情況下，關(guān)機(jī)對(duì)話框是有explorer.exe調(diào)用，直接使用rundll32調(diào)用時(shí)無(wú)法觸發(fā)相關(guān)命令。

既然使用explorer.exe調(diào)用可以，我們可以嘗試使用腳本來(lái)實(shí)現(xiàn)。實(shí)現(xiàn)原理：

激活explorer.exe

按ALT＋F4

編寫(xiě)VBS腳本如下（將下述內(nèi)容另存為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}"

上述腳本運(yùn)行環(huán)境為：XP SP2

其他環(huán)境也可能正常工作，不過(guò)對(duì)于有多個(gè)explorer.exe進(jìn)程的系統(tǒng)，就可能不正常工作了，如開(kāi)了遠(yuǎn)程終端服務(wù)的多用戶(hù)環(huán)境下。