Bilgisayarın Belirlenen bir saatte otomatik kapanması

[maverick6]

Selamlar,

bir sorum olacak.

ben bilgisayarın akşam saat 20,55 de açılmasını tv kartının 21,00 kayda başlamasını ve 1 saatlik kaydın ardından 21,00 de kaydı bitirmesini ve bilgisayarın da 21,10 da kapanmasını istiyorum. Bunu excel de yapabilirmiyiz. Yaparsak eğer haluk beyin dediği gibi harici bir program aramamıza gerek kalmaz.

 

[serdenm]

bun direkt excel ile yapamayiz, fakat soyle olabilir:

eger ana kartiniz destekliyorsa wake-up secenegi vardir. belirlenen saatte bilgisayari acabilirsiniz.

tv capture programinizi istediginiz saate kurup kayit yapmasini saglayabilirsiniz.

excel dosyasinida zamanlanmis gorevlere ekleyip 21:10 da acilmasini ve bilgisayari kapatmasini saglayabilirsiniz.

fakat butun bu islemleri tek basina yapabilen capture programlari mevcut oldugunu unutmayalim... :roll:

 

[cemes]

Sayın Tamer bey

İngilizce bilmeden kendinizi ingilizceye o kadar kaptırmışsınız ki türkçeyi anlayamaz hale gelmişsiniz.

Kutuka arkadaşımız sana bir program önermiş açıklamasınıda koymuş ama sen anlayamamışsın istediğiniz saatte kapatır yazıyor açıklamasında kapatmak shutdown anlamına gelmiyorsa ne anlama geliyor bana bir izah edebilirmisiniz bende öğreneyim.


Shutdown = Kapatmak

 

[sdemirel13]

merhaba bu konuda uzun zaman önce yazmışsınız ancak auto power shut down prog. hala elinizde varsa gönderebilir misiniz? teşekkürler

 

[ECYavuz]

Code:
'Bir module yaratın ve aşağıdaki kodları yapıştırın
Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long)
Public Const ZorlaKapat = 4
Public Const LOGOFF = 0
Public Const KapatAc = 2
Public Const Kapat = 1
Code:
kullanımı: Call ExitWindowsEx(Kapat, 0)

Excelden bilgisayaraı kapttığı söyleniyor.. Ama denemedim.

 

[ECYavuz]

Buda Saatli kapatma kodları:

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

 

[ockucukay]

Arkadaşlar gerçekten bu forum muhteşem. bilgisayarı istenilen saate kapatmak gibi basit bir konudan nerelere gelmişsiniz. Ben otomatik kapatma için özel bir program kullanıyorum, ancak burada yazılan diğer çözüm önerileride oldukça iyi.
(sayın Haluk yine konuşturmuş WMI bilgisini ) sayenizde yine birşeyler öğrendim, teşekkürler...

 

[yerbakili]

@ECYavuz, işletim sistemim windows 8. Kodlar ne yazıkki çalışmadı. Acaba windows sürümü ile mi alakalıdır? Yardımcı olur musunuz?

 

[tahsinanarat]

Win8 de test edildi.

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()
Shell ("c:\windows\system32\shutdown -s")
End Sub

 

[yerbakili]

@tahsinanarat, kodlar tam istediğim şekilde çalışıyor. Teşekkür ederim.

Ancak şöyle bir sorunum oluştu. Kodlarınızı, kullandığım uygulamaya ekledim ve windowsu kapatmak istedim. Hemen hemen tüm kapatma parametrelerini denememe rağmen, "Excel kapatılamıyor" uyarısını aşamadım. Bu uyarıya da "Tamam" denilmeden bilgisayar kapanmıyor. Kill komutunu da açıkcası pek kullanmak istemiyorum.

 

[tahsinanarat]

Kodların sonuna excelin kaydetip çıkması için kodlar ilave ettim, ancak faydası varmı yokmu bilmiyorum, bende her iki türlü de herhangi bir müdahale gerektirmeden kapanıyor.

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()
Shell ("c:\windows\system32\shutdown -s")
ActiveWorkbook.Save
Application.Quit
End Sub

 

[yerbakili]

@tahsinanarat, teşekkürler. İlk kodunuz yaklaşık 10-15 saniye bekleyince exceli kapatmayı başarıyor.

 

[tahsinanarat]

Rica ederim, kapanırken başında olmayacağımıza göre o kadarcık beklesin

 

[yerbakili]

Haklısınız, tez canlılık işte.

 

[mustafa1205]

Tahsin Bey elinize sağlık çok güzel çalışıyor. Bu kodlar için teşekkürler...

 

[halit3]

Alternatif olması amacıyla
Bende vb.6 da yapılmış exe uzantılı dosya ve resim ekliyorum.

Dosyanın kapatma işlemini yapması için şifre girmek gerekiyor.
şifre= 10

 

[Zeki Gürsoy]

... yaklaşık 10-15 saniye bekleyince exceli kapatmayı başarıyor.

-f ve -t kullanın. "-f" zorla kapatır ancak "-t" ye değer verildiğinde...

Buna göre t' ye 0 dan büyük değer vererek uygulayın. Ör: 1 sn.

shutdown.exe /s /t 1 /f