VB сценарийіне кіріспе: жаңадан бастаушыларға арналған нұсқаулық: 2 -бөлім: файлдармен жұмыс: 13 қадам

2024 Автор: John Day | [email protected]. Соңғы өзгертілген: 2024-01-30 10:28

Менің соңғы VBScript нұсқауымда мен Xbox360 ойнау үшін интернетті өшіру үшін қалай сценарий жасау керектігін қарастырдым. Бүгін менде басқа мәселе бар. Менің компьютерім кездейсоқ сөніп қалды, мен компьютер қайта жүктелген сайын файлға кіргім келеді. Менде мәселе видеокартада екенін сеземін, бірақ мен сенімді болғым келеді. Мен компьютерді үнемі қосулы қалдырамын, бірақ оны тәулік бойы бақылай алмаймын, сондықтан менің ең оңай шешімім - ол қайта жүктелген сайын файлға уақыт белгісін жазу. Бұл маған әр уақытта BSOD береді, ол өшірілген кезде кіру қиын болады, сондықтан мен оны қайта қосқанда алуым керек. Бұл компьютерде не бар екенін білмейінше, бұл уақытша болғандықтан, мен тізілімге жазбаймын немесе оны қызмет етпеймін, сондықтан ол жүктеу кезінде іске қосылады. Әр өшірілген сайын оны қайта жүктеу үшін био жазбаны өңдеуге тура келеді.

1 -қадам: қуатты өшіру кезінде оны қайта жүктеу үшін биосты өңдеу

Менде мәселе электрмен жабдықтаудың бұзылуында ма, видеокартада ма, әлде бұл неде екеніне сенімді емеспін. Бірақ мен компьютер жиі қайта жүктелетінін білемін. Қуат үзілгеннен кейін оның қайта жүктелетініне көз жеткізу үшін (IE: қуат көзі қызарады) биосын өңдегім келеді. Био -өндірушілердің көптігіне байланысты, мұны әр түрлі био экрандарда жасаудың әр түрлі әдістерін тізімдеу тым қиын болар еді, сондықтан мен сізге жай ғана негіздерді беремін және түсінуге мүмкіндік беремін. Негізінде сіздің биосқа кіру үшін жүктеудегі түймені басу қажет. Әдетте бұл «орнату үшін Del» түймесін басу «немесе» F2 «сияқты нәрсе айтады. Әр түрлі өндірушілер сізге әр түрлі жолдарды ұсынады, бірақ бұл әдетте «F2» немесе «Del» пернесі. Қалай болғанда да, оны қадағалаңыз және ол сізге айтатын пернені басыңыз. Енді сіз әдетте сұр немесе көгілдір экранға келесіз, бірақ бұл сіздің биосыңызға байланысты. Сіз қуат параметрлерін іздейсіз. Ол AMIBIOS скриншотындағыдай (Toms аппараттық нұсқаулығынан алынған) терезеде болады немесе кейбіреулерде биос мүмкіндіктерінің жетілдірілген терезесінде болуы мүмкін. Қалай болғанда да, сіз «AC/қуат жоғалтуды қалпына келтіру» параметрін іздейсіз. Ол басқаша аталуы мүмкін, бірақ бұл оған жақын болады. Тек оны іздеңіз. Әдетте оның үш нұсқасы болады (соңғы күй, қуат жоғалғаннан кейін қосылады, қуат жоғалғаннан кейін өшеді). Қуат жоғалғаннан кейін оны қосқыңыз келеді. Параметрлерді сақтап, биосыздықтан шығыңыз. Енді сіздің қуатыңыз өшіп қалса немесе сіз оны электр желісінен ажыратсаңыз, ол қайтадан қуат алған кезде қайта қосылады. Ияххххх !!!!!!!!!!!!!!!!

2 -қадам: Сценарий жазу 1 -бөлім: Жоспар құру

