VB skriptiga kirish: yangi boshlanuvchilar uchun qo'llanma: 2 -qism: fayllar bilan ishlash: 13 qadam

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

Xbox360 -ni o'ynash uchun Internetni o'chirish uchun qanday qilib skript qilish kerak, men ko'rsatgan oxirgi VBScript -da. Bugun menda boshqa muammo bor. Mening kompyuterim tasodifiy vaqtlarda o'chirilgan va men har safar kompyuter qayta ishga tushganda faylga kirishni xohlayman. Muammo video kartada ekanligini his qilyapman, lekin bunga ishonch hosil qilmoqchiman. Men har doim kompyuterni yoqib qo'yaman, lekin uni 24/7 kuzatib tura olmayman, shuning uchun har safar qayta ishga tushganda faylga vaqt tamg'asini yozish eng oson echimdir. Bu har safar menga BSOD -ni bergani uchun, uni o'chirish paytida tizimga kirish qiyin bo'ladi, shuning uchun uni qaytadan olishim kerak. Bu juda oson qism, chunki men kompyuterda nima borligini tushunmagunimcha, bu vaqtinchalik, men ro'yxatga olish kitobiga yozmayman yoki xizmat ko'rsatmayman, shuning uchun u yuklash vaqtida ishga tushadi. Va har safar yopilganda uni qayta ishga tushirish uchun biosni tahrir qilishim kerak bo'ladi.

1 -qadam: Bios -ni qayta ishga tushirish uchun uni o'chiring

