Nihai Bilgisayar Kapatma Şakası: 3 Adım

2024 Yazar: John Day | [email protected]. Son düzenleme: 2024-01-30 13:17

Bu, şaka amaçlı yaptığım bir.vbs kapatma komut dosyasıdır. Bu kadar havalı olmasının nedeni, bilgisayarı hemen kapatmak yerine, bilgisayarın sizinle konuşması, 10 saniye içinde bilgisayarın kapanacağı konusunda sizi uyarması, ardından son 5 saniyeyi geri sayan küçük bir animasyon göstermesidir. bilgisayarı kapatıyor.

Ayrıca bir dönüştürücü kullanarak onu bir.exe dosyasına derlemeyi seviyorum, ancak bunu yapmak zorunda değilsiniz. Bunu nasıl yapacağınızı bilmek istiyorsanız, vbs Ekran Kilidi'mi görüntüleyin. Bu talimatta vbs editörleri için de bazı bağlantılar var.

Ama benim ekran kilidimden farklı olarak bu program çok daha kısa, bu yüzden elimden geldiğince açıklamaya çalışacağım.

NOT: Zaten vbs'yi bilmiyorsanız, bu komut dosyasında kullanılan bazı işlevler hakkında temel bir anlayışa sahip olmanız için bu Eğitilebilir Dosyayı kontrol etmenizi öneririm.

Adım 1: Senaryom…

İşte senaryo..

Sondaki "s"lerden birini "Shutdown.vbs" ile bitmesi için veya.vbs ile bittiği sürece ne istersen silmen gerekecek.

Adım 2: Komut Dosyam (açıklama)…

Bu yüzden kodu açıklayacağımı bilin…

İlk satır pek bir şey yapmıyor, sadece senaryoyu oluştururken bana yardımcı oldu. İşte sonraki üç satır:

Dim IntCounterDim objWshShl: Set objWshShl = WScript. CreateObject("wscript.shell") Dim objVoice: Set objVoice = WScript. CreateObject("sapi.spvoice")

Kodun ilk satırı, kontrol etmek için kullanacağımız değişkenin For…Next Loop olduğunu bildirir. Sonraki iki kod satırı 2 değişken bildirir ve ayarlar. objWshShl, mesaj kutusu ve çalıştırma işlevleri için kullanılır. objVoice bilgisayarın "konuşmasını" sağlamak için kullanılır.

İşte üç satır daha:

ShutdownWarning()TimedMessageBox() ShutdownComputer()

Bu satırlar sadece betiğimizdeki üç işlevi çağırıyor.

İşte are betiğindeki ilk işlev.

İşlev ShutdownWarning objVoice. Speak "Bu bilgisayar şimdi 10 saniye içinde kapanacak." WScript. Sleep 5000 Bitiş İşlevi

Komut dosyamızda işlevlere gerçekten ihtiyacımız yok, ancak yalnızca işleri düzenli tutmaya yardımcı oluyor.

Yani tüm bunlar, cümleyi tırnak işaretleri arasında söylemek ve ardından bir sonraki işleve geçmeden önce 5 saniye duraklamaktır.

Bu sonraki kısım biraz zor görünebilir ama aslında anlaşılması oldukça kolaydır:

TimedMessageBox For IntCounter = 5 ila 1 Adım -1 objWshShl. Popup "Bilgisayar " _ & IntCounter & " saniye içinde kapanacak", 1, "Bilgisayar Kapatma", 0+48 Sonraki Son İşlev

Bu yüzden önce TimedMessageBox adında bir fonksiyon yaratır.

Sonra sonraki 4 satır bir For…Next Döngüsü. Yani bu döngü, her seferinde birer birer aşağı inerek beş kez dönecek.

objWshShl. Popup "Bilgisayar " _ & IntCounter & " saniye içinde kapanacak", 1, "Bilgisayar Kapatma", 0+48

Bu kod aslında sadece bir kod satırıdır, sadece okunmasını kolaylaştırmak için "_" karakteri kullanılarak başka bir satıra ayrılmıştır. Bu kodun yaptığı, IntCounter değişkenini kullanarak kapanmaya kadar kalan saniye miktarını gösteren 1 saniye süren bir açılır mesaj oluşturmaktır.

Bu döngü beş kez döndüğünde, komut dosyasıyla devam eder.

İşte bir sonraki fonksiyon:

İşlev KapatmaBilgisayar objWshShl. Run "Shutdown /s /f /t 0", 0 End Function

Tüm bunlar, bilgisayarı bir çalıştırma komutu kullanarak kapatmaktır. Kullanılan anahtarlar şunlardır: /s /f /t. /s kapanma anlamına gelir, /f uyarı vermeden tüm uygulamaları kapatmak anlamına gelir, /t kapanmadan önceki saniye cinsinden zamandır. Bu komuttan sonra virgül sıfır ", 0" olduğunu fark edeceksiniz. Bu, kapatma komutu yürütüldüğünde hiçbir cmd dulunun yanıp sönmemesini sağlar.

3. Adım: Umarım Bu Yardımcı Olmuştur

Daha fazla yardıma ihtiyacınız varsa veya herhangi bir sorunuz varsa, lütfen bu Eğitilebilir Kitap yardımcı olmuştur, lütfen bana pm atın veya bir yorum bırakın.