Hyrje në VB Script: një Udhëzues për fillestarët: Pjesa 2: Puna me skedarë: 13 hapa

2024 Autor: John Day | [email protected]. E modifikuara e fundit: 2024-01-30 12:32

Epo, në udhëzuesin tim të fundit VBScript, unë mësova se si të krijoj një skenar për të fikur internetin tuaj për të luajtur Xbox360. Sot kam një problem tjetër. Kompjuteri im është fikur në raste të rastit dhe dua të regjistrohem çdo herë që kompjuteri të rindizet në një skedar. Kam një ndjenjë se problemi është karta video, por dua të sigurohem. Unë e lë kompjuterin të ndezur gjatë gjithë kohës, por nuk mund ta monitoroj atë 24/7, kështu që zgjidhja ime më e lehtë është të shkruaj një vulë kohore në një skedar sa herë që rindizet. Për shkak se më jep një BSOD çdo herë, regjistrimi kur të fiket do të jetë i vështirë kështu që unë duhet ta marr kur të ndizet. Kjo është pjesa e lehtë. Për shkak të faktit se kjo është vetëm e përkohshme derisa të kuptoj se çfarë nuk shkon me kompjuterin, nuk do t'i shkruaj regjistrit ose nuk do ta bëj atë një shërbim, kështu që do të fillojë në kohën e nisjes. Dhe për ta rifilluar atë sa herë që fiket, do të më duhet të ndryshoj bios.

Hapi 1: Redaktimi i Bios për ta rifilluar atë në dështim të energjisë

Nuk jam i sigurt nëse problemi im është me dështimin e furnizimit me energji elektrike ose me kartën time video ose çfarë është. Por unë e di që kompjuteri rindizet herë pas here. Pra, për t'u siguruar që të rindizet pas një ndërprerje të energjisë (IE: furnizimi me energji merr ngjyrë jashtë) dua të ndryshoj bios. Për shkak të faktit se ka kaq shumë krijues të ndryshëm bios atje, do të ishte shumë e vështirë të rendisni të gjitha mënyrat e ndryshme për ta bërë këtë në të gjitha ekranet e ndryshme të bios, kështu që unë thjesht do t'ju jap bazat dhe do t'ju tregoj specifikat më vete. Në thelb për të hyrë në bios tuaj do t'ju duhet të shtypni një buton në boot. Zakonisht do të thotë diçka si "godit Del për të hyrë në konfigurim" ose "F2". Prodhues të ndryshëm ju japin mënyra të ndryshme, por zakonisht është çelësi "F2" ose "Del". Sido që të jetë kujdeseni për të dhe goditni çelësin që ju thotë të godisni. Tani do të vini në një ekran që zakonisht është ose gri ose blu, por përsëri kjo varet nga prodhimi juaj i bios. Ju do të kërkoni një opsion të cilësimeve të energjisë. Ai ose do të jetë në një dritare krejtësisht si në pamjen e ekranit AMIBIOS (huazuar nga udhëzuesi i pajisjeve toms) ose në disa mund të jetë në një dritare të përparuar të veçorive të bios. Gjithsesi ju po kërkoni një cilësim "të rivendosur humbjen e energjisë/rrymës". Mund të quhet diçka tjetër, por do të jetë afër kësaj. Thjesht kërkoni atë. Zakonisht do të ketë tre opsione (gjendja e fundit, ndezur pas humbjes së energjisë, fikur pas humbjes së energjisë). Ju dëshironi ta ndizni atë pas humbjes së energjisë. Sigurohuni që të ruani cilësimet tuaja dhe dilni nga bios. Tani kur energjia juaj dështon ose e shkëputni makinën nga priza ajo do të rindizet sapo të rimarrë energjinë. Yeahhhhhh !!!!!!!!!!!!!!!!

Hapi 2: Shkrimi i Skenarit Pjesa 1: Bërja e një Plani

