[PC]XP強制關閉所有程式並關機

梅干 2009/08/19 1 分鐘閱讀

　　有使用3.5G的朋友們，或是電腦長時間使用，每當要關閉時，常會出現某程式卡住，得按下關閉後才能關機，但某天當梅干使用3.5G更新系統時，發現到當更新完畢後，ｗindows不管目前有那些程式正在執行，一律統統關閉，強制的關機重啟，這不禁讓梅干想到，竟然Windows內建更新完都可強制關機，當在公車或捷運上使用3.5G時，當到站要下車時若能點一下，然後把電腦丟到包包裡，它就會強制的關機，那該有多好。

　　於是請教了一下鄧教授，Windows更新完的強制關機是否有辦法移植出來，只要雙響它二下，電腦也可以強制的自動關機，哈～教授果真不是喊假的，還真的是可以，且經梅干這幾個月的測試，還沒有出現關不了機的，凡要關機只要雙響它，電腦就會自動的強制關閉目前所有程式，並且自動關機，這真的相當方便。

Step1
開啟記事本，輸入下方語法，並另存成Powseroff.vbs。
Powseroff.vbs

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = 'Mobile Connect.exe'")
For Each objProcess in colProcessList
    objProcess.Terminate()
Next
Set colOperatingSystems = _
GetObject(“winmgmts:{(Shutdown)}”).ExecQuery(“Select * from Win32_OperatingSystem”)
For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Win32Shutdown(1)
Next

Step2
以後關機只要雙響Powseroff.vbs，就可收包包打洋收工啦！

[範例下載] ※解壓密碼：minwt.com