Tutorial VB : Shutdown, Restart, dan Logoff

Dalam tulisan ini berisi code tentang shutdown, restart, dan logoff yang langsung dilakukan di form Visual Basic. mudah-mudahan berguna dan bermanfaat. Sebenere aku gak punya bahan untuk tulisan berikutnya. Tapi gak papa daripada tidak ada sama sekali, mending aku nulis tentang Visual Basic aja.

Private Sub cmdLog_Click()
 Dim Log As String
 Log = MsgBox("Anda ingin Log off ?", vbYesNo, "Nanya Nech...!!!")
 If Log = vbYes Then
   'LOGOFF:
    Shell "shutdown -l -f -t 0"
 Else
    MsgBox "Ngak Jadi Log Off...!!!", vbInformation, "Informasi"
 End If
End Sub

Private Sub cmdRestart_Click()
 Dim Aku As String
 Aku = MsgBox("Anda ingin Restart ?", vbYesNo, "Nanya Nech...!!!")
 If Aku = vbYes Then
  'RESTART
  Shell "shutdown -r -f -t 0"
Else
  MsgBox "Ngak Jadi Restart...!!!", vbInformation, "Informasi"
End If
End Sub

Private Sub cmdShutdown_Click()
Dim Cinta As String
Cinta = MsgBox("Anda ingin Shutdown ?", vbYesNo, "Nanya Nech...!!!")
If Cinta = vbYes Then
  'SHUTDOWN
   Shell "shutdown -s -f -t 0"
Else
   MsgBox "Ngak Jadi Shutdown...!!!", vbInformation, "Informasi"
End If
End Sub