Gjëja e parë që duam të bëjmë është të krijojmë një plan. Çfarë saktësisht duam që skenari të bëjë. A.) Kur energjia dështon ose shfaqet BSOD ne duam që ai të rindizet. (Kujdes në hapin 1 Redaktimi i BiosB.) Sapo të rindizet ne duam t'i shkruajmë një skedari datën dhe kohën e saktë të rindezjes. C.) Ne duam të jemi në gjendje ta ndryshojmë atë dosje. Nëse rindizet më shumë se një herë ne kurrë nuk do ta dinim. D.) Ne duam që ajo të ketë korrigjim gabimi, kështu që nuk prish dhe ne sigurohemi që të marrim të gjitha rindezjet tona pa humbur asnjë për shkak të kodimit të keq. E.) Ne e duam atë për të shfaqur një mesazh duke thënë se është rindezur.

Hapi 3: Shkrimi i Skenarit Pjesa 2: Krijimi i Shkrimit tuaj dhe Caktimi i Ndryshoreve

Në rregull, së pari, krijoni një dokument teksti dhe riemëroni atë në any_name.vbs. Kam përdorur shutdown_catcher.vbs, por ju mund të përdorni çdo gjë. Tani thjesht klikoni me të djathtën në skedarin vbs dhe shtypni edit. Nëse përdorni notepad ++ tani do të ishte një kohë e mirë për ta hapur atë, nëse nuk planifikoni të bëni ndonjë sasi kodimi duhet të shikojmë për ta marrë atë. Mirë tani gjëja e parë që duam të bëjmë është të krijojmë variabla. Variablat janë në thelb vetëm një mbajtës vendesh, kështu që ne nuk kemi pse të shkruajmë një bandë të tërë sendesh disa herë. shembull: ne kemi një fjali që thotë "dhelpra kafe e shpejtë kërcen mbi qentë dembelë mbrapa". por është në kodin tonë 20 herë. ne ose mund të shtypim të gjithë fjalinë 20 herë ose të krijojmë një variabël dhe t'i caktojmë fjalinë atij variabli Kështu që në këtë shembull ne krijojmë variablin strSentence pastaj caktojmë "dhelpra kafe e shpejtë kërcen mbi qentë dembelë" atij ndryshoreje. Tani gjithçka që duhet të bëjmë është të shkruajmë fjalinë str sa herë që kemi nevojë për fjalinë dhe ajo di të shkruajë "dhelpra e shpejtë kafe hidhet mbi qentë dembelë" si ta bëjmë atë: Nëse kemi shumë variabla të të njëjtit lloj, mund të vendosim ato në të njëjtën linjë dhe ndani ndryshoret me presje. Për të krijuar një ndryshore duhet të bëjmë atë që quhet dimensionimi i ndryshores. Për ta bërë këtë, ne shtypim Dim para ndryshores, pastaj vendosim një parashtesë në ndryshore, në mënyrë që të dimë se çfarë përfaqëson ndryshorja. Shembujt janë str për një variabël varg obj për një objekt të ndryshueshme const për një konstante…. Lista vazhdon dhe vazhdon. këto janë ato që do të përdorim në këtë shkrim, kështu që unë do t'i shpjegoj pak. një varg është zakonisht tekst si një fjali. Një objekt është zakonisht diçka fizike si një skedar ose një program. dhe një konstante është diçka që do të ketë gjithmonë të njëjtin kuptim gjatë gjithë skenarit. SHOTNIM: Cdo KOH A NJINE LIN H KA NJ S VETM PARA PR T L TYRE LINJA DO T I INJOROHET NGA SHKRIMI. Ato quhen vërejtje dhe zakonisht vendosen nga programuesi kështu MUND T R MBAJN PARA ÇFAR D BIDN M WH VON WH KUR RISHIKONI KODIN. Unë do t'i përdor ato për të bërë komente për kodin, kështu që ju mund të shihni se pse kam ngatërruar mënyrën që kam bërë. DHE ATA DO T BE JEN MO sipër vijës që komentojnë. Përdorimi aktual: 'kjo linjë ju detyron të përcaktoni të gjitha ndryshoret. Pa të, çdo ndryshore e papërcaktuar do të trajtohet si një objekt Opsioni i qartë tani, ne krijojmë 5 variabla për dosjet dhe skedarët që do të na duhen, emërtojini si të doni, por konventa është për të krijuar variabla të vargut për drejtorinë, skedarin dhe emrin e skedaritDim strDir, strFile, strFileName tani i caktoni vlerat variablavethe strDir është drejtoria jonë ne duam dosjen në strDir = "C: / Catcher" 'strFile është aty ku duam dokumenti i tekstit dhe si quhet aistrFile = "\ Shutdown_catcher.txt" 'emri strfile është kështu që ne kemi emrin e skedarit për përdorim në pop upsstrFileName = "Shutdown_catcher.txt"' më pas duhet të caktojmë një konstante për të hyrë në ne kemi tre opsione 'ne do të përdorim vetëm shtojcën në këtë kod, por është mirë t'i njohim të gjitha. Const forReading = 1, forWriting = 2, ForAppending = 8'fundimisht ne duhet të vendosim një ndryshore në sistemin e skedarëve objekt kështu që ne mund ta quajmë më vonë kur të kemi nevojë për të vendosur objFiS yOb = CreateObject ("Scripting. FileSystemObject")

