Inleiding tot VB Script: 'n Beginnersgids: Deel 2: Werk met lêers: 13 stappe

2024 Outeur: John Day | [email protected]. Laas verander: 2024-01-30 07:28

In my laaste VBScript -instruksie het ek gekyk hoe ek 'n script kan maak om u internet af te sluit om Xbox360 te speel. Vandag het ek 'n ander probleem. My rekenaar is toevallig gesluit en ek wil elke keer dat die rekenaar weer in 'n lêer aanmeld, aanmeld. Ek het 'n gevoel dat die probleem die videokaart is, maar ek wil seker maak. Ek laat die rekenaar te alle tye aan, maar kan dit nie 24/7 monitor nie, so my maklikste oplossing is om 'n tydstempel na 'n lêer te skryf elke keer as dit weer begin. Omdat dit my elke keer 'n BSOD gee, sal dit moeilik wees om aan te meld wanneer dit afskakel, so ek moet dit kry as dit weer aangaan. Omdat dit net tydelik is totdat ek agterkom wat fout is met die rekenaar, gaan ek nie aan die register skryf of dit 'n diens maak nie, sodat dit met opstart kan begin. En om dit te laat herlaai elke keer as dit afskakel, moet ek die bios wysig.

Stap 1: Bewerk die Bios om weer te begin herlaai by kragonderbreking

Ek is nie seker of die probleem is dat die kragbron nie werk nie, of met my videokaart of wat dit is. Maar ek weet dat die rekenaar so gereeld herlaai word. Om seker te maak dat dit weer begin na 'n kragonderbreking (dit wil sê: die kragtoevoer word bruin) wil ek die bios redigeer. Omdat daar soveel verskillende bios -vervaardigers daar is, sal dit te moeilik wees om al die verskillende maniere om dit op al die verskillende bioskerms te doen, so ek gee u die basiese beginsels en laat u uitvind die besonderhede op u eie. Om in u bios te kom, moet u op die knoppie druk tydens die opstart. Gewoonlik sal dit iets sê soos "druk op Del om op te tree" of "F2". Verskillende vervaardigers gee u verskillende maniere, maar dit is gewoonlik 'F2' of 'Del' sleutel. Kyk in elk geval daarna en druk op die sleutel waarmee u moet druk. Nou kom u na 'n skerm wat gewoonlik grys of blou is, maar dit hang weer af van die bios -merk. U sal op soek wees na 'n opsie vir kraginstellings. Dit sal óf op 'n eie venster verskyn, soos in die AMIBIOS -skermkiekie (geleen by die hardeware -gids van toms), of in sommige kan dit in 'n gevorderde bios -venster verskyn. U is in elk geval op soek na 'n instelling vir 'herstel van wisselstroom/kragverlies'. Dit kan iets anders genoem word, maar dit sal naby wees. Soek dit net. Dit het gewoonlik drie opsies (laaste toestand, aan na kragverlies, af na kragverlies). U wil dit aanskakel na kragverlies. Maak seker dat u u instellings stoor en die bios verlaat. As u krag onderbreek, of as u u masjien uit die stekker trek, sal dit herlaai sodra die krag terug is. Jahhhhh !!!!!!!!!!!!!!!!

Stap 2: Skryf van die draaiboek Deel 1: Maak 'n plan

Die eerste ding wat ons wil doen, is om 'n plan te maak. Wat wil ons presies hê dat die script moet doen. A.) As die krag uitval of die BSOD opduik, wil ons hê dat dit moet herlaai. (Versorg in stap 1 Bewerking van die BiosB.) Sodra dit weer begin, wil ons die presiese datum en tyd waarop dit weer begin, na 'n lêer skryf. C.) Ons wil die lêer kan wysig. As dit meer as een keer herlaai, sou ons nooit weet nie. D.) Ons wil hê dat die fout reggestel moet word, sodat dit nie verval nie en ons sorg dat ons al ons herlaai kry sonder om dit te misloop vanweë die slegte kodering. E.) Ons wil dit hê om 'n boodskap te laat verskyn waarin gesê word dat dit herlaai word. F.)