Біз бірінші кезекте жоспар құрамыз. Біз сценарийдің нақты не істеуін қалаймыз. (BiosB өңдеудің 1 -қадамында қамқорлық жасалды.) Ол қайта жүктелгеннен кейін біз файлға оның қайта жүктелген күні мен уақытын жазғымыз келеді. C.) Біз бұл файлға түзетулер енгізгіміз келеді. Егер ол бірнеше рет қайта жүктелсе, біз ешқашан білмейміз. D.) Біз қатені түзеткенін қалаймыз, сондықтан ол бұзылмайды және біз барлық қайта жүктеуді нашар кодтаудан жоғалтпай алатындығымызға сенімдіміз. E.) Біз мұны қалаймыз Хабарлама қайта жүктеледі деген хабарды шығарады. F.) Біз оған жазылған файлды ашқанын қалаймыз, осылайша біз хабарламаны басқан кезде барлық қайта жүктелулердің тізімін көре аламыз.

3 -қадам: Сценарий жазу 2 -бөлім: Сценарийді құру айнымалыларды тағайындау

Жақсы, алдымен мәтіндік құжат жасаңыз және оны any_name.vbs деп өзгертіңіз. Мен shutdown_catcher.vbs қолдандым, бірақ сіз кез келген нәрсені қолдана аласыз. Енді vbs файлын тінтуірдің оң жақ түймесімен нұқыңыз және өңдеуді басыңыз. Егер сіз блокнотты ++ қазір қолдансаңыз, оны ашу үшін жақсы уақыт болар еді, егер сіз кодтаудың кез келген мөлшерін жасамасаңыз. Енді біз бірінші кезекте айнымалылар жасауды қалаймыз. Айнымалылар - бұл жай ғана орын иегері, сондықтан біз көптеген материалдарды бірнеше рет жазудың қажеті жоқ. мысал: бізде «тез қоңыр түлкі жалқау иттердің артынан секіреді» деген сөйлем бар. бірақ бұл біздің кодта 20 рет. Біз сөйлемді 20 рет тере аламыз немесе айнымалы жасай аламыз және сөйлемді сол айнымалыға тағайындай аламыз, сондықтан біз бұл мысалда strSentence айнымалысын жасаймыз, содан кейін сол айнымалыға «тез қоңыр түлкі жалқау иттердің үстінен секіреді» тағайындаймыз. Енді бізге тек сөйлем қажет болған кезде strSentence теру керек және ол «тез қоңыр түлкі жалқау иттердің үстінен секіреді» деп теруді біледі, біз мұны қалай істейміз: Егер бізде бір типті бірнеше айнымалылар болса, оларды қоюға болады. оларды бір жолға қойып, айнымалыларды үтірмен ажыратыңыз. Айнымалыны құру үшін біз айнымалыны өлшемдеу деп аталатын нәрсені істеуіміз керек. Мұны істеу үшін біз айнымалының алдында Dim деп жазамыз, содан кейін айнымалыға префиксті қоямыз, сондықтан айнымалының нені білдіретінін білеміз. Мысалдар - тұрақты айнымалы үшін const айнымалысы үшін obj жолының айнымалысы.. Тізім жалғаса береді. бұл біз бұл сценарийде қолданатын боламыз, сондықтан мен оларға аздап түсіндіремін. жол әдетте сөйлем тәрізді мәтін болып табылады. Әдетте объект - бұл файл немесе бағдарлама сияқты физикалық нәрсе. және тұрақты - бұл сценарийде әрқашан бірдей мағынаға ие болатын нәрсе. ЕСКЕРТПЕ: КЕЗ КЕЛГЕНДЕ ЖОЛДЫҢ БІРІНШІСІ БОЛАДЫ, СТРИПТЕН ЖОЛДЫ БЕЛГІЛЕЙДІ. ОЛАР ЕСКЕРТУЛЕР ДЕП АТҚАН ЖӘНЕ ПРОГРАММЕРДІҢ ҚОЙЫМША ҚОСЫЛАДЫ. ОЛАР КОДТЫ ӨТКЕНДЕН КЕЙІН НЕ ІСТЕГЕНДЕРІН ЕСТЕ АЛАДЫ. Мен оларды код туралы түсініктеме беру үшін қолданамын, сондықтан мен не үшін мен жасаған әдісті толтырғанымды көре аласыз. ЖӘНЕ ОЛАР СІЗДІҢ ЖОҒАРЫДА БОЛАДЫ ТҮСІНІКТЕ ПІКІР АЙТАДЫ. Іс жүзінде қолдану: 'бұл сызық барлық айнымалыларды анықтауға мәжбүр етеді. Онсыз кез келген анықталмаған айнымалылар объект ретінде қарастырылады. Осы кезде біз қалталар мен файлдар үшін 5 айнымалыны жасаймыз, оларды қалағаныңызша атаймыз, бірақ конвенция preNameDim objFiSyOb, objSysFold, objShell, objFile, objTextFileбізге қажет каталог, файл және файл атауы үшін жол айнымалысын жасау үшінDim strDir, strFile, strFileNameNow айнымалыларға мәндерді тағайындайды strDir - бұл біздің каталог strDir = «C: / Catcher» қалтасын қалаймыз, strFile біз қалаған жерде. мәтіндік құжат және оның қалай аталатыны strFile = «\ Shutdown_catcher.txt» 'strfile атауы сондықтан бізде қалқымалы файлда пайдалануға арналған файлдың атауы бар upsstrFileName = «Shutdown_catcher.txt»' біз келесіге қатынасу үшін тұрақты тағайындауымыз керек. Бізде үш нұсқа бар файл, біз тек осы кодтағы қосымшаны қолданамыз, бірақ олардың барлығын білу өте жақсы. Const forReading = 1, forWriting = 2, ForAppending = 8 объект, сондықтан оны қажет болған кезде қоңырау шала аламыз objFiS yOb = CreateObject («Scripting. FileSystemObject»)

