Kompüteri bağlamaq üçün son oyun: 3 addım

2024 Müəllif: John Day | [email protected]. Son dəyişdirildi: 2024-01-30 07:44

Bu, bir oyun olaraq hazırladığım bir.vbs bağlama skriptidir. Bu qədər sərin olmasının səbəbi, kompüteri dərhal söndürmək əvəzinə, kompüterin sizinlə danışması, kompüterin 10 saniyədə bağlanacağını xəbərdar etməsidir, bundan əvvəl son 5 saniyəni sayan kiçik bir animasiya göstərir. kompüteri bağlayır.

Bir çevirici istifadə edərək.exe -də tərtib etməyi də sevirəm, amma bunu etmək lazım deyil. Bunu necə edəcəyinizi bilmək istəyirsinizsə vbs Screen Lock -a baxın. Vbs redaktorları üçün də bəzi təlimatlar var.

Amma ekran kilidimdən fərqli olaraq bu proqram çox qısadır, ona görə də bacardığım qədər izah etməyə çalışacağam.

Qeyd: vbs -i hələ bilmirsinizsə, istifadə olunan bəzi funksiyalar haqqında əsas anlayışınız olması üçün bu Təlimatı yoxlamağı məsləhət görürəm.

Addım 1: Ssenarim…

Budur ssenari..

"Shutdown.vbs" ilə bitən və ya.vbs ilə bitdiyi müddətcə nə istədiyinizi bitirməsi üçün sonunda "s" lərdən birini silməlisiniz.

Addım 2: Ssenarim (izah) …

Beləliklə, kodu izah edəcəyimi bilin …

Birinci sətir həqiqətən çox iş görmür, sadəcə ssenari yaratarkən mənə kömək etdi. İşdə növbəti üç sətir:

Dim IntCounterDim objWshShl: ObjWshShl = WScript. CreateObject ("wscript.shell") Dim objVoice: ObjVoice = WScript. CreateObject ("sapi.spvoice") seçin

Kodun ilk sətri, nəzarət etmək üçün istifadə edəcəyimiz dəyişəni aşağıdakılar üçün elan edir … Sonrakı Döngə. Növbəti iki kod xətti 2 dəyişəni elan edir və təyin edir. objWshShl mesaj qutusu və işləmə funksiyaları üçün istifadə olunur. objVoice kompüteri "danışmaq" üçün istifadə olunur.

Budur başqa üç sətir:

ShutdownWarning () TimedMessageBox () ShutdownComputer ()

Bu sətirlər skriptimizdəki üç funksiyanı çağırır.

İşdə scriptdəki ilk funksiya.

Function ShutdownWarning objVoice. Speak "Bu kompüter artıq 10 saniyədə bağlanacaq." WScript. Sleep 5000 son funksiyası

Skriptimizdə funksiyalara həqiqətən ehtiyacımız yoxdur, ancaq işlərin nizamlanmasına kömək edir.

Beləliklə, bütün bunlar, cümləni tırnaklar arasında danışmaqdır və sonra növbəti funksiyaya davam etməzdən əvvəl 5 saniyə ara verir.

Bu sonrakı hissə çətin görünə bilər, amma başa düşmək olduqca asandır:

IntCounter = 5 -1 Addım -1 objWshShl. Popup Üçün TimedMessageBox Funksiyası "Kompüter" _ & IntCounter & "saniyələr", 1, "Kompüter Kapatma", 0+48 Növbəti Son Funksiya

Beləliklə, əvvəlcə TimedMessageBox adlı bir funksiya yaradır.

Sonra növbəti 4 sətir For… Next Loop. Beləliklə, bu döngü hər dəfə beş dəfə aşağı enəcəkdir.

objWshShl. Popup "Kompüter" _ & IntCounter & "saniyələrində", 1, "Kompüteri Bağlamaq", 0+48 -də bağlanacaq

Bu kod əslində yalnız bir kod sətiridir, oxumağı asanlaşdırmaq üçün "_" simvolundan istifadə edərək başqa bir sətrə ayrılır. Bu kodun nə etməsi, 1 saniyə davam edən bir açılan mesaj yaradır ki, IntCounter dəyişənindən istifadə edərək bağlanana qədər qalan saniyələri göstərsin.

Bu döngə beş dəfə döndükdən sonra skriptlə davam edir.

Budur növbəti funksiya:

Function ShutdownComputer objWshShl. Run "Shutdown /s /f /t 0", 0 End Function

Bütün bunlar kompüteri bir çalıştır komutu ilə bağlamaqdır. Burada istifadə olunan açarlar: /s /f /t. /S bağlamaq deməkdir, /f xəbərdarlıq etmədən bütün tətbiqləri bağlamaq deməkdir, /t bağlanmadan saniyələr içərisində olan vaxtdır. Bu əmrdən sonra ", 0" vergülünün olduğunu görəcəksiniz. Bu, bağlama əmri icra edildikdə heç bir cmd dul qadının yanıb -sönməməsini təmin edir.

Addım 3: Ümid edirik ki, bu faydalı oldu

Ümid edirəm bu Təlimat daha çox yardıma ehtiyacınız olarsa və ya hər hansı bir sualınız olarsa mənə yazın və ya şərh yazın.