Configure a ação do botão liga / desliga do Windows XP para "Não fazer nada" com configuração de script ou registro

Question

Como defino a opção "Quando eu pressionar o botão liga / desliga no meu computador:" no Windows XP para "Não fazer nada" com uma chave de registro ou script?

Eu encontrei este exemplo na pesquisa, no entanto, é suposto ser para o botão de suspensão, e não parece funcionar.

Eu encontrei essas chaves, mas não tenho idéia do valor correto, pois é REG_BINARY

HKLM\SYSTEM\ControlSet001\Control\Session Manager\Power\AcPolicy
HKLM\SYSTEM\ControlSet001\Control\Session Manager\Power\DcPolicy
HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Power\AcPolicy
HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Power\DcPolicy

    

Answer 1

Como não consegui descobrir os valores de chave de registro apropriados, acabei escrevendo um script para automatizar a caixa de diálogo. E desde que eu estava usando AutoIT para outras coisas, é o que eu usei. Espero que isso possa ajudar alguém.

#include <GuiTab.au3>
; Start the System control panel
Run("rundll32.exe shell32.dll,Control_RunDLL powercfg.cpl,,3")

$title = "Power Options Properties"
$text = ""
WinWait( $title, $text)
If Not WinActive( $title, $text) Then WinActivate( $title, $text)
WinWaitActive( $title, $text)

;select the 'Advanced' tab
$hTab = ControlGetHandle( $title, $text, "[CLASS:SysTabControl32; INSTANCE:1]")
_GUICtrlTab_ClickTab($hTab, 1)
Sleep(10)

;set the combobox to 'Do nothing'
ControlCommand( $title, $text, "[CLASS:ComboBox; INSTANCE:2]", "SelectString", "Do nothing")
Sleep(10)

;click OK
ControlClick( $title, $text, "[CLASS:Button; INSTANCE:6]")

O script apenas abre a caixa de diálogo de opções de energia, seleciona a guia avançada, define a combinação para "Não fazer nada" e pressiona OK.

    

Answer 2

Do not know if you are still looking for a solution. I needed something to change the Power Button setting from the default "Shutdown" to "Do nothing", so I wrote this vbscript.

'***************************************************************************************
' File:             pwrDoNothing.vbs
' Author:           Joe Rawlins
' Purpose:          Set system Power Button to 'Do nothing'
'                   
'
' Notes:            Requires button to be held for 5 seconds to initiate shutdown
'                   
'                   
'                   
'
' Last Modified:    06/25/2010  jtr Initial creation
'                   
'***************************************************************************************
Option Explicit

Dim objShell, WshShell

Set objShell = CreateObject("Shell.Application")
Set WshShell = CreateObject("WScript.Shell")

objShell.ControlPanelItem("powercfg.cpl")

WScript.Sleep 500
WshShell.SendKeys "+{TAB}"
WScript.Sleep 500
WshShell.SendKeys "{RIGHT}"
WScript.Sleep 500
WshShell.SendKeys "{TAB 2}"
WScript.Sleep 500
WshShell.SendKeys "{UP 2}"
WScript.Sleep 500
WshShell.SendKeys "{ENTER}"

Fonte de script