Panimula sa VB Script: isang Gabay sa Mga Nagsisimula: Bahagi 2: Paggawa Sa Mga File: 13 Mga Hakbang

2024 May -akda: John Day | [email protected]. Huling binago: 2024-01-30 13:16

Sa aking huling itinuro sa VBScript, nagpunta ako sa kung paano gumawa ng isang script upang patayin ang iyong internet upang i-play ang Xbox360. Ngayon may iba akong problema. Ang aking computer ay na-shut down nang random na oras at nais kong mag-log sa tuwing magre-boot ang computer sa isang file. Nararamdaman ko na ang problema ay ang video card ngunit nais kong tiyakin. Iniwan ko ang computer sa lahat ng oras ngunit hindi ko ito masubaybayan 24/7, kaya ang pinakamadali kong solusyon ay ang pagsulat ng isang time stamp sa isang file sa tuwing magre-reboot ito. Dahil nagbibigay ito sa akin ng isang BSOD tuwing oras, ang pag-log kapag ito ay tumigil ay magiging mahirap kaya kailangan kong makuha ito kapag bumalik ito. Iyon ang madaling bahagi. Dahil sa ang katunayan na ito ay pansamantala lamang hanggang sa malaman ko kung ano ang mali sa computer, hindi ako magsusulat sa pagpapatala o gawin itong isang serbisyo upang magsimula ito sa oras ng pag-boot. At upang mai-reboot ito sa tuwing mag-shut down kailangan kong i-edit ang bios.

Hakbang 1: Pag-edit ng Bios upang Kunin Ito upang I-reboot sa Nabigo sa Lakas

Hindi ako sigurado kung ang problema ko ay sa pagkabigo ng suplay ng kuryente o sa aking video card o kung ano ito. Ngunit alam ko na ang computer ay reboot nang madalas. Kaya't upang matiyak na ito ay muling pag-reboot pagkatapos ng isang pagkabigo ng kuryente (IE: ang supply ng kuryente ay brown) nais kong i-edit ang BIOS. Dahil sa ang katunayan na maraming mga iba't ibang mga gumagawa ng bios doon, napakahirap ilista ang lahat ng iba't ibang mga paraan upang magawa ito sa lahat ng iba't ibang mga screen ng bios kaya bibigyan lamang kita ng mga pangunahing kaalaman at hayaan kang malaman ang mga detalye sa iyong sarili. Talaga upang makapunta sa iyong bios kakailanganin mong pindutin ang isang pindutan sa boot. Karaniwan sasabihin nito ang isang bagay tulad ng "hit Del upang ipasok ang pag-setup" o "F2". Ang iba't ibang mga tagagawa ay nagbibigay sa iyo ng iba't ibang mga paraan ngunit karaniwang ito ay alinman sa "F2" o "Del" key. Alinmang paraan panoorin ito at pindutin ang key na sinasabi sa iyo na pindutin ito. Darating ka ngayon sa isang screen na karaniwang alinman sa kulay-abo o asul, ngunit muli ay nakasalalay ito sa iyong bios make. Hahanap ka ng pagpipilian sa mga setting ng kuryente. Ito ay maaaring nasa isang window ng lahat ng sarili nitong tulad ng sa shot ng screen ng AMIBIOS (hiniram mula sa gabay sa hardware ng toms) o sa ilang mga ito ay maaaring nasa isang advanced na window ng mga tampok na bios. Gayunpaman naghahanap ka para sa isang setting na "ibalik sa ac / pagkawala ng kuryente". Maaari itong mapangalanan ng iba pa ngunit malapit ito doon. Hanapin mo lang yan Karaniwan itong magkakaroon ng tatlong mga pagpipilian (huling estado, sa pagkatapos ng pagkawala ng kuryente, off pagkatapos ng pagkawala ng kuryente). Nais mong itakda ito sa pagkatapos ng pagkawala ng kuryente. Tiyaking nai-save mo ang iyong mga setting at lumabas sa bios. Ngayon kapag ang iyong lakas ay nabigo o na-unplug mo ang iyong makina ito ay mag-reboot sa lalong madaling makuha ang lakas. Yeahhhhhh !!!!!!!!!!!!!!!!

