Įvadas į VB scenarijų: pradedančiųjų vadovas: 2 dalis. Darbas su failais: 13 žingsnių

2024 Autorius: John Day | [email protected]. Paskutinį kartą keistas: 2024-01-30 10:51

Na, paskutiniame „VBScript“nurodyme aš peržiūrėjau, kaip sukurti scenarijų, kad išjungtumėte internetą, kad galėtumėte žaisti „Xbox360“. Šiandien turiu kitokią problemą. Mano kompiuteris buvo išjungtas atsitiktine tvarka ir aš noriu prisijungti kiekvieną kartą, kai kompiuteris iš naujo paleidžiamas į failą. Jaučiu, kad problema yra vaizdo plokštėje, bet noriu tuo įsitikinti. Aš visą laiką palieku įjungtą kompiuterį, bet negaliu jo stebėti visą parą, todėl paprasčiausias sprendimas yra parašyti laiko žymę prie failo kiekvieną kartą, kai jis paleidžiamas iš naujo. Kadangi kiekvieną kartą man suteikiamas BSOD, prisijungti, kai jis išsijungs, bus sunku, todėl turiu jį gauti, kai jis vėl įsijungs. Tai lengva dalis. Dėl to, kad tai tik laikina, kol nesuprantu, kas su kompiuteriu negerai, nesiruošiu rašyti į registrą ar paversti jo paslauga, kad jis būtų paleistas įkrovos metu. Ir kad jis būtų paleistas iš naujo kiekvieną kartą, kai jis išsijungs, turėsiu redaguoti BIOS.

1 veiksmas: redaguokite „BIOS“, kad jis būtų paleistas iš naujo, kai nutrūksta maitinimas

Nesu tikras, ar mano problema susijusi su maitinimo šaltinio gedimu, ar su vaizdo plokšte ar kokia ji yra. Bet aš žinau, kad kompiuteris taip dažnai paleidžiamas iš naujo. Taigi, norėdamas įsitikinti, kad jis vėl įsijungia po elektros energijos tiekimo sutrikimo (IE: maitinimo šaltinis paruduoja), noriu redaguoti BIOS. Dėl to, kad ten yra tiek daug skirtingų „BIOS“kūrėjų, būtų per sunku išvardyti visus skirtingus būdus, kaip tai padaryti visuose skirtinguose „BIOS“ekranuose, todėl aš tik pateiksiu jums pagrindus ir leisiu jums išsiaiškinti specifiką. Iš esmės, norėdami patekti į savo BIOS, turėsite paspausti įkrovos mygtuką. Paprastai jis sako kažką panašaus į „paspauskite Del, kad įeitumėte į sąranką“arba „F2“. Skirtingi gamintojai siūlo skirtingus būdus, tačiau dažniausiai tai yra „F2“arba „Del“klavišas. Bet kuriuo atveju stebėkite ir paspauskite klavišą, kurį jis liepia pataikyti. Dabar jūs pateksite į ekraną, kuris paprastai yra pilkas arba mėlynas, bet vėlgi tai priklauso nuo jūsų BIOS. Jūs ieškosite maitinimo nustatymų parinkties. Jis bus arba ant kiekvieno lango, kaip AMIBIOS ekrano kopijoje (pasiskolinta iš „Toms“techninės įrangos vadovo), arba kai kuriose gali būti išplėstinių BIOS funkcijų lange. Bet kokiu atveju jūs ieškote nustatymo „atkurti kintamosios srovės/maitinimo nuostolius“. Jis gali būti pavadintas kitaip, tačiau jis bus artimas tam. Tiesiog ieškok. Paprastai jis turi tris parinktis (paskutinė būsena, įjungta po elektros energijos tiekimo nutraukimo, išjungta po elektros energijos tiekimo nutraukimo). Praradus maitinimą, norite jį įjungti. Būtinai išsaugokite nustatymus ir išeikite iš BIOS. Dabar, kai nutrūksta maitinimas arba atjungiate įrenginį, jis bus paleistas iš naujo, kai tik atgaus maitinimą. Ahahhhh !!!!!!!!!!!!!!!!!

2 žingsnis: scenarijaus rašymas 1 dalis: plano sudarymas