Hapi 4: Shpjegime në mes

Tani që kemi dimensionuar variablat tanë, e tëra çfarë duhet të bëjmë është të kujtojmë atë ndryshore specifike çdo herë. Kjo jo vetëm që zvogëlon sasinë e shtypjes që bëjmë, por gjithashtu krijon më pak gabime për shkak të drejtshkrimeve të gabuara. Tani teknikisht gjithçka që duhet të bëjmë është të shkruajmë kodin e mëposhtëm dhe ne kemi mbaruar 'vendosni skedarin për appendSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) 'shkruani rreshtin e ri në fileobjTextFile. WriteLine ("Kompjuteri juaj fiket" & data & "në" & kohë) "mbyllni fileobjTextFile. Close'bëni një pop upWscript. Echo (" Your kompjuter Mbyllur në "& date &" at "& time) 'hapni skedarin në IESet objShell = KrijoObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Problemi është se nuk do të ketë asnjë korrigjim gabimi, dhe çdo gabim i thjeshtë si skedari që nuk ekziston ose variabli i caktuar tashmë do të rrëzojë skriptin.

Hapi 5: Shkrimi i Skenarit Pjesa 3: Nëse Atëherë Deklaratat Si Korrigjim Gabimi

Mënyra më e lehtë për të bërë korrigjimin e gabimit është të përdorni pohimet if/pastaj. Në thelb një deklaratë if atëherë thotë nëse ndodh diçka, atëherë bëni këtë përndryshe bëni atë. Duke futur deklaratat nëse/atëherë ju mund të krijoni një varg gjërash që duhet të ndodhin. Nëse a dhe b dhe c ndodhin atëherë bëni këtë gjë tjetër. Shembull: ne duam të sigurohemi që skedari ku duam t'i shkruajmë është aty nëse e gjejmë nuk duam të bëjmë asgjë nëse nuk e gjejmë duam ta krijojmë ose doni të kontrolloni nëse dosja është atje dhe nëse jo krijojeni atë dhe pastaj kontrolloni nëse skedari është atje sapo ta gjejmë dosjen dhe nëse jo krijoni atë i pari është një shembull i një deklarate if atëherë e dyta është një fole nëse atëherë. ne e bëjmë atë: ka katër pjesë në një deklaratë if atëherë nëse/atëherë tjetërend nëse është në thelb nëse kjo është e vërtetë atëherë bëni këtë përndryshe bëni atë pastaj përfundoni deklaratën një deklaratë e koduar siç duhet nëse atëherë deklarata do të ishte: Nëse diçka = diçka Pastaj bëni atë që ju duhet të bëni, tjetër Bëni diçka tjetër Fundi Nëse mund të përdorni ndonjë argument për sa kohë që është i vërtetë, ai do të ndjekë pjesën e atëhershme dhe do të injorojë pjesën tjetër, por nëse është e rreme do të kalojë atëherë dhe do të shkojë te tjetra Pastaj kur të përfundojmë deklaratën if ne vendosim "fund nëse", por nëse kemi fole nëse deklaratat duhet të përfundojmë çdo pohim if. Do t'i përfundojë ata nga fëmija në prind, kështu që "përfundimi i parë" përfundon deklaratën if brenda prindit, ku e dyta përfundon deklaratën origjinale (prindi) nëse. Për të bërë një pop up, ne thjesht shtypim Wscript. Echo ("çfarëdo ne duam të themi në mesazh ") për të shtuar një vlerë të ndryshoreve në të, e vendosim atë jashtë ose në mes të kuotave të dyfishta duke përdorur shenjën ampersand (&) si një ndarës, kështu që skenari e di që është një ndryshore dhe jo një tekst. si kjo: Wscript. Echo ("Blah blah blah" & strDir & "bla bla bla" & strFilename & "blah blah blah.") Rezultati do të jetë një pop up që thotë Blah blah blah C: / Catcher blah blah bla bla shutdown_catcher.txt blah blah blah. Përdorimi aktual: 'nëse dosja C; / ekziston Nëse objFiSyOb. FolderExists (strDir) Pastaj merrni dosjen Vendosni objSysFold = objFiSyOb. GetFolder (strDir)' përndrysheIsese krijoni dosjen c; / catcher Set objSysFold = objFi Krijoni Dosje (strDir) 'dhe kontrolloni për të parë nëse skedari dhe dosja ekzistojnë Nëse objFiSyOb. FileExists (strDir & strFile) Pastaj' nëse merr dosjen c: / catcher Set ob jSysFold = objFiSyOb. GetFolder (strDir) 'elseElse'create text text shutdown_catcher.txt Set objFile = objFiSyOb. CreateTextFile (strDir & strFile)' pastaj shfaq një mesazh për të thënë se i keni krijuar të dyja dosjet Wscript. Echo (" me emrin "& strDir &" dhe një skedar të quajtur "& strFilename &" dhe e vendosi atë në drejtorinë "& strDir & strFile &". ") 'mbyllet me deklaratën ne tashmë kemi kontrolluar për dosjen dhe e kemi gjetur atë, kështu që tani ne kontrollojmë për fileIf objFiSyOb. FileExists (strDir & strFile) Pastaj 'nëse gjendet merrni dosjen Set objSysFold = objFiSyOb. GetFolder (strDir)' përndryshe Krijoni tekstin e dokumentit Set objFile = objFiSyOb CreateTextFile (strDir & strFile) 'krijoni një dritare që shfaqet duke thënë se ne krijuam dokumentin e tekstit Wscript. Echo ("Ne kemi krijuar një skedar të quajtur" & strFileName & "në dosjen e skedarit" & strDir & "") Fundi Nëse

