Imports System
Imports System.IO
Module Module1
Dim x As String
Sub Main()
Console.WriteLine("* Programma Creato in Visual Studio .NET 2003,In Visual Basic *")
Console.WriteLine("* www.insecurity.altervista.org - www.pierotofy.it *")
Console.WriteLine("* La Seguente Applicazione Funziona Solo Sui Sistemi Operativi Windows,Dotati Del File 'shutdown.exe',Che Su Windows XP Viene Installato automaticamente. *")
Console.WriteLine()
Console.WriteLine("Scrivere 1 Per riavviare,2 Per Spegnere,3 Per Disconnettersi Dal Sistema")
x = Console.ReadLine
Select Case x
Case "1"
Shell("shutdown -r -t 00")
Case "2"
Shell("shutdown -s -t 00")
Case "3"
Shell("shutdown -l -t 00")
Case Else
Console.WriteLine("Error: Parametro Non Valido!")
End Select
Console.ReadLine()
End Sub
End Module
