Tek tuşla Bilgisayar 15 - 30 - 45 - 60 yada 120 dk sonra kapansın

Programlama ve Script dilleri konusunda bilgi paylaşım alanıdır.
Cevapla
Kullanıcı avatarı
Email Bot
Kilobyte2
Kilobyte2
Mesajlar: 395
Kayıt: 20 Mar 2022, 23:50
Teşekkür etti: 2 kez
Teşekkür edildi: 35 kez

Tek tuşla Bilgisayar 15 - 30 - 45 - 60 yada 120 dk sonra kapansın

Mesaj gönderen Email Bot »

Tek tuşla pc yi 15 - 30 - 45 - 60 - 120 dk gibi sürelerde kapatmak için farklı farklı scriptler halinde yapabilir misiniz ? masaüstüne atıyım mesela indirmem var 20 dakika 1 saat sonra kapat scriptine basıyım zamanlayıcıyı kursun, bende ekran kitleyip gidiyim , varmı yada böyle bir uygulama
Kullanıcı avatarı
velociraptor
Yottabyte4
Yottabyte4
Mesajlar: 53887
Kayıt: 14 Mar 2006, 02:33
cinsiyet: Erkek
Teşekkür etti: 19690 kez
Teşekkür edildi: 11953 kez

Re: Tek tuşla Bilgisayar 15 - 30 - 45 - 60 yada 120 dk sonra kapansın

Mesaj gönderen velociraptor »

Kullanıcı avatarı
TRWE_2012
Zettabyte1
Zettabyte1
Mesajlar: 15148
Kayıt: 25 Eyl 2013, 13:38
cinsiyet: Erkek
Teşekkür etti: 2505 kez
Teşekkür edildi: 5301 kez

Re: Tek tuşla Bilgisayar 15 - 30 - 45 - 60 yada 120 dk sonra kapansın

Mesaj gönderen TRWE_2012 »

Email Bot yazdı: 06 Mar 2025, 13:46 Tek tuşla pc yi 15 - 30 - 45 - 60 - 120 dk gibi sürelerde kapatmak için farklı farklı scriptler halinde yapabilir misiniz ? masaüstüne atıyım mesela indirmem var 20 dakika 1 saat sonra kapat scriptine basıyım zamanlayıcıyı kursun, bende ekran kitleyip gidiyim , varmı yada böyle bir uygulama
Kapatma Zamanlayıcı - Kapat.vbs

Kod: Tümünü seç

Dim minutes
minutes = InputBox("Bilgisayar kaç dakika sonra kapatılsın?", "Kapatma Zamanlayıcı", "30")

If IsNumeric(minutes) Then
    minutes = CInt(minutes)
    If minutes > 0 Then
        MsgBox "Bilgisayar " & minutes & " dakika sonra kapanacak.", vbInformation, "Onay"
        Set objShell = CreateObject("WScript.Shell")
        objShell.Run "shutdown -s -t " & (minutes * 60), 0, False
    Else
        MsgBox "Geçersiz süre girdiniz!", vbExclamation, "Hata"
    End If
Else
    MsgBox "Lütfen sadece sayı girin!", vbExclamation, "Hata"
End If
Çalıştırma Adımları

Not Defteri aç.
Yukarıdaki kodu kopyalayıp yapıştır.
Dosya → Farklı Kaydet seçeneğine tıkla.
Dosya adını Kapat.vbs olarak belirle
Dosya türü: Tüm Dosyalar (*.*) olarak ayarla.
Kaydet ve masaüstüne at. (Karakter kodlaması da ANSI olacak ona göre UTF-8 değil)
Çift tıklayarak çalıştır.

Kullanım

Çalıştırdığında bir pencere açılır ve kaç dakika sonra kapanmasını istediğini sorar.
Bir sayı girersen, onay mesajı verir ve kapatma zamanlayıcısını başlatır.
Yanlış giriş yaparsan hata mesajı gösterir.

Zamanlayıcıyı İptal Etme

