Skip to content

Windows 10 Hibernate & Clear Shutdown Timer #6

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Closed
gbakeman wants to merge 2 commits into from
Closed

Windows 10 Hibernate & Clear Shutdown Timer #6

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
82cdfe6
Update WinNUT.vb
g-cranston Feb 15, 2022
0db1219
Update Shutdown_Gui.vb
g-cranston Feb 16, 2022
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
8 changes: 7 additions & 1 deletion WinNUT_V2/WinNUT_GUI/Shutdown_Gui.vb
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -97,6 +97,12 @@ Public Class Shutdown_Gui
System.Threading.Thread.Sleep(1000)
WinNUT.Shutdown_Action()
Run_Timer.Enabled = False
Me.Shutdown_Timer.Stop()
Me.Shutdown_Timer.Enabled = False
Me.Grace_Timer.Stop()
Me.Grace_Timer.Enabled = False
Me.Hide()
Me.Close()
End Sub

Private Sub Run_Timer_Tick(sender As Object, e As EventArgs) Handles Run_Timer.Tick
Expand Down Expand Up @@ -137,4 +143,4 @@ Public Class Shutdown_Gui
e.Cancel = True
End If
End Sub
End Class
End Class
6 changes: 3 additions & 3 deletions WinNUT_V2/WinNUT_GUI/WinNUT.vb
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -100,7 +100,7 @@ Public Class WinNUT
Private Event On_Line()
Private Event UpdateNotifyIconStr(ByVal Reason As String, ByVal Message As String)
Private Event UpdateBatteryState(ByVal Reason As String)
Declare Function SetSystemPowerState Lib "kernel32" (ByVal fSuspend As Integer, ByVal fForce As Integer) As Integer
Declare Function SetSuspendState Lib "PowrProf" (ByVal Hibernate As Integer, ByVal ForceCritical As Integer, ByVal DisableWakeEvent As Integer) As Integer

Public Property UpdateMethod() As String
Get
Expand Down Expand Up @@ -980,9 +980,9 @@ Public Class WinNUT
Case 0
Process.Start("C:\WINDOWS\system32\Shutdown.exe", "-f -s -t 0")
Case 1
SetSystemPowerState(True, 0)
SetSuspendState(False, False, True) 'Suspend
Case 2
SetSystemPowerState(False, 0)
SetSuspendState(True, False, True) 'Hibernate
End Select
End Sub

Expand Down