Kompyuteringizni avtomatik ravishda o'chirishni dasturlashtiring, buni xohlagan vaqtingizni belgilang: 4 qadam

2024 Muallif: John Day | [email protected]. Oxirgi o'zgartirilgan: 2024-01-30 13:29

Hey, bu mening kundalik hayotimdan olingan yana bir ko'rsatma …

oxirgi marta men kompyuterga juda ko'p dasturiy ta'minotni yuklab olishim kerak edi va men uni bir kechada yuklashga ruxsat berishga majbur bo'ldim, yuklashlar tugagandan so'ng kechayu kunduz kompyuterimni yoqib turishni xohlamadim va shu bilan birga kutish uchun hushyor tura olmadim. yuklab olishni tugatish va o'chirish uchun! shuning uchun men kompyuterni interaktiv tarzda avtomatik ravishda o'chirishga imkon beradigan VBscript yaratdim, yuklanishlar qancha vaqt ketishiga qarab, kompyuter o'chirilishidan oldin, men yoqilgan daqiqalarni belgilab beraman, unga biroz qo'shimcha vaqt beraman. Yuklab olish uchun zarur bo'lgan vaqtdan keyin o'chiring, agar tezlik pasayishi mumkin bo'lsa, lekin hech bo'lmaganda men hushyor turmayman va kechayu kunduz kompyuterimni hech narsa qilmay qo'yaman! va bu holda kompyuter foydalanuvchi bilan interaktiv bo'ladi, chunki men unga ovoz va rivoyat qo'shganman! shuning uchun mening ko'rsatmalarimni tomosha qiling! va agar sizga plz yoqsa, izoh qoldiring! rahmat

1 -qadam: Skript yozishdan boshlang …

bloknotni oching va quyidagi skriptni bloknotga yozing: Dim xDim yset oShell = createobject ("wscript.shell") Sapi = Wscript. CreateObject ("SAPI. SpVoice") ni o'rnating x = InputBox ("Kompyuteringizni o'chirib qo'yishni xohlaysizmi? vaqt: javob: ha/yo'q "," AVTOMATIK SISTEM O'CHIRILADI! SCRIPTmaster tomonidan "), agar x =" ha "bo'lsa, u holda y = InputBox (" O'chirish avtomatik ravishda sodir bo'lishi uchun qolgan vaqtni kiriting (vaqt bir necha daqiqada …): ", "AVTOMATIK SISTEM O'CHIRILADI!") Sapi.speak y + "o'chirishga bir necha daqiqa qoldi" oShell. Run "shutdown.exe -s -t" & (y * 60) & "-f -c" "Tizim endi avtomatik rejimga o'rnatildi. yuklashlar tugashini kutmang, uxlab qolishingiz mumkin! XAYIRLI KUN! qarang u 2morow! >>>> bu avtomatik o'chirishni tugatish uchun skriptni qaytadan ishga tushiring va agar x = "yo'q bo'lsa no" "ni yozing. "keyin sapi.speak" okay, xayrlashgingizcha, skript Ayman Farxat tomonidan yozilgan SCRIPTmaster "oShell.run" shutdown.exe -a "end

2 -qadam: Kodning skriptdagi batafsil tavsifi …

Dim x va Dim y /// x va y o'zgaruvchilarini javob va vaqt uchun javobgar deb e'lon qiladi. OShell = createobject ("wscript.shell") /// OS qobig'ini chaqiradi va wscript.shellSet Sapi ob'ektini yaratadi. Wscript. CreateObject ("SAPI. SpVoice") /// SAPI oynalarini chaqiradi va foydalanuvchiga aytganidek, bu skriptdagi nutq uchun mas'ul bo'lgan SAPI. SpVoice ob'ektini yaratadi … x = InputBox ("O'chirishni xohlaysizmi? ma'lum vaqtdan keyin sizning shaxsiy kompyuteringiz? javob: ha/yo'q "," AVTOMATIK SISTEM O'CHIRILADI! "/// foydalanuvchi x =" ha "bo'lsa /// bo'lsa, shaxsiy kompyuterini o'chirmoqchi bo'lsa, kirishni chaqiradi. tarmoqli bayonot = InputBox ("O'chirish avtomatik ravishda o'chishi uchun qolgan vaqtni kiriting (vaqt bir necha daqiqada …):", "AVTOMATIK TIZIM O'CHIRILADI!") // agar foydalanuvchi ha deb tanlasa, qolgan vaqtni belgilash uchun unga boshqa kirish va'da qilinadi. o'chirish uchun sapi.speak y + "o'chirishga bir necha daqiqa qoldi" /// Windows SAPI qolgan daqiqalarni o'qiydi oShell. Run "shutdown.exe -s -t" & (y * 60) & "-f -c" "tizimi hozir avtomatik o'chirish uchun sozlangan! Yuklab olish tugashini kutmang, uxlab qolishingiz mumkin! HAYRLI TUN! Ertalab ko'rishguncha 2! >>>> bu avtomatik o'chirishni to'xtatish uchun faqat skriptni qayta ishga tushiring va "" "/// yozmang, bu tizimni o'chirishni bajarishga chaqiradi va kompyuterni berilgan vaqtga mos ravishda o'chiradi. o'zgaruvchi y! end agar // birinchi if ifoda bilan tugasa, bu holda ha bo'lsa, ha = "yo'q", keyin //. boshqa javob yo'q javob uchun javob beradi sapi.speak "okay, xayr, xayr, skript yozilgan by Ayman Farxat SCRIPTmaster "/// SAPI foydalanuvchi bilan gaplashadi va unga xayr oShell.run" shutdown.exe -a " / /aytadi /bu holatda shutdown.exe chaqiriladi va uni o'chirishni bajarmaslik kerakligi aytiladi. -a! end qo'shilsa // if ifodasining oxiri! bu qisqacha, ammo batafsil tavsif edi, bilingki, nima qilish kerakligini bilish uchun keyingi bosqichga o'ting …

3 -qadam: Skriptni saqlash

Notepad uchun skriptni kiritganingizdan so'ng, uni saqlashingiz kerak, saqlash tugmachasini bosing va siz fayl nomini yozgan joyga rasmingizdagi.vbs ta'qib qilingan fayl nomini qo'ying …

4 -qadam: Skriptni ishga tushiring …

yangi saqlangan VB dasturini ikki marta bosing va sehrni ko'ring!

sizga birinchi navbatda rasmni ko'rsatilgandek o'chirmoqchi bo'lgan yoki xohlamagan kirish so'rovi yuboriladi. Agar siz yozishni o'chirishni tanlamasangiz, dastur avtomatik ravishda tugaydi … agar siz ha deb yozib o'chirishni tanlasangiz, sizga rasmda ko'rsatilgandek shaxsiy kompyuteringiz yoqilishini istagan daqiqalar sonini so'rashadi. pastda va agar siz biron -bir sababga ko'ra o'chirishni to'xtatmoqchi bo'lsangiz, dasturni qayta ishga tushiring va "no" ni yozing va u o'z -o'zidan to'xtaydi! Shunday qilib, bu ko'plab kompyuter foydalanuvchilari azob chekayotgan muammoning echimi edi! Umid qilamanki, agar siz mening ko'rsatmalarni yoqtirgan bo'lsangiz, sharh qoldiring, men sizdan juda xursand bo'laman. XAMMAGA OMAD va KECHA XAYIR!