Возможноли автоматическое включение ПК через скрипт?

Ответить
Аватара пользователя
Anarasius

Возможноли автоматическое включение ПК через скрипт?

Сообщение Anarasius »

Можно ли сделать так чтобы скрипт запрограммировал компьютер на включение, если нет, то я слышал что можно через скрипт вывести компьютер из спящего режима так как это можно сделать или
Вернуться к началу
Аватара пользователя
Anarasius

Re: Возможноли автоматическое включение ПК через скрипт?

Сообщение Anarasius »

Цитата Anarasius:



Можно ли сделать так чтобы скрипт запрограммировал компьютер на включение
Возможноли автоматическое включение ПК через скрипт?




Интересно, а скрипт будет запущен виртуально? Изображение




Цитата Anarasius:



можно через скрипт вывести компьютер из спящего режима
Возможноли автоматическое включение ПК через скрипт?




Вроде можно:





Код:

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

#include 
SetWakeUpTime(@HOUR, @MIN + 2) ;wakeup the system in 2 minutes from now
SetSuspend() ;go to hibernate mode
;===============================================================================
;
; Description:    Set the computer in Hibernate or Standby Status
; Parameter(s):  $Mode  - Suspend mode  : True=Hibernate, False=Suspend
;                   $Force  - Force-Mode    : True=the system suspends operation immediately
;                                             False=FALSE, the system broadcasts a PBT_APMQUERYSUSPEND event to each application to request permission to suspend operation
;
; Requirement(s):   DllCall
;
; Author(s):        Bastel123 aka Sebastian
; Note(s):        If the system does not support hibernate use the standby mode       -
;
;===============================================================================
Func SetSuspend($mode = True, $force = True)
    $result = DllCall("PowrProf.dll", "long", "SetSuspendState", "long", $mode, "long", $force, "long", False)
EndFunc   ;==>SetSuspend
;===============================================================================
;
; Description:    Sets a wakeup time to wake it up if the system / computer is hibernating or standby
; Parameter(s):  $Hour  - Hour Values   : 0-23
;                   $Minute - Minutes Values: 0-59
;                   $Day    - Days Values   : 1-31  (optional)
;                  $Month   - Month Values  : 1-12  (optional)
;                  $Year    - Year Values   : > 0   (optional)
;
; Requirement(s):   DllCall
; Return Value(s):  On Success - 1
;                  On Failure - 0 sets @ERROR = 1 and @EXTENDED (Windows API error code)
;
; Error code(s):    http://msdn.microsoft.com/library/default....error_codes.asp
;
; Author(s):        Bastel123 aka Sebastian
; Note(s):        -
;
;===============================================================================
Func SetWakeUpTime($Hour, $Minute, $Day = @MDAY, $Month = @MON, $Year = @YEAR)
    $SYSTEMTIME = DllStructCreate("ushort;ushort;ushort;ushort;ushort;ushort;ushort;ushort")
    $lpSYSTEMTIME = DllStructGetPtr($SYSTEMTIME)
    $LOCALFILETIME = DllStructCreate("dword;dword")
    $lpLOCALFILETIME = DllStructGetPtr($LOCALFILETIME)
    $DueTime = DllStructCreate("dword;dword")
    $lpDueTime = DllStructGetPtr($DueTime)
    DllStructSetData($SYSTEMTIME, 1, $Year)
    DllStructSetData($SYSTEMTIME, 2, $Month)
    DllStructSetData($SYSTEMTIME, 3, _DateToDayOfWeek($Year, $Month, $Day) - 1)
    DllStructSetData($SYSTEMTIME, 4, $Day)
    DllStructSetData($SYSTEMTIME, 5, $Hour)
    DllStructSetData($SYSTEMTIME, 6, $Minute)
    DllStructSetData($SYSTEMTIME, 7, 0)
    DllStructSetData($SYSTEMTIME, 8, 0)
    $result = DllCall("kernel32.dll", "long", "SystemTimeToFileTime", "ptr", $lpSYSTEMTIME, "ptr", $lpLOCALFILETIME)
    If $result[0] = 0 Then
        Local $lastError = DllCall("kernel32.dll", "int", "GetLastError")
        Return SetError(1, $lastError[0], 0)
    EndIf
    $result = DllCall("kernel32.dll", "long", "LocalFileTimeToFileTime", "ptr", $lpLOCALFILETIME, "ptr", $lpLOCALFILETIME)
    If $result[0] = 0 Then
        Local $lastError = DllCall("kernel32.dll", "int", "GetLastError")
        Return SetError(1, $lastError[0], 0)
    EndIf
    $result = DllCall("kernel32.dll", "long", "CreateWaitableTimer", "long", 0, "long", True, "str", "")
    If $result[0] = 0 Then
        Local $lastError = DllCall("kernel32.dll", "int", "GetLastError")
        Return SetError(1, $lastError[0], 0)
    EndIf
    DllCall("kernel32.dll", "none", "CancelWaitableTimer", "long", $result[0])
    DllStructSetData($DueTime, 1, DllStructGetData($LOCALFILETIME, 1))
    DllStructSetData($DueTime, 2, DllStructGetData($LOCALFILETIME, 2))
    $result = DllCall("kernel32.dll", "long", "SetWaitableTimer", "long", $result[0], "ptr", $lpDueTime, _
        "long", 1000, "long", 0, "long", 0, "long", True)
    If $result[0] = 0 Then
        Local $lastError = DllCall("kernel32.dll", "int", "GetLastError")
        Return SetError(1, $lastError[0], 0)
    EndIf
    Return 1