Pirmas dalykas, kurį norime padaryti, yra sukurti planą. Ką tiksliai mes norime, kad scenarijus padarytų. A.) Kai nutrūksta maitinimas arba atsiranda BSOD, mes norime, kad jis būtų paleistas iš naujo. (Pasirūpinta 1 veiksme „BiosB“redagavimas.) Kai tik jis bus paleistas iš naujo, norime įrašyti į failą tikslią datą ir laiką, kada jis buvo paleistas iš naujo. C.) Mes norime, kad galėtume pataisyti tą bylą. Jei jis iš naujo paleidžiamas daugiau nei vieną kartą, mes niekada to nesužinosime. D.) Mes norime, kad būtų ištaisyta klaida, kad ji nesugestų, ir mes užtikriname, kad visus savo perkrovimus atliksime nepraleidę dėl blogo kodavimo. E.) Mes to norime kad būtų rodomas pranešimas, kuriame sakoma, kad jis buvo paleistas iš naujo. F.) Mes norime, kad jis atidarytų failą, į kurį rašėme, kad spustelėję gerai pasirodžiusiame pranešime pamatytume visų perkrovimų sąrašą.

3 veiksmas: scenarijaus rašymas 2 dalis: scenarijaus sukūrimas ir kintamųjų priskyrimas

Pirmiausia gerai, sukurkite tekstinį dokumentą ir pervardykite jį į any_name.vbs. Aš naudoju shutdown_catcher.vbs, bet jūs galite naudoti bet ką. Dabar tiesiog dešiniuoju pelės mygtuku spustelėkite vbs failą ir paspauskite redaguoti. Jei dabar naudojate užrašų knygelę ++, būtų tinkamas laikas jį atidaryti, jei to nepadarysite, bet planuojate turėtų išnagrinėti, kaip jį gauti. Gerai, dabar pirmiausia norime sukurti kintamuosius. Kintamieji iš esmės yra tik vietos turėtojas, todėl mums nereikia daug kartų rašyti daugybės dalykų. pavyzdys: turime sakinį „greita ruda lapė peršoka per tingus šunis atgal“. bet mūsų kode yra 20 kartų. mes galime arba įvesti visą sakinį 20 kartų, arba sukurti kintamąjį ir priskirti sakinį tam kintamajam. Taigi šiame pavyzdyje mes sukuriame kintamąjį strSentence, tada tam kintamajam priskiriame „greita rudoji lapė šokinėja per tingius šunis“. Dabar mums tereikia įvesti strSentence kiekvieną kartą, kai mums reikia sakinio, ir ji žino, kaip įvesti „greita rudoji lapė peršoka per tingus šunis atgal“, kaip tai padaryti: jei turime kelis to paties tipo kintamuosius, juos toje pačioje eilutėje ir atskirkite kintamuosius kableliais. Norėdami sukurti kintamąjį, turime padaryti tai, kas vadinama kintamojo matmenimis. Norėdami tai padaryti, prieš kintamąjį įvedame Dim, tada ant kintamojo dedame priešdėlį, kad žinotume, ką reiškia kintamasis. Pavyzdžiai yra str eilutės kintamajam obj objekto kintamajam konst konstanta…. Sąrašas tęsiasi ir tęsiasi. tai yra tie, kuriuos naudosime šiame scenarijuje, todėl šiek tiek juos paaiškinsiu. eilutė paprastai yra tekstas kaip sakinys. Objektas paprastai yra kažkas fizinio, pavyzdžiui, failas ar programa. ir konstanta yra tai, kas visada turės tą pačią reikšmę visame scenarijuje. PASTABA: bet kuriuo metu linija turi vieną vienetą prieš tai, kai linija bus užfiksuota scenarijuje. Jie vadinami PASTABOMIS ir paprastai pateikiami programuotojo JIE GALI PRISIMINTI, KĄ DARO VĖLIAU, PERŽIŪRĖDAMOS KODĄ. Aš juos panaudosiu, kad galėčiau pateikti pastabų dėl kodo, kad galėtumėte pamatyti, kodėl aš padariau tą būdą, kaip aš padariau. Ir jie bus virš linijos, kurią jie komentuoja. Faktinis naudojimas: „ši eilutė verčia jus apibrėžti visus kintamuosius. Be jo bet koks neapibrėžtas kintamasis bus traktuojamas kaip objektasOption Explicit'dabar mes sukuriame 5 kintamuosius katalogams ir failams, kurių mums prireiks'pavadinkite juos taip, kaip norite, bet sutartis yra preNameDim objFiSyOb, objSysFold, objShell, objFile, objTextFile'n dabar mums reikia sukurti eilutės kintamuosius katalogui, failui ir failo pavadinimuiDim strDir, strFile, strFileName'dabar priskirkite reikšmes kintamiesiems thestrDir yra mūsų katalogas, kuriame norime aplanką strDir = "C: / Catcher" 'strFile yra ten, kur mes norime tekstinis dokumentas ir jo pavadinimasstrFile = "\ Shutdown_catcher.txt" 'strfile'o pavadinimas yra toks, kad turėtume failo pavadinimą, skirtą naudoti pop upsstrFileName = "Shutdown_catcher.txt" ", toliau turime priskirti konstantą faile turime tris variantus „mes naudosime tik šio kodo priedus, bet malonu juos visus žinoti.„ Confor forReading “= 1, forWriting = 2, ForAppending = 8“objektą, kad galėtume jį paskambinti vėliau, kai mums to reikiaSet objFiS yOb = CreateObject ("Scripting. FileSystemObject")