Hakbang 2: Pagsulat ng Iskrip Bahagi 1: Paggawa ng isang Plano

Ang unang bagay na nais naming gawin ay lumikha ng isang plano. Ano ang eksaktong nais na gawin ng script. A.) Kapag nabigo ang lakas o lumitaw ang BSOD nais naming i-reboot ito. (Pangalagaan sa hakbang 1 Pag-edit ng BiosB.) Sa sandaling ito ay muling pag-reboot nais naming magsulat sa isang file ng eksaktong petsa at oras ng muling pag-reboot nito. C.) Nais naming ma-amyenda ang file na iyon. Kung ito ay muling pag-reboot nang higit sa isang beses na hindi namin malalaman. D.) Nais namin na magkaroon ito ng pagwawasto ng error kaya't hindi ito nakakasama at tinitiyak naming makukuha namin ang lahat ng aming mga reboot nang hindi nawawala ang anuman dahil sa hindi magandang pag-coding. E.) Gusto namin ito upang mag-pop up ng isang mensahe na nagsasabing nag-reboot ito. F..) Nais naming buksan ang file na aming sinulat upang makita namin ang isang listahan ng lahat ng mga reboot kapag nag-click kami ng ok sa pop-up na mensahe.

Hakbang 3: Pagsulat ng Iskrip Bahagi 2: Paglikha ng Iyong Iskrip isang Pagtatalaga ng Mga variable

Ok muna ang mga bagay, lumikha ng isang dokumento ng teksto at palitan ang pangalan nito sa anumang_name.vbs. Gumamit ako ng shutdown_catcher.vbs ngunit maaari kang gumamit ng kahit ano. Ngayon tama lang i-click ang file ng vbs at pindutin ang i-edit. Kung gagamit ka ng notepad ++ ngayon ay isang magandang panahon upang buksan ito, kung hindi mo ngunit balak na gumawa ng anumang halaga ng pag-cod sa iyo dapat tingnan ang pagkuha nito. Ok ngayon ang unang bagay na nais nating gawin ay lumikha ng mga variable. Ang mga variable ay isa lamang may-hawak ng lugar kaya hindi namin kailangang magsulat ng isang buong grupo ng mga bagay-bagay nang maraming beses. halimbawa: mayroon kaming isang pangungusap na nagsasabing "ang mabilis na brown fox ay tumatalon sa mga tamad na aso pabalik". ngunit ito ay nasa aming code 20 beses. maaari nating mai-type ang buong pangungusap ng 20 beses o lumikha ng isang variable at italaga ang pangungusap sa variable na iyon. Kaya sa halimbawang ito nilikha namin ang variable strSentence pagkatapos ay italaga ang "ang mabilis na brown fox jumps sa mga tamad na aso pabalik" sa variable na iyon. Ngayon ang kailangan lang nating gawin ay i-type ang strSentence tuwing kailangan natin ng pangungusap at alam nitong mag-type ng "ang mabilis na brown fox na tumatalon sa mga tamad na aso pabalik" paano natin ito gagawin: Kung mayroon kaming maraming mga variable ng parehong uri maaari nating mailagay ang mga ito sa parehong linya at paghiwalayin ang mga variable sa pamamagitan ng mga kuwit. Upang lumikha ng isang variable kailangan nating gawin ang tinatawag na dimensioning na variable. Upang magawa ito ay nai-type namin ang Dim bago ang variable pagkatapos ay naglalagay kami ng isang unlapi sa variable upang malaman namin kung ano ang kinakatawan ng variable. Ang mga halimbawa ay str para sa isang variable ng obj ng string para sa isang variable ng bagay na const para sa isang pare-pareho …. Ang listahan ay nagpapatuloy. ito ang mga gagamitin natin sa script na ito kaya ipapaliwanag ko nang kaunti. ang isang string ay karaniwang teksto tulad ng isang pangungusap. Ang isang bagay ay karaniwang isang bagay na pisikal tulad ng isang file o isang programa. at ang isang pare-pareho ay isang bagay na palaging magkakaroon ng parehong kahulugan sa buong iskrip. TANDAAN: ANUMANG PANAHON ANG ISANG Linya AY MAY ISANG SINGLE 'BAGO ITO ANG LARO AY KILALAIN NG SCRIPT. TINATAWAG NA MGA SASABI AT LALAMANG INILALAMIN NG PROGRAMMER KAYA MAAARING MAAALALA NILA ANG GINAWA NITO SA LATER NANG REVIEWING THE CODE. GAMITIN KO SILA PARA MAGKOMENTO TUNGKOL SA CODE PARA MAKITA NYO KUNG BAKIT AKO NAGAWA NG STUFF SA PARAAN KO. AT MAAARI SA ITO ANG LAYUNIN NA KINAKAILANGAN NILA TUNGKOL. Tunay na Paggamit: 'pinipilit ka ng linyang ito na tukuyin ang lahat ng mga variable. Nang walang ito ang anumang hindi natukoy na variable ay ituturing bilang isang object Opsyong Malinaw'gayon lumikha kami ng 5 mga variable para sa mga folder at mga file na kakailanganin namin ng pangalan sa kanila kung paano mo gusto ngunit ang kombensiyon ay preNameDim objFiSyOb, objSysFold, objShell, objFile, objTextFile'now kailangan namin upang lumikha ng mga variable ng string para sa direktoryo, file at pangalan ng fileDim strDir, strFile, strFileName'now magtalaga ng mga halaga sa mga variable't ang strDir ang aming direktoryo na nais namin ang folder sa strDir = "C: / Catcher" 'ang strFile ay kung saan namin nais ang dokumento ng teksto at kung ano ang pinangalanangstrFile = "\ Shutdown_catcher.txt" 'ang pangalan ng strfile ay sa gayon mayroon kaming pangalan ng file para magamit sa pop upsstrFileName = "Shutdown_catcher.txt"' susunod na dapat tayong magtalaga ng isang pare-pareho para sa pag-access sa file na mayroon kaming tatlong mga pagpipilian 'gagamitin lamang namin ang pagdadagdag sa code na ito ngunit magandang malaman ang lahat ng mga ito. Mag-log para sa Pagbasa = 1, para sa Pagsulat = 2, ForAppending = 8 kailangan nating magtakda ng isang variable sa file system object upang maaari natin itong tawagan sa paglaon kapag kailangan natin itoSet objFiS yOb = CreateObject ("Scripting. FileSystemObject")