4 -қадам: Арасындағы түсініктемелер

Енді бізде айнымалылардың өлшемі бар болғандықтан, біз әрқашан сол айнымалы мәнді еске түсіруіміз керек. Бұл тек теру көлемін азайтып қана қоймайды, сонымен қатар қате жазуларға байланысты қателіктерді азайтады. Енді техникалық тұрғыдан келесі кодты теру ғана қалады, және біз файлды appendingSet objTextFile = objFiSyOb. OpenTextFile (strDir) орнатамыз. & strFile, ForAppending, True) 'жаңа жолды fileobjTextFile. WriteLine -ге жазыңыз («Сіздің компьютеріңіз өшірулі» & күні & «кезінде» & уақытта)' fileobjTextFile. Close жасаңызWWcript. Echo қалқымалы терезесін жасаңыз («Сіздің компьютер «& date &» функциясын «& time» кезінде өшіреді «файлды IESet ішінен ашыңыз objShell = CreateObject (» WScript. Shell «) objShell.run (» Explorer «&» «& strDir &» / shutdown_catcher.txt «) Мәселе мынада, онда қатені түзету болмайды, ал файл жоқ немесе бұрыннан тағайындалған айнымалы сияқты кез келген қарапайым қате сценарийді бұзады.

5 -қадам: Сценарийді жазу 3 -бөлім: Егер олай болса, қателерді түзету ретінде

Қатені түзетудің ең оңай жолы if/then операторларын қолдану болып табылады. If/then мәлімдемелерін кірістіру арқылы сіз болуы керек нәрселер тізбегін жасай аласыз. Егер a және b және c орын алса, мұны басқаша жасаңыз, мысалы: біз жазғымыз келетін файлдың бар екеніне көз жеткізгіміз келеді, егер біз оны тапсақ, біз ештеңе жасағымыз келмесе, егер біз оны таппасақ, оны жасағымыз келеді. қалтаның бар -жоғын тексергіңіз келеді, егер оны жасамасаңыз, содан кейін біз қалтаны тапқаннан кейін файлдың бар -жоғын тексереміз, егер оны жасамасақ - біріншісі if if операторының мысалы, егер онда - кірістірілген болса. біз мұны жасаймыз: if if операторының төрт бөлімі бар, егер if/then elseend, егер бұл шын болса, онда мұны басқаша жасаңыз, содан кейін оператор дұрыс кодталған болса, егер оператор келесідей болса: егер бірдеңе = бірдеңе болса Сізге не істеу керек Басқа нәрсе жасаңыз Егер сіз кез келген аргументті қолдана алсаңыз, ол шындыққа сәйкес болса, ол сол бөлікті қадағалайды және басқа бөлікті елемейді, бірақ егер ол жалған болса, ол уақытты өткізіп жібереді, содан кейін if операторын аяқтағанда біз «if if» қоямыз, бірақ егер if операторларына кірістірілген болсақ, if if операторының барлығын аяқтауға тура келеді. Бұл оларды балалардан ата -аналарға дейін тоқтатады, сондықтан бірінші «if if» ата -ананың ішіндегі if операторын аяқтайды, екіншісі if операторының түпнұсқасын (ата -анасын) аяқтайды. Қалқымалы терезені ашу үшін біз Wscript. Echo («бәрібір Біз «) хабарында айтқымыз келеді, оған айнымалы мәнді қосу үшін оны сыртқа немесе қос тырнақшаның арасына бөлгіш ретінде амперсанд (&) белгісін қолданып қоямыз, сондықтан сценарий оның айнымалы екенін біледі.: Wscript. Echo («Blah blah blah» & strDir & «blah blah blah» & strFilename & «blah blah blah.») - бұл қалқымалы терезе болады, онда Blah blah blah C: / Catcher blah blah blah shutdown_catcher.txt бла бла бла. Нақты қолдану: 'егер C; / қалтасы болса objFiSyOb. FolderExists (strDir) Содан кейін қалтаны орнатыңыз objSysFold = objFiSyOb. GetFolder (strDir)' әйтпесеElse'қалтаны құрыңыз c; / catcher ObjSysFOl = objSysFoldb CreateFolder (strDir) 'және файл мен қалтаның бар -жоғын тексеріңіз Егер objFiSyOb. FileExists (strDir & strFile) Содан кейін егер ол c: / catcher қалтасын алса jSysFold = objFiSyOb. GetFolder (strDir) 'әйтпесеElse'create text document shutdown_catcher.txt objFile = objFiSyOb. CreateTextFile (strDir & strFile) орнатыңыз', содан кейін екеуін де Wscript. Echo құрдыңыз деген хабарды шығарыңыз («Бізде «& strDir &» деп аталатын файлды және «& strFilename &» деп аталатын файлды «& strDir & strFile &» каталогына орналастырды. «) 'end if ifEnd If'end түпнұсқа if операторEnd If'now бірінші if операторында біз қазірдің өзінде қалтаны тексердік және оны таптық, енді біз fileIf файлын тексереміз, егер objFiSyOb. FileExists (strDir & strFile) Содан кейін «ObjSysFold = objFiSyOb. GetFolder (strDir)» қалтасын алсаңыз, әйтпесе «dj Set objFile = objFiSyOb» файлын табыңыз. CreateTextFile (strDir & strFile) 'қалқымалы терезесін жасаңыз, біз Wscript. Echo мәтіндік құжатын құрдық («Біз» & strDir & «файл қалтасында» & strFileName & «атты файлды құрдық.) Аяқталса

6 -қадам: Арасындағы түсініктемелер

Егер сіз алдыңғы қадамдағы кодты мұқият қарасаңыз, онда кірістірілгенді де, кірістірілмегенді де көресіз. Біріншісі - кірістірілген мәлімдеме. Ол қалта мен файлды тексереді, егер олар табылмаса, екеуін де жасайды. Екіншісі файлды іздейді, егер ол табылмаса, ол тек файлды жасайды. Неліктен екеуін де айтуға болады. Егер файл жойылса, бірақ қалта жойылмаса не болады. Бірінші if операторы файлды құрудан бірден өтіп кетеді, себебі ол қалтаны тапты және ешқашан мәлімдеменің басқа бөлігін қоспайды. Егер сіз файлға жазуға барсаңыз, ол қате болады, себебі файл жоқ болады. Сондықтан екіншісін алу бұл мәселені шешеді. Техникалық тұрғыдан сіз кірістірілген мәлімдемені алып тастай аласыз, себебі бұл егер мәлімдеме екіншісімен бірдей болса, бірақ сізде тек бір ғана қалқымалы терезе болады және ол соншалықты жақсы болмайды -кірістірілген мәлімдемелер.

7 -қадам: қатені түзету

Енді біз файлға жазғымыз келетін және қалқымалы терезелерді көрсеткіміз келетін қателерді түзетудің көп бөлігін аяқтадық. Мәселе мынада, егер біз айнымалыда сақталған алдыңғы объектінің сілтемесін шығармасақ, рұқсат қателерін аламыз. Сондықтан біз айнымалыларды ештеңеге қоймайтын кодтың кішкене үзіндісін енгізгіміз келеді: келесідей көрінеді: set objFile = nothingset objSysFold = none шығу): Опциондық Дим 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) басқасын орнатыңыз objSyFyFroDerForDFF 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) орнатыңыз. «& strDir &» файл қалтасы. «) Ifset жиынтығын аяқтау objFile = nothingset objSysFold = ештеңе

