MaSSSoftech: May 1, 2010

ShutDown, Restart, LogOff

Posted by Pearlson

Saturday, May 1, 2010

comments (0)

To Download Source Code Click here >System Scheduler.rar

Open Visual Studio and Click on New Project Window from template.
Place 2Labels, 1DateTimePicker, 1ComboBox, 1Timer, 1NotifyIcon and 3Buttons.
Set Properties for Label1

Text = "Set Time for Operation"

Set Properties for Label2

Text = "Select Operation"

Set Properties for DateTimePicker

Name = "dtpTime"
Format = "Time"
ShowUpDown = "True"

Set Properties for ComboBox1

Name = "cboOperation"
DropDownStyle = "DropDownlist"
Items = "Log Off, Restart, ShutDown"

Set Properties for Button1

Name = "btnOk"
Text = "Ok"

Set Properties for Button2

Name = "btnCancel"
Text = "Cancel"

Set Properties for Button3

Name = "btnAbout"
Text = "?"

Now use the Below give Code.

Code:

Public Class frmScheduler<br /> <br /> Dim intHH As Integer = 0<br /> Dim intMM As Integer = 0<br /> Private blnLoad As Boolean = True<br /> <br /> Private Sub ProcessOperation(ByVal Operation As String)<br /> Dim sngT As Single<br /> Dim objWMIService, objComputer As Object<br /> Select Case Operation.ToUpper<br /> Case "LOG OFF"<br /> objWMIService = GetObject("Winmgmts:{impersonationLevel=impersonate,(Debug,Shutdown)}")<br /> For Each objComputer In objWMIService.InstancesOf("Win32_OperatingSystem")<br /> sngT = objComputer.Win32Shutdown(0, 0)<br /> If sngT <> 0 Then<br /> MsgBox("Error occurred!!!")<br /> End If<br /> Next<br /> Case "RESTART"<br /> objWMIService = GetObject("Winmgmts:{impersonationLevel=impersonate,(Debug,Shutdown)}")<br /> For Each objComputer In objWMIService.InstancesOf("Win32_OperatingSystem")<br /> sngT = objComputer.Win32Shutdown(2 + 4, 0)<br /> If sngT <> 0 Then<br /> MsgBox("Error occurred!!!")<br /> End If<br /> Next<br /> Case "SHUTDOWN"<br /> objWMIService = GetObject("Winmgmts:{impersonationLevel=impersonate,(Debug,Shutdown)}")<br /> For Each objComputer In objWMIService.InstancesOf("Win32_OperatingSystem")<br /> sngT = objComputer.Win32Shutdown(8 + 4, 0)<br /> If sngT <> 0 Then<br /> MsgBox("Error occurred!!!")<br /> End If<br /> Next<br /> End Select<br /> End Sub<br /> <br /> Private Sub frmScheduler_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> blnLoad = False<br /> dtpTime.Value = My.Computer.Clock.LocalTime<br /> dtpTime.Checked = False<br /> End Sub<br /> <br /> Private Sub frmScheduler_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged<br /> If Not blnLoad Then<br /> Me.ShowInTaskbar = False<br /> NotifyIcon1.Icon = Me.Icon<br /> NotifyIcon1.Text = "System Scheduler"<br /> NotifyIcon1.Visible = True<br /> Me.Visible = False<br /> End If<br /> End Sub<br /> <br /> Private Sub frmScheduler_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing<br /> If intHH >= (My.Computer.Clock.LocalTime.Hour Mod 12) And intMM >= My.Computer.Clock.LocalTime.Minute Then<br /> e.Cancel = True<br /> NotifyIcon1.Icon = Me.Icon<br /> NotifyIcon1.Text = "System Scheduler"<br /> NotifyIcon1.Visible = True<br /> Me.Visible = False<br /> End If<br /> End Sub<br /> <br /> Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click<br /> If cboOperation.Text = "" Then<br /> MessageBox.Show("Please select a Operation to Perform.", "System Scheduler", MessageBoxButtons.OK, MessageBoxIcon.Information)<br /> cboOperation.Focus()<br /> Exit Sub<br /> End If<br /> If dtpTime.Checked Then<br /> intHH = dtpTime.Value.Hour Mod 12<br /> intMM = dtpTime.Value.Minute<br /> Timer1.Enabled = True<br /> Timer1.Start()<br /> Else<br /> ProcessOperation(cboOperation.Text)<br /> End If<br /> btnOk.Enabled = False<br /> End Sub<br /> <br /> Private Sub btnAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbout.Click<br /> MessageBox.Show("hieee." & vbCrLf & "For any Query related to Projects or doubts Contact me at," & vbCrLf & "Email : nadarmuthukumar@yahoo.co.in " & vbCrLf & "Mobile : 9833240124", "About me.", MessageBoxButtons.OK, MessageBoxIcon.None)<br /> End Sub<br /> <br /> Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click<br /> Timer1.Stop()<br /> Timer1.Enabled = False<br /> dtpTime.Value = My.Computer.Clock.LocalTime<br /> dtpTime.Checked = False<br /> cboOperation.SelectedItem = vbNullString<br /> intHH = 0<br /> intMM = 0<br /> MessageBox.Show("Operation Cancelled Successfully.", "System Scheduler", MessageBoxButtons.OK, MessageBoxIcon.Information)<br /> btnOk.Enabled = True<br /> End Sub<br /> <br /> Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick<br /> If intHH <= (My.Computer.Clock.LocalTime.Hour Mod 12) And intMM <= My.Computer.Clock.LocalTime.Minute Then             ProcessOperation(cboOperation.Text)         End If     End Sub      Private Sub dtpTime_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtpTime.ValueChanged         If dtpTime.Value < My.Computer.Clock.LocalTime Then dtpTime.Value = My.Computer.Clock.LocalTime     End Sub      Private Sub NotifyIcon1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.DoubleClick         blnLoad = True         Me.Visible = True         If Me.WindowState = FormWindowState.Minimized Then Me.WindowState = FormWindowState.Normal         NotifyIcon1.Visible = False         blnLoad = False     End Sub  End Class 

Help From : http://www.devasp.net/net/articles/display/513.html 

To Download  Source Code Click here >System Scheduler.rar

Labels: VB.Net

MaSSSoftech

Tabs

My Blog List

Blog Archive

ShutDown, Restart, LogOff

MaSSSoftech

Subscribe To

Tabs

My Blog List

Blog Archive

ShutDown, Restart, LogOff