|
Option Explicit On
Option Strict On
Imports Org.Mentalis.Utilities
Imports Microsoft.VisualBasic
Public Class TestApp
Public Shared Sub Main()
Console.WriteLine("Restart Program\r\n--------------\r\n\r\n Select the restart mode:\r\n l - LogOff\r\n p - PowerOff\r\n r - Reboot\r\n s - Shutdown\r\n u - Suspend\r\n h - Hibernate\r\n c - Exit the program\r\n\r\n Make your choice: ".Replace("\r\n", ControlChars.CrLf))
Dim input As String = Console.ReadLine()
Select Case input.ToLower()
Case "l"
WindowsController.ExitWindows(RestartOptions.LogOff, False)
Case "p"
WindowsController.ExitWindows(RestartOptions.PowerOff, False)
Case "r"
WindowsController.ExitWindows(RestartOptions.Reboot, False)
Case "s"
WindowsController.ExitWindows(RestartOptions.ShutDown, False)
Case "u"
WindowsController.ExitWindows(RestartOptions.Suspend, False)
Case "h"
WindowsController.ExitWindows(RestartOptions.Hibernate, False)
Case "c"
Return
Case Else
Console.WriteLine("Invalid input...")
End Select
End Sub
End Class
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.
A list of licenses authors might use can be found here
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.