8 -қадам: Сценарий жазу 4 -бөлім: Атрибуттарды орнату

Енді біз файлға атрибуттарды орнатуымыз керек, сонда біз оны өзгерте аламыз. Бұрын біз үш тұрақты айнымалы мәнді орнаттық: forReading = 1forWriting = 2 forAppending = 8 үшін forReading деп орнатсаңыз, сіз оны оқи аласыз, бірақ оған жаза алмайсыз.. Егер сіз оны «forAppending» күйіне орнатсаңыз, сценарий құжатқа орындалған сайын жаңа жолды қосасыз. Біз қайта жүктелген сайын оның журналын алғымыз келеді, біз оны қосуды және артық жазылмағанын қалаймыз, сондықтан біз forAppending қолданамыз.: атрибуттарды орнатқыңыз келетін объектіні атауыңыз керек. Біз жұмыстың көп бөлігін алдыңғы қадамдарда жасағандықтан, дәл осы кезде айнымалыларды еске түсіру қажет. Содан кейін оны шын мәніне орнатыңыз. Іс жүзінде пайдалану: 'нысанға арналған = filesystemobject.action (каталог+файл атауы, атрибут, шын немесе жалған) ObjTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)

9 -қадам: Сценарий жазу 5 -бөлім: Файлға жазу

