Ներածություն VB Script: a Beginners- ի ուղեցույց. Մաս 2. Ֆայլերի հետ աշխատանք. 13 քայլ

2024 Հեղինակ: John Day | [email protected]. Վերջին փոփոխված: 2024-01-30 09:53

Դե, իմ վերջին VBScript- ի ուսանելի ծրագրում ես խոսեցի, թե ինչպես պետք է սցենար պատրաստել ՝ ձեր ինտերնետը անջատելու համար ՝ Xbox360 խաղալու համար: Այսօր ես այլ խնդիր ունեմ: Իմ համակարգիչն անջատվում է պատահական ժամանակներում, և ես ուզում եմ ամեն անգամ մուտք գործել, երբ համակարգիչը վերագործարկվի ֆայլի մեջ: Ես զգում եմ, որ խնդիրը վիդեո քարտն է, բայց ուզում եմ համոզվել: Ես միացնում եմ համակարգիչը միշտ, բայց չեմ կարող այն վերահսկել 24/7 ռեժիմով, ուստի իմ ամենահեշտ լուծումն այն է, որ ամեն անգամ վերագործարկվելիս ժամանակի կնիք գրեմ ֆայլին: Քանի որ այն ինձ տալիս է BSOD ամեն անգամ, անջատվելը դժվար կլինի, այնպես որ ես ստիպված եմ այն ստանալ, երբ այն նորից միանա: Դա հեշտ մասն է: Քանի որ սա պարզապես ժամանակավոր է, մինչև չհասկանամ, թե ինչն է սխալ համակարգչի հետ, ես չեմ պատրաստվում գրանցամատյան գրել կամ ծառայություն մատուցել, որպեսզի այն սկսվի բեռնման ժամանակ: Եվ որպեսզի այն վերագործարկվի ամեն անգամ, երբ այն անջատվում է, ես ստիպված կլինեմ խմբագրել կենսագրությունը:

Քայլ 1. Bios- ի խմբագրում ՝ այն սնուցման ձախողման դեպքում վերագործարկվելու համար:

Ես վստահ չեմ, որ իմ խնդիրը էլեկտրամատակարարման խափանումների կամ վիդեո քարտի հետ է, թե ինչ է դա: Բայց ես գիտեմ, որ համակարգիչը պարբերաբար վերագործարկվում է: Այսպիսով, համոզվելու համար, որ այն վերագործարկվում է հոսանքի խափանումից հետո (IE. Հոսանքի աղբյուրը մարվում է), ես ուզում եմ խմբագրել կենսագրությունը: Քանի որ այնտեղ կան շատ տարբեր կենսաարտադրողներ, շատ դժվար կլինի թվարկել դա կատարելու բոլոր տարբեր եղանակները կենսաէկրանների տարբեր էկրաններում, այնպես որ ես պարզապես ձեզ կտամ հիմունքները և թույլ կտամ ձեզ պարզել առանձնահատկությունները ինքնուրույն: Հիմնականում ձեր կենսագրության մեջ մտնելու համար հարկավոր է սեղմել բեռնման կոճակը: Սովորաբար այն կասի «հարվածել Դելին ՝ կարգավորումը մուտքագրելու համար» կամ «F2»: Տարբեր արտադրողներ ձեզ տալիս են տարբեր եղանակներ, բայց դա սովորաբար «F2» կամ «Del» ստեղն է: Ամեն դեպքում, նայեք դրա համար և սեղմեք այն բանալին, որը ձեզ ասում է, որ հարվածեք: Այժմ դուք կհայտնվեք էկրանին, որը սովորաբար կա՛մ մոխրագույն է, կա՛մ կապույտ, բայց նորից դա կախված է ձեր կենսագրությունից: Դուք կփնտրեք էներգիայի կարգավորումների տարբերակ: Այն կամ կլինի պատուհանի վրա, ինչպես ինքն է AMIBIOS- ի էկրանի նկարում (փոխառված է toms ապարատային ուղեցույցից), կամ որոշներում այն կարող է լինել bios- ի առաջադեմ հատկությունների պատուհանում: Համենայն դեպս, դուք փնտրում եք «վերականգնել AC/էներգիայի կորուստը» կարգավորումը: Այն կարող է այլ կերպ կոչվել, բայց դրան մոտ կլինի: Պարզապես փնտրեք այն: Սովորաբար այն կունենա երեք տարբերակ (վերջին վիճակը ՝ միացված հոսանքի կորստից հետո, անջատված ՝ էներգիայի կորստից հետո): Դուք ցանկանում եք այն միացնել հոսանքի կորստից հետո: Համոզվեք, որ պահում եք ձեր կարգավորումները և դուրս գալիս կենսագրությունից: Այժմ, երբ հոսանքը խափանում է կամ մեքենան անջատում եք ցանցից, այն կվերագործարկվի էներգիան նորից ստանալուն պես: Հաաաաաաա !!!!!!!!!!!!!!!!