Ishonchim komil emaski, mening muammom elektr ta'minoti ishlamayaptimi yoki videokartamda yoki u nima. Lekin bilamanki, kompyuter tez -tez qayta ishga tushadi. Shunday qilib, elektr quvvati uzilganidan keyin uning qayta ishga tushishiga ishonch hosil qilish uchun (IE: quvvat manbai qizarib ketadi) biosni tahrir qilmoqchiman. Turli xil bio -ishlab chiqaruvchilar juda ko'p bo'lganligi sababli, har xil bios ekranlarida buni qilishning turli usullarini ro'yxatga olish juda qiyin bo'lar edi, shuning uchun men sizga faqat asosiylarini aytib beraman va sizga tushunaman. O'zingizning shaxsiy ma'lumotlaringizga kirish uchun yuklash tugmachasini bosishingiz kerak bo'ladi. Odatda "sozlamaga kirish uchun Del tugmasini bosing" yoki "F2" kabi bir narsa aytiladi. Turli ishlab chiqaruvchilar sizga har xil yo'llarni taklif qilishadi, lekin odatda "F2" yoki "Del" tugmachalari. Qanday bo'lmasin, uni kuzatib turing va siz aytgan kalitni bosing. Endi siz odatda kulrang yoki ko'k rangdagi ekranga kelasiz, lekin yana bu sizning biosingizga bog'liq. Siz quvvat sozlamalari variantini qidirasiz. U AMIBIOS ekran tasvirida bo'lgani kabi o'z -o'zidan oynada bo'ladi (Toms apparat qo'llanmasidan olingan) yoki ba'zilarida biosning ilg'or oynasida bo'lishi mumkin. Qanday bo'lmasin, siz "AC/quvvat yo'qotilishini tiklash" sozlamasini qidiryapsiz. Bu boshqa nom bilan atalishi mumkin, lekin bunga yaqin bo'ladi. Faqat qidiring. Odatda u uchta variantga ega bo'ladi (oxirgi holat, elektr quvvati yo'qolganidan keyin, quvvat yo'qolgandan keyin o'chadi). Quvvat uzilganidan keyin uni yoqishni xohlaysiz. Sozlamalarni saqlaganingizga va biosdan chiqqaningizga ishonch hosil qiling. Endi sizning kuchingiz uzilib qolsa yoki siz mashinani tarmoqdan uzsangiz, u qayta quvvat olgandan so'ng qayta ishga tushadi. Haahhhhhh !!!!!!!!!!!!!!!!

2 -qadam: Skript yozish 1 -qism: Reja tuzish

Biz qilmoqchi bo'lgan birinchi narsa - reja tuzish. Skript nima qilishni aniq xohlaymiz.) Quvvat uzilganda yoki BSOD paydo bo'lganda biz uni qayta ishga tushirishni xohlaymiz. (BiosB -ni tahrir qilish 1 -qadamda ko'rib chiqilgan.) Qayta ishga tushishi bilan biz faylga uning qayta ishga tushirilgan sanasi va vaqtini yozmoqchimiz. C.) Biz ushbu faylga o'zgartirish kiritishni xohlaymiz. Agar u bir necha bor qayta ishga tushsa, biz hech qachon bilmas edik. D.) Biz xatoni tuzatishni xohlaymiz, shuning uchun u buzilmaydi va biz yomon kodlash tufayli hech qanday o'tkazib yubormagan holda qayta ishga tushiramiz. E.) Biz xohlaymiz "Qayta ishga tushirildi" degan xabarni ochish uchun. F.) Biz yozgan faylni ochishini xohlaymiz, shuning uchun biz "OK" tugmasini bosganimizda, barcha qayta yuklanishlar ro'yxatini ko'rishimiz mumkin.

3 -qadam: Skript yozish 2 -qism: O'z skriptingizni yaratish va o'zgaruvchilarni belgilash

Birinchidan, matnli hujjat yarating va uni any_name.vbs deb o'zgartiring. Men shutdown_catcher.vbs -dan foydalandim, lekin siz hamma narsani ishlatishingiz mumkin. Endi vbs faylini o'ng tugmasini bosing va tahrirni bosing. Agar siz notepad ++ dan hozir foydalansangiz, uni ochish uchun yaxshi vaqt bo'lardi, agar siz kodlashni xohlamasangiz. Endi biz qilmoqchi bo'lgan birinchi narsa o'zgaruvchilarni yaratishdir. O'zgaruvchilar - bu shunchaki joy egasi, shuning uchun biz ko'p narsalarni yozishimiz shart emas. misol: bizda "tez jigarrang tulki dangasa itlarning orqasidan sakrab o'tadi" degan jumla bor. lekin bu bizning kodimizda 20 marta. Biz butun jumlani 20 marta yozishimiz yoki o'zgarmaydigan yaratishimiz va jumlani o'sha o'zgaruvchiga berishimiz mumkin. Shunday qilib, bu misolda biz strSentence o'zgaruvchisini yaratamiz, so'ngra bu o'zgaruvchiga "tez jigarrang tulki dangasa itlar ustidan sakraydi" tayinlaymiz. Endi biz qilishimiz kerak bo'lgan narsa, har safar jumlaga kerak bo'lganda strSentence yozishdir va u "tez jigarrang tulki dangasa itlardan orqaga sakraydi" yozishni biladi, buni qanday qilamiz: Agar bizda bir xil turdagi bir nechta o'zgaruvchilar bo'lsa, biz ularni qo'yishimiz mumkin. ularni bir qatorga qo'ying va o'zgaruvchilarni vergul bilan ajrating. O'zgaruvchini yaratish uchun biz o'zgaruvchini o'lchash deb nomlangan narsani qilishimiz kerak. Buning uchun biz o'zgaruvchidan oldin Dim yozamiz, keyin o'zgaruvchiga prefiks qo'yamiz, shuning uchun o'zgaruvchining nimani anglatishini bilib olamiz. Misollar str o'zgaruvchisiga o'zgaruvchilar uchun o'zgaruvchiga o'zgaruvchilar uchun doimiydir. Ro'yxat davom etaveradi. Bular biz ushbu skriptda ishlatamiz, shuning uchun men ularni biroz tushuntirib beraman. mag'lubiyat odatda jumlaga o'xshash matndir. Ob'ekt odatda fayl yoki dastur kabi jismoniy narsadir. va doimiy - bu skriptda har doim bir xil ma'noga ega bo'lgan narsa. ESLATMA: QAYDI QAChON YO'L BIRINCHA BO'LADI, HATO SIRLARI BILAN BILAN CHIQARILADI. ULAR E'TIBORLAR BILAN CHIQARILADI VA DASTURLANGANI PROGRAMMER XUSUSIY QO'YILADI. Ular kodni qayta ko'rib chiqqach, keyinchalik nima qilganini eslay oladilar. Ulardan kod haqida sharhlar yozish uchun foydalanaman, shunda men nima uchun men qilgan yo'lni to'ldirganimni ko'rasiz. VA ULAR HAQIDA SHARH QILADIGAN LİNYANING BO'LISHIDA BO'LADI. Haqiqiy foydalanish: 'bu chiziq sizni barcha o'zgaruvchilarni aniqlashga majbur qiladi. Hech qanday aniqlanmagan o'zgaruvchiga ob'ekt sifatida qaraladi. Ochiq biz hozirda bizga kerak bo'ladigan papkalar va fayllar uchun 5 o'zgaruvchini yaratamiz, lekin ularni konvensiyasi preNameDim objFiSyOb, objSysFold, objShell, objFile, objTextFilenow bizga kerak. katalog, fayl va fayl nomi uchun string o'zgaruvchilarini yaratish uchunDim strDir, strFile, strFileName endi o'zgaruvchilarga qiymatlar belgilang strDir bizning katalogimiz strDir = "C: / Catcher" papkasini xohlaymiz strFile biz xohlagan joyda. matnli hujjat va u nima deb nomlanganstrFile = "\ Shutdown_catcher.txt" "strfile nomi shuning uchun bizda pops -da ishlatiladigan fayl nomi bor upsstrFileName =" Shutdown_catcher.txt "" biz keyingi kirish uchun doimiy belgilashimiz kerak. Bizda uchta variant bor, biz faqat ushbu kod qo'shimchasini ishlatamiz, lekin ularning barchasini bilish juda yoqimli. Const forReading = 1, forWriting = 2, ForAppending = 8 'oxirgi marta biz fayl tizimiga o'zgaruvchini o'rnatishimiz kerak. ob'ekt, shuning uchun biz uni kerak bo'lganda qo'ng'iroq qilishimiz mumkin yOb = CreateObject ("Scripting. FileSystemObject")

4 -qadam: O'rtadagi tushuntirishlar

Endi biz o'z o'zgaruvchilarimizni o'lchaganimizdan so'ng, har safar ma'lum bir o'zgaruvchini eslashimiz kerak. Bu nafaqat yozish hajmini qisqartiribgina qolmay, balki xatolar tufayli xatolarni ham kamaytirib yuboradi. Endi texnik jihatdan biz faqat quyidagi kodni yozamiz va biz tugatdik 'appendingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) 'yangi satrini fileobjTextFile. WriteLine -ga yozing ("Kompyuteringiz o'chirilgan" va sana & "da" va vaqtda)' fileobjTextFile. Close'm pop -upWscript. Echo ("Sizning kompyuter "& sana va" ni "va" vaqtida o'chirib qo'ying "faylni IESet -da oching objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Muammo shundaki, unda xato tuzatilmaydi va mavjud bo'lmagan fayl yoki oddiy tayinlangan xato kabi skript buziladi.

5 -qadam: Skriptni yozish 3 -qism: Agar bayonotlar xato tuzatish sifatida

Xatolarni tuzatishning eng oson yo'li if/then ifodalarini ishlatishdir. If/then so'zlarini joylashtirish orqali siz sodir bo'lishi kerak bo'lgan narsalar qatorini yaratishingiz mumkin. Agar a va b va c ro'y bersa, buni boshqa ishni bajaring.example: biz yozmoqchi bo'lgan fayl o'sha erda ekanligiga ishonch hosil qilmoqchimiz, agar topsak, hech narsa qilmaymiz, agar topa olmasak, uni yaratmoqchimiz yoki papkaning mavjudligini tekshirib ko'rmoqchiman va agar uni yaratmasam, keyin biz papkani topganimizdan so'ng, u erda fayl borligini tekshirib ko'rmoqchimiz va agar yaratmagan bo'lsak, birinchisi if if ifodasiga misol, ikkinchisi esa ichki bo'lsa. Biz buni qilamiz: if if if if if if/then elseend, agar bu asosan rost bo'lsa, buni bajaring, aks holda buni bajaring, so'ngra ifoda shunday bo'lsa, to'g'ri kodlangan bayonotni tugating: Agar biror narsa = biror narsa bo'lsa Agar nima qilish kerak bo'lsa, yana bir narsa qiling va agar agar siz biron bir dalilni ishlata olsangiz, u to'g'ri bo'lsa, u keyingi qismga amal qiladi va boshqa qismini e'tiborsiz qoldiradi, lekin agar u noto'g'ri bo'lsa, u vaqtni o'tkazib yuboradi va keyin if so'zini tugatganimizda biz "if if" ni qo'yamiz, lekin agar biz if ifodalarini joylashtirgan bo'lsak, har bir if iborasini tugatishimiz kerak. Bu ularni boladan ota -onaga tugatadi, shuning uchun birinchi "if if" iborasi ota -onaning ichidagi if iborasini tugatadi, ikkinchisi if iborasi asl (ota -ona) ni tugatadi. Qalqib chiqish uchun biz faqat Wscript. Echo ("nima bo'lishidan qat'i nazar) yozamiz. Biz ") xabarida aytmoqchimizki, unga o'zgaruvchilar qiymatini qo'shish uchun uni ajratuvchi sifatida ampersand (&) belgisini ishlatib, ikkilamchi tirnoq orasiga qo'yamiz.: Wscript. Echo ("Blah blah blah" va strDir & "blah blah blah" & strFilename & "blah blah blah.") Bla blah blah C: / Catcher blah blah blah shutdown_catcher.txt Haqiqiy foydalanish: 'agar C; / papkasi bo'lsa objFiSyOb. FolderExists (strDir) Keyin' objSysFold = objFiSyOb. GetFolder (strDir) 'papkasini o'rnating' aks holda 'c; / catcher ObjSysFOd = objSysFold CreateFolder (strDir) 'va fayl va papkaning mavjudligini tekshiring Agar objFiSyOb. FileExists (strDir & strFile) Keyin "c: / catcher Set ob" jSysFold = objFiSyOb. GetFolder (strDir) 'aks holdaElse'create text document shutdown_catcher.txt ObjFile = objFiSyOb. CreateTextFile (strDir & strFile) ni o'rnating', so'ngra ikkalasini ham Wscript. Echo yaratganingizni bildiradigan xabarni oching. "& strDir &" deb nomlangan va "& strFilename &" nomli fayl va uni "& strDir & strFile &" katalogiga joylashtirdi.)) "ifEnd If'end original if ifEEnd If'now if if" Biz allaqachon papkani tekshirganmiz va topdik, endi biz fileIf objFiSyOb. FileExists (strDir & strFile) ni tekshiramiz, keyin "ObjSysFold = objFiSyOb. GetFolder (strDir)" papkasini topamiz, aks holda "ObjFile = objFiSyOb. CreateTextFile (strDir & strFile) "biz Wscript. Echo matnli hujjatini yaratganimizni bildiruvchi qalqib chiquvchi oynani yaratamiz (" Biz "& strDir &" fayllar papkasida "& strFileName &" nomli fayl yaratdik ") End If

