VB APLICATION FOR SHUTDOWN,LOGOFF, AND RESTART WINDOWS

Pada postingan lalu kita telah belajar bagaimana membuat icon shortcut buat shutdown dan restart windows. Sesuai dengan janji saya maka sekarang kita akan belajar bagaimana membuat aplikasi buat shutdown, restart dan logoff windows. Sebenarnya konsep untuk membuat aplikasi ini tidak beda jauh dengan bagaimana kita mebuat icon shutdown dan restart pada postingan lalu., hanya saja sekarang kita build di bahasa pemprograman vb sehinggga menjadi aplikasi yang notabene lebih fleksible. Ngomong-ngomong surabaya tambah hari kok tambah panas ja nih, bikin gak betah tinggal di surabaya...(lah maap jadi curhat nih ceritanya. Hehe..).

Oke kita mulai ja coy..

Komponen yang dibutuhkan dalam membuat aplikasi.

1. Sebuah form.
2. Tiga buah command button.
3. Dan aksesoris lainnya sesuai dengan selera anda.

Code Core :

Private Sub Command1_Click()
Dim Shut As String
Shut = MsgBox("Anda yakin ingin melakukan ShutDown ?", vbYesNo, "Konfirmasi")
If Shut = vbYes Then
Shell "shutdown -r -f -t 0"
Else
MsgBox "Anda batal melakukan ShutDown", vbInformation, "Informasi"
End If
End Sub

Private Sub Command2_Click()
Dim Rest As String
Rest = MsgBox("Anda yakin ingin melakukan Restart ?", vbYesNo, "Konfirmasi")
If Rest = vbYes Then
Shell "shutdown -r -f -t 0"
Else
MsgBox "Anda batal melakukan Restart", vbInformation, "Informasi"
End If
End Sub

Private Sub Command3_Click()
Dim Log As String
Log = MsgBox("Anda yakin ingin melakukan LogOff ?", vbYesNo, "Konfirmasi")
If Log = vbYes Then
Shell "shutdown -l -f -t 0"
Else
MsgBox "Anda batal melakukan LogOff", vbInformation, "Informasi"
End If
End Sub

Complete project :
Sedot disini coy...


Sekian dulu tulisan saya kali ini ya....


Jika Anda menyukai artikel ini klik Jempol untuk Donasi, Terimakasih...