Քայլ 2. Սցենարի գրում Մաս 1. Mրագիր կազմելը

Առաջին բանը, որ մենք ուզում ենք անել, ծրագիր կազմելն է: Կոնկրետ ինչ ենք ուզում, որ սցենարը անի: (Հաշվի առեք BiosB- ի խմբագրման 1 -ին քայլը): Վերագործարկվելուն պես մենք ցանկանում ենք ֆայլին գրել վերաբեռնման ճշգրիտ ամսաթիվը և ժամանակը: Գ.) Մենք ցանկանում ենք, որ կարողանանք փոփոխել այդ ֆայլը: Եթե այն վերագործարկվի մեկից ավելի անգամ, մենք երբեք չէինք իմանա: հաղորդագրություն է հայտնվում, որում ասվում է, որ այն վերագործարկված է:

Քայլ 3. Գրեք սցենարը Մաս 2. Ստեղծեք ձեր սցենարը և նշանակեք փոփոխականներ:

Լավ առաջին հերթին, ստեղծեք տեքստային փաստաթուղթ և անվանափոխեք այն any_name.vbs- ի: Ես օգտագործում էի shutdown_catcher.vbs, բայց դուք կարող եք օգտագործել ամեն ինչ: Այժմ պարզապես աջ սեղմեք vbs ֆայլին և հարվածեք խմբագրմանը: Եթե այժմ օգտագործում եք notepad ++, ապա դա լավ ժամանակ կլիներ այն բացելու համար, եթե դուք այլևս չեք պլանավորում կատարել ցանկացած քանակությամբ կոդավորում: պետք է փնտրել այն ստանալու համար: Լավ, հիմա առաջին բանը, որ մենք ուզում ենք անել, փոփոխականներ ստեղծելն է: Փոփոխականները հիմնականում պարզապես տեղ են զբաղեցնում, այնպես որ մենք ստիպված չենք լինում մի ամբողջ փունջ մի քանի անգամ գրել: օրինակ. մենք ունենք մի նախադասություն, որն ասում է «արագ շագանակագույն աղվեսը ետ է թռչում ծույլ շների վրայով»: բայց դա մեր ծածկագրում 20 անգամ է: մենք կարող ենք կամ 20 անգամ մուտքագրել ամբողջ նախադասությունը, կամ ստեղծել փոփոխական և նախադասությունը վերագրել այդ փոփոխականին: Այսպիսով, այս օրինակում մենք ստեղծում ենք strSentence փոփոխական, այնուհետև այդ փոփոխականին վերագրում ենք «արագ շագանակագույն աղվեսի թռիչքները ծույլ շների վրայով»: Այժմ մեզ մնում է միայն մուտքագրել strSentence ամեն անգամ, երբ մեզ անհրաժեշտ է նախադասություն, և այն գիտի, որ «արագ շագանակագույն աղվեսը ետ է թռչում ծույլ շների վրայով», ինչպես ենք դա անում. դրանք նույն տողում և փոփոխականներն առանձնացրեք ստորակետներով: Փոփոխական ստեղծելու համար մենք պետք է անենք այն, ինչ կոչվում է փոփոխականի չափագրում: Դա անելու համար մենք մուտքագրում ենք Dim փոփոխականից առաջ, այնուհետև նախածանց ենք դնում փոփոխականի վրա, որպեսզի իմանանք, թե ինչ է ներկայացնում փոփոխականը: Օրինակներ են str- ի փոփոխական obj- ի համար օբյեկտի փոփոխական const- ի հաստատունի համար … listանկը շարունակվում է և շարունակվում: սրանք են, որ մենք կօգտագործենք այս սցենարում, այնպես որ ես դրանք մի փոքր կբացատրեմ: տողը սովորաբար տեքստ է, ինչպես նախադասությունը: Օբյեկտը սովորաբար ֆիզիկական ինչ -որ բան է, ինչպիսին է ֆայլը կամ ծրագիրը: և հաստատունն այն է, ինչը միշտ նույն իմաստը կունենա սցենարի ընթացքում: ՈOTՇԱԴՐՈԹՅՈՆ. YԱՆԿԱԱ ԱՄԱՆԱԿ LԱՄԱՆԱԿԸ ԳՈՐՈԹՅՈՆ Է ԱՌԱՆ ԳՐՈYԹՅՈՆԻEY: Դրանք CԱՆԱՉՈ RԹՅՈALՆՆԵՐ ԵՆ ALԱՆԿՎՈՄ ԵՎ Սովորաբար SOրագրավորողի կողմից դրված են: ՆՐԱՆՔ ԿԱՐՈ ԵՆ ՀԻՇԵԼ ԻՆՉ ԻՆՔՆ ԵՆ ԱՎԵԼԵԼ ԿՈԴԸ վերանայելիս: Ես նրանց կօգտագործեմ կոդի վերաբերյալ մեկնաբանություններ անելու համար, որպեսզի կարողանաք տեսնել, թե ինչու եմ ես խեղդել այն ճանապարհը, որը ես արել եմ: ԵՎ ԿԼԻՆԵՆ ՄԵԿՆԱԲԱՆՈԹՅԱՆ ՄԱՍԻՆ ՏԵINEԻ ԱՎԵԼԻct: Իրական օգտագործումը. «Այս տողը ձեզ ստիպում է սահմանել բոլոր փոփոխականները: Առանց դրա որևէ չսահմանված փոփոխական կդիտվի որպես օբյեկտ Ընտրանք Բացահայտ հիմա մենք ստեղծում ենք 5 փոփոխական թղթապանակների և ֆայլերի համար, որոնք մեզ անհրաժեշտ են, անվանեք դրանք այնպես, ինչպես ցանկանում եք, բայց պայմանը preNameDim objFiSyOb, objSysFold, objShell, objFile, objTextFile'now մեզ անհրաժեշտ է գրացուցակի, ֆայլի և ֆայլի անվան համար տողային փոփոխականներ ստեղծելու համար Dim strDir, strFile, strFileName այժմ նշանակեք փոփոխականներին արժեքներ <strong տեքստային փաստաթուղթը և ինչ է այն անվանում ֆայլը մենք ունենք երեք տարբերակ 'մենք միայն կօգտագործենք այս ծածկագրի հավելվածը, բայց հաճելի է իմանալ դրանք բոլորը: Կոնստրուկտոր կարդալու համար = 1, forWriting = 2, ForAppending = 8'վերջապես մեզ անհրաժեշտ է փոփոխական տեղադրել ֆայլային համակարգում օբյեկտ, որպեսզի կարողանանք հետագայում այն զանգահարել, երբ դրա կարիքը լինի yOb = CreateObject ("Scripting. FileSystemObject")

