Visual Basic 6 - controllare l'alimentazione del pc

Forum - Visual Basic 6 - controllare l'alimentazione del pc

robycost (Normal User)
Pro

Messaggi: 77
Iscritto: 23/03/2008

Postato alle 15:51
Martedì, 05/10/2010

Ciao a tutti, vorrei inserire nel mio progetto con VB6 un controllo che mi pertesse di visualizzare se il mio portatile sfrutta la rete elettrica opp la Batteria e se possibile visualizzare anche il livello della medesima.

Grazie tante

P.S.

Grazie per il codice e gli esempi !!!

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 15:38
Mercoledì, 06/10/2010

Su internet ho trovato questo esempio:

Codice sorgente - presumibilmente VB.NET

Private Type SYSTEM_POWER_STATUS
    ACLineStatus As Byte
    BatteryFlag As Byte
    BatteryLifePercent As Byte
    Reserved1 As Byte
    BatteryLifeTime As Long
    BatteryFullLifeTime As Long
    End Type
Private Declare Function GetSystemPowerStatus Lib "kernel32" (lpSystemPowerStatus As SYSTEM_POWER_STATUS) As Long
 
Private Sub Timer1_Timer()
 
Dim SPS As SYSTEM_POWER_STATUS
 
GetSystemPowerStatus SPS
 
Select Case SPS.ACLineStatus
    Case 0
    Label1 = "Tipo alimentazione: Batteria"
    Case 1
    Label1 = "Tipo alimentazione: Rete"
    Case 2
    Label1 = "Tipo alimentazione: Sconosciuto"
End Select
 
Select Case SPS.BatteryFlag
    Case 1
    Label2 = "Livello batteria: Alto"
    Case 2
    Label2 = "Livello batteria: Basso"
    Case 4
    Label2 = "Livello batteria: Critico"
    Case 8
    Label2 = "Livello batteria: In carica"
    Case 128
    Label2 = "Livello batteria: Nessuna batteria inserita"
    Case 255
    Label2 = "Livello batteria: Sconosciuto"
End Select
 
End Sub

Aggiungi al form label1, label2 con AutoSize = True e un timer con interval = 100