Iptal.vbs (Yönetici olarak çalıştır işlem tamam...)

Kod: Tümünü seç

Set objShell = CreateObject("WScript.Shell")
objShell.Run "shutdown -a", 0, False
NOT:

Kodlarda hata olursa buraya ekran görüntüsünü de at ki düzeltelim....Kolay gelsin sana....
Kullanıcı avatarı
Kayserilifatih
Petabyte4
Petabyte4
Mesajlar: 9447
Kayıt: 30 Ağu 2024, 20:48
cinsiyet: Erkek
Teşekkür etti: 927 kez
Teşekkür edildi: 6992 kez

Re: Tek tuşla Bilgisayar 15 - 30 - 45 - 60 yada 120 dk sonra kapansın

Mesaj gönderen Kayserilifatih »

Bir saat ve saniye girerek bilgisayarı kapatma scripti de ben yapayım istedim. Aşağıda verdiğim linkten indirebilirsiniz.

https://pixeldrain.com/u/TkA5khuy

Script tarafımca Windows 11 24H2 Pro sisteminde denenmiş ve Türkçe karakter hataları için düzeltmeler yapılmıştır

Scriptin içeriği konusunda (analiz yapay zekaya aittir) kısa bir analiz sunuyorum:

Kapatma İsteğini İptal Etme: Script, kullanıcıya mevcut bir kapanma isteği varsa bunu iptal etmek isteyip istemediğini sorar. Eğer kullanıcı "Evet" derse, shutdown.exe /a komutunu çalıştırarak kapanma isteğini iptal eder.

Kapanış Süresi Girişi: Kullanıcıdan kapanış süresini saat cinsinden girmesi istenir. Eğer kullanıcı boş bir değer girerse, script sonlanır. Girilen değer sayıya dönüştürülür ve geçerli bir sayı değilse hata mesajı gösterilir.

Saniye Cinsinden Giriş: Kullanıcıdan kapanış süresini saniye cinsinden girmesi istenir. Yine, boş bir değer girilirse script sonlanır ve geçerli bir sayı değilse hata mesajı gösterilir.

Toplam Süre Hesaplama: Kullanıcının girdiği saat ve saniye değerleri kullanılarak toplam kapanma süresi hesaplanır. Saat cinsinden girilen değer, saniyeye dönüştürülerek toplam süre hesaplanır.

Bilgisayarı Kapatma: Hesaplanan toplam süre kullanılarak bilgisayarın kapanması için shutdown.exe /s /t komutu çalıştırılır. Kullanıcıya bilgisayarın ne zaman kapanacağına dair bir bilgi mesajı gösterilir.

Genel Değerlendirme:

Kullanıcı Dostu: Script, kullanıcıdan bilgi alırken basit ve anlaşılır bir dil kullanıyor. Hata kontrolü ile kullanıcı deneyimini iyileştiriyor.

Güvenlik: Kullanıcının yanlışlıkla kapanma isteği göndermesini önlemek için mevcut kapanma isteğini iptal etme seçeneği sunuyor.

Esneklik: Kullanıcıya kapanma süresini hem saat hem de saniye cinsinden girme imkanı tanıyarak esneklik sağlıyor.

Bu script, özellikle bilgisayarın belirli bir süre sonra kapanmasını isteyen kullanıcılar için pratik bir çözüm sunmaktadır.
Kullanıcı avatarı
burak35
Zettabyte3
Zettabyte3
Mesajlar: 17556
Kayıt: 07 Eki 2016, 13:06
cinsiyet: Erkek
Teşekkür etti: 10117 kez
Teşekkür edildi: 11777 kez

Re: Tek tuşla Bilgisayar 15 - 30 - 45 - 60 yada 120 dk sonra kapansın

Mesaj gönderen burak35 »

Scriptin gücü adına. Gölgelerin gücü adına gibi oldu bu. :)
Cevapla

“Programlama ve Script dilleri” sayfasına dön