Քայլ 4: Բացատրություններ միջև

Այժմ, երբ մենք ունենք մեր փոփոխականները չափված, մեզ մնում է միայն ամեն անգամ վերհիշել այդ փոփոխականը: Սա ոչ միայն նվազեցնում է մեր մուտքագրման քանակը, այլև սխալներ է ստեղծում սխալ ուղղագրությունների պատճառով: Այժմ տեխնիկապես մեզ մնում է մուտքագրել հետևյալ ծածկագիրը, և մենք ավարտված ենք 'ֆայլը սահմանելու համար appendSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) 'նոր տողը գրեք fileobjTextFile. WriteLine («Ձեր համակարգիչը անջատված է» և ամսաթիվը & ժամը & ժամին)' փակեք fileobjTextFile. Close` պատրաստեք թռուցիկ վերնագիր համակարգիչ Անջատեք «& date &" at "& time) 'ֆայլը բացեք IESet objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Խնդիրն այն է, որ այն չի ունենա սխալների ուղղում, և ցանկացած պարզ սխալ, ինչպիսին է ֆայլը կամ արդեն նշանակված փոփոխականը, կխափանի սցենարը:

Քայլ 5. Գրեք սցենարը Մաս 3. Եթե այնուհետև հայտարարությունները որպես սխալի ուղղում:

