Bilgisayar Kapanış

[ozuberk]

Bilgisayarı kapattığım zaman kapanışı mail veya excele kapanış saatini yazan kod varmı?

 

[hamitcan]

Api ile yapılmış bir örnek buldum. Bir deneyin.

Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private Const EWX_POWEROFF As Long = 8
Private Const EWX_RESET = EWX_LOGOFF + EWX_FORCE + EWX_REBOOT

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved _
As Long) As Long

Sub kapat()
Dim Kapatma_Zamani As Variant
Kapatma_Zamani = InputBox("Windows'un ne zaman kapanmasını istersiniz?", , _
Format(Now + TimeSerial(0, 1, 0), "hh:mm:ss"))
If Kapatma_Zamani = "" Then Exit Sub
[a1] = Kapatma_Zamani
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.OnTime TimeValue(Kapatma_Zamani), "kapa"
 End Sub

 Sub kapa()
    Dim X As Long
    X = ExitWindowsEx(EWX_SHUTDOWN, 0)
    End If
End Sub