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