系統, 電腦不求人

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

梅干 2009/08/19
梅問題-電腦不求人-WinXP快速強制關機
  有使用3.5G的朋友們,或是電腦長時間使用,每當要關閉時,常會出現某程式卡住,得按下關閉後才能關機,但某天當梅干使用3.5G更新系統時,發現到當更新完畢後,windows不管目前有那些程式正在執行,一律統統關閉,強制的關機重啟,這不禁讓梅干想到,竟然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