Файлға жазу қалқымалы терезе жазуға ұқсайды. Сіз жай ғана қойдыңыз: objTextFile. WriteLine («Не айтқыңыз келсе де» және жазу жолына ауыспалы) Жалғыз айырмашылық - бірінші бөлік. Қалқымалы терезеде: Wscript.echoin жазатын жолға: objTextFile қойыңыз. WriteLineAжәне жазу жолында сіз жазу жолын жабуыңыз керек, сонда ол жазуды тоқтатады және ол үшін сіз:.қазір ашылмалы терезеге файлға жаздыңыз деп айту керек, сонда адам бұл болғанын біледі және олар файлды ашу үшін оны жабуы керек және viewWscript. Echo («Сіздің компьютеріңіз өшірулі» және «және күні») & уақыт)

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») 'әйтпесе нөмірі қатесі бар хабарламаны шығарады WScript.echo «VBScript қатесі:» & err.numberEnd 'end scriptWscript.quit

11 -қадам: сценарийді іске қосу кезінде іске қосу

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

12 -қадам: Бағдарламаны іске қосу

Сіз vbscript файлын орындаған кезде ол енді A. болады.) C: / Catcher қалтасының бар -жоғын тексеріңіз. B:) Shutdown_catcher.txt файлының бар -жоғын тексеріңіз.) Егер ол қалтаны немесе файлды немесе екеуін де құрса, ол оларды жасағанын білдіретін хабарлама шығады (Ескертпе: бұл тек бірінші рет іске қосылады, содан кейін ол жойылмайынша болуы керек, сондықтан сіз бұл хабарды тек бір рет көресіз). Бұл сценарийді басқарылатын қайта жүктеу кезінде бір рет іске қосу жақсы болар еді, сондықтан сіз бұл қалқымалы терезелерді айналып өтуге болады немесе файлға ештеңе жаза алмайсыз, себебі ол қалқымалы терезені жасамайды.) D:) Жолды жолға жазыңыз. Shutdown_Catcher.txt мәтіндік құжаты компьютерді осындай уақытта өшіретінін айтады. Сіз кодты жазылғандай көресіз, енді мен отыруға және күтуге тура келеді. Компьютер қайта жүктелген сайын менде оның жазбасы болады. Содан кейін мен жазбаны қарап шығамын және оған сәйкестік бар -жоғын біле аламын. Мысалы, ол әр жарты сағат сайын қайта жүктеледі немесе кез келген уақытта немесе 45 -те қайта қосылады. Бұл компьютерді тексерудің жалғыз әдісі емес, сіз білесіз. Менде температураны тексеру үшін менчаркинг бағдарламасы жұмыс істейді, сондықтан мен оның қаншалықты ыстық екенін, кернеуді білемін, сондықтан электрмен жабдықтаудың істен шыққанын білемін және басқа да пайдалы нәрселер. Жақсы, бұл пайдалы болды деп үміттенемін. Мен өзіме ұнайтынын білемін, мүмкін басқаларға да ұнайтын шығар. Егер сізде сұрақтар туындаса, тартынбаңыз. Мен оларға бірден жете алмаймын, бірақ сәл ғана жауап беремін. Менің күнімнің/аптаның қалай өтетініне байланысты.

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