4 žingsnis: paaiškinimai tarp

Dabar, kai turime kintamųjų matmenis, viskas, ką turime padaryti, yra kiekvieną kartą prisiminti tą konkretų kintamąjį. Tai ne tik sumažina mūsų įvestų tekstų kiekį, bet ir sukuria mažiau klaidų dėl rašybos klaidų. Dabar techniškai viskas, ką turime padaryti, tai įvesti šį kodą ir baigta "nustatykite failą, kad pridėtumėte & strFile, ForAppending, True) “parašykite naują eilutę į fileobjTextFile. WriteLine („ Jūsų kompiuteris išjungtas „& data &“at „& time“) “, uždarykite failąobjTextFile. Close'padarykite iššokantį langąWscript. Echo (" Jūsų kompiuteris Išjunkite "& data &" " Problema ta, kad joje nebus klaidų taisymo, o bet kokia paprasta klaida, pvz., Failas, kurio nėra arba jau priskirtas kintamasis, sugadins scenarijų.

5 veiksmas: scenarijaus rašymas 3 dalis: jei tada teiginiai kaip klaidos taisymas

Lengviausias būdas ištaisyti klaidą yra naudoti „if/then“teiginius. Iš esmės teiginys „if“tada sako, jei kažkas atsitinka, tada darykite tai kitaip. Įdėdami „if/then“teiginius galite sukurti eilę dalykų, kurie turi įvykti. Jei įvyksta a ir b ir c, padarykite tai dar kitaip. Pavyzdys: norime įsitikinti, kad failas, į kurį norime rašyti, yra, jei jį randame, norime nieko nedaryti, jei nerandame, norime jį sukurti arba mes norite patikrinti, ar aplankas yra, ir jei jo nesukuriate, tada patikrinkite, ar failas yra, kai tik surasime aplanką, o jei ne, čia sukuriamas pirmasis. mes tai darome: teiginyje „if if“yra keturios dalys, jei/tada elseend, jei iš esmės tai yra tiesa, tada darykite tai kitaip, tada padarykite teiginį tinkamai užkoduotą, jei tada teiginys būtų toks: jei kažkas = kažkas, tada darykite ką reikia padaryti Kitą daryti ką nors kita Pabaigai Jei galite naudoti bet kurį argumentą tol, kol jis yra teisingas, jis seka tuometinę dalį ir ignoruoja kitą dalį, bet jei jis klaidingas, jis praleis tada ir eis į kitą Tada, kai baigsime teiginį mes dedame „end if“, bet jei įterpėme if teiginius, turime baigti kiekvieną if. Tai baigs juos nuo vaiko iki tėvų, taigi pirmasis „pabaiga, jei“užbaigia teiginį if, o antrasis - baigia pradinį (tėvų) if teiginį. Norėdami sukurti iššokantįjį langą, mes tiesiog įvedame Wscript. Echo ("bet ką norime pasakyti pranešime "), kad į jį įtrauktume kintamųjų vertę, įdėjome ją į išorę arba tarp kabučių, naudodamiesi ampersand (&) ženklu kaip ribotuvą, kad scenarijus žinotų, jog tai kintamasis, o ne tekstas. kaip šis: Wscript. Echo ("Blah blah blah" & strDir & "blah blah blah" & strFilename & "blah blah blah.") Išvestis būtų iššokantis langas, kuriame sakoma Blah blah blah C: / Catcher blah blah blah shutdown_catcher.txt bla. CreateFolder (strDir) “ir patikrinkite, ar failas ir aplankas egzistuoja Jei objFiSyOb. FileExists (strDir & strFile), tada, jei jis gauna aplanką c: / catcher Set ob jSysFold = objFiSyOb. GetFolder (strDir) 'elseElse'kurkite tekstinį dokumentą shutdown_catcher.txt Nustatykite objFile = objFiSyOb. CreateTextFile (strDir & strFile)', tada parodykite pranešimą, kad sukūrėte juos abu Wscript. Echo ("Mes turime pavadintas „& strDir &“ir failas pavadinimu „& strFilename &“ir įdėtas į katalogą „& strDir & strFile &“. ") 'end nested if utasításEnd If'end original if ifEnd If'now in first if utasítás mes jau patikrinome, ar nėra aplanko, ir jį radome, todėl dabar tikriname, ar nėra failo. Jei objFiSyOb. FileExists (strDir & strFile) Tada „jei radote, gaukite aplanką Set objSysFold = objFiSyOb. GetFolder (strDir)“, kitaip Else'kurkite tekstą doc Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) “sukurkite iššokantįjį langą, kuriame sakome, kad sukūrėme tekstinį dokumentą„ Wscript. Echo “(„ Sukūrėme failą pavadinimu „& strFileName &“aplanke „& strDir &“. “)

