Shutdown,Reboot & Logoff Your Local System Using VB.NET

Category:

C#, VB.NET, ASP.NET

Type:

Applications

Difficulty:

Intermediate

Author: Anonymous

Version Compatibility: Visual Basic.NET

More information:

The following application is used to shutdown, reboot and logoff your local system. Just Copy the following code and paste it in your code window after deleting the default project code. For a version to manage remote computers, or for any updates and changes, please contact me.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

'' PROGRAMMED BY: HARI OM PRAKASH

'' BMAS Engg. College, AGRA(UP),INDIA

'' Contact No.: +919719545489

'' e-mail : sharma.hariomprakash@gmail.com

'' hariom5463@rediffmail.com

'' Company : Lxcite's Planet

'' group : http://www.groups.yahoo.com/group/lxcitesplanet

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Class Form1

Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

Public Sub New()

MyBase.New()

'This call is required by the Windows Form Designer.

InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

components.Dispose()

End If

MyBase.Dispose(disposing)

End Sub

'Required by the Windows Form Designer

Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer

'It can be modified using the Windows Form Designer.

'Do not modify it using the code editor.

Friend WithEvents Button1 As System.Windows.Forms.Button

Friend WithEvents Button2 As System.Windows.Forms.Button

Friend WithEvents Button3 As System.Windows.Forms.Button

Friend WithEvents Button4 As System.Windows.Forms.Button

Friend WithEvents Label1 As System.Windows.Forms.Label

Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel

Friend WithEvents Label2 As System.Windows.Forms.Label

Friend WithEvents LinkLabel2 As System.Windows.Forms.LinkLabel

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

Me.Button1 = New System.Windows.Forms.Button

Me.Button2 = New System.Windows.Forms.Button

Me.Button3 = New System.Windows.Forms.Button

Me.Button4 = New System.Windows.Forms.Button

Me.Label1 = New System.Windows.Forms.Label

Me.LinkLabel1 = New System.Windows.Forms.LinkLabel

Me.Label2 = New System.Windows.Forms.Label

Me.LinkLabel2 = New System.Windows.Forms.LinkLabel

Me.SuspendLayout()

'Button1

Me.Button1.Location = New System.Drawing.Point(104, 24)

Me.Button1.Name = "Button1"

Me.Button1.TabIndex = 0

Me.Button1.Text = "Shutdown"

'Button2

Me.Button2.Location = New System.Drawing.Point(192, 24)

Me.Button2.Name = "Button2"

Me.Button2.TabIndex = 1

Me.Button2.Text = "Reboot"

'Button3

Me.Button3.Location = New System.Drawing.Point(104, 56)

Me.Button3.Name = "Button3"

Me.Button3.TabIndex = 2

Me.Button3.Text = "LogOff"

'Button4

Me.Button4.Location = New System.Drawing.Point(192, 56)

Me.Button4.Name = "Button4"

Me.Button4.TabIndex = 3

Me.Button4.Text = "Close"

'Label1

Me.Label1.Location = New System.Drawing.Point(56, 96)

Me.Label1.Name = "Label1"

Me.Label1.Size = New System.Drawing.Size(248, 16)

Me.Label1.TabIndex = 4

Me.Label1.Text = "Programmed by: HARI OM PRAKASH SHARMA"

'LinkLabel1

Me.LinkLabel1.Location = New System.Drawing.Point(104, 120)

Me.LinkLabel1.Name = "LinkLabel1"

Me.LinkLabel1.Size = New System.Drawing.Size(184, 16)

Me.LinkLabel1.TabIndex = 5

Me.LinkLabel1.TabStop = True

Me.LinkLabel1.Text = "sharma.hariomprakash@gmail.com"

'Label2

Me.Label2.Location = New System.Drawing.Point(56, 152)

Me.Label2.Name = "Label2"

Me.Label2.Size = New System.Drawing.Size(288, 32)

Me.Label2.TabIndex = 6

Me.Label2.Text = "Remote shutdown,reboot,logoff Code also available, send your requests..."

'LinkLabel2

Me.LinkLabel2.Location = New System.Drawing.Point(104, 136)

Me.LinkLabel2.Name = "LinkLabel2"

Me.LinkLabel2.Size = New System.Drawing.Size(168, 16)

Me.LinkLabel2.TabIndex = 7

Me.LinkLabel2.TabStop = True

Me.LinkLabel2.Text = "hariom5463@rediffmail.com"

'Form1

Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)

Me.ClientSize = New System.Drawing.Size(362, 192)

Me.Controls.Add(Me.LinkLabel2)

Me.Controls.Add(Me.Label2)

Me.Controls.Add(Me.LinkLabel1)

Me.Controls.Add(Me.Label1)

Me.Controls.Add(Me.Button4)

Me.Controls.Add(Me.Button3)

Me.Controls.Add(Me.Button2)

Me.Controls.Add(Me.Button1)

Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle

Me.MaximizeBox = False

Me.Name = "Form1"

Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

Me.Text = "Shutdown, Reboot & LogOff"

Me.ResumeLayout(False)

End Sub

#End Region

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

End

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim t As Single

Dim objWMIService, objComputer As Object

'Now get some privileges

objWMIService = GetObject("Winmgmts:{impersonationLevel=impersonate,(Debug,Shutdown)}")

For Each objComputer In objWMIService.InstancesOf("Win32_OperatingSystem")

t = objComputer.Win32Shutdown(8 + 4, 0)

If t <> 0 Then

MsgBox("Error occurred!!!")

Else

'LogOff your system

End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim t As Single

Dim objWMIService, objComputer As Object

'Now get some privileges

objWMIService = GetObject("Winmgmts:{impersonationLevel=impersonate,(Debug,Shutdown)}")

For Each objComputer In objWMIService.InstancesOf("Win32_OperatingSystem")

t = objComputer.Win32Shutdown(0, 0)

If t <> 0 Then

MsgBox("Error occurred!!!")

Else

'LogOff your system

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim t As Single

Dim objWMIService, objComputer As Object

'Now get some privileges

objWMIService = GetObject("Winmgmts:{impersonationLevel=impersonate,(Debug,Shutdown)}")

For Each objComputer In objWMIService.InstancesOf("Win32_OperatingSystem")

t = objComputer.Win32Shutdown(2 + 4, 0)

If t <> 0 Then

MsgBox("Error occurred!!!")

Else

'LogOff your system

End If

End Sub

End Class