27 lines
912 B
VB.net
27 lines
912 B
VB.net
Imports System.Windows.Forms
|
|
Imports System.Reflection
|
|
|
|
Public Class sistema
|
|
Public Shared Function EstadoBateria() As String
|
|
Try
|
|
Dim t As Type = GetType(System.Windows.Forms.PowerStatus)
|
|
Dim pi As PropertyInfo() = t.GetProperties()
|
|
Dim i As Integer
|
|
Dim sEstado As String = ""
|
|
For i = 0 To pi.Length - 1
|
|
Dim propval As Object = pi(i).GetValue(SystemInformation.PowerStatus, Nothing)
|
|
sEstado &= pi(i).Name & " = " & propval.ToString & vbCrLf
|
|
Next i
|
|
Return sEstado
|
|
Catch ex As Exception
|
|
Throw
|
|
End Try
|
|
End Function
|
|
Public Shared Function PorcentajeBateria() As Integer
|
|
Dim power As PowerStatus = SystemInformation.PowerStatus
|
|
Dim percent As Single = power.BatteryLifePercent * 100
|
|
Return percent
|
|
End Function
|
|
|
|
End Class
|