Hakbang 4: Mga Paliwanag sa Pagitan

Ngayon na naka-dimension na natin ang aming mga variable na dapat nating gawin ay isipin ang tukoy na variable sa bawat oras. Hindi lamang nito binabawasan ang dami ng pagta-type na ginagawa namin ngunit lumilikha din ng mas kaunting pagkakamali dahil sa mga maling pagbaybay. Ngayon sa teknikal na ang kailangan lang nating gawin ay i-type ang sumusunod na code at tapos na kami 'itakda ang file para sa pagdaragdag ng Set objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) 'isulat ang bagong linya sa fileobjTextFile. WriteLine ("Ang iyong computer Shut down on" & date & "at" & time)' isara ang fileobjTextFile. Close'g gumawa ng isang pop upWscript. Echo ("Iyong computer Shut down on "& date &" at "& time) 'buksan ang file sa IESet objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Ang problema ay wala itong pagwawasto ng error, at ang anumang simpleng error tulad ng file na wala o variable na nakatalaga ay mag-crash ng script.

Hakbang 5: Pagsulat ng Script Bahagi 3: Kung Pagkatapos Mga Pahayag Bilang Error Pagwawasto

Ang pinakamadaling paraan upang gawin ang pagwawasto ng error ay ang paggamit ng kung / pagkatapos ng mga pahayag. Karaniwan ang isang kung pagkatapos na pahayag ay nagsasabi kung may nangyari pagkatapos gawin ito kung hindi man. Sa pamamagitan ng pag-akit kung / pagkatapos ng mga pahayag maaari kang lumikha ng isang string ng mga bagay na kailangang mangyari. Kung ang a at b at c mangyari pagkatapos ay gawin ito sa iba pa. Halimbawa: nais naming tiyakin na ang file na nais nating isulat ay naroroon kung nakita natin ito na nais nating gumawa ng wala kung hindi natin nahanap na nais nating likhain ito o tayo nais na suriin kung ang folder ay naroroon at kung hindi likhain ito at pagkatapos ay suriin kung ang file ay naroroon sa sandaling mahahanap natin ang folder at kung hindi nilikha ito ginagawa namin ito: mayroong apat na bahagi sa isang kung pagkatapos ay pahayag kung / pagkatapos ay iba pa kung ito ay totoo kung totoo ito pagkatapos gawin ito kung hindi man gawin iyon pagkatapos tapusin ang pahayag ng maayos na naka-code kung pagkatapos ay ang pahayag ay: Kung may isang bagay = isang bagay Kung gayon gawin kung ano ang kailangan mong gawinElse gumawa ng ibang bagayEnd KungMaaari kang gumamit ng anumang argumento hangga't totoo ito ay susundan ang pagkatapos na bahagi at balewalain ang ibang bahagi ngunit kung mali ito ay lalaktawan ang noon at pupunta sa iba pa Kung kailan tatapusin natin ang kung pahayag inilalagay namin ang "pagtatapos kung", ngunit kung may pugad tayo kung mga pahayag ay dapat nating tapusin ang bawat kung pahayag. Wawakasan nito ang mga ito mula sa bata hanggang sa magulang kaya't ang unang "wakas kung" ay nagtatapos sa kung pahayag sa loob ng magulang, kung saan ang pangalawa ay nagtatapos ng orihinal (magulang) kung pahayag. Upang makagawa ng isang pop up ay nai-type lamang namin ang Wscript. Echo ("whatever nais naming sabihin sa mensahe na ") upang magdagdag ng isang variable na halaga dito inilalagay namin ito sa labas o sa pagitan ng mga dobleng quote gamit ang ampersand (&) sign bilang isang delimiter kaya alam ng script na ito ay isang variable at hindi isang teksto. tulad nito: Wscript. Echo ("Blah blah blah" & strDir & "blah blah blah" & strFilename & "blah blah blah.") Ang output ay magiging isang pop up na nagsabing Blah blah blah C: / Catcher blah blah blah shutdown_catcher.txt blah blah blah. Tunay na Paggamit: 'kung ang folder C; / mayroon Kung objFiSyOb. FolderExists (strDir) Pagkatapos'get folder Itakda objSysFold = objFiSyOb. GetFolder (strDir)' kung hindi man Else'gumawa ng folder c; / catcher Itakda ang objSysFoldb = objFiSyOb Lumikha ng Folder (strDir) 'at suriin upang makita kung mayroon ang file at folder Kung objFiSyOb. FileExists (strDir & strFile) Pagkatapos kung makukuha nito ang folder c: / catcher Itakda ang ob jSysFold = objFiSyOb. GetFolder (strDir) 'otherwiseElse'create text document shutdown_catcher.txt Set objFile = objFiSyOb. CreateTextFile (strDir & strFile)' pagkatapos ay mag-pop up ng isang mensahe upang masabing nilikha mo silang pareho Wscript. Echo ("Gumawa kami ng isang folder pinangalanang "& strDir &" at isang file na pinangalanang "& strFilename &" at inilagay ito sa direktoryo ng "& strDir & strFile &". ") ay nagtapos sa pugad kung pahayagEnd If'end original if statementEnd If'now in the first if statement sinuri na namin ang folder at nakita ito kaya ngayon suriin namin ang fileIf objFiSyOb. FileExists (strDir & strFile) Pagkatapos ay nahanap na makakuha ng folder Itakda ang objSysFold = objFiSyOb. GetFolder (strDir) 'kung hindi man Else'create the text doc Set objFile = objFiSyOb. Lumikha angTypeFile (strDir & strFile) 'isang popup na nagsasabing nilikha namin ang dokumento ng teksto na Wscript. Echo ("Lumikha kami ng isang file na pinangalanang" & strFileName & "sa" & strDir & "folder ng file.") Tapusin Kung

