VB Scriptке киришүү: Жаңы баштагандарга көрсөтмө: 2 -бөлүк: Файлдар менен иштөө: 13 кадам

2024 Автор: John Day | [email protected]. Акыркы өзгөртүү: 2024-01-30 10:43

Менин акыркы VBScript көрсөтмөмдө, мен Xbox360 ойноо үчүн интернетти өчүрүү үчүн кантип сценарий жасоону карап чыктым. Бүгүн менде башка маселе бар. Менин компьютерим туш келди өчүрүлүп жатат жана мен компьютер файлга кайра жүктөлгөн сайын киргим келет. Мен көйгөй видеокартада экенин сезип жатам, бирок мен ынангым келет. Мен компьютерди ар дайым күйгүзүп турам, бирок аны 24/7 көзөмөлдөй албайм, андыктан менин оңой чечимим - ал кайра жүктөлгөн сайын файлга убакыт мөөрүн жазуу. Бул мага ар дайым BSOD берет, ал өчкөндө кирүү кыйын болот, ошондуктан аны кайра келгенде кайра алышым керек. Бул компьютердин туура эмес экенин түшүнмөйүнчө, бул убактылуу нерсе болгондуктан, мен реестрге жазбайм же кызмат кылбайм, андыктан ал жүктөө учурунда башталат. Жана аны өчүргөн сайын өчүрүп -күйгүзүү үчүн биосун түзөтүүгө туура келет.

1 -кадам: Power Fail боюнча өчүрүп күйгүзүү үчүн Biosту түзөтүү

Менин көйгөйүм электр менен камсыздоонун начардыгынанбы же видеокартымданбы же ал эмне экенин билбейм. Бирок мен билем, компьютер дайыма кайра жүктөлөт. Ошентип, ал электр жарыгы өчкөндөн кийин кайра жүктөлөрүн текшерүү үчүн (IE: электр менен камсыздоо күрөң түстө) Мен биосун түзөткүм келет. Бул жерде көптөгөн био жасоочулар бар болгондуктан, муну ар кандай биос экрандарда жасоонун ар кандай жолдорун тизмектөө өтө кыйын болмок, ошондуктан мен сизге негиздерин гана берем жана түшүнүүгө уруксат берем. Негизинен биоско кирүү үчүн жүктөө баскычын басуу керек. Адатта, "Орнотууга кирүү үчүн Делди басыңыз" же "F2" сыяктуу бир нерсе айтылат. Ар кандай өндүрүүчүлөр сизге ар кандай жолдорду беришет, бирок көбүнчө "F2" же "Del" ачкычы. Кандай болбосун, аны байкап көрүңүз жана сизге басуу керек болгон ачкычты басыңыз. Эми сиз адатта боз же көк түстөгү экранга келесиз, бирок бул сиздин биосунан көз каранды. Сиз электр орнотуулары параметрин издейсиз. Бул AMIBIOS скриншотундагыдай (Toms аппараттык көрсөтмөсүнөн алынган) өзүнчө терезеде болот же кээ бирлеринде биос өзгөчөлүктөрүнүн өнүккөн терезесинде болушу мүмкүн. Баары бир сиз "AC/электр энергиясын жоготууну калыбына келтирүү" жөндөөсүн издеп жатасыз. Бул башка бир нерсе аталышы мүмкүн, бирок буга жакын болот. Аны изде. Ал, адатта, үч вариантка ээ болот (акыркы абал, электр энергиясын жоготкондон кийин, күйгүзүлгөндөн кийин өчүк). Сиз электр энергиясын жоготкондон кийин күйгүзгүңүз келет. Жөндөөлөрүңүздү сактап, биосунан чыкканыңызды текшериңиз. Эми сиздин кубатыңыз өчүп калса же сиз машинаңызды сууруп салсаңыз, ал кайра кубат алаар замат кайра жүктөлөт. Ияххххх !!!!!!!!!!!!!!!!

2 -кадам: Жазууну жазуу 1 -бөлүк: План түзүү