EndFunc   ;==>SetWakeUpTime

Источник
Вернуться к началу
Аватара пользователя
Creat0R

Re: Возможноли автоматическое включение ПК через скрипт?

Сообщение Creat0R »

Не совсем я там разобрался мне надо что бы ПК каждый день уходил в спящий режим в 22.55 а включался в 9.55
Вернуться к началу
Аватара пользователя
Anarasius

Re: Возможноли автоматическое включение ПК через скрипт?

Сообщение Anarasius »

Не совсем я там разобрался мне надо что бы ПК каждый день уходил в спящий режим в 22.55 а включался в 9.55
Вернуться к началу
Аватара пользователя
kaster

Re: Возможноли автоматическое включение ПК через скрипт?

Сообщение kaster »

Примерно так. Но Creat0R если что поправит



Код:

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

#include 
While 1; цикл для проверки времени
    If @HOUR = 22 AND @MIN = 55 Then; если время нужное, то...
        $sFuture = _DateAdd('D', 1, _NowCalcDate()); вычислить завтрашнюю дату
        $aFuture = StringSplit($sFuture, '/'); найти день/меся/год
        SetWakeUpTime(9, 55, $aFuture[3], $aFuture[2], $aFuture[1]); задать время для выхода из спящего режима
        SetSuspend() ;уйти в спящий режим
    Else
        Sleep(100)
    EndIf
WEnd
;===============================================================================
;
; Description:    Set the computer in Hibernate or Standby Status
; Parameter(s):  $Mode  - Suspend mode  : True=Hibernate, False=Suspend
;                   $Force  - Force-Mode    : True=the system suspends operation immediately
;                                             False=FALSE, the system broadcasts a PBT_APMQUERYSUSPEND event to each application to request permission to suspend operation
;
; Requirement(s):   DllCall
;
; Author(s):        Bastel123 aka Sebastian
; Note(s):        If the system does not support hibernate use the standby mode       -
;
;===============================================================================
Func SetSuspend($mode = True, $force = True)
    $result = DllCall("PowrProf.dll", "long", "SetSuspendState", "long", $mode, "long", $force, "long", False)
EndFunc   ;==>SetSuspend
;===============================================================================
;
; Description:    Sets a wakeup time to wake it up if the system / computer is hibernating or standby
; Parameter(s):  $Hour  - Hour Values   : 0-23
;                   $Minute - Minutes Values: 0-59
;                   $Day    - Days Values   : 1-31  (optional)
;                  $Month   - Month Values  : 1-12  (optional)
;                  $Year    - Year Values   : > 0   (optional)
;
; Requirement(s):   DllCall
; Return Value(s):  On Success - 1
;                  On Failure - 0 sets @ERROR = 1 and @EXTENDED (Windows API error code)
;
; Error code(s):    http://msdn.microsoft.com/library/default....error_codes.asp
;
; Author(s):        Bastel123 aka Sebastian
; Note(s):        -
;
;===============================================================================
Func SetWakeUpTime($Hour, $Minute, $Day = @MDAY, $Month = @MON, $Year = @YEAR)
    $SYSTEMTIME = DllStructCreate("ushort;ushort;ushort;ushort;ushort;ushort;ushort;ushort")
    $lpSYSTEMTIME = DllStructGetPtr($SYSTEMTIME)
    $LOCALFILETIME = DllStructCreate("dword;dword")
    $lpLOCALFILETIME = DllStructGetPtr($LOCALFILETIME)
    $DueTime = DllStructCreate("dword;dword")
    $lpDueTime = DllStructGetPtr($DueTime)
    DllStructSetData($SYSTEMTIME, 1, $Year)
    DllStructSetData($SYSTEMTIME, 2, $Month)
    DllStructSetData($SYSTEMTIME, 3, _DateToDayOfWeek($Year, $Month, $Day) - 1)
    DllStructSetData($SYSTEMTIME, 4, $Day)
    DllStructSetData($SYSTEMTIME, 5, $Hour)
    DllStructSetData($SYSTEMTIME, 6, $Minute)
    DllStructSetData($SYSTEMTIME, 7, 0)
    DllStructSetData($SYSTEMTIME, 8, 0)
    $result = DllCall("kernel32.dll", "long", "SystemTimeToFileTime", "ptr", $lpSYSTEMTIME, "ptr", $lpLOCALFILETIME)
    If $result[0] = 0 Then
        Local $lastError = DllCall("kernel32.dll", "int", "GetLastError")
        Return SetError(1, $lastError[0], 0)
    EndIf
    $result = DllCall("kernel32.dll", "long", "LocalFileTimeToFileTime", "ptr", $lpLOCALFILETIME, "ptr", $lpLOCALFILETIME)
    If $result[0] = 0 Then
        Local $lastError = DllCall("kernel32.dll", "int", "GetLastError")
        Return SetError(1, $lastError[0], 0)
    EndIf
    $result = DllCall("kernel32.dll", "long", "CreateWaitableTimer", "long", 0, "long", True, "str", "")
    If $result[0] = 0 Then
        Local $lastError = DllCall("kernel32.dll", "int", "GetLastError")
        Return SetError(1, $lastError[0], 0)
    EndIf
    DllCall("kernel32.dll", "none", "CancelWaitableTimer", "long", $result[0])
    DllStructSetData($DueTime, 1, DllStructGetData($LOCALFILETIME, 1))
    DllStructSetData($DueTime, 2, DllStructGetData($LOCALFILETIME, 2))
    $result = DllCall("kernel32.dll", "long", "SetWaitableTimer", "long", $result[0], "ptr", $lpDueTime, _
        "long", 1000, "long", 0, "long", 0, "long", True)
    If $result[0] = 0 Then
        Local $lastError = DllCall("kernel32.dll", "int", "GetLastError")
        Return SetError(1, $lastError[0], 0)
    EndIf
    Return 1
