Membuat Program Shutdown Otomatis dengan Visual Basic

Berikut Toolbox yang diperlukan

1 buah timer

2 buah label penampil waktu (bisa juga menggunakan text)

2 buah text 

2 buah option

2 buah command button

dan beberapa label untuk keterangan

Berikut gambar susunan toolbox pada form

Listing programnya

Private Sub Command1_Click()
jam = Text1.Text
menit = Text2.Text
If Option1 = True Then
x = "AM"
Else
x = "PM"
End If
waktu = jam + ":" + menit + ":" + "00" + x
MsgBox "Komputer Mati pada:" & waktu
Label7 = waktu
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Option1 = False
Option2 = False
Label7.Caption = ""
Command1.Enabled = False
Text1.SetFocus
End Sub

Private Sub Option1_Click()
Command1.Enabled = True
End Sub

Private Sub Option2_Click()
Command1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Label6 = Time
If Label7.Caption = Label6.Caption Then
Call Shell("rundll32.exe user,exitwindows", vbHide)
End If
End Sub

Jalankan Program dan juga buat file aplikasinya biar bisa berjalan tanpa visual basic.

Terima kasih & semoga bermanfaat

sumber : http://all-thewin.blogspot.co.id/2011/06/membuat-program-shutdown-otomatis.html