☰

como inicializar itens somente quando o laptop estiver conectado

tag-icon • tag-icon windows-7 windows windows-8 windows-8.1 boot
como inicializar itens somente quando o laptop estiver conectado

Estou executando o Windows 8.1 (mas isso não importa) em um laptop e queria saber se seria possível modificar o processo de inicialização de uma forma que:

Certos programas SÓ iniciam quando você está conectado (energia) e outros programas SOMENTE iniciam quando você NÃO está conectado.

Isso é possível.. e se sim, como?

Responder1

Não sei se existem utilitários de terceiros para fazer isso, mas o Windows possui mecanismos integrados para monitorar o status da bateria. A boa notícia é que ele disponibiliza para você muitas informações sobre sua bateria. A má notícia é que isso não facilita em nada seu uso.

Uma ótima maneira de conseguir o que deseja é usar um script para iniciar seus aplicativos. Eu criei um script de exemplo abaixo. Basta copiar/colar no Bloco de Notas, ajustá-lo como quiser e depoissalve-o como um arquivo com extensão .vbs. Depois de funcionar, você pode colocá-lo em seu grupo de inicialização ou qualquer outro lugar.

OBSERVAÇÃO:Este script é apenas algo que criei em dez minutos. Deveria começar, mas não o testei completamente. Os valores retornados por BatteryStatus estão documentados emesta página do MSDN. Talvez seja necessário experimentar para ver qual valor é relatado em quais circunstâncias.

Option Explicit

Const execApp1 = "application string goes here"
Const execApp2 = "example:   "c:\full\path\to.exe /arg1 /arg2"
Const execApp3 = "Use double quotes around things with spaces ""like so""."

Dim objShell :Set objShell = CreateObject("WScript.Shell")
Dim objWMI :Set objWMI = GetObject("winmgmts:\\.\root\CIMV2")
Dim objBatteries :Set objBatteries = objWMI.ExecQuery("SELECT * FROM Win32_Battery",,48)
Dim objBattery :Set objBattery = Nothing

Dim onACPower :onACPower = False

For Each objBattery in objBatteries
    If objItem.BatteryStatus = 2 Then   '2 is the value I got on a full battery. You may need to experiment with this.
        onACPower = True
    End If
Next

'Here's where you decide if you're on battery or AC and what to run in each case.
If onACPower = True Then objShell.Run execApp1, 0, False
If onACPower = False Then objShell.Run execApp2, 0, False
If onACPower = True Then objShell.Run execApp3, 0, False

Responder2

Obrigado a Wes Sayeed por me indicar a direção certa, aqui está o resultado final. Observe, entretanto, que os programas podem não estar rodando da mesma forma que no seu computador, pois usei-os como exemplo e qualquer sintaxe adicionada pode não ter nada a ver. faça com os programas como você os conhece ...

Option Explicit

Const execApp1 = """C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe"""
Const execApp2 = """C:\Users\MyProfile\AppData\Roaming\SomeProgram\bin\SomeProgram.exe"" /systemstartup"

Dim strComputer
strComputer = "."

Dim objShell :Set objShell = CreateObject("WScript.Shell")
Dim objWMIService :Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\wmi")
Dim colItems :Set colItems = objWMIService.ExecQuery("Select * From BatteryStatus Where Voltage > 0")
Dim objItem :Set objItem = Nothing

For Each objItem in colItems
'*    Wscript.Echo "On AC Power: " & objItem.PowerOnline
    If objItem.PowerOnline = "True" Then objShell.Run execApp1, 0, False
    If objItem.PowerOnline = "True" Then objShell.Run execApp2, 0, False
Next

Portanto, agora 'thunderbird' e 'someprogram' são executados na inicialização SOMENTE quando o laptop está desconectado do cabo de alimentação. Para lhe dar mais algumas informações:

For Each objItem in colItems
    Wscript.Echo "Battery: " & objItem.InstanceName
    Wscript.Echo "On AC Power: " & objItem.PowerOnline
    Wscript.Echo "Battery is Discharging: " & objItem.Discharging
    Wscript.Echo "Battery is Charging: " & objItem.Charging
    Wscript.Echo "Remaining capacity: " & objItem.RemainingCapacity
Next

lhe dará mais informações... resultando em (quando desconectado):

Battery: ACPI\PNP0C0A\1_0
On AC Power: False
Battery is Discharging: True
Battery is Charging: False
Remaining capacity: 41769

E se conectarmos o computador e tentarmos o script novamente, receberemos informações semelhantes a esta:

Battery: ACPI\PNP0C0A\1_0
On AC Power: True
Battery is Discharging: False
Battery is Charging: True
Remaining capacity: 42273

Portanto, em meu script final, verifiquei apenas se a alimentação CA estava LIGADA, independentemente de a bateria estar carregando ou descarregando. (fonte:Olá, equipe de scripts! Blog - Como posso saber se um laptop está sem bateria?

informação relacionada