Hapi 6: Shpjegime në mes

Nëse shikoni nga afër kodin nga hapi i mëparshëm, do të shihni një deklaratë të mbivendosur dhe të pafolendur nëse atëherë. E para është një deklaratë e vendosur. Kontrollon dosjen dhe skedarin dhe nëse nuk i gjen krijon të dyja. E dyta kërkon vetëm një skedar dhe nëse nuk e gjen, krijon vetëm skedarin. Dikush mund të thotë pse të dyja. Epo, çfarë ndodh nëse skedari fshihet, por dosja nuk është. Deklarata e parë if do të kalonte menjëherë mbi krijimin e skedarit sepse gjeti dosjen dhe nuk do të aktivizonte kurrë pjesën tjetër të deklaratës. Pra, kur shkoni për të shkruar në skedar do të gabonte sepse skedari do të mungonte. Pra, duke pasur të dytin atje zgjidh këtë problem. Teknikisht ju mund të hiqni deklaratën e mbivendosur sepse është pothuajse e njëjtë me deklaratën e dytë nëse atëherë, por atëherë do të kishit vetëm një dalje dhe nuk do të ishte aq e personalizueshme Plus ajo më dha një shans për t'ju treguar të folezuar në krahasim me un -nested if deklarata.

Hapi 7: Më shumë korrigjim gabimi

