Bilgisayarı kapatmak için kullandığım kodda hata oluşuyor

[sky85]

Sub zamanvererek_bilgisayarı_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
Application.OnTime TimeValue(Kapatma_Zamani), "bilgisayarı_hemen_Kapat"
End Sub

çalıştırınca bilsayarı kapatmıyor
bilgisayarı_hemen_kapat macrosu bulunamadı diyor sizce eksik nerde???
teşekkürler

 

[Skorpiyon]

Sayın Sky85,

Bilgisayarı_hemen_kapat diye bir makronuz var mı ?

Yoksa bu hatayı vermesi normaldir.

Saygılarımla...

 

[sky85]

hayır yok ne yapmam gerekli teşekkürler

 

[Skorpiyon]

Sayın sky85,

Maalesef kodları bende bilmiyorum ama bu komutla ilgili makroyu çağırıyorsunuz

Application.OnTime TimeValue(Kapatma_Zamani), "bilgisayarı_hemen_Kapat"

Saygılarımla...

 

[Skorpiyon]

Sayın sky85,

Declare Function ExitWindowsEx& Lib "user32" _
(ByVal uFlags&, ByVal wReserved&)
Global Const EWX_FORCE = 8
Global Const EWX_LOGOFF = 0
Global Const EWX_REBOOT = 2
Global Const EWX_SHUTDOWN = 1
Sub calistir()
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
Application.OnTime TimeValue(Kapatma_Zamani), "Windowsu_Kapat"
End Sub

Sub Windowsu_Kapat()
Dim LResult
LResult = ExitWindowsEx(EWX_SHUTDOWN, 0&)
End Sub

Üstteki çağırılan makro, aşağıdaki kırmızılar ise çağrıldıktan sonra çalışan.

Sizin örneğinizde aşağıdaki kırmızılarında olması lazım. Yukarıdaki kırmızı ile
aşağıda Sub'dan sonraki makro ismi aynı olmalı.

Not : Önceki mesajlarınızdan birine Sayın tahsinanarat'ın verdiği cevaptır.

Saygılarımla...

 

[Skorpiyon]

Sayın sky85,

1 dk. sonra kapanacak ve bakalım istediğim zamanda açacak mı ?

Sonucu 1 dk. sonra göreceğiz

Saygılarımla...

 

[Skorpiyon]

Galiba olmadı Üzgünüm.

 

[sky85]

teşşekür ederim
umarım biri biliyodur((

 

[sky85]

bilen yok mu???

 

[Mahmut Bayram]

Cevaplar hep aynı, galiba uygulayamadınız.

  Declare Function ExitWindowsEx& Lib "user32" _ 
  (ByVal uFlags&, ByVal wReserved&) 
   
  Global Const EWX_FORCE = 8 
  Global Const EWX_LOGOFF = 0 
  Global Const EWX_REBOOT = 2 
  Global Const EWX_SHUTDOWN = 1 
   
  Sub zamanvererek_bilgisayarı_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
Application.OnTime TimeValue(Kapatma_Zamani), "bilgisayarı_hemen_Kapat"
End Sub
   
  Sub bilgisayarı_hemen_Kapat () 
  Dim LResult 
  LResult = ExitWindowsEx(EWX_SHUTDOWN, 0&) 
  End Sub