Catatan Pekerjaan

Website ini merupakan sarana untuk mengekspresikan apa yang saya pikirkan daripada ngruntel/nggedibal di otak, jadi lebih baik saya menuangkan disini

Tutorial VB : Shutdown, Restart, dan Logoff

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

Post a Comment