Tani që kemi përfunduar shumicën e korrigjimit të gabimit, ne duam t'i shkruajmë skedarit dhe të shfaqim dritaret që shfaqen. Problemi është se do të marrim gabime leje nëse nuk lëshojmë referencën e objektit të mëparshëm të ruajtur në ndryshore. Pra, ne duam të vendosim një pjesë të vogël të kodit që thotë vendosni variablat në asgjë. Shikon si kjo: vendosni objFile = nothingset objSysFold = asgjë Ashtu që për ata prej jush që ndjekin në shtëpi kodin tuaj në këtë pikë duhet të jetë (mora komentin jashtë): Opsioni ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.txt" strFileNc = 1, ShRexting = for, ShRexting = 2, Shutdown ForAppend = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Nëse objFiSyOb. FolderExists (strDir) Pastaj Vendosni objSysFold = objFiSyOb. GetFolder (strDir) Else Set objSysFold_obirdshtr Set objSysFold = objFiSyOb. GetFolder (strDir) Tjetër Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Ne kemi krijuar një dosje të quajtur" & strDir & "dhe një skedar të quajtur" & strFilename & "dhe e kemi vendosur në drejtoria "& strDir & strFile &". ") Fundi I fEnd IfIf objFiSyOb. FileExists (strDir & strFile) Pastaj Vendosni objSysFold = objFiSyOb. GetFolder (strDir) Tjetër Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("& "& strDir &" dosja e skedarëve. ") Fundi Ifset objFile = nothingset objSysFold = asgjë

Hapi 8: Shkrimi i Skenarit Pjesa 4: Vendosja e Atributeve

Tani ne duhet të vendosim atributet në skedar në mënyrë që ta ndryshojmë atë. Më parë kemi vendosur tre variabla konstante: forReading = 1forWriting = 2 forAppend = 8 nëse e vendosni në forReading do të keni mundësi ta lexoni por jo t'i shkruani. Nëse e vendosni në forWriting do të mbishkruani skedarin ekzistues sa herë që drejtoni programin Me Nëse e vendosni në forAppending ju do të shtoni një rresht të ri sa herë që skenari ekzekutohet në dokument. Meqenëse ne duam një regjistër të çdo herë që ai rindizet ne duam që ai të shtohet dhe të mos shkruhet më shumë kështu që ne përdorim përAppending. Si e bëjmë atë: ju duhet të emërtoni objektin të cilit dëshironi t'i vendosni atributet. Meqenëse ne kemi bërë tashmë pjesën më të madhe të punës në hapat e mëparshëm, ne vetëm duhet të kujtojmë variablat në këtë pikë. Pastaj thjesht vendoseni në të vërtetë. Përdorimi aktual: 'objekt për të vendosur = filesystemobject.action (drejtori+emri i skedarit, atributi, i vërtetë ose i rremë) Vendosni objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)

Hapi 9: Shkrimi i Skenarit Pjesa 5: Shkrimi në Skedar

