Calling Win32 API Functions in VB 2010 - Listing 5

Public Class Hibernate

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles Button1.Click
        If (Win32API.IsPwrHibernateAllowed() <> 0) Then
            Win32API.SetSuspendState(1, 0, 0)
            MessageBox.Show("Hibernation is not available.")
        End If
    End Sub

    Partial Public Class Win32API

        Public Declare Function IsPwrHibernateAllowed Lib "Powrprof.dll" _
            Alias "IsPwrHibernateAllowed" () As Integer

        Public Declare Function SetSuspendState Lib "Powrprof.dll" _
            Alias "SetSuspendState" (ByVal Hibernate As Integer,
                                     ByVal ForceCritical As Integer,
                                     ByVal DisableWakeEvent As Integer) As Integer

    End Class

End Class

About the Author

Joe Kunk is a Microsoft MVP in Visual Basic, three-time president of the Greater Lansing User Group for .NET, and developer for Dart Container Corporation of Mason, Michigan. He's been developing software for over 30 years and has worked in the education, government, financial and manufacturing industries. Kunk's co-authored the book "Professional DevExpress ASP.NET Controls" (Wrox Programmer to Programmer, 2009). He can be reached via email at [email protected].

comments powered by Disqus


  • Entity Framework Core 6: What Developers Want

    Microsoft outlined its plan for Entity Framework Core 6, which in November will take its place as the data access component of the landmark .NET 6, a long-term support (LTS) release that will mark Microsoft's transition from the Windows-only .NET Framework to an open source, cross-platform umbrella offering of all things .NET.

  • AWS Open Sources .NET Porting Assistant GUI

    After previously open sourcing components of its Porting Assistant for .NET, Amazon Web Services open sourced the tool's GUI.

  • .NET Core Ranks High Among Frameworks in New Dev Survey

    .NET Core placed high in a web-dominated ranking of development frameworks published by CodinGame, which provides a tech hiring platform.

  • Here's a One-Stop Shop for .NET 5 Improvements

    Culled from reams of Microsoft documentation, here's a high-level summary of what's new for performance, networking, diagnostics and more, along with links to the nitty-gritty details for those wanting to dig in more.

Upcoming Events