Declare Function IsPwrHibernateAllowed Lib "Powrprof.dll" () As Long
Если компьютер поддерживает спящий режим (power state S4) и в системе присутствует файл Hiberfil.sys, то функция возвращает True. Иначе возвращается False
Функция не имеет параметров
If IsPwrHibernateAllowed() = 0 Then
MsgBox "Ваш компьютер не поддерживает спящий режим"
End If