Hakbang 6: Mga Paliwanag sa Pagitan

Kung titingnan mo nang mabuti ang code mula sa nakaraang hakbang makikita mo ang parehong may pugad at hindi naka-pugad kung pagkatapos ay pahayag. Ang una ay isang pugad na pahayag. Sinusuri nito ang folder at file at kung hindi makita ang mga ito ay lumilikha ng pareho. Ang pangalawa ay naghahanap para lamang sa isang file at kung hindi ito nahanap lumilikha lamang ng file. Maaaring sabihin ng isa kung bakit pareho. Ano ang mangyayari kung ang file ay tinanggal ngunit ang folder ay hindi. Ang una kung pahayag ay lalaktaw mismo sa paggawa ng file dahil nakita nito ang folder at hindi kailanman gagalaw ang ibang bahagi ng pahayag. Kaya't kapag nagpunta ka upang sumulat sa file na ito ay magkakamali dahil nawawala ang file. Kaya sa pamamagitan ng pagkakaroon ng pangalawa doon nalulutas nito ang problemang ito. Teknikal na maaari mong ilabas ang pugad na pahayag sapagkat halos pareho ito sa pangalawa kung pagkatapos ay pahayag ngunit magkakaroon ka lamang ng isang pop up at hindi ito magiging kaakit-akitPlus binigyan ako ng isang pagkakataon na ipakita sa iyo ang pugad kumpara sa un -Nests kung pahayag.