Shkrimi në një skedar është shumë si të shkruash një pop -up. Thjesht vendosni: objTextFile. WriteLine ("Çfarëdo që dëshironi të thoni" & Variabla për të tërhequr për të shkruar rreshtin) Dallimi i vetëm është pjesa e parë. Në një pop up ju vendosni: Wscript.echoin një linjë shkrimi që vendosni: objTextFile. WriteLineAdhe në një rresht shkrimi ju duhet të mbyllni rreshtin e shkrimit që të dijë të ndalojë së shkruari dhe për këtë përdorni: objTextFile. ClosePërdorimi Aktual: objTextFile. WriteLine ("Kompjuteri juaj fiket" & data & "në" & kohë) objTextFile. mbyll tani shtoni një dritare kërcyese për të thënë se i keni shkruar skedarit në mënyrë që personi ta dijë se ka ndodhur dhe ata duhet ta mbyllin atë për të hapur skedarin dhe për të parë & koha)

Hapi 10: Shkrimi i Skenarit Pjesa 5: Hapja e Skedarit për Shikim

Skenari në këtë pikë do të ndalet derisa dikush të klikojë në dritaren që shfaqet. Pasi të keni kaluar pop -up -in, mund të vendosni një rresht që hap skedarin. Përdorimi i disa korrigjimeve të gabimeve në të ndihmon që programi të funksionojë mirë. Kur krijoni një gabim në vbscript, ai i shton një vlerë ndryshores "err.number", e cila është një ndryshore e paracaktuar në vbscript. Ju nuk keni pse ta përcaktoni atë dhe mund ta përdorni ashtu si çdo ndryshore tjetër për sa kohë që nuk shkelni rregullat e tij. Vlera e caktuar për ndryshoren err.numer është kodi për gabimin që ka ndodhur. Tani ose mund të kontrolloni për çdo kod gabimi të njohur në bazën e të dhënave vbscript dhe të siguroheni që nuk ka ndodhur. Ose më e lehtë, është vetëm të kontrolloni për të siguruar që ndryshorja e numrit er është bosh. nëse është bosh asnjë gabim nuk ka ndodhur. Për ta bërë këtë, ne thjesht kontrollojmë nëse ndryshorja është e barabartë me vbEmpty. Pra, në shkrimin tonë ne duam të përdorim një deklaratë tjetër if atëherë. Dhe kontrolloni për të parë nëse ka ndodhur një gabim dhe nëse nuk e ka hapur skedarin për shikim, por nëse ka ndodhur atëherë shfaqet një mesazh me numrin e gabimit në të, në mënyrë që të debugojmë. Pastaj, kur të gjithë të mbarojmë me skriptin tonë, ne lloji Wscript. Dalje. Kjo i thotë skenarit të përfundojë vetë. Kjo ndihmon për të mbajtur poshtë rrjedhjet e kujtesës dhe proceset e padëshiruara që funksionojnë. Si përdoret: nëse numri i gabuar është i barabartë me vb errorIf err.number = vbEempty atëherë 'nëse askush nuk krijon një predhë Set objShell = CreateObject ("WScript. Shell")' pastaj hapeni skedarin nga ajo shell duke përdorur explorer. në të vërtetë do të hapet në IE edhe pse objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") 'përndryshe do të shfaqet një mesazh me numrin e gabimitElse WScript.echo "Gabim VBScript:" & err.numberEnd Nëse 'fund scriptWscript.quit

Hapi 11: Marrja e Skriptit për t'u nisur gjatë fillimit

Ekziston një dosje skedarësh në menunë e fillimit të quajtur Startup. Çdo gjë e vendosur në këtë dosje do të fillojë sapo kompjuteri të jetë nisur. Duke e vendosur skedarin e skriptit në dosjen e fillimit, ai do të ekzekutohet sa herë që kompjuteri rindizet, me qëllim apo jo. Meqenëse po e përdor këtë vetëm si një mjet diagnostikues, nuk ka nevojë të bëhet një shërbim për të filluar, dhe nuk kam nevojë ta fus atë në regjistër për ta filluar, kështu që kjo do të jetë mirë. Pasi të rregulloj kompjuterin, mund ta fshij skedarin nga dosja e fillimit dhe nuk kërkohet pastrim tjetër.

Hapi 12: Drejtimi i Programit