6 -qadam: O'rtadagi tushuntirishlar

Agar siz avvalgi bosqichdagi kodga diqqat bilan qarasangiz, u holda ichki va ichki bo'lmagan if ifodasini ko'rasiz. Birinchisi, ichki bayonot. U papka va faylni tekshiradi va topilmasa ikkalasini ham yaratadi. Ikkinchisi faqat faylni qidiradi va agar topilmasa, u faqat faylni yaratadi. Biri nima uchun deyishi mumkin. Xo'sh, agar fayl o'chirilsa, lekin papka o'chmasa nima bo'ladi. Birinchi if ifodasi faylni yaratishda darhol o'tib ketadi, chunki u papkani topdi va hech qachon bayonotning boshqa qismini ishga solmaydi. Shunday qilib, siz faylga yozmoqchi bo'lganingizda xato bo'ladi, chunki fayl yo'q bo'ladi. Shunday qilib, ikkinchisiga ega bo'lish, bu muammoni hal qiladi. Texnik jihatdan siz ichki bayonotni olib tashlashingiz mumkin, chunki u xuddi shunday bo'lsa, ikkinchisi deyarli bir xil bo'ladi, lekin keyin sizda faqat bitta pop -up bo'ladi va u unchalik yoqimli bo'lmaydi -ifoda qilingan ifoda.