Hakbang 7: Higit na Pagwawasto ng Error

Ngayon na nakumpleto namin ang karamihan ng pagwawasto ng error na nais naming isulat sa file at ipakita ang mga pop up. Ang problema ay makakakuha kami ng mga error sa pahintulot kung hindi namin ilabas ang sanggunian ng nakaraang bagay na nakaimbak sa variable. Kaya nais naming ilagay sa isang maliit na snippet ng code na nagsasabing itakda ang mga variable sa wala. Ganito ang hitsura: set objFile = nothingset objSysFold = nothingSo para sa mga sumusunod sa iyo sa bahay ang iyong code ay dapat sa puntong ito out): Pagpipilian ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.txt" strFileName = "Shutdown Constantation, 2 ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Kung objFiSyOb. FolderExists (strDir) Pagkatapos Itakda ang objSysFold = objFiSyOb. GetFolder (strDir) Else Set objSysFold = objFiSyOx) Itakda ang objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Lumikha kami ng isang folder na pinangalanang" & strDir & "at isang file na pinangalanang" & strFilename & "at inilagay ito sa ang "& strDir & strFile &" direktoryo. ") Tapusin Ko fEnd IfIf objFiSyOb. FileExists (strDir & strFile) Pagkatapos Itakda ang objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Gumawa kami ng file" "& strDir &" folder ng file. ") Tapusin ang Ifset objFile = nothingset objSysFold = wala

Hakbang 8: Pagsulat ng Script Bahagi 4: Mga Setting ng Mga Katangian

Ngayon kailangan naming itakda ang mga katangian sa file upang maaari naming baguhin ito. Dati itinakda namin ang tatlong pare-pareho na mga variable: forReading = 1forWriting = 2 forAppending = 8kung itinakda mo ito sa forReading magagawa mong basahin ito ngunit hindi sumulat dito. Kung itinakda mo ito sa forWriting isusulat mo ang mayroon nang file sa tuwing pinapatakbo mo ang programa. Kung itinakda mo ito sa Pag-apply ay magdagdag ka ng isang bagong linya sa tuwing gumaganap ang script sa dokumento. Dahil nais namin ang isang pag-log sa tuwing magre-reboot ito nais naming idagdag ito at hindi higit sa pagsusulat kaya ginagamit namin ang Pag-apply. Paano namin ito ginagawa: kailangan mong pangalanan ang bagay na nais mong itakda ang mga katangian. Dahil nagawa na namin ang halos lahat ng gawain sa mga nakaraang hakbang kailangan lang nating alalahanin ang mga variable sa puntong ito. Itakda lamang ito sa totoo. Tunay na Paggamit: 'object to set = filesystemobject.action (direktoryo + pangalan ng file, katangian, totoo o maling) Itakda ang objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)

Hakbang 9: Pagsulat ng Script Bahagi 5: Pagsulat sa File