Биринчи нерсе, биз план түзүшүбүз керек. Биз сценарийдин так эмнени кылышын каалайбыз. (БиосБду түзөтүү 1 -кадамда кам көрүлдү.) Кайра жүктөлөөр замат биз файлга анын кайра жүктөлгөн так датасын жана убактысын жазгыбыз келет. C.) Биз бул файлды оңдоону каалайбыз. Эгерде ал бир нече жолу өчүрүлсө, биз эч качан билбейбиз. D.) Биз катанын оңдалышын каалайбыз, андыктан ал бузулбайт жана биз бардык өчүрүп -күйгүзүүлөрүбүздү жаман коддоонун себебинен өткөрүп жибербешибизди камсыз кылабыз. E. Биз аны каалайбыз. Кайра жүктөлөт деп билдирүү пайда болот. Ф.) Биз аны жазган файлды ачышын каалайбыз, ошондо биз билдирүүнү чыкылдатууда, OK басканда бардык өчүрүүлөрдүн тизмесин көрө алабыз.

3 -кадам: Сценарийди жазуу 2 -бөлүк: Скриптиңизди түзүү жана өзгөрмөлөрдү дайындоо

Макул, биринчи кезекте, текст документин түзүп, аны any_name.vbs деп өзгөртүңүз. Мен shutdown_catcher.vbs колдондум, бирок сиз каалаган нерсени колдоно аласыз. Эми vbs файлын оң баскыч менен чыкылдатыңыз жана edit. If notepad ++ азыр колдонгонуңузда, аны ачуу үчүн жакшы убакыт болмок it. Ok азыр биз кылгыбыз келген биринчи нерсе өзгөрмөлөрдү түзүү. Өзгөрмөлөр негизинен жер ээлери, ошондуктан биз көп нерселерди бир нече жолу жазуунун кажети жок. мисал: бизде "тез күрөң түлкү жалкоо иттердин артына секирет" деген сүйлөм бар. бирок бул биздин коддо 20 жолу. Биз же бүтүндөй сүйлөмдү 20 жолу терип же өзгөрмөнү түзүп, сүйлөмдү ошол өзгөрмөгө дайындай алабыз Ошентип, бул мисалда strSentence өзгөрмөсүн түзөбүз, андан кийин ал өзгөрмөгө "тез күрөң түлкү жалкоо иттердин үстүнөн секирет" деп дайындайбыз. Эми биз кылышыбыз керек болгон нерсе - бул strSentence жазуусу керек болгон сайын жана ал "тез күрөң түлкү жалкоо иттердин үстүнөн секирет" дегенди билет, биз муну кантип жасайбыз: Эгерде бизде бир эле типтеги бир нече өзгөрмөлөр бар болсо аларды ошол эле сапта жана өзгөрмөлөрдү үтүр менен ажыратыңыз. Өзгөрмөнү түзүү үчүн, биз өзгөрмөнү өлчөө деп аталган нерсени кылышыбыз керек. Бул үчүн биз өзгөрмөнүн алдында Dim деп жазабыз, андан кийин өзгөрмөнүн префиксин койобуз, ошондуктан өзгөрмө эмнени билдирерин билебиз. Мисалдар стр үчүн өзгөрмөлүү объектиси үчүн const болуп саналат. буларды биз бул скриптте колдонобуз, андыктан мен аларга бир аз түшүндүрүп берем. сап, адатта, сүйлөм сыяктуу текст. Объект, адатта, файл же программа сыяктуу физикалык нерсе. жана сценарий боюнча дайыма бирдей мааниге ээ боло турган нерсе. ЭСКЕРТҮҮ: КАНДАЙ БИР САТРАНЫН БИРИНЧИЛИГИ БОЛОТ, САЯНЫ СКРИПТЕН БЕЛГИЛЕНЕТ. ТЕЛЕГИЛЕР ЧАКЫРЫЛАТ ЖАНА ПРОГРАММЕРДИН АДАМЫНА КОШУЛАТ КОДДУ КАРАП ЖҮРГӨНДӨ КИЙИН ЭМНЕ КЫЛГАНДАРЫН ЭСТЕ АЛЫШАТ. Мен аларды кодго байланыштуу комментарийлерди жазуу үчүн колдоном, ошондо мен эмне үчүн мен кылган жолду толуктаганымды көрө аласыз. ЖАНА БУЛАР ЛИНИН ЖОГОРУСУНДА ЖӨНҮНДӨ КОММЕНТАРИЙ ЖҮРГҮЗҮШӨТ. Ансыз эч кандай аныкталбаган өзгөрмө objectOption катары каралат, азыр биз папкалар жана файлдар үчүн 5 өзгөрмөнү түзөбүз, аларга каалагандай ат беребиз, бирок конвенция preNameDim objFiSyOb, objSysFold, objShell, objFile, objTextFile'не азыр бизге керек каталогго, файлга жана файлга string өзгөрмөлөрүн түзүүDim strDir, strFile, strFileName'now азыр өзгөрмөлөргө маани берүү strDir биздин каталогубуз strDir = "C: / Catcher" папкасын каалайбыз strFile биз каалаган жерде. тексттик документ жана ал strstrfile = "\ Shutdown_catcher. Файлдын үч варианты бар, биз бул коддогу тиркемени гана колдонобуз, бирок алардын бардыгын билүү жагымдуу. Const forReading = 1, forWriting = 2, ForAppending = 8'Акырында биз файл тутумуна өзгөрмөнү орнотушубуз керек. биз аны кийинчерээк itSet objFiS керек болгондо чакыра алабыз yOb = CreateObject ("Scripting. FileSystemObject")

