Program Shutdow, Restart dan ForceQuit PC

.:fnfCreator:.

(General)
Const EWX_LogOff As Long = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4

Private Declare Function ExitWindows _
Lib "User32" Alias "ExitWindowsEx" _
(ByVal dwOptions As Long, ByVal dwReserved As Long) As Long

Private Sub CommandShutDown_Click()
Dim Pesan As String
Pesan = MsgBox (“Anda Akan Mematikan Komputer....Pastikan Semua File sudah disimpan, akan dilanjutkan??”,VbYesNo,”fnfCreator”)
if Pesan = VbYes then
ExitWindows EWX_SHUTDOWN, &HFFFFFFFF
Else
Exit Sub
EndIf
End Sub

Private Sub CommandRestart_Click()
Dim Pesan As String
Pesan = MsgBox (“Anda Akan Mematikan Komputer....Pastikan Semua File sudah disimpan, akan dilanjutkan??”,VbYesNo,”fnfCreator”)
if Pesan = VbYes then
ExitWindows EWX_REBOOT, &HFFFFFFFF
Else
Exit Sub
Endif
End Sub

Private Sub CommandForceQuit_Click()
Dim Pesan As String
Pesan = MsgBox (“Anda Akan Mematikan Komputer Secara Paksa ”,VbOkOnly,”fnfCreator”)
ExitWindows EWX_FORCE &HFFFFFFFF
End Sub

Kritik dan saran silakan kirim ke mrfnftie@yahoo.com