EndFunc   ;==>SetWakeUpTime
Вернуться к началу
Аватара пользователя
Малый

Re: Возможноли автоматическое включение ПК через скрипт?

Сообщение Малый »

Creat0R, kaster, можете сделать похожий скрипт, чтобы комп уходил в ждущий режим а не в спящий?

Спасибо.
Вернуться к началу
Аватара пользователя
kaster

Re: Возможноли автоматическое включение ПК через скрипт?

Сообщение kaster »

Могу только предположить, что надо вызвать функцию SetSuspend с первым параметром False. Попробуй



Код:

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

SetSuspend(False)
Вернуться к началу
Аватара пользователя
Малый

Re: Возможноли автоматическое включение ПК через скрипт?

Сообщение Малый »

Попробовал, уходит действительно в ждущий режим. Но не выходит из него сам, включал комп вручную.

Пробовал потом менять оба параметра, т.е. так Func SetSuspend($mode = False, $force = False)

Тоже уходит в ждущий и не выходит из него. Второй параметр поменял наугад, думал что это поможет Изображение



После вывода из ждущего режима у меня почемуто глючит интернет. Модем не устанавливает соединение Изображение

Если у кого-то будет тоже повторятся глюк, то нужно просто перезагрузить комп.
Вернуться к началу
Аватара пользователя
kaster

Re: Возможноли автоматическое включение ПК через скрипт?

Сообщение kaster »

Где-то писали, что для корректного ухода в ждущий режим, необходимо чтобы Hibernate был отключен в опциях электропитания. Может поможет
Вернуться к началу
Аватара пользователя
Малый

Re: Возможноли автоматическое включение ПК через скрипт?

Сообщение Малый »

Запустил скрипт, только время поставил свое. Решил попробовать спящий режим потому что из ждущего он не выходит сам.

Комп ушел в спящий режим и в назначенное время запустился, но вместо загрузки он выдал BSOD.

О чем говорилось на экране я непонял, все на англ конечно. Сделал скрины мобилкой, и для удобочитаемости сделал скрины черно-белыми.

Это у меня с ноутом ерунда какая-то, или у вас тоже так?



Ниже сами скрины и код скрипта который пробовал.









потом еще





скрипт Sleep.au3

Вроде все нормально, или время ноль часов нужно с двумя нолями указывать? Я поставил один ноль...



Код:

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

#include 
While 1; цикл для проверки времени
    If @HOUR = 23 AND @MIN = 55 Then; если время нужное, то...
        $sFuture = _DateAdd('D', 1, _NowCalcDate()); вычислить завтрашнюю дату
        $aFuture = StringSplit($sFuture, '/'); найти день/меся/год
        SetWakeUpTime(0, 05, $aFuture[3], $aFuture[2], $aFuture[1]); задать время для выхода из спящего режима
        SetSuspend() ;уйти в спящий режим
    Else
        Sleep(100)
    EndIf
WEnd
;

kaster, спасибо. В управлении у меня отключены спящий и ждущий режимы. На вкладке спящего режима галка есть, разрешить использование спящего режима[/i].
Вернуться к началу
Ответить

Вернуться в «AutoIt»