7 -qadam: xatolarni tuzatish

Xatolarni tuzatishni ko'p qismini tugatganimizdan so'ng, biz faylga yozishni va ochilgan oynalarni ko'rsatishni xohlaymiz. Muammo shundaki, agar biz o'zgarmaydiganda saqlangan oldingi ob'ektga havolani chiqarmasak, ruxsat xatolarimiz bo'ladi. Shunday qilib, biz o'zgaruvchilarni hech narsaga qo'ymasligini ko'rsatadigan kichik kod parchasini kiritmoqchimiz: qarang: objFile = nothingset objSysFold = Hech narsa Shunday qilib, sizning uyingizda kuzatib borayotganlar uchun sizning kodingiz shu nuqtaga to'g'ri kelishi kerak (men sharh oldim) chiqish): Ochiq Dim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.txt" strFileName = ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Agar objFiSyOb. FolderExists (strDir) bo'lsa, keyin objSysFold = objFiSyOb. GetFolder (strDir) ni o'rnating ObjSysFolFirDir. ObjSysFold = objFiSyOb. GetFolder (strDir) ni o'rnating, boshqasini o'rnating objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Biz" & strDir & "nomli papka va" & strFilename & "nomli fayl yaratdik va uni joylashtirdik. "& strDir & strFile &" katalogi. ") Oxiri I fEnd IfIf objFiSyOb. FileExists (strDir & strFile) So'ngra objSysFold = objFiSyOb. GetFolder (strDir) ni o'rnating. "& strDir &" fayllar papkasi. ") Ifset tugaydi objFile = nothingset objSysFold = hech narsa