Ang pagsusulat sa isang file ay katulad ng pagsulat ng isang pop up. Inilagay mo lamang: objTextFile. WriteLine ("Anumang nais mong sabihin" & Variable upang hilahin upang magsulat ng linya) Ang pagkakaiba lamang ay ang unang bahagi. Sa isang pop up na inilagay mo: Wscript. Pumili ng isang linya ng pagsulat na inilagay mo: objTextFile. WritingLineAt sa isang linya ng pagsulat kailangan mong isara ang linya ng pagsulat upang malaman nitong ihinto ang pagsusulat at para sa gagamitin mong: objTextFile. CloseActual Usage: objTextFile. WriteLine ("Ang iyong computer Patayin sa" & petsa & "sa" at oras) objTextFile.close'now idagdag sa isang popup upang masabing nagsulat ka sa file upang malaman ng tao na nangyari ito' at kailangan nilang isara ito upang buksan ang file at tingnan angWscript. Echo ("Ang iyong computer Shut down on" & date & "at" & oras)

Hakbang 10: Pagsulat ng Script Bahagi 5: Pagbukas ng File para sa Pagtingin

Ang script ay sa puntong ito ay titigil hanggang sa may mag-click sa pop up. Kapag nalampasan mo ang pop up maaari kang maglagay ng isang linya sa na magbubukas ng file. Ang paggamit ng ilang pagwawasto ng error dito ay makakatulong na panatilihing maayos ang pagpapatakbo ng programa. Kapag lumikha ka ng isang error sa vbscript, nagdaragdag ito ng isang halaga sa variable na "err.number" na isang paunang natukoy na variable sa vbscript. Hindi mo ito kailangang tukuyin at magagamit ito tulad ng anumang iba pang variable hangga't hindi mo nilalabag ang mga panuntunan nito. Ang halagang itinalaga sa variable ng err.number ay ang code para sa naganap na error. Ngayon ay maaari mong suriin ang bawat error code na kilala sa vbscript database at tiyaking hindi ito nangyari. O mas madali, ay sinusuri lamang siguraduhin na ang err.number variable ay walang laman. kung walang laman walang naganap na mga error. Upang gawin iyon susuriin lamang natin upang makita kung ang variable ay katumbas ng vbEmpty. Kaya sa aming script nais naming gumamit ng isa pa kung pagkatapos ay pahayag. At suriin upang makita kung may naganap na error at kung hindi nito binuksan ang file para sa pagtingin, ngunit kung ito ay nag-pop up ng isang mensahe na may error number dito upang maaari kaming mag-debug. Pagkatapos kapag natapos na tayong lahat sa aming script ay i-type ang Wscript. Quit. Sinasabi nito sa script na wakasan ang sarili. Tumutulong ito na pigilan ang pagtagas ng memorya at mga hindi ginustong proseso na tumatakbo. Paano ito ginagamit: kung ang err.number ay katumbas ng vbEmpty pagkatapos ay lumikha ng isang shell pagkatapos patakbuhin ang programa mula sa shellotherwise pop up ng isang mensahe na nagsasabing mayroong isang errorend kung. Aktwal na Paggamit: 'suriin para sa errorIf err.number = vbEmpty kung gayon kung wala lumikha ng isang shell Itakda ang objShell = CreateObject ("WScript. Shell") 'pagkatapos buksan ang file mula sa shell na iyon gamit ang explorer. ito ay talagang magbubukas sa IE kahit na objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") 'kung hindi man mag-pop up ng isang mensahe na may error numberElse WScript.echo "VBScript Error:" & err.numberEnd If 'end scriptWscript.quit

Hakbang 11: Pagkuha ng Script upang Patakbuhin sa Startup

Mayroong isang folder ng file sa start menu na tinatawag na Startup. Anumang mailagay sa folder na ito ay magsisimula kaagad sa pagsisimula ng computer. Sa pamamagitan ng paglalagay ng file ng script sa startup folder ay isasagawa nito sa tuwing ang computer ay na-reboot kung sinadya o hindi. Dahil ginagamit ko lamang ito bilang isang diagnostic tool, hindi na ito kailangang gawing isang serbisyo upang magsimula, at hindi ko ito dapat ilagay sa pagpapatala upang simulan ito, kaya't magiging maayos ito. Kapag naayos ko na ang computer maaari ko nang tanggalin ang file mula sa startup folder at walang kinakailangang iba pang paglilinis.

Hakbang 12: Pagpapatakbo ng Programa