6 žingsnis: paaiškinimai tarp

Jei atidžiai pažvelgsite į ankstesnio veiksmo kodą, pamatysite įterptą ir neįterptą teiginį. Pirmasis yra įdėtas teiginys. Jis tikrina aplanką ir failą, o jei neranda, sukuria abu. Antrasis ieško tik failo, o jei neranda, sukuria tik failą. Galima sakyti, kodėl abu. Na, kas atsitiks, jei failas bus ištrintas, bet aplankas nebus. Pirmasis „if“sakinys praleistų failo kūrimą, nes jis surastų aplanką ir niekada neaktyvuotų kitos pareiškimo dalies. Taigi, kai jūs einate rašyti į failą, jis suklysta, nes failo trūksta. Taigi, turėdamas antrąjį, jis išsprendžia šią problemą. Techniškai galite ištraukti įdėtą teiginį, nes jis yra beveik toks pat kaip antrasis, jei tada teiginys, bet tada turėsite tik vieną iššokantįjį langą ir jis nebus toks patrauklus, be to, tai suteikė man galimybę parodyti, kad esate įdėtas, o ne -atleistas, jei pareiškimai.

7 veiksmas: daugiau klaidų taisymo

Dabar, kai baigėme daugumą klaidų taisymo, norime įrašyti į failą ir parodyti iššokančius langus. Problema ta, kad gausime leidimo klaidas, jei neatleisime ankstesnio kintamajame saugomo objekto nuorodos. Taigi mes norime įdėti nedidelį kodo fragmentą, kuriame sakoma, kad kintamieji yra nieko. Atrodo taip: set objFile = nothingset objSysFold = nothing Taigi tiems, kurie seka namuose, jūsų kodas turėtų būti toks out): Parinktis ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.txt" strFileName = "Shutdown_", ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Jei objFiSyOb. FolderExists (strDir) Tada nustatykite objSysFold = objFiSyOb. GetFolder (strDir) Else Set objSysFold = objFyFr = Nustatykite objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Sukūrėme aplanką pavadinimu" & strDir & "ir failą pavadinimu" & strFilename & "ir įdėjome jį į "& strDir & strFile &" katalogą. ") Pabaiga I fEnd IfIf objFiSyOb. FileExists (strDir & strFile) Tada nustatykite objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Eilo failą pavadinimu & " "& strDir &" failų aplankas. ") Pabaiga Ifset objFile = nothingset objSysFold = nieko

8 veiksmas: scenarijaus rašymas 4 dalis: Atributų nustatymas