8 -qadam: Skript yozish 4 -qism: Atributlarni o'rnatish

Endi biz faylga atributlarni o'rnatishimiz kerak, shunda biz uni o'zgartirishimiz mumkin. Ilgari biz uchta doimiy o'zgaruvchini o'rnatdik: forReading = 1forWriting = 2 forAppending = 8 agar forReading ga o'rnatgan bo'lsangiz, siz uni o'qiy olasiz, lekin unga yozolmaysiz.. Agar siz uni "Appending" ga o'rnatgan bo'lsangiz, skript hujjatga har safar bajarilganda, yangi qator qo'shasiz. Biz har safar qayta ishga tushirilganda jurnalni xohlaymiz, shuning uchun biz uni qo'shib qo'yishni xohlaymiz va uni yozib qo'ymaymiz, shuning uchun biz forAppending dan foydalanamiz.: siz atributlarni o'rnatmoqchi bo'lgan ob'ektni nomlashingiz kerak. Biz oldingi bosqichlarda ko'p ishlarni bajarganimiz uchun, biz hozirda o'zgaruvchilarni esga olishimiz kerak. Haqiqiy foydalanish: 'ob'ektni o'rnatish = filesystemobject.action (katalog+fayl nomi, atribut, to'g'ri yoki noto'g'ri) ObjTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)

9 -qadam: Skript yozish 5 -qism: Faylga yozish

