. . : : | TeRRen.Jr | : : . .

RESTART, LOG OFF DAN SHUTDOWN DARI PROGRAM KALIAN
1.LOG OFF

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

2.RESTART

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

3.SHUTDOWN

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


Selamat Mencoba...