Dabar turime nustatyti failo atributus, kad galėtume jį pakeisti. Anksčiau mes nustatėme tris pastovius kintamuosius: forReading = 1forWriting = 2 forAppending = 8 jei nustatėte forReading, galėsite jį perskaityti, bet ne į jį rašyti. Jei nustatysite jį for. Jei nustatysite „Prideda“, kiekvieną kartą, kai scenarijus bus paleistas į dokumentą, pridėsite naują eilutę. Kadangi norime, kad kiekvieną kartą, kai jis bus paleistas iš naujo, registruotume žurnalą, norime, kad jis būtų pridėtas, o ne perrašytas, todėl naudojame „Prideda“.: turite įvardyti objektą, kuriam norite nustatyti atributus. Kadangi didžiąją dalį darbo jau atlikome atlikdami ankstesnius veiksmus, mums tereikia prisiminti kintamuosius. Tada tiesiog nustatykite jį į true.

9 veiksmas: scenarijaus rašymas 5 dalis: rašymas į failą

Rašymas į failą yra panašus į iššokantį langą. Jūs tiesiog įdėjote: objTextFile. WriteLine ("Ką norite pasakyti" ir kintamąjį, kad įtrauktumėte rašyti eilutę) Vienintelis skirtumas yra pirmoji dalis. Iššokančiajame lange įdėkite: Wscript.echoin rašymo eilutę, kurią įdėjote: objTextFile. „WriteLine“Ir rašymo eilutėje turite uždaryti rašymo eilutę, kad ji žinotų, jog nustos rašyti, ir tam jūs naudojate: objTextFile. CloseActual Usage: objTextFile. WriteLine („Jūsų kompiuteris išjungtas„ & data & “at„ & time “) objTextFile.close'now pridėkite iššokantįjį langą, kad pasakytumėte, jog parašėte į failą, kad asmuo žinotų, jog tai įvyko, ir jis turi jį uždaryti, kad atidarytų failą ir viewWscript. Echo ("Jūsų kompiuteris išjungtas" & data & "at" & laikas)

10 veiksmas: scenarijaus rašymas 5 dalis: failo atidarymas peržiūrai

Šiuo metu scenarijus sustos, kol kas nors spustelės iššokantį langą. Kai peržengsite iššokantįjį langą, galite įterpti eilutę, kuri atidaro failą. Naudojant tam tikrą klaidų taisymą, programa gerai veikia. Kai sukuriate klaidą „vbscript“, ji prideda reikšmę kintamajam „err.number“, kuris yra iš anksto nustatytas kintamasis „vbscript“. Jums nereikia jo apibrėžti ir galite jį naudoti kaip ir bet kurį kitą kintamąjį, jei nepažeidžiate jo taisyklių. Kintamajam err.number priskirta vertė yra įvykusios klaidos kodas. Dabar galite patikrinti kiekvieną „vbscript“duomenų bazėje žinomą klaidos kodą ir įsitikinti, kad jis neįvyko. Arba paprasčiau, tiesiog patikrinkite, ar kintamasis err.number yra tuščias. jei jis tuščias, klaidų nebuvo. Norėdami tai padaryti, mes tiesiog patikriname, ar kintamasis yra lygus vbEmpty. Taigi savo scenarijuje norime naudoti kitą teiginį, jei tada. Ir patikrinkite, ar įvyko klaida ir ar jis neatidarė failo peržiūrai, bet jei taip, tada pasirodys pranešimas su klaidos numeriu, kad galėtume derinti. Tada, kai visi baigsime savo scenarijų, įveskite „Wscript“. Išeikite. Tai nurodo scenarijui nutraukti save. Tai padeda sustabdyti atminties nutekėjimą ir nepageidaujamų procesų vykdymą. Kaip jis naudojamas: jei klaida. Skaičius lygus vb klaidos Jei err.number = vbEmpty tada'jei niekas nesukuria apvalkalo Nustatykite objShell = CreateObject ("WScript. Shell") ', tada atidarykite failą iš to apvalkalo naudodami naršyklę. jis iš tikrųjų bus atidarytas IE, nors objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") "kitaip pasirodys pranešimas su klaidos numeriuElse WScript.echo" VBScript Error: "& err.numberEnd If 'pabaigos scenarijusWscript.quit

11 veiksmas: paleisti scenarijų paleidžiant