Stap 3: Skryf van die script Deel 2: Maak u script en ken die veranderlikes toe

Ok, eerste, skep 'n teksdokument en hernoem dit na any_name.vbs. Ek het shutdown_catcher.vbs gebruik, maar jy kan enigiets gebruik. Klik nou met die rechtermuisknop op die vbs -lêer en druk op edit. As jy notepad ++ gebruik, is dit 'n goeie tyd om dit oop te maak, as jy nie van plan is om jou te kodeer nie. moet kyk of u dit moet kry. Nou, die eerste ding wat ons wil doen, is om veranderlikes te skep. Veranderlikes is basies net 'n plekhouer, so ons hoef nie 'n hele paar dinge 'n hele paar keer te skryf nie. voorbeeld: ons het 'n sin wat sê "die vinnige bruin jakkals spring oor die lui honde terug". maar dit is 20 keer in ons kode. ons kan óf die hele sin 20 keer tik óf 'n veranderlike skep en die sin aan daardie veranderlike toewys So in hierdie voorbeeld skep ons die veranderlike strSentence en ken dan "die vinnige bruin jakkals spring oor die lui honde terug" toe aan die veranderlike. Al wat ons hoef te doen is om strSentence in te tik elke keer as ons die sin nodig het, en dit weet om 'die vinnige bruin jakkals spring oor die lui honde terug', hoe doen ons dit: as ons verskeie veranderlikes van dieselfde tipe het, kan ons dit plaas hulle op dieselfde reël en skei die veranderlikes deur kommas. Om 'n veranderlike te skep, moet ons doen wat die veranderlike genoem word. Om dit te doen, tik ons Dim voor die veranderlike, dan plaas ons 'n voorvoegsel op die veranderlike sodat ons weet wat die veranderlike voorstel. Voorbeelde is str vir 'n string veranderlike obj vir 'n objek veranderlike const vir 'n konstante …. Die lys gaan aan en aan. dit is diegene wat ons in hierdie skrif sal gebruik, so ek sal hulle 'n bietjie verduidelik. 'n string is gewoonlik teks soos 'n sin. 'N Voorwerp is gewoonlik iets fisies soos 'n lêer of 'n program. en 'n konstante is iets wat altyd dieselfde betekenis in die hele skrif sal hê. OPMERKING: ELKE KEER HET 'N LYN' N ENKELE 'VOORDAT DIE LYN DEUR DIE SKRIF WORD GE IGNOREGEERD. HULLE WORD OPMERKINGE genoem en word gewoonlik deur die programmeerder ingedien HULLE KAN ONTHOU WAT HULLE LATER GEHAD HET MET DIE OORSIG VAN DIE KODE. EK SAL HULLE GEBRUIK OM OPMERKINGS OOR DIE KODE TE Lewer, sodat jy kan sien hoekom ek die manier waarop ek dit gedoen het, STOP. EN HULLE SAL BO BO DIE LYN WEES HULLE KOMMENTAAR: Werklike gebruik: 'hierdie reël dwing u om alle veranderlikes te definieer. Sonder dit sal enige ongedefinieerde veranderlike as 'n objectOption eksplisiet behandel word, en nou skep ons 5 veranderlikes vir die vouers en lêers, ons sal hulle nodig hê, maar die konvensie is preNameDim objFiSyOb, objSysFold, objShell, objFile, objTextFile nou benodig ons om stringveranderlikes vir die gids, lêer en lêernaam te skep Dim strDir, strFile, strFileName nou ken waardes toe aan die veranderlikes 'die strDir is ons gids, ons wil die map in strDir = "C: / Catcher"' die strFile is waar ons wil die teksdokument en wat dit genoem wordstrFile = "\ Shutdown_catcher.txt" 'die naam van die lêer is sodat ons die naam van die lêer het om in pop upsstrFileName = "Shutdown_catcher.txt"' volgende te gebruik, ons moet 'n konstante toewys vir toegang tot die Ons het drie opsies, ons sal slegs die byvoeging in hierdie kode gebruik, maar dit is lekker om hulle almal te ken. konst forReading = 1, forWriting = 2, ForAppending = 8 voorwerp, sodat ons dit later kan noem wanneer ons dit nodig het Stel objFiS in yOb = CreateObject ("Scripting. FileSystemObject")