Faylga yozish pop -up yozishga o'xshaydi. Siz shunchaki qo'yasiz: objTextFile. WriteLine ("Siz nima demoqchi bo'lsangiz" va yozish satrini o'zgartirish uchun o'zgarmaydigan) Faqat farq birinchi qismdir. Qalqib chiquvchi oynada: Wscript.echoin yozish satriga qo'ying: objTextFile. WriteLineAva yozish satrida siz yozishni to'xtatishingizni bilish uchun yozish chizig'ini yopishingiz kerak va buning uchun siz quyidagilarni ishlatasiz: objTextFile. CloseActual Usage: objTextFile. WriteLine ("Kompyuteringiz o'chirilgan" va sana va "da" va vaqtda) objTextFile.yaqinda siz bu faylga yozganingizni aytishingiz uchun shunday qalqib chiquvchi oynani qo'shing, shunda odam bu sodir bo'lganligini biladi va ular faylni ochish uchun viewWscript. Echo ("Kompyuteringiz o'chirilgan" va sana va "da" yopilishi kerak). & vaqt)

10 -qadam: Skript yozish 5 -qism: Faylni ko'rish uchun ochish

Bu vaqtda skript kimdir qalqib chiquvchi oynani bosmaguncha to'xtaydi. Qalqib chiquvchi oynadan o'tgandan so'ng, siz faylni ochadigan qatorni qo'yishingiz mumkin. Xatolarni tuzatish dasturni yaxshi ishlashiga yordam beradi, vbscript -da xato yaratganingizda, u "err.number" o'zgaruvchisiga qiymat qo'shadi, bu vbscript -da oldindan belgilangan o'zgaruvchi. Siz uni belgilashingiz shart emas va agar siz uning qoidalarini buzmagan bo'lsangiz, uni boshqa o'zgaruvchilar kabi ishlatishingiz mumkin. Err.number o'zgaruvchisiga berilgan qiymat - bu sodir bo'lgan xato kodi. Endi siz vbscript ma'lumotlar bazasida ma'lum bo'lgan har bir xato kodini tekshirishingiz va bu sodir bo'lmaganligiga ishonch hosil qilishingiz mumkin. Yoki osonroq, err.number o'zgaruvchining bo'sh ekanligini tekshiring. agar bo'sh bo'lsa, hech qanday xatolik yuz bermadi. Buning uchun biz o'zgaruvchining vbEmpty ga tengligini tekshiramiz. Shunday qilib, skriptimizda biz if if ifodasini ishlatmoqchimiz. Xato sodir bo'lganligini va faylni ko'rish uchun ochilmasligini tekshiring, lekin agar u ochilgan bo'lsa, unda xato raqamini ko'rsatadigan xabar paydo bo'ladi, shunda biz disk raskadrovka qila olamiz. Wscript yozing. Chiqing. Bu skriptni to'xtatilishini bildiradi. Bu xotira sızıntısı va kiruvchi jarayonlarning ishlashini to'xtatishga yordam beradi. U qanday ishlatiladi: agar err.number vbEmpty ga teng bo'lsa, qobiq yarating, so'ngra dasturni qobiqdan ishga tushiring, aks holda xato bo'lganligini bildiruvchi xabar paydo bo'ladi. errorIf agar err.number = vbEmpty bo'lsa, agar hech kim qobiq yaratmasa ObjShell = CreateObject ("WScript. Shell") 'ni o'rnating, so'ngra ushbu qobiqdagi faylni Explorer yordamida oching. u aslida IE da ochiladi, lekin objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") ", aks holda xato raqami bo'lgan xabar paydo bo'ladiElse WScript.echo" VBScript xatosi: "& err.numberEnd end scriptWscript.quit

11 -qadam: skriptni ishga tushirishda ishga tushirish

Boshlash menyusida Startup deb nomlangan fayllar papkasi mavjud. Bu papkaga joylashtirilgan hamma narsa kompyuter ishga tushishi bilan boshlanadi. Skript faylini ishga tushirish papkasiga joylashtirib, u har safar kompyuterni qasddan yoki xohlamasdan qayta ishga tushirilganda bajariladi. Men buni faqat diagnostika vositasi sifatida ishlatayotganim uchun, uni ishga tushirish uchun xizmatga kiritish shart emas va men uni ro'yxatga olish kitobiga kiritmasligim kerak, shuning uchun bu yaxshi bo'ladi. Kompyuterni tuzatgandan so'ng, faylni ishga tushirish papkasidan o'chirib tashlashim mumkin va boshqa tozalash talab qilinmaydi.