Бұл барлық кеңестер мен ескертулерсіз жазылған код_Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = «C: / Catcher» strFile = «\ Shutdown_catcher_tatcher_tatcher Const forReading = 1, forWriting = 2, ForAppending = 8Set objFiSyOb = CreateObject («Scripting. FileSystemObject») Егер objFiSyOb. FolderExists (strDir) болса, содан кейін objSysFold = objFiSyOb. GetFolder (StrDorFolder) орнатыңыз (strDir). objFiSyOb. FileExists (strDir & strFile) Содан кейін objSysFold = objFiSyOb. GetFolder (strDir) басқа параметрлерін орнатыңыз objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo («Біз және» деп аталатын қалта құрдық « «& strFilename &» және оны «& strDir & strFile &» каталогына орналастырды. «) IfEnd IfIf аяқталса, objFiSyOb. FileExists (strDir & strFile) Содан кейін objSysFold = objFiSyOb. GetFolder (strDir) орнатыңыз. strDir & strFile) Wscript. Echo («Бізде бар «& strDir &» файл қалтасында «& strFileName &» атты файлды құрды.) Ifset орнатуды аяқтау objFile = nothingset objSysFold = nothingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) objTextFile. WriteLine «& Date &» параметрін «& уақытта» өшіру objTextFile. CloseWscript. Echo («Сіздің компьютеріңіз өшірулі» & күні & «кезінде» & уақытта) Егер err.number = vbEmpty болса, онда objShell = CreateObject («WScript орнатыңыз. Shell «) objShell.run (» Explorer «&» «& strDir &» / shutdown_catcher.txt «) Басқа WScript.echo» VBScript қатесі: «& err.numberEnd IfWScript. Quit