4 -кадам: Ортодогу түшүндүрмөлөр

Эми бизде өзгөрмөлөрдүн өлчөмү бар болгондуктан, биз ар дайым ошол өзгөрмөнү эстеп туруубуз керек. Бул биз жазуунун көлөмүн кыскартуу менен гана чектелбестен, ката кетирүүдөн улам азыраак ката кетирет. Эми техникалык жактан биз төмөнкү кодду терүүбүз керек жана биз файлды appendingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) 'жаңы сапты fileobjTextFile. WriteLineге жазыңыз ("Сиздин компьютериңиз өчүрүлөт" & датасы & "at" & time)' fileobjTextFile. Close'm pop upWscript. Echo ("Сиздин компьютер "& датасын &" "жана" убагында & ") өчүрүңүз" файлын IESet ачыңыз objShell = CreateObject ("WScript. Shell") objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") Көйгөй - бул катаны оңдоого болбойт жана файл жок же өзгөрүлбөгөн жөнөкөй ката скриптти бузат.

5 -кадам: Сценарийди жазуу 3 -бөлүк: Эгер анда билдирүүлөрдү ката оңдоо катары

Катаны оңдоонун эң оңой жолу if/then операторлорун колдонуу болуп саналат. Негизи if if анда мындай дейт: эгерде бир нерсе болуп кетсе, анда муну башкача кыл. If/then сөздөрүн уялоо менен, сиз боло турган нерселердин тизмегин түзө аласыз. Эгерде a жана b жана c болуп жатса, анда муну башка кылгыла.example: биз жазгысы келген файлдын бар экенине ынангыбыз келет, эгер биз аны тапсак, эч нерсе кылгыбыз келбейт, эгер биз таппасак, аны түзгүбүз келет же биз папка бар же жок экенин текшергим келет, анан папканы тапкандан кийин файлдын бар экендигин текшерип көрөлү, эгерде аны түзбөсөк, биринчиси эгерде анда экинчиси болсо, анда уяланган. биз муну жасайбыз: if if билдирүүсүнүн төрт бөлүгү бар, эгер/эгерде негизинен эгер бул чын болсо, анда муну жасаңыз, эгерде мындай кылсаңыз, анда билдирүү туура коддолгон болсо, анда мындай болот: эгер бир нерсе = бир нерсе болсо эмне кылыш керек Дагы бир нерсе кылгыла, эгерде сиз кандайдыр бир аргументти туура колдоно алсаңыз, анда ал ошол бөлүктү ээрчип, башка бөлүгүн этибарга албайт, бирок эгер жалган болсо, анда ал сөздү өткөрүп жиберет жана башкага өтөт. биз "if if" дегенди коебуз, бирок эгер биз if билдирүүлөрүн уялаган болсок, if if ар бир сөзүн бүтүрүшүбүз керек. Бул аларды баладан ата -энеге чейин токтотот, ошондуктан биринчи "if if" if оператору ата -эненин ичинде аяктайт, экинчиси if (түпнуска) if оператору менен аяктайт. Калкып чыгуу үчүн биз жөн гана Wscript. Echo (" Биз ") билдирүүсүндө айткымыз келет, ага өзгөрмө маанини кошуу үчүн аны сыртына же кош тырмакчалардын ортосуна бөлүүчү катары amperand (&) белгиси аркылуу коебуз, ошондуктан сценарий бул текст эмес, өзгөрмө экенин билет.: Wscript. Echo ("Бла бла бла" & strDir & "бла бла бла" & strFilename & "бла бла бла.") Чыгуу Бла бла бла C: / Catcher бла бла бла shutdown_catcher.txt бла бла бла. Чыныгы колдонуу: 'эгерде C; / папкасы бар болсо objFiSyOb. FolderExists (strDir) Андан кийин папканы Set objSysFold = objFiSyOb. GetFolder (strDir)' болбосо, папканы c; / catcher коюңуз objSysFoldb = objSysFOd CreateFolder (strDir) 'жана файл менен папканын бар -жогун текшериңиз Эгерде objFiSyOb. FileExists (strDir & strFile) Андан кийин c: / catcher Set ob jSysFold = objFiSyOb. GetFolder (strDir) 'болбосоElse'create text document shutdown_catcher.txt Set objFile = objFiSyOb. CreateTextFile (strDir & strFile)', анан экөөнү тең Wscript. Echo жаратканын айтуу үчүн билдирүү пайда болот. "& strDir &" деп аталат жана "& strFilename &" аттуу файлды "& strDir & strFile &" каталогуна жайгаштырат.)) 'end if ifEnd If'end original if ifEnd If If if the first if операторунда Биз буга чейин папканы текшерип, тапканбыз, андыктан азыр fileIfти текшеребиз objFiSyOb. FileExists (strDir & strFile) Андан кийин табылган папканы алуу objSysFold = objFiSyOb. GetFolder (strDir) ', болбосо "dj Set the objFile = objFiSyOb. CreateTextFile (strDir & strFile) ', биз Wscript. Echo текст документин түзгөнүбүздү билдирүүчү калкып чыгуучу терезени түзөбүз ("Биз" & strDir & "файл папкасында" & strFileName & "аттуу файлды түздүк") End If