Kapag naisakatuparan mo ang vbscript file ay ngayon ay A.) Suriin upang makita kung ang folder na C: / Catcher ay mayroon at kung hindi likhain ito. B:) Suriin upang makita kung ang file na Shutdown_catcher.txt ay mayroon at kung hindi ito likhain. C:) Kung lumikha ito ng alinman sa isang folder o file o pareho ito ay mag-pop up ng isang mensahe na nagsasabing nilikha nito ang mga ito (Tandaan: dapat lamang gawin ito sa unang pagpapatakbo pagkatapos na dapat ay nandiyan na ito maliban kung tatanggalin kaya dapat mo lamang makita ang mensaheng iyon nang isang beses. Maaaring maging isang magandang ideya na patakbuhin ang script na ito nang isang beses sa ilalim ng isang kontroladong pag-reboot upang maaari mong laktawan ang mga pop up na ito o hindi ka maaaring sumulat ng anuman sa file dahil hindi nito maa-bypass ang file na lumikha ng mga pop up.) D:) Sumulat ng isang linya sa teksto ng dokumento Shutdown_Catcher.txt na nagsasabing ang pag-shutdown ng computer sa ganoong at ganoong petsa sa ganoong at ganoong oras. E:) Mag-pop up ng isang mensahe na nagsasabing mayroong pag-rebootF:) Buksan ang file para sa pagtingin. Kung titingnan mo ang susunod na hakbang makikita mo ang code bilang nakasulat. Ngayon ang kailangan ko lang gawin ay umupo at maghintay. Sa tuwing magre-reboot ang computer ay magkakaroon ako ng isang talaan nito. Pagkatapos ay maaari kong suriin ang talaan at makita kung mayroong anumang pagkakapare-pareho dito. Ang halimbawa ay maaaring na ito ay muling pag-reboot bawat kalahating oras o muling pag-reboot anumang oras na may pagtaas o 45 sa orasan. Hindi ito sa anumang paraan ang tanging paraan ng pag-check ko sa computer, para malaman mo lang. Mayroon din akong isang benchmarking program na tumatakbo upang suriin ang mga temps kaya alam ko kung gaano ito kainit kapag ito ay tumigil, boltahe kaya alam ko kung ang supply ng kuryente ay nabibigo, at ilang iba pang mga kapaki-pakinabang na bagay. Kaya sana naging kapaki-pakinabang ito. Alam kong nasisiyahan ako dito kaya marahil ay magugustuhan din ng iba. Kung mayroon kang anumang mga katanungan huwag mag-atubiling magtanong. Maaaring hindi ako makapunta sa kanila kaagad ngunit may kaunting pagdadala at sasagutin kita. Nakasalalay sa kung kumusta ang aking araw / linggo.

Hakbang 13: Ang Code

Ito ang code na nasusulat nang walang lahat ng mga pahiwatig at pangungusap_Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.txt" Shutdown_catcher.txt "Shutdown_catcher.txt ".tF" Const forReading = 1, forWriting = 2, ForAppending = 8Set objFiSyOb = LumikhaObject ("Scripting. FileSystemObject") Kung objFiSyOb. FolderExists (strDir) Pagkatapos Itakda ang objSysFold = objFiSyOb. GetFolder (obDjSSReReSeFeSB). objFiSyOb. FileExists (strDir & strFile) Pagkatapos Itakda ang objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Lumikha kami ng isang folder na pinangalanang" at strDir) "& strFilename &" at inilagay ito sa direktoryo ng "& strDir & strFile &". ") Tapusin Kung Magkatapos Kung Magkaroon ako ngMgaMga file. FileExists (strDir & strFile) Pagkatapos Itakda ang objSysFold = objFiSyOb. GetFolder (strDir) Ibang Set objFile = objFiSyOF strDir & strFile) Wscript. Echo ("Mayroon kaming lumikha ng isang file na pinangalanang "& strFileName &" sa folder ng "& strDir &" file. ") End Ifset objFile = nothingset objSysFold = nothingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) objTextFile. WriteLine (" Your computer I-shut down sa "& date &" at "& time) objTextFile. CloseWscript. Echo (" Ang iyong computer Shut down on "& date &" at "& time) Kung err.number = vbEmpty pagkatapos ay Itakda ang objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Else WScript.echo" VBScript Error: "& err.numberEnd IfWScript. Quit