Pradžios meniu yra failų aplankas „Startup“. Viskas, kas įdėta į šį aplanką, bus paleista, kai tik kompiuteris bus paleistas. Įdėjus scenarijaus failą į paleisties aplanką, jis bus vykdomas kiekvieną kartą, kai kompiuteris iš naujo paleidžiamas, tyčia ar ne. Kadangi aš naudoju tai tik kaip diagnostikos priemonę, norint ją paleisti, jos nereikia paversti paslauga ir man nereikia jos įdėti į registrą, kad tai būtų galima pradėti, todėl viskas bus gerai. Kai sutvarkysiu kompiuterį, galiu ištrinti failą iš paleisties aplanko ir jokio kito valymo nereikia.

12 veiksmas: paleiskite programą

Kai vykdote „vbscript“failą, jis dabar bus A.) Patikrinkite, ar aplankas C: / Catcher egzistuoja ir jei ne, sukurkite jį. B:) Patikrinkite, ar failas Shutdown_catcher.txt egzistuoja, ir jei jo nesukursite.) Jei jis sukūrė aplanką arba failą arba abu, jis parodys pranešimą, kuriame sakoma, kad jis juos sukūrė (Pastaba: tai turėtų būti padaryta tik pirmą kartą paleidus, po to jis jau turėtų būti ten, nebent ištrintas, todėl tą pranešimą turėtumėte matyti tik vieną kartą. Gali būti gera idėja paleisti šį scenarijų vieną kartą valdant iš naujo, kad galėtumėte apeiti šiuos iššokančius langus arba nieko nerašyti į failą, nes jis neaplenks sukurtų iššokančiųjų langų.) D:) Įrašykite eilutę tekstinis dokumentas Shutdown_Catcher.txt, kuriame sakoma, kad kompiuteris išjungtas tokią ir tokią datą tokiu ir tokiu laiku. E:) Iššokantis pranešimas, kuriame sakoma, kad buvo paleista iš naujo pamatysite kodą, kaip parašyta. Dabar viskas, ką turiu padaryti, tai atsisėsti ir laukti. Kiekvieną kartą, kai kompiuteris bus paleistas iš naujo, turėsiu jo įrašą. Tada galiu peržiūrėti įrašą ir pamatyti, ar jis yra nuoseklus. Pavyzdžiui, jis gali būti paleistas kas pusvalandį arba iš naujo, kai laikrodis padidėja arba padidėja 45. Tai jokiu būdu nėra vienintelis būdas patikrinti kompiuterį, kad žinotumėte. Taip pat turiu palyginamąją programą, skirtą tikrinti temperatūrą, todėl žinau, kaip karšta, kai ji išsijungia, įtampą, kad žinau, ar nutrūksta maitinimas, ir dar keletą naudingų dalykų. Na tikiuosi, kad tai buvo naudinga. Žinau, kad man tai patinka, todėl galbūt ir kitiems patiks. Jei turite klausimų, nedvejodami klauskite. Galbūt ne iš karto pas juos pateksiu, bet šiek tiek ir atsakysiu jums. Priklauso nuo to, kaip sekasi mano dienai/savaitei.

13 žingsnis: Kodas

Tai kodas, parašytas be visų užuominų ir pastabų. Const forReading = 1, forWriting = 2, ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Jei objFiSyOb. FolderExists (strDir), tada nustatykite objSysFold = objFiSyOb. GetFolder (strDrB) objFiSyOb. FileExists (strDir & strFile) Tada nustatykite objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Sukūrėme aplanką pavadinimu &" "& strFilename &" ir įdėjo jį į katalogą "& strDir & strFile &". ") Pabaiga IfEnd IfIf objFiSyOb. FileExists (strDir & strFile), tada nustatykite objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objreFile strDir & strFile) Wscript. Echo ("Mes turime "& strDir &" failų aplanke sukūrė failą pavadinimu "& strFileName &".)) Pabaiga Ifset objFile = nothingset objSysFold = nothingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) objTextFile.writeLate Išjunkite „& data &“at „& time“objTextFile. CloseWscript. Echo („Jūsų kompiuteris išjungtas„ & data & “at“& time) Jei err.number = vbEmpty, tada Nustatykite objShell = CreateObject ("WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Kita WScript.echo" VBScript klaida: "& err.numberEnd IfWScript. Quit