6 -кадам: Ортодогу түшүндүрмөлөр

Эгерде сиз мурунку кадамдын кодун жакшылап карасаңыз, анда эгер киргизилген болсо да, уя салынбаганын да көрөсүз. Биринчиси, уяланган билдирүү. Ал папканы жана файлды текшерет, эгер таппаса экөөнү тең түзөт. Экинчиси жөн эле файлды издейт жана эгер таппаса, ал жөн эле файлды түзөт. Эмне үчүн экөө тең деп айтууга болот. Файл жок кылынса, бирок папка жок болсо эмне болот. Биринчи if билдирүүсү файлды түзүүдөн баш тартат, анткени ал папканы тапкан жана билдирүүнүн башка бөлүгүн эч качан иштетпейт. Ошентип, сиз файлга жазууга барганда, ката кетет, анткени файл жок болот. Ошентип, экинчисин алуу менен бул маселени чечет. Техникалык жактан сиз уялган билдирүүнү алып салсаңыз болот, анткени ал экинчи билдирүү менен дээрлик бирдей, бирок анда сизде бир гана калкыма пайда болот жана ал анча жагымдуу болбойт, бул мага сизге уялаганга караганда, сизге уя салганыңызды көрсөтүүгө мүмкүнчүлүк берди -эгерде билдирүүлөр кирсе.

7 -кадам: Дагы каталарды оңдоо