12 -qadam: Dasturni ishga tushirish

Vbscript faylini ishga tushirganingizda, u hozir A bo'ladi.) C: / Catcher papkasining mavjudligini tekshirib ko'ring va yaratmang.) Agar u papkani yoki faylni yoki ikkalasini ham yaratgan bo'lsa, u ularni yaratganligi to'g'risida xabar paydo bo'ladi (Eslatma: buni faqat birinchi ishga tushirish kerak, shundan keyin u o'chirilmaguncha u erda bo'lishi kerak, shuning uchun siz bu xabarni faqat bir marta ko'rishingiz kerak.. Ushbu skriptni boshqariladigan qayta yuklashda bir marta ishga tushirish yaxshi bo'lar edi, shuning uchun siz bu qalqib chiquvchi oynalarni chetlab o'tishingiz yoki faylga hech narsa yozmasligingiz mumkin, chunki u yaratiladigan faylni chetlab o'tmaydi.) D:) Shutdown_Catcher.txt matnli hujjati, bunday va shunday vaqtda kompyuterni o'chirishni bildiradi. Siz kodni yozilganini ko'rasiz, endi men faqat o'tirib, kutishim kerak. Har safar kompyuter qayta ishga tushganda menda bu borada yozuv bo'ladi. Keyin men yozuvni ko'rib chiqishim va unga muvofiqlik bor -yo'qligini ko'rishim mumkin. Masalan, u har yarim soatda qayta ishga tushishi mumkin yoki har qanday vaqtda yoki soatiga 45 bo'lsa, u qayta yoqiladi. Bu men bilganimdek, kompyuterni tekshirishning yagona usuli emas. Menda haroratni tekshirish uchun benchmarking dasturi ham bor, shuning uchun men uning yopilishi qanchalik issiqligini, kuchlanishni bilaman, shuning uchun elektr ta'minoti ishlamay qolganligini va boshqa foydali narsalarni bilaman. Xo'sh, bu foydali bo'ldi deb umid qilaman. Bilaman, men bundan zavqlanaman, ehtimol boshqalarga ham yoqadi. Agar sizda biron bir savol bo'lsa, bemalol so'rang. Men ularga darhol etib bormasligim mumkin, lekin biroz kutaman va men sizga javob beraman. Mening kunim/haftam qanday ishlashiga bog'liq.

13 -qadam: Kod

Bu hamma maslahat va izohlarsiz yozilgan koddir_Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.tatcher_tatcher Const forReading = 1, forWriting = 2, ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Agar objFiSyOb. FolderExists (strDir) bo'lsa, keyin objSysFold = objFiSyOb. GetFolFeter (strDir) Set (strDir) objFiSyOb. FileExists (strDir & strFile) Keyin objSysFold = objFiSyOb. GetFolder (strDir) ni o'rnating ObjFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("va" deb nomlangan papkani yaratdik " "& strFilename &" va uni "& strDir & strFile &" katalogiga joylashtiring. ") IfEnd IfIf tugasa, objFiSyOb. FileExists (strDir & strFile) Keyin ObjSysFold = objFiSyOb. GetFolder (strDir) ni o'rnating Boshqa objFileF (objFiSyOb). strDir & strFile) Wscript. Echo ("Bizda bor "& strDir &" fayllar papkasida "& strFileName &" nomli faylni yaratdi.) Ifset objFile = nothingset objSysFold = nothingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) objTextFile. WriteLine "& Sana va" ni "va vaqtida" objTextFile. CloseWscript. Echo ("Sizning kompyuteringiz o'chirilgan" va sana & "da" va vaqtda) o'chiring, agar err.number = vbEmpty bo'lsa ObjShell = CreateObject ("WScript -ni o'rnating). Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Boshqa WScript.echo" VBScript xatosi: "& err.numberEnd IfWScript. Quit