Stap 4: Verduidelikings tussenin

Noudat ons ons veranderlikes gedimensioneer het, hoef ons net elke keer die spesifieke veranderlike te onthou. Dit verminder nie net die hoeveelheid tik wat ons doen nie, maar dit veroorsaak ook minder foute as gevolg van spelfoute. Tegnies hoef ons net die volgende kode in te voer en ons is klaar 'stel die lêer in vir appendingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) 'skryf die nuwe reël na die fileobjTextFile. WriteLine ("Jou rekenaar sluit af op" & datum & "by" & tyd)' sluit die fileobjTextFile. Close'maak 'n pop -upWscript. Echo ("Jou rekenaar Sluit af op "& datum &" by "& tyd) 'maak die lêer oop in IESet objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Die probleem is dat daar geen foutoplossing is nie, en enige eenvoudige fout, soos die lêer wat nie bestaan nie, of die veranderlike wat reeds toegeken is, sal die script verongeluk.

Stap 5: Skryf die script Deel 3: As dan verklarings as foutregstelling

Die maklikste manier om foutkorrigering uit te voer, is om as/dan -stellings te gebruik. Basies 'n as -dan -verklaring sê as iets gebeur, doen dit anders. Deur as/dan stellings te maak, kan u 'n reeks dinge skep wat moet gebeur. As a en b en c gebeur, doen dit dan anders, byvoorbeeld: ons wil seker maak dat die lêer waarheen ons wil skryf, daar is, as ons dit vind, wil ons niks doen nie, as ons dit nie vind nie, wil ons dit skep of ons wil u kyk of die gids daar is en indien nie, dan kan u kyk of die lêer daar is sodra ons die gids gevind het en indien nie, is die eerste 'n voorbeeld van 'n as dan -verklaring, die tweede is 'n geneste as dan. ons doen dit: daar is vier dele van 'n as dan stelling as/dan andersend as dit basies is as dit waar is, doen dit anders doen dit dan eindig die stelling 'n behoorlik gekodeerde as dan stelling sou wees: As iets = iets Doen dan wat u nodig het, doen anders iets anders En as u enige argument kan gebruik, solank dit waar is, sal dit die dan -gedeelte volg en die ander deel ignoreer, maar as dit onwaar is, sal dit die dan oorskiet en na anders gaan, dan as ons die if -stelling beëindig ons sit 'einde as', maar as ons as stellings geneste het, moet ons elke as -stelling beëindig. Dit sal hulle van kind tot ouer beëindig, so die eerste 'end as' eindig die if -verklaring binne die ouer, waar die tweede een die oorspronklike (ouer) if -verklaring eindig. Om 'n pop -up te maak, tik ons net Wscript. Echo ('wat ook al ons wil in die boodskap sê ") om 'n veranderlike waarde daarby te voeg, plaas ons dit buite of tussen dubbele aanhalings met behulp van die ampersand (&) teken as 'n skeidingsteken, sodat die skrif weet dat dit 'n veranderlike is en nie 'n teks nie.: Wscript. Echo ("Blah blah blah" & strDir & "blah blah blah" & strFilename & "blah blah blah.") Die uitset sal 'n pop -up wees wat sê Blah bla bla C: / Catcher bla bla bla shutdown_catcher.txt bla bla bla. Werklike gebruik: 'as die gids C; / exist If objFiSyOb. FolderExists (strDir) Then'get folder Set objSysFold = objFiSyOb. GetFolder (strDir)' elseElse'create the folder c; / catcher Set objSysFold = objFi CreateFolder (strDir) 'en kyk of die lêer en vouer bestaan As objFiSyOb. FileExists (strDir & strFile) Dan' as dit lêergids c: / catcher Stel ob jSysFold = objFiSyOb. GetFolder (strDir) 'elseElse'create text document shutdown_catcher.txt Stel objFile = objFiSyOb. CreateTextFile (strDir & strFile)' dan verskyn 'n boodskap om te sê dat u albei Wscript. Echo geskep het ("Ons het 'n map geskep met die naam "& strDir &" en 'n lêer met die naam "& strFilename &" en dit in die gids "& strDir & strFile &" geplaas. ')' end geneste as statementEnd If'end oorspronklike if statementEnd If'now in die eerste if -verklaring ons het reeds na die map gekyk en dit gevind, so nou kyk ons na fileIf objFiSyOb. FileExists (strDir & strFile) Toe'if gevind folder kry ObjSysFold = objFiSyOb. GetFolder (strDir) 'anders' maak die teks doc Stel objFile = objFiSyOb. CreateTextFile (strDir & strFile) 'skep 'n opspring waarin ons sê dat ons die teksdokument Wscript. Echo geskep het ("Ons het 'n lêer met die naam' & strFileName & 'in die' & strDir & 'lêermap geskep.)) Eindig as

Stap 6: Verduidelikings tussenin

As u die kode van die vorige stap noukeurig bekyk, sal u beide 'n geneste en 'n nie-geneste as-dan-verklaring sien. Die eerste een is 'n geneste verklaring. Dit kyk na die gids en lêer, en as dit nie gevind word nie, word albei gemaak. Die tweede soek net 'n lêer, en as dit nie gevind word nie, skep dit net die lêer. 'N Mens sou kon sê hoekom albei. Wat gebeur as die lêer uitgevee word, maar die gids nie? Die eerste if -stelling sou oor die skepping van die lêer slaan omdat dit die gids gevind het en nooit die ander deel van die verklaring sou aktiveer nie. As u dus na die lêer gaan skryf, kan dit fouteer omdat die lêer ontbreek. Dus, deur die tweede een daar te hê, los dit hierdie probleem op. Tegnies kan u die geneste verklaring uithaal, want dit is byna dieselfde as die tweede as dan, maar dan het u net een pop -up en dit sou nie so aangenaam wees nie. Plus, dit het my die kans gegee om te wys dat u geneste is in teenstelling met -geneste as verklarings.

Stap 7: Meer foutregstelling

Noudat ons die grootste deel van die foutregstelling voltooi het, wil ons aan die lêer skryf en die pop -ups wys. Die probleem is dat ons toestemmingsfoute sal kry as ons nie die verwysing van die vorige voorwerp wat in die veranderlike gestoor is, vrystel nie. Dus wil ons 'n klein stukkie kode inbring wat sê: stel die veranderlikes op niks. Lyk soos volg: stel objFile = nothingset objSysFold = niks. uit): Opsie ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.txt" strFileName = "ShutdownRcstring" ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") If objFiSyOb. FolderExists (strDir) Stel dan objSysFold = objFiSyOb. GetFolder (strDir) Else Set objSysFold = strjCSFirDr. SyFirDr. SyFirDr. SyFirDr. SyFirDr. SyFirDr. SyFirDr. SyFirDr. SyFirDr. SyFirDr. SyFirDr. SyFirDrSFI Stel objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Ons het 'n gids met die naam" & strDir & "en 'n lêer met die naam" & strFilename & "gemaak en dit in die "& strDir & strFile &" gids. ") Einde I lot IfIf objFiSyOb. FileExists (strDir & strFile) Toe het objSysFold = objFiSyOb. GetFolder (strDir) Else Stel objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo (& strFileName & "Ons het 'n lêer met die naam geskep" "in die "& strDir &" lêermap. ") Einde Ifset objFile = nothingset objSysFold = niks

Stap 8: Skryf van die script Deel 4: Kenmerke instel

Nou moet ons die eienskappe van die lêer stel sodat ons dit kan wysig. Voorheen het ons drie konstante veranderlikes gestel: forReading = 1forWriting = 2 forAppending = 8 as u dit op forReading gestel het, sal u dit kan lees, maar nie daaraan skryf nie.. As u dit vir forAppending instel, sal u elke keer 'n nuwe reël byvoeg wanneer die script na die dokument uitgevoer word.: u moet die voorwerp waarop u kenmerke wil stel, 'n naam gee. Aangesien ons reeds die meeste werk in die vorige stappe gedoen het, moet ons op hierdie stadium slegs veranderlikes oproep. Stel dit dan op true. Actual Usage: 'object to set = filesystemobject.action (gids+naam van lêer, kenmerk, waar of onwaar) Stel objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) in

Stap 9: Skryf van die script Deel 5: Skryf na lêer

Om na 'n lêer te skryf, is baie soos om 'n pop -up te skryf. U het net: objTextFile. WriteLine ("Wat u ook al wil sê" en veranderlike om in te skryf om reël te skryf) Die enigste verskil is die eerste deel. In 'n pop -up wat u plaas: Wscript.choin 'n skryfreël wat u plaas: objTextFile. WriteLineAn in 'n skryfreël moet u die skryfreël sluit sodat dit weet om op te hou skryf en daarvoor gebruik u: objTextFile. CloseActual Usage: objTextFile. WriteLine ("U rekenaar word afgesluit op" & date & "at" & time) objTextFile.close'now voeg 'n pop -up by om te sê dat u aan die lêer geskryf het sodat die persoon weet dat dit gebeur het, en hulle moet dit sluit om die lêer oop te maak en omWScript. Echo te sien ("U rekenaar word afgeskakel op" & date & "at" & tyd)

Stap 10: Skryf van die script Deel 5: Maak die lêer oop om te kyk

Die draaiboek stop op hierdie stadium totdat iemand op die pop -up klik. Sodra u die pop -up opduik, kan u 'n reël inbring wat die lêer oopmaak. Deur 'n mate van foutkorrigering te gebruik, help dit om die program goed te laat werk. As u 'n fout in vbscript skep, voeg dit 'n waarde by tot die 'err.number' veranderlike, wat 'n vooraf gedefinieerde veranderlike in vbscript is. U hoef dit nie te definieer nie en kan dit net soos enige ander veranderlike gebruik, solank u nie die reëls daarvan oortree nie. Die waarde wat aan die veranderlike err.number toegeken word, is die kode vir die fout wat plaasgevind het. U kan nou kyk na elke foutkode wat in die vbscript -databasis bekend is en seker maak dat dit nie voorkom nie. Of makliker, kyk net of die veranderlike err.number leeg is. as dit leeg is, het daar geen foute voorgekom nie. Om dit te doen, kyk ons net of die veranderlike gelyk is aan vbEmpty. In ons skrif wil ons dus 'n ander as -dan -verklaring gebruik. En kyk of daar 'n fout is en of die lêer nie oopgemaak is om te kyk nie, maar as dit wel verskyn, verskyn 'n boodskap met die foutnommer daarin, sodat ons kan ontfout. As ons dan klaar is met ons script, tik Wscript. Dit vertel die skrif om homself te beëindig. Dit help om die geheue lekkasies en ongewenste prosesse aan die gang te hou. Hoe dit gebruik word: as err.number gelyk is aan vbEmpty, skep dan 'n dop en voer dan die program uit die shell uit, anders verskyn 'n boodskap wat sê dat daar 'n fout was, as. errorsIf err.number = vbEmpty dan 'as niemand 'n dop skep nie Stel objShell = CreateObject ("WScript. Shell")' oop en open dan die lêer vanaf die dop met behulp van verkenner. dit sal eintlik in IE oopmaak, alhoewel objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") 'anders 'n boodskap verskyn met die foutnommer Else WScript.echo "VBScript -fout:" & err.numberEnd If 'end scriptWscript.quit

Stap 11: om die script aan die gang te kry tydens opstart

Daar is 'n lêergids in die beginmenu met die naam Opstart. Alles wat in hierdie gids geplaas word, sal begin sodra die rekenaar begin is. Deur die scriptlêer in die opstartmap te plaas, word dit uitgevoer elke keer as die rekenaar herlaai word, hetsy opsetlik of nie. Aangesien ek dit slegs as 'n diagnostiese hulpmiddel gebruik, hoef dit nie 'n diens te wees om te begin nie, en ek hoef dit nie in die register te plaas om dit te begin nie, so dit sal goed wees. Sodra ek die rekenaar reggemaak het, kan ek die lêer uit die opstartmap verwyder, en geen ander opruiming is nodig nie.

Stap 12: Begin die program

As u die vbscript -lêer uitvoer, sal dit nou A.) Kyk of die vouer C: / Catcher bestaan en as dit nie geskep is nie. B:) Kyk of die lêer Shutdown_catcher.txt bestaan en indien nie. C:) As dit 'n gids of lêer of albei geskep het, sal 'n boodskap verskyn wat sê dat dit dit wel gemaak het (let op: dit moet dit eers by die eerste keer doen, dan moet dit reeds daar wees, tensy dit uitgevee is, sodat u die boodskap slegs een keer moet sien. Dit kan 'n goeie idee wees om hierdie script een keer onder 'n beheerde herlaai uit te voer, sodat u hierdie pop -ups kan omseil, of dat u niks aan die lêer kan skryf nie, omdat dit nie die pop -ups wat gemaak is, omseil nie.) D:) Skryf 'n reël in die teksdokument Shutdown_Catcher.txt waarin gesê word dat die rekenaar op so 'n datum op so 'n datum gesluit word. u sal die kode sien soos geskryf. Nou hoef ek net terug te sit en wag. Elke keer as die rekenaar herlaai, sal ek 'n rekord daarvan hê. Dan kan ek die rekord hersien en kyk of dit konsekwent is. 'N Voorbeeld kan wees dat dit elke halfuur herlaai, of dat dit weer begin as daar 'n toename of 45 op die klok is. Dit is hoegenaamd nie die enigste manier waarop ek die rekenaar nagaan nie, net sodat u weet. Ek het ook 'n maatstafprogram om temps te kontroleer, sodat ek weet hoe warm dit is as dit afskakel, spanning, sodat ek weet of die kragtoevoer onderbreek, en 'n paar ander nuttige dinge. Wel, ek hoop dit was nuttig. Ek weet ek geniet dit, so miskien sal ander dit ook doen. As u enige vrae het, kan u dit gerus vra. Ek sal moontlik nie dadelik by hulle uitkom nie, maar eers 'n bietjie, en ek sal u antwoord. Hang af van hoe dit met my dag/week gaan.

Stap 13: Die kode

Dit is die kode soos dit geskryf is sonder al die wenke en opmerkings_Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catchtxt" = Shutdown_catcher.t " Const forReading = 1, forWriting = 2, ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") As objFiSyOb. FolderExists (strDir) Stel dan objSysFold = objFiSyOb. GetFolder (strDjCyFolse (Set) in objFiSyOb. FileExists (strDir & strFile) Stel dan objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Ons het 'n lêer met die naam" en "'n lêer met die naam" en "' "& strFilename &" en het dit in die gids "& strDir & strFile &" geplaas. ") Beëindig IfEnd IfIf objFiSyOb. FileExists (strDir & strFile) Stel dan objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSy strDir & strFile) Wscript. Echo ("Ons het het 'n lêer met die naam "& strFileName &" in die "& strDir &" lêermap geskep.)) Beëindig Ifset objFile = nothingset objSysFold = nothingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) objTextFine. Write Skakel af op "& datum &" op "& tyd) objTextFile. CloseWscript. Echo (" U rekenaar sluit af op "& datum &" by "& tyd) As err.number = vbEmpty dan stel objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Anders WScript.echo" VBScript -fout: "& err.numberEnd IfWScript. Quit