Азыр биз катага оңдоонун көпчүлүгүн бүтүргөндөн кийин, биз файлга жазууну жана калкып чыгууну көрсөтүүнү каалайбыз. Маселе, эгерде биз өзгөрмөдө сакталган мурунку объектинин шилтемесин чыгарбасак, уруксат каталарын алабыз. Ошентип, биз кичинекей коддун үзүндүсүн киргизгибиз келет, бул өзгөрмөлөрдү эч нерсеге койбогула деген сыяктуу: set objFile = nothingset objSysFold = none Out): Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.txt" strFileName =. ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Эгерде objFiSyOb. FolderExists (strDir) Андан кийин objSysFold = objFiSyOb. GetFolder (strDir) башка топтому objSyFyFyFyderFreeFyderFreeFyderFree Орнотуу objSysFold = objFiSyOb. GetFolder (strDir) Башка Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Биз" & strDir & "аттуу папканы жана" & strFilename & "аттуу файлды түзүп, аны жайгаштырдык. "& strDir & strFile &" каталогу. ") Аягы I fEnd IfIf objFiSyOb. FileExists (strDir & strFile) Анда Set objSysFold = objFiSyOb. GetFolder (strDir) Башка Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("We have &" "& strDir &" файл папкасы. ") Ifsetти токтотуу objFile = nothingset objSysFold = эч нерсе

8 -кадам: Жазууну жазуу 4 -бөлүк: Атрибуттарды орнотуу

Эми биз аны өзгөртүү үчүн файлга атрибуттарды коюшубуз керек. Мурда биз үч туруктуу өзгөрмөнү койгонбуз: forReading = 1forWriting = 2 forAppending = 8 for forReading деп койсоңуз, аны окуй аласыз, бирок ага жаза албайсыз.. Эгерде сиз аны forAppending деп койсоңуз, анда скрипт документти аткарган сайын жаңы сапты кошуп коёсуз. Биз кайра жүктөлгөн сайын журналдын болушун каалайбыз, биз анын тиркелишин каалайбыз жана жазылып бүтпөйт, андыктан forAppendingти колдонобуз.: сиз атрибуттарды коюуну каалаган объектинин атын коюшуңуз керек. Биз мурунку кадамдардагы иштердин көбүн аткаргандыктан, бул учурда өзгөрмөлөрдү эстеп коюшубуз керек. Андан кийин жөн гана аны чындыкка коюңуз. Чыныгы колдонуу: 'объект to set = filesystemobject.action (каталог+файлдын атрибуту, атрибут, чын же жалган) Set objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)

9 -кадам: Жазууну жазуу 5 -бөлүк: Файлга жазуу

Файлга жазуу калкып чыкма жазууга окшош. Сиз жөн гана: objTextFile. WriteLine ("Эмнени айткыңыз келсе, ошону жазыңыз" жана Жазуу сабына которулуучу Variable) Айырмасы - бул биринчи бөлүк. Калкып чыкканда: Wscript.echoin жазуу сабына: objTextFile. WriteLineA жана жазуу сабында сиз жазууну токтотушуңуз керек болгон жазуу линиясын жабышыңыз керек жана бул үчүн сиз колдоносуз: objTextFile. CloseActual Use: objTextFile. WriteLine ("Компьютериңиз өчүрүлгөн" жана датасы & "учурда" жана убактысы) objTextFile.эли азыр файлга жаздыңыз деп айтуу үчүн калкыма терезени кошуңуз, анткени ал эмне болгонун билет жана алар файлды ачуу үчүн жабылышы керек жана viewWscript. Echo ("Сиздин компьютериңиз өчүрүлгөн" & датасы & "at") & убакыт)

10 -кадам: Сценарийди жазуу 5 -бөлүк: Көрүү үчүн файлды ачуу

Сценарий ушул убакта кимдир бирөө калкып чыкмайынча токтойт. Калкып чыккандан кийин, файлды ачуучу сызыкты койсоңуз болот. Мунун кээ бир каталарын оңдоону колдонуу программанын жакшы иштешине жардам берет. Vbscriptте ката жаратканыңызда, ал "err.number" өзгөрмөсүнө маанини кошот, бул vbscriptте алдын ала аныкталган өзгөрмө. Сиз аны аныктоонун кажети жок жана анын эрежелерин бузбасаңыз, аны башка өзгөрмөлөр сыяктуу эле колдоно аласыз. Err.number өзгөрмөсүнө дайындалган маани, катанын коду болуп саналат. Эми сиз же vbscript маалымат базасында белгилүү болгон ар бир ката кодун текшерип, анын болбогонун текшере аласыз. Же жеңилирээк, err.number өзгөрмөсүнүн бош экенин текшерүү. ал бош болсо, эч кандай ката кеткен жок. Бул үчүн биз жөн гана өзгөрмөнүн vbEmptyге барабар экендигин текшеребиз. Ошентип, биздин сценарийибизде if if башка сөздү колдонууну каалайбыз. Жана ката болгонун текшериңиз, эгерде ал файлды көрүү үчүн ачпаса, бирок анда ката номери бар билдирүү чыкса, биз мүчүлүштүктөрдү оңдой алабыз. терүү Wscript. Quit. Бул сценарийдин өзүн токтотуусун билдирет. Бул эс тутумдун агып кетүүсүн жана керексиз процесстерди кармап турууга жардам берет. Кандайча колдонулат: эгер err.number vbEmptyге барабар болсо, анда снаряд түзүңүз, андан кийин программаны кабыктан иштетиңиз, эгерде ката болгонун билдирсеңиз. errorIf err.number = vbEmpty анда 'эч ким қабык түзбөсө Set objShell = CreateObject ("WScript. Shell")' 'анда файлды изилдөөчүнүн жардамы менен ошол кабыктан ачыңыз. ал иш жүзүндө IEде ачылат, бирок objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") 'болбосо, ката номери менен билдирүү пайда болотElse WScript.echo "VBScript Error:" & err.numberEnd 'end scriptWscript.quit