Kur ekzekutoni skedarin vbscript tani do të jetë A.) Kontrolloni për të parë nëse dosja C: / Catcher ekziston dhe nëse nuk e krijoni atë. B:) Kontrolloni për të parë nëse skedari Shutdown_catcher.txt ekziston dhe nëse nuk e krijoni atë. C:) Nëse krijon ose një dosje ose skedar ose të dyja, do të shfaqet një mesazh që thotë se i ka krijuar (Shënim: duhet ta bëjë këtë vetëm në ekzekutimin e parë pasi që ai tashmë duhet të jetë atje nëse nuk fshihet kështu që ju duhet ta shihni atë mesazh vetëm një herë MeMund të jetë një ide e mirë për të ekzekutuar këtë skenar një herë nën një rindezje të kontrolluar, në mënyrë që të anashkaloni këto dritare pop -up ose të mos shkruani asgjë në skedar sepse nuk do të anashkalojë skedarin pop -up të krijuar.) D:) Shkruani një rresht në dokument teksti Shutdown_Catcher.txt duke thënë se kompjuteri fiket në një dhe një datë të tillë në atë kohë. E:) Hapni një mesazh duke thënë se ka pasur një rindezjeF:) Hapni skedarin për shikim. Nëse shikoni në hapin tjetër ju do të shihni kodin siç është shkruar. Tani gjithçka që duhet të bëj është të ulem dhe të pres. Sa herë që kompjuteri rindizet do të kem një regjistrim të tij. Pastaj mund ta rishikoj regjistrimin dhe të shoh nëse ka ndonjë qëndrueshmëri në të. Shembull mund të jetë që ai të rindizet çdo gjysmë ore ose të rindizet sa herë që ka një rritje ose 45 në orë. Kjo nuk është aspak mënyra e vetme që po kontrolloj kompjuterin, vetëm për ta ditur. Unë gjithashtu kam një program krahasimi për të kontrolluar temperaturat, kështu që e di se sa nxehtë është kur fiket, tension kështu që unë e di nëse furnizimi me energji po dështon, dhe disa gjëra të tjera të dobishme. Epo, shpresoj se kjo ishte e dobishme. E di që më pëlqen, kështu që ndoshta edhe të tjerët do ta pëlqejnë. Nëse keni ndonjë pyetje mos ngurroni të pyesni. Mund të mos shkoj tek ata menjëherë, por me pak dhe do t'ju përgjigjem. Varet se si po kalon dita/java ime.

Hapi 13: Kodi

Ky është kodi i shkruar pa të gjitha sugjerimet dhe vërejtjet_Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher." = Shutdown_catcher. " Const forReading = 1, forWriting = 2, ForAppend = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Nëse objFiSyOb. FolderExists (strDir) Pastaj Vendosni objSysFold = objFiSyOb. GetFoldElder (StrDDjFySOFE) Folder (strDjjFirShirFolder) (strDDjFirFirDir) objFiSyOb. FileExists (strDir & strFile) Pastaj Vendosni objSysFold = objFiSyOb. GetFolder (strDir) Tjetër Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Dhe kemi krijuar një dosje të quajtur &" "& strFilename &" dhe e vendosi atë në drejtorinë "& strDir & strFile &". ") Përfundoni IfEnd IfIf objFiSyOb. FileExists (strDir & strFile) Pastaj Vendosni objSysFold = objFiSyOb. GetFolder (strDir) Tjetër Set objFile = objFiSy strDir & strFile) Wscript. Echo ("Ne kemi krijoi një skedar të quajtur "& strFileName &" në dosjen e skedarit "& strDir &". ") Përfundoni Ifset objFile = nothingset objSysFold = asgjëSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) objTextFile." Mbyllni "& date &" në "& kohë) objTextFile. CloseWscript. Echo (" Kompjuteri juaj fiket "& data &" në "& kohë) Nëse err.number = vbEempty atëherë Vendosni objShell = Krijoni Objekt (" WScript Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Tjetër WScript.echo" Gabim VBScript: "& err.numberPërfundo IfWScript. Quit