Работа с ИБП (УПС)

[Alfa]

Здравствуйте.

Необходимо узнать от УПСа (ИБП, источника бесперебойного питания) откуда идет ток - от батареи или от розетки. UPS - APC Back-UPS CS 650. С ним идет программа, но она просто автоматически переходит в спящий режим при отключении света. В комлекте идет несколько DLL, но они в Visual Basic'е не открывается.

Заранее благодарю.

[GSerg]

Как работать неизвестно с чём?
Без понятия.

А что говорит документация?

[Alfa]

Вся проблема в том, что документации нет.

[Alexanbar]

Сходи на http://www.apc.ru/
может что и накопаешь.

[IvanTheTerrible]

Сходи на http://www.apc.ru/
может что и накопаешь.

Я как-то им даже звонил, пытаясь получить хоть какую-то инфу. Кроме невнятного "мычания" ничего не услышал...

В настоящий момент пользуюсь вот этим. Работает.

Код: Выделить всё

Option Explicit

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

Public Function IsCriticalPowerState() As Boolean
Dim SPS As SYSTEM_POWER_STATUS
    GetSystemPowerStatus SPS
    IsCriticalPowerState = SPS.BatteryLifePercent < 10
    If SPS.BatteryLifePercent <= 95 Then
        frmMain.StatusBar.SimpleText = Format(Time, "hh:mm:ss >> ") & "Батарея заряжена на " & _
            CStr(SPS.BatteryLifePercent) & "%"
    End If
End Function

Public Sub CriticalPowerShutdown()
    frmMain.StatusBar.SimpleText = Format(Time, "hh:mm:ss >> ") & "Батарея блока питания вот-вот разрядится"
End Sub

[/code]

[Sirik]

а как получить подробную информацию о батарее если их 2 и более? интересует вот такая ситуация, когда ноутбук подключен через UPS?
с большинством UPS идет в комплекте утилита, которая позволяет "видеть" подробную информацию по UPS (UPS подключен к PC по usb).

зы. это некропостинг)