11 -кадам: Сценарийди баштоодо иштетүү

Баштоо менюсунда Startup деп аталган файл папкасы бар. Бул папкага салынган нерселердин баары компьютер башталаар замат башталат. Сценарий файлын баштоо папкасына коюу менен, компьютер атайылап же жокпу, кайра жүктөлгөн сайын аткарылат. Мен муну диагностикалык курал катары гана колдонуп жаткандыктан, аны баштоо үчүн кызматка киргизүүнүн кажети жок жана аны баштоо үчүн реестрге киргизүүнүн кажети жок, ошондуктан бул жакшы болот. Мен компьютерди оңдогондон кийин, мен файлды баштоо папкасынан жок кыла алам жана башка тазалоонун кереги жок.

12 -кадам: Программаны иштетүү

Сиз vbscript файлын аткарганда ал азыр А. болот.) C: / Catcher папкасынын бар же жок экенин текшериңиз.) Эгерде ал папканы же файлды же экөөнү тең жаратса, анда ал аларды жараткандыгы жөнүндө билдирүү пайда болот (Эскертүү: муну биринчи иштөөдө гана жасаш керек, андан кийин ал жок кылынмайынча ошол жерде болушу керек, андыктан ал билдирүүнү бир гана жолу көрүш керек. Бул сценарийди башкарылуучу өчүрүп -күйгүзүү жолу менен иштетүү жакшы идея болушу мүмкүн, андыктан сиз калкып чыкмаларды айланып өтө аласыз же файлга эч нерсе жаза албайсыз, анткени ал калкып чыккан файлды айланып өтпөйт.) D:) текст документи Shutdown_Catcher.txt мындай жана мындай убакта компьютердин мындай жана мындай күнү өчүрүлөрүн айткан. Сиз кодду жазылгандай көрөсүз. Эми мен эмне кылышым керек, отуруп, күтө туруу. Компьютер кайра жүктөлгөн сайын анын жазуусу болот. Анан мен жазууну карап чыгып, анын ырааттуулугу бар -жогун көрө алам. Мисалы, ал ар бир жарым саатта кайра жүктөлөт же саат сайын 45 же 45 болгондо кайра жүктөлөт. Бул компьютерди текшерүүнүн жалгыз жолу эмес, сиз билесиз. Менде ошондой эле температураларды текшерүү үчүн иштеген бенчмаркинг программасы бар, ошондуктан ал өчкөндө канчалык ысык экенин билем, чыңалуу, ошондуктан электр менен камсыздоо иштебей жатканын билем жана башка пайдалуу нерселер. Ооба, бул пайдалуу болду деп үмүттөнөм. Мен аны жакшы көрөрүмдү билем, балким башкаларга да жагат. Эгерде сизде кандайдыр бир суроолор болсо, тартынбастан сураңыз. Мен аларга дароо жете албайм, бирок бир аз чыдап, мен сага жооп берем. Менин күнүм/жумам кандай болуп жатканына байланыштуу.

13 -кадам: Кодекс

Бул бардык кеңештер жана эскертүүлөрсүз жазылган код_Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.tatcher_tatcher_tatcher Const forReading = 1, forWriting = 2, ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Эгерде objFiSyOb. FolderExists (strDir) анда Set objSysFold = objFiSyOb. GetFolder (strDorFoldFyder) objFiSyOb. FileExists (strDir & strFile) Андан кийин Set objSysFold = objFiSyOb. GetFolder (strDir) Башка Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Биз &" деп аталган папканы түздүк " "& strFilename &" жана аны "& strDir & strFile &" каталогуна жайгаштырды.) IfEnd IfIf End if If objFiSyOb. FileExists (strDir & strFile) Андан кийин Set objSysFold = objFiSyOb. GetFolder (strDir) Башка Set objFileF (obJFiSyFile) strDir & strFile) Wscript. Echo ("Бизде бар "& strDir &" файл папкасында "& strFileName &" аттуу файлды түздү.) Ifset objFile = nothingset objSysFold = nothingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) objTextFile ("Your Computer Computer). "& Дата &" дегенди "& убагында" өчүрүңүз objTextFile. CloseWscript. Echo ("Компьютериңиз өчүрүлөт" & датасы & "at" & time) Эгерде err.number = vbEmpty анда Set objShell = CreateObject ("WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Башка WScript.echo" VBScript Error: "& err.numberEnd IfWScript. Quit