Սխալների ուղղում կատարելու ամենադյուրին ճանապարհը if կամ then հայտարարություններն օգտագործելն է: Հիմնականում if then հայտարարությունն ասում է, եթե ինչ -որ բան տեղի է ունենում, այլ կերպ արեք դա: Տեղադրելով if/then հայտարարությունները, կարող եք ստեղծել մի շարք բաներ, որոնք պետք է տեղի ունենան: Եթե a և b և c լինում են, ապա դա արեք այլ կերպ: օրինակ. Մենք ուզում ենք համոզվել, որ այն ֆայլը, որին ցանկանում ենք գրել, այնտեղ է, եթե գտնում ենք, որ ուզում ենք ոչինչ անել, եթե այն չենք գտնում, ուզում ենք ստեղծել այն կամ մենք ուզում եմ ստուգել, արդյոք թղթապանակն այնտեղ է, և եթե ոչ ՝ այն ստեղծել, այնուհետև ստուգել, արդյոք ֆայլը այնտեղ է, երբ մենք գտնում ենք թղթապանակը, և եթե այն չենք ստեղծում, ապա առաջինը օրինակ է if, այնուհետև երկրորդ հայտարարության մեջ, եթե այն ժամանակ տեղադրված է: մենք դա անում ենք. if- ի if/if thenand հայտարարության չորս մաս կա, եթե հիմնականում դա ճիշտ է, ապա դա հակառակ դեպքում արեք, հակառակ դեպքում ավարտեք հայտարարությունը, եթե այն ճիշտ կոդավորված է, եթե այն լինի. ինչ ձեզ հարկավոր է մենք դնում ենք «վերջ, եթե», բայց եթե մենք բույն դրել ենք if հայտարարությունների վրա, մենք պետք է ավարտենք յուրաքանչյուր if հայտարարությունը: Դա նրանց կավարտի երեխայից ծնող, ուստի առաջին «վերջ, եթե» -ն ավարտում է ծնողի ներսում if հայտարարությունը, որտեղ երկրորդը վերջացնում է բնագրի (ծնողի) if հայտարարությունը: Թռուցիկ պատրաստելու համար մենք պարզապես մուտքագրում ենք Wscript. Echo («ինչ էլ որ լինի մենք ուզում ենք ասել հաղորդագրության մեջ ") փոփոխականների արժեք ավելացնելու համար այն դնում ենք դրսում կամ երկակի մեջբերումների միջև` օգտագործելով ampersand (&) նշանը որպես սահմանազատիչ, որպեսզի սցենարը իմանա, որ դա փոփոխական է և ոչ տեքստ: ՝ Wscript. Echo («Բլա բլա բլա» & strDir & «բլա բլա բլա» և strFilename & «բլա բլա բլա»:) blah blah blah. Actual Usage: 'if the folder C; / exist If objFiSyOb. FolderExists (strDir) Then'get folder set Set objSysFold = objFiSyOb. GetFolder (strDir)' հակառակ դեպքում Այլապես ստեղծել պանակը c; / catcher Set objSysFold = obj Ստեղծեք թղթապանակ (strDir) »և ստուգեք ՝ արդյոք ֆայլը և թղթապանակը գոյություն ունեն: jSysFold = objFiSyOb. GetFolder (strDir) 'elseElse' ստեղծել տեքստային փաստաթուղթ shutdown_catcher.txt Սահմանել objFile = objFiSyOb. CreateTextFile (strDir & strFile) ', այնուհետև հաղորդագրություն բացել ՝ ասելով, որ դուք երկուսն էլ ստեղծել եք Wscript. Echo պանակը ("We have անունով "& strDir &" և "& strFilename &" անունով ֆայլ և այն տեղադրեց "& strDir & strFile &" գրացուցակում: ") 'վերջում, եթե դրված է մենք արդեն ստուգել ենք թղթապանակը և գտել այն, այնպես որ այժմ մենք ստուգում ենք fileIf objFiSyOb. FileExists (strDir & strFile) Այնուհետև, եթե գտնվի, ստացեք թղթապանակը Սահմանել CreateTextFile (strDir & strFile) 'ստեղծեք թռուցիկ, որտեղ ասվում է, որ մենք ստեղծել ենք Wscript. Echo տեքստային փաստաթուղթը («Մենք ստեղծել ենք« & strFileName & »անունով ֆայլ ՝« & strDir & »ֆայլերի թղթապանակում»): Ավարտել, եթե

Քայլ 6: Բացատրություններ միջև

Եթե ուշադիր նայեք նախորդ քայլի ծածկագրին, ապա կտեսնեք և՛ ներկառուցված, և՛ չնստված, եթե այդ դեպքում հայտարարություն: Առաջինը բնադրված հայտարարություն է: Այն ստուգում է թղթապանակը և ֆայլը, և եթե դրանք չի գտնում, ստեղծում է երկուսն էլ: Երկրորդը պարզապես ֆայլ է փնտրում, և եթե այն չի գտնում, այն ստեղծում է միայն ֆայլը: Կարելի է ասել, թե ինչու երկուսն էլ: Դե ինչ կլինի, եթե ֆայլը ջնջվի, բայց թղթապանակը ոչ: Առաջին if հայտարարությունը անմիջապես կանցնի ֆայլի ստեղծման վրա, քանի որ այն գտել է թղթապանակը և երբեք չի գործի դնի հայտարարության մյուս մասը: Այսպիսով, երբ գնում էիք ֆայլ գրելու, դա սխալվում էր, քանի որ ֆայլը բացակայում էր: Այսպիսով, երկրորդն այնտեղ ունենալը լուծում է այս խնդիրը: Տեխնիկապես դուք կարող եք հանել բնադրված հայտարարությունը, քանի որ այն գրեթե նույնն է, ինչ եթե այն ժամանակվա հայտարարությունը, բայց հետո կունենայիք միայն մեկ թռուցիկ և այն այնքան էլ անձնավորված չէր լինի: -դրված է, եթե հայտարարություններ:

Քայլ 7: Ավելի շատ սխալների ուղղում

Այժմ, երբ մենք ավարտել ենք սխալի ուղղման մեծամասնությունը, ցանկանում ենք գրել ֆայլին և ցուցադրել թռուցիկները: Խնդիրն այն է, որ թույլտվության սխալներ կստանանք, եթե չթողնենք փոփոխականի մեջ պահված նախորդ օբյեկտի տեղեկանքը: Այսպիսով, մենք ցանկանում ենք տեղադրել մի փոքր հատված կոդով, որն ասում է, որ փոփոխականները դարձրեք ոչինչ: նայում է այսպես. Set objFile = nothingset objSysFold = ոչինչ: Այսպիսով, ձեզանից այն մարդկանց համար, ովքեր տանը հետևում են, ձեր կոդը պետք է լինի այս կետին (ես վերցրեցի մեկնաբանությունը դուրս): Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.txt" strFileName = "Shutdown ForAppend = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Եթե objFiSyOb. FolderExists (strDir) Ապա Սահմանել objSysFold = objFiSyOb. GetFolder (strDir) Else Set objSysFold.objFiFir. Oberject_Ondicle_OldSistorFold = objFiSyFold. ObJy_styleFold.oby Սահմանել objSysFold = objFiSyOb. GetFolder (strDir) Այլապես սահմանել objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo («Մենք ստեղծել ենք« & strDir & »անունով թղթապանակ և« & strFilename & »անունով ֆայլ և տեղադրել այն "& strDir & strFile &" գրացուցակը: ") Վերջ I fEnd IfIf objFiSyOb. FileExists (strDir & strFile) Ապա Սահմանեք objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo անունով & " "& strDir &" ֆայլի թղթապանակ. ") Վերջ Ifset objFile = nothingset objSysFold = ոչինչ

Քայլ 8. Գրեք սցենարի մաս 4 -րդ. Հատկանիշների կարգավորում

Այժմ մենք պետք է ֆայլի հատկանիշները դնենք, որպեսզի կարողանանք փոփոխել այն: Նախկինում մենք սահմանել էինք երեք հաստատուն փոփոխական ՝ forReading = 1forWriting = 2 forAppend = 8. Եթե այն սահմանում եք forAppending- ը, ամեն անգամ, երբ սցենարը գործարկվում է փաստաթղթում, նոր տող կավելացնեք: Քանի որ մենք ցանկանում ենք, որ ամեն անգամ այն վերաբեռնելիս գրանցամատյան լինի, մենք ցանկանում ենք, որ այն կցվի և չգրվի, որպեսզի օգտագործենք forAppending- ը: Ինչպես ենք դա անում: Դուք պետք է անվանեք այն օբյեկտը, որին ցանկանում եք հատկանիշներ դնել: Քանի որ մենք արդեն կատարել ենք աշխատանքի մեծ մասը նախորդ քայլերում, մենք պարզապես պետք է այս պահին հիշենք փոփոխականները: Այնուհետև պարզապես նշեք այն true. Actual Usage:

Քայլ 9. Գրեք սցենարը Մաս 5. Գրեք ֆայլին

Ֆայլի վրա գրելը շատ նման է թռուցիկ գրելուն: Դուք պարզապես տեղադրեցիք ՝ objTextFile. WriteLine («Ինչ ուզում եք ասեք» և փոփոխվող ՝ տող գրելու համար) Տարբերությունը միայն առաջին մասն է: Թռուցիկ պատուհանում տեղադրում եք ՝ Wscript.echoin մի տող, որը տեղադրում եք. Գրելու տողում, և գրելու տողում դուք պետք է փակեք գրելու տողը, որպեսզի այն իմանա, որ դադարեցնի գրելը և դրա համար օգտագործում եք. ObjTextFile. CloseActual Usage:.close'now ավելացնել թռուցիկ `ասելով, որ դուք գրել եք ֆայլին, որպեսզի անձը իմանա, որ դա տեղի է ունեցել, և նրանք պետք է փակեն այն ՝ ֆայլը բացելու և viewWscript. Echo- ին (« Ձեր համակարգիչը անջատված է » & ժամանակ)

Քայլ 10. Գրեք սցենարը Մաս 5. Ֆայլի բացում դիտման համար:

Այս պահին սցենարը կդադարի, մինչև որևէ մեկը կտտացնի թռուցիկին: Թռուցիկ պատուհանից անցնելուց հետո կարող եք տեղադրել մի տող, որը բացում է ֆայլը: Դրա վրա որոշ սխալների ուղղում օգտագործելը օգնում է ծրագիրը լավ պահել: Երբ vbscript- ում սխալ եք ստեղծում, այն արժեք է ավելացնում «err.number» փոփոխականին, որը vbscript- ում նախապես սահմանված փոփոխական է: Պետք չէ սահմանել այն և կարող եք օգտագործել այն, ինչպես ցանկացած այլ փոփոխական, քանի դեռ չեք խախտում դրա կանոնները: Err.number փոփոխականին տրված արժեքը տեղի ունեցած սխալի կոդը է: Այժմ կարող եք կամ ստուգել vbscript տվյալների բազայում հայտնի յուրաքանչյուր սխալի կոդը և համոզվել, որ այն տեղի չի ունեցել: Կամ ավելի հեշտ, պարզապես ստուգելն է ՝ համոզվել, որ err.number փոփոխականը դատարկ է: եթե այն դատարկ է, սխալներ տեղի չեն ունենում: Դա անելու համար մենք պարզապես ստուգում ենք ՝ արդյոք փոփոխականը հավասար է vbEmpty- ին: Այսպիսով, մեր սցենարում մենք ցանկանում ենք օգտագործել մեկ այլ if հայտարարություն: Եվ ստուգեք ՝ արդյոք տեղի է ունեցել սխալ, և արդյոք այն չի բացել ֆայլը դիտելու համար, բայց եթե դա տեղի է ունեցել, ապա հայտնվում է հաղորդագրություն, որի մեջ առկա է սխալի համարը, որպեսզի կարողանանք կարգաբերել սխալները: Այնուհետև, երբ բոլորս ավարտենք մեր սցենարը մուտքագրեք Wscript. Cuit. Սա հուշում է, որ սցենարը ինքն իրեն դադարեցվի: Սա օգնում է պահպանել հիշողության արտահոսքը և անցանկալի գործընթացները: Ինչպես է այն օգտագործվում. Եթե err.numer- ը հավասար է vb errorIf err.number = vbEmpty ապա 'եթե ոչ մեկը պատյան չի ստեղծում Սահմանել objShell = CreateObject ("WScript. Shell")' ապա բացել ֆայլը այդ պատյանից `օգտագործելով Explorer- ը: այն իրականում կբացվի IE- ում, չնայած objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") 'այլապես կհայտնվի հաղորդագրություն սխալի համարով 'end scriptWscript.quit

Քայլ 11: Ստեղծագործությունը գործարկելիս գործարկեք:

Մեկնարկի ընտրացանկում կա ֆայլերի թղթապանակ, որը կոչվում է Գործարկում: Այս թղթապանակում տեղադրված ցանկացած բան կսկսվի համակարգիչը գործարկելուն պես: Տեղադրելով սկրիպտային ֆայլը գործարկման թղթապանակում, այն կկատարվի ամեն անգամ, երբ համակարգիչը վերագործարկվի `միտումնավոր, թե ոչ: Քանի որ ես սա օգտագործում եմ միայն որպես ախտորոշիչ գործիք, այն սկսելու համար հարկավոր չէ ծառայություն մատուցել, և ես կարիք չունեմ այն գրանցամատյանում տեղադրել `այն սկսելու համար, այնպես որ դա լավ կլինի: Համակարգիչը շտկելուց հետո կարող եմ ջնջել ֆայլը գործարկման թղթապանակից, և այլ մաքրում չի պահանջվում:

Քայլ 12: ningրագրի գործարկում

Երբ vbscript ֆայլը կատարում եք, այն այժմ A.)) Եթե այն ստեղծել է կամ թղթապանակ, կամ ֆայլ կամ երկուսն էլ, ապա կհայտնվի հաղորդագրություն, որում ասվում է, որ այն ստեղծել է դրանք:. Գուցե լավ գաղափար լինի, որ այս սցենարը գործարկվի մեկ անգամ ՝ վերահսկվող վերաբեռնումի միջոցով, որպեսզի կարողանաք շրջանցել այս թռուցիկ պատուհանները, կամ էլ որևէ բան չգրեք ֆայլում, քանի որ այն չի շրջանցի ստեղծված թռուցիկ պատուհանները:) D:) Գրեք տող տեքստային փաստաթուղթ Shutdown_Catcher.txt ասելով, որ համակարգիչը անջատվում է այս կամ այն ամսաթվին այսինչ պահին: Դուք կտեսնեք կոդը, ինչպես գրված է: Այժմ ինձ մնում է միայն նստել և սպասել: Ամեն անգամ, երբ համակարգիչը վերագործարկվի, ես դրա մասին ձայնագրություն կունենամ: Այնուհետև ես կարող եմ վերանայել գրառումը և տեսնել, թե արդյոք դրան հետևողականություն կա՞: Օրինակ կարող է լինել այն, որ այն վերաբեռնում է յուրաքանչյուր կես ժամը մեկ կամ այն վերաբեռնում է ցանկացած ժամանակ, երբ ժամացույցի վրա ավելացում կա կամ 45: Սա ոչ մի կերպ չէ, որ ես ստուգում եմ համակարգիչը, որպեսզի իմանաք: Ես ունեմ նաև հենանիշային ծրագիր, որը աշխատում է ջերմաստիճանը ստուգելու համար, որպեսզի իմանամ, թե որքան տաք է այն անջատվելիս, լարումը, այնպես որ ես գիտեմ, արդյոք սնուցման աղբյուրը խափանում է, և մի քանի այլ օգտակար բաներ: Դե, հուսով եմ, որ սա օգտակար էր: Ես գիտեմ, որ դա ինձ դուր է գալիս, ուստի գուցե և ուրիշները նույնպես: Եթե ունեք որևէ հարց, ազատ զգացեք: Հնարավոր է, որ ես միանգամից չգամ նրանց մոտ, բայց մի փոքր համբերելով ՝ կպատասխանեմ ձեզ: Կախված նրանից, թե ինչպես է անցնում իմ օրը/շաբաթը:

Քայլ 13: Կոդ

Սա այն ծածկագիրն է, որը գրված է առանց բոլոր ակնարկների և դիտողությունների: Const forReading = 1, forWriting = 2, ForAppend = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Եթե objFiSyOb. FolderExists (strDir) Ապա սահմանել objSysFold = objFiSyOb. GetFolder (strDjjjByFolder) objFiSyOb. FileExists (strDir & strFile) Այնուհետև սահմանեք objSysFold = objFiSyOb. GetFolder (strDir) Այլ Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo («Եվ մենք ստեղծեցինք անունով պանակ» "& strFilename &" և տեղադրեց այն "& strDir & strFile &" գրացուցակում: ") Ավարտեք IfEnd IfIf objFiSyOb. FileExists (strDir & strFile) Ապա Սահմանեք objSysFold = objFiSyOb. GetFolder (strDir) Ուրիշ էլ սահմանեք objFile = objFiSy (Fix) strDir & strFile) Wscript. Echo («Մենք ունենք "& strFileName &" անունով ֆայլ ստեղծեց "& strDir &" ֆայլի թղթապանակում:)) Ավարտել Ifset objFile = nothingset objSysFold = NothingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) objTextFile. Y " Անջատեք «& ամսաթիվը» և «ժամը» և ժամանակը) objTextFile. CloseWscript. Echo («Ձեր համակարգիչը անջատված է» և «ամսաթիվը» և «ժամը») Եթե err.number = vbEmpty, ապա սահմանեք objShell = CreateObject ("WScript Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Այլապես WScript.echo" VBScript Error: "& err.numberEnd IfWScript.uit