פורסם במקור בפורום CODE613 ב10/10/2013 19:01 (+03:00)

פורסם במקור בפורום CODE613 ב10/10/2013 15:11 (+03:00)

Public Class Form1

    Private Sub ButtonOn_Click(sender As System.Object, e As System.EventArgs) Handles ButtonOn.Click
        'שומר על על המחשב ער
        Power.SaveOn()
    End Sub

    Private Sub ButtonOff_Click(sender As System.Object, e As System.EventArgs) Handles ButtonOff.Click
        'מפסיק לשמור על המחשב ער
        Power.SaveOff()
    End Sub

End Class

Public Class Power

    Shared WithEvents Timer1 As New Timer With {.Enabled = False, .Interval = 100}

    Private Declare Function SetThreadExecutionState _
        Lib "kernel32" _
        Alias "SetThreadExecutionState" (ByVal esFlags As EXECUTION_STATE) As EXECUTION_STATE

    Private Shared esFlags As UInteger = EXECUTION_STATE.ES_CONTINUOUS

    Public Enum EXECUTION_STATE As UInteger
        ES_AWAYMODE_REQUIRED = 64
        ES_CONTINUOUS = 2147483648
        ES_DISPLAY_REQUIRED = 2
        ES_SYSTEM_REQUIRED = 1
        ES_USER_PRESENT = 4
    End Enum

    Public Shared Function SaveOff() As EXECUTION_STATE
        Timer1.Enabled = False
        Return SetThreadExecutionState(EXECUTION_STATE.ES_CONTINUOUS)
    End Function

    Public Shared Sub SaveOn()
        esFlags = EXECUTION_STATE.ES_CONTINUOUS Or
            EXECUTION_STATE.ES_SYSTEM_REQUIRED Or
            EXECUTION_STATE.ES_AWAYMODE_REQUIRED
        Timer1.Enabled = True
    End Sub

    Private Shared Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        SetThreadExecutionState(esFlags)
    End Sub

End Class

פורסם במקור בפורום CODE613 ב10/10/2013 14:58 (+03:00)

ג. גם כדי לנטרל הירדמות אוטומטית אחר כמה דקות הפונקציה לא מועילה אם קוראים לה פעם אחת בלבד.
למסקנה:
יש להפעיל טיימר שקורא לפונקציה בתדירות גבוה כמה פעמים בשניה. ואז המחשב לא עובר למצב שינה בצורה אוטומטית, אבל כן יעבור למצב שינה ע''י לחצן שינה.

גם אם בדקת היטב את הפונקציה (וקראת לפונקצייה PowerSaveOff ולא לשנייה עד תום הדחיסה),
עדיין אל תעשה "מסקנות". לעצמך עשה מה שאתה רוצה, אבל אין זה אומר שזה הדרך היחידה.

מה יכול להיות? לא יודע. נסה להחליף את הערך הזה: &H1 בזה &H40.

כדי למנוע מהמשתמש להכניס לישון ידנית זה דורש מן הסתם הרשאות מנהל.
אינני יודע לעת עתה על דרך לזה.

פורסם במקור בפורום CODE613 ב10/10/2013 14:21 (+03:00)

ב. הפונקציה לא מועילה כאשר לוחצים בתפריט התחל על שינה.

ג. גם כדי לנטרל הירדמות אוטומטית אחר כמה דקות הפונקציה לא מועילה אם קוראים לה פעם אחת בלבד.

למסקנה:
יש להפעיל טיימר שקורא לפונקציה בתדירות גבוה כמה פעמים בשניה. ואז המחשב לא עובר למצב שינה בצורה אוטומטית, אבל כן יעבור למצב שינה ע''י לחצן שינה.

פורסם במקור בפורום CODE613 ב10/10/2013 13:56 (+03:00)

אצלי בוינדוס 7 מוגדר שאחרי שלוש דקות ללא פעילות המחשב הולך לישון, כאשר הוא על סוללה.
הפעלתי תוכנה שכתבתי שדוחסת לזיפ כמות גדולה של קבצים ותוך כדי פעולה המחשב הלך לישון, כשהוא התעורר קיבלתי הודעת שגיאה שאי אפשר להמשיך לכתוב את הזיפ, כיון שההתקן החיצוני שבו נשמר הזיפ מתנתק בזמן שינה ומתחבר מחדש בהתעוררות.

זה הקוד שיש שמסתובב באינטרנט, אני לא יכול לנסות, תנסה אתה:

Private Declare Function SetThreadExecutionState Lib "kernel32" (ByVal esFlags As EXECUTION_STATE) As EXECUTION_STATE
Public Enum EXECUTION_STATE As Integer
    ES_CONTINUOUS = &H80000000
    ES_DISPLAY_REQUIRED = &H2
    ES_SYSTEM_REQUIRED = &H1
End Enum
Public Function PowerSaveOff() As EXECUTION_STATE
    Return SetThreadExecutionState(EXECUTION_STATE.ES_SYSTEM_REQUIRED Or EXECUTION_STATE.ES_DISPLAY_REQUIRED Or EXECUTION_STATE.ES_CONTINUOUS)
End Function
Public Function PowerSaveOn() As EXECUTION_STATE
    Return SetThreadExecutionState(EXECUTION_STATE.ES_CONTINUOUS)
End Function

קריאה לPowerSaveOff אמורה לנטרל את ההירדמות האוטומטית.
כשגומרים את הפעולה, לקרוא לPowerSaveOn כדי להחזיר את המצב הרגיל.

פורסם במקור בפורום CODE613 ב10/10/2013 11:29 (+03:00)

פורסם במקור בפורום CODE613 ב09/10/2013 21:57 (+03:00)

פורסם במקור בפורום CODE613 ב09/10/2013 15:21 (+03:00)

תודה לכולם!

פורסם במקור בפורום CODE613 ב08/10/2013 20:51 (+03:00)

פורסם במקור בפורום CODE613 ב22/08/2013 19:34 (+03:00)

פורסם במקור בפורום CODE613 ב20/08/2013 11:36 (+03:00)

פורסם במקור בפורום CODE613 ב20/08/2013 11:21 (+03:00)