Введение в сценарий VB: руководство для начинающих: часть 2: Работа с файлами: 13 шагов

2024 Автор: John Day | [email protected]. Последнее изменение: 2024-01-30 11:55

В моем последнем руководстве по VBScript я рассмотрел, как создать сценарий для отключения вашего интернета для игры на Xbox360. Сегодня у меня другая проблема. Мой компьютер выключался в случайное время, и я хочу регистрировать каждый раз, когда компьютер перезагружается в файл. Такое ощущение, что проблема в видеокарте, но хочу убедиться. Я всегда оставляю компьютер включенным, но не могу контролировать его 24 часа в сутки, 7 дней в неделю, поэтому мое простое решение - записывать метку времени в файл при каждой его перезагрузке. Поскольку он выдает мне BSOD каждый раз, регистрировать, когда он выключается, будет сложно, поэтому я должен получить его, когда он вернется. Это простая часть. Поскольку это временно, пока я не выясню, что не так с компьютером, я не собираюсь писать в реестр или делать его службой, чтобы он запускался во время загрузки. И чтобы заставить его перезагружаться каждый раз, когда он выключается, мне придется редактировать BIOS.

Шаг 1. Редактирование BIOS для перезагрузки при сбое питания

Я не уверен, связана ли моя проблема с отключением питания или с моей видеокартой, или что это такое. Но я знаю, что компьютер очень часто перезагружается. Итак, чтобы убедиться, что он перезагружается после сбоя питания (IE: блок питания выходит из строя), я хочу отредактировать BIOS. Из-за того, что существует так много разных производителей биосов, было бы слишком сложно перечислить все разные способы сделать это на всех разных экранах BIOS, поэтому я просто дам вам основы и позволю вам разобраться В основном, чтобы войти в свой биос, вам нужно будет нажать кнопку при загрузке. Обычно он говорит что-то вроде «нажмите Del, чтобы войти в настройки» или «F2». Различные производители предлагают вам разные способы, но обычно это клавиша «F2» или «Del». В любом случае следите за ним и нажмите клавишу, которую он вам скажет. Теперь вы попадете на экран, который обычно бывает серым или синим, но опять же, это зависит от вашей биографии. Вы будете искать вариант настроек мощности. Он будет либо в отдельном окне, как на снимке экрана AMIBIOS (заимствован из руководства по оборудованию toms), либо в некоторых случаях он может быть в окне расширенных функций BIOS. В любом случае вы ищете настройку «восстановление при потере переменного тока / мощности». Его можно назвать как-то иначе, но он будет близок к этому. Просто ищи это. Обычно у него есть три варианта (последнее состояние, включено после потери питания, выключено после потери питания). Вы хотите включить его после отключения питания. Обязательно сохраните настройки и выйдите из BIOS. Теперь, когда у вас пропадает питание или вы отключаете свою машину, она перезагружается, как только снова получает питание. Дааааааааааааааааааааааааааааааааааа !!!!!!!!!!!!!!!!

Шаг 2: Написание сценария. Часть 1: Составление плана

Первое, что мы хотим сделать, это составить план. Что именно мы хотим, чтобы скрипт делал. A.) Когда происходит сбой питания или появляется BSOD, мы хотим, чтобы он перезагрузился. (Об этом позаботились на шаге 1. Редактирование BiosB.) Как только он перезагрузится, мы хотим записать в файл точную дату и время его перезагрузки. C.) Мы хотим иметь возможность вносить поправки в этот файл. Если он перезагружается более одного раза, мы никогда не узнаем. D.) Мы хотим, чтобы в нем было исправление ошибок, чтобы он не облажался, и мы гарантируем, что все наши перезагрузки не пропадут из-за плохого кодирования. E.) Мы хотим этого. чтобы отобразить сообщение о перезагрузке. F.) Мы хотим, чтобы он открывал файл, в который мы писали, чтобы мы могли видеть список всех перезагрузок, когда мы нажимаем ОК во всплывающем сообщении.

Шаг 3: Написание сценария. Часть 2: Создание сценария и назначение переменных

Хорошо, обо всем по порядку, создайте текстовый документ и переименуйте его в any_name.vbs. Я использовал shutdown_catcher.vbs, но вы можете использовать что угодно. Теперь просто щелкните правой кнопкой мыши файл vbs и нажмите edit. Если вы используете блокнот ++, сейчас самое подходящее время, чтобы открыть его, если вы этого не сделаете, но вы планируете писать код должен изучить его. Хорошо, теперь первое, что мы хотим сделать, это создать переменные. Переменные - это, по сути, просто заполнитель, поэтому нам не нужно писать целую кучу вещей кучу раз. Пример: у нас есть предложение, в котором говорится: «Быстрая коричневая лиса перепрыгивает через ленивых собак». но это в нашем коде 20 раз. мы можем набрать все предложение 20 раз или создать переменную и назначить предложение этой переменной. Итак, в этом примере мы создаем переменную strSentence, а затем присваиваем этой переменной «быстрый коричневый лисенок перепрыгивает через ленивых собак». Теперь все, что нам нужно сделать, это набирать strSentence каждый раз, когда нам нужно предложение, и он знает, что нужно набирать «быстрая коричневая лиса перепрыгивает через ленивых собак обратно», как это сделать: если у нас есть несколько переменных одного типа, мы можем положить их в одной строке и разделите переменные запятыми. Чтобы создать переменную, нам нужно сделать то, что называется измерением переменной. Для этого мы вводим Dim перед переменной, а затем добавляем префикс к переменной, чтобы мы знали, что представляет собой переменная. Примеры: str для строковой переменной obj для объектной переменной const для константы … Список можно продолжать и продолжать. это те, которые мы будем использовать в этом скрипте, поэтому я немного их объясню. строка обычно представляет собой текст, подобный предложению. Объект обычно представляет собой нечто физическое, например файл или программу. а константа - это то, что всегда будет иметь одно и то же значение на протяжении всего сценария. ПРИМЕЧАНИЕ: В ЛЮБОЙ РАЗ В СТРОКЕ ИМЕЕТ ОДИН 'ПЕРЕД ЭТОМ СТРОКА БУДЕТ ПРОИГНОРИРОВАТЬСЯ СКРИПТОМ. ОНИ ВЫЗЫВАЮТСЯ ЗАМЕЧАНИЯ И ОБЫЧНО УСТАНАВЛИВАЮТСЯ ПРОГРАММОМ SO ОНИ МОГУТ ПОМНИТЬ, ЧТО ОНИ СДЕЛАЛИ ПОЗЖЕ, ИЗУЧАЯ КОДЕКС. Я ИСПОЛЬЗУЮ ИХ, ЧТОБЫ ДАТЬ КОММЕНТАРИИ О КОДЕ, ЧТОБЫ ВЫ УВИДИЛИ, ПОЧЕМУ Я ДЕЛАЛ ТАК, КАК Я ДЕЛАЛ. И ОНИ БУДУТ НАД СТРОКОЙ, О КОТОРОЙ ОНИ КОММЕНТИРУЮТ. Фактическое использование: 'эта строка заставляет вас определить все переменные. Без него любая неопределенная переменная будет рассматриваться как объектOption Explicit 'теперь мы создаем 5 переменных для папок и файлов, которые нам понадобятся' назовите их как хотите, но соглашение preNameDim objFiSyOb, objSysFold, objShell, objFile, objTextFile 'теперь нам нужно для создания строковых переменных для каталога, файла и имени файла Dim strDir, strFile, strFileName 'теперь присваиваем значения переменным' strDir - это наш каталог, мы хотим, чтобы папка в strDir = "C: / Catcher" 'strFile - это то место, где мы хотим текстовый документ и то, что он называется strFile = "\ Shutdown_catcher.txt" 'имя файла strfile таково, что у нас есть имя файла для использования во всплывающем окне sstrFileName = "Shutdown_catcher.txt"' Затем мы должны назначить константу для доступа файла, у нас есть три варианта 'мы будем использовать только добавление в этом коде, но приятно знать их все: Const forReading = 1, forWriting = 2, ForAppending = 8', наконец, нам нужно установить переменную в файловую систему объект, чтобы мы могли вызвать его позже, когда он нам понадобится Set objFiS yOb = CreateObject ("Scripting. FileSystemObject")

Шаг 4: Пояснения между ними

Теперь, когда у нас есть размеры для наших переменных, все, что нам нужно делать, это каждый раз вспоминать эту конкретную переменную. Это не только сокращает количество набираемых нами символов, но и создает меньше ошибок из-за орфографических ошибок. Теперь технически все, что нам нужно сделать, это ввести следующий код, и мы закончили 'установить файл для appendingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) 'запишите новую строку в файл objTextFile. WriteLine ("Ваш компьютер выключится" & date & "at" & time)' закройте файл objTextFile. Close 'создайте всплывающее окно Wscript. Echo ("Your выключение компьютера в "& дату &" в "& время) 'откройте файл в IESet objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Проблема в том, что в нем не будет исправления ошибок, и любая простая ошибка, такая как файл не существует или уже назначенная переменная, приведет к сбою скрипта.

Шаг 5: Написание сценария. Часть 3: Если, то выражается как исправление ошибок

Самый простой способ исправления ошибок - использовать операторы if / then. Обычно оператор if then говорит, что если что-то происходит, то сделайте это, иначе сделайте это. Вложением операторов if / then вы можете создать цепочку событий, которые должны произойти. Если a и b и c случаются, то сделайте это иначе, сделайте то. Пример: мы хотим убедиться, что файл, в который мы хотим записать, есть, если мы находим его, мы не хотим ничего делать, если мы не находим его, мы хотим его создать или мы хотите проверить, существует ли папка, и если не создать ее, а затем проверить, есть ли файл там, как только мы найдем папку, а если не создадим ее первый пример является примером оператора if then, второй - вложенным if then. мы делаем это: есть четыре части для оператора if then if / then elseend, если это в основном, если это истинно, тогда сделайте это в противном случае сделайте это, затем завершите оператор правильно закодированным, если тогда оператор будет следующим: If something = something Then do что вам нужно сделать, сделайте что-то еще, конец, если вы можете использовать любой аргумент, если он истинен, он будет следовать за частью then и игнорировать часть else, но если она ложна, то тогда будет пропущено и перейдет к else Then, когда мы закончим оператор if мы ставим «конец, если», но если у нас есть вложенные операторы if, мы должны заканчивать все операторы if. Он завершит их от дочернего к родительскому, поэтому первый «end if» завершает оператор if внутри родительского оператора, где второй завершает исходный (родительский) оператор if. Чтобы создать всплывающее окно, мы просто набираем Wscript. Echo («что угодно мы хотим сказать в сообщении "), чтобы добавить в него значение переменной, мы помещаем его в двойные кавычки или в двойные кавычки, используя знак амперсанда (&) в качестве разделителя, чтобы сценарий знал, что это переменная, а не текст.: Wscript. Echo ("Бла-бла-бла" & strDir & "бла-бла-бла" & strFilename & "бла-бла-бла.") Результатом будет всплывающее окно с надписью Бла-бла-бла C: / Catcher бла-бла-бла shutdown_catcher.txt бла-бла-бла. Фактическое использование: 'если папка C; / существует Если objFiSyOb. FolderExists (strDir) Then'get folder Set objSysFold = objFiSyOb. GetFolder (strDir)' elseElse 'создать папку c; / catcher Set objSysFold = objSysFold. CreateFolder (strDir) 'и проверьте, существуют ли файл и папка If objFiSyOb. FileExists (strDir & strFile) Then'если он получает папку c: / catcher Set ob jSysFold = objFISyOb. GetFolder (strDir) ' с именем "& strDir &" и файл с именем "& strFilename &" и поместил его в каталог "& strDir & strFile &". ") 'end nested if statementEnd If'end original if statementEnd If'now in the first if statement мы уже проверили папку и нашли ее, поэтому теперь мы проверяем на наличие fileIf objFiSyOb. FileExists (strDir & strFile) Then 'if found get folder Set objSysFold = objFiSyOb. GetFolder (strDir)', иначе Else 'создаем текстовый документ Set objFile = obFijSyOb. CreateTextFile (strDir & strFile) 'создает всплывающее окно с сообщением, что мы создали текстовый документ Wscript. Echo («Мы создали файл с именем« & strFileName & »в папке с файлами« & strDir & ».) Конец, если

Шаг 6: Пояснения между ними

Если вы внимательно посмотрите на код из предыдущего шага, вы увидите как вложенный, так и не вложенный оператор if then. Первый - это вложенный оператор. Он проверяет папку и файл и, если не находит их, создает оба. Второй ищет только файл и, если не находит, создает только файл. Можно сказать, почему оба. Что произойдет, если файл будет удален, а папка - нет. Первый оператор if пропустил бы создание файла, потому что он нашел папку и никогда не задействовал бы часть оператора else. Поэтому, когда вы перейдете к записи в файл, произойдет ошибка, потому что файл будет отсутствовать. Таким образом, наличие второго там решает эту проблему. Технически вы можете удалить вложенный оператор, потому что он почти такой же, как второй оператор if then, но тогда у вас будет только одно всплывающее окно, и оно не будет таким привлекательным. Плюс это дало мне возможность показать вам вложенный, а не un -вложенные операторы if.

Шаг 7: дополнительное исправление ошибок

Теперь, когда мы завершили большую часть исправления ошибок, мы хотим записать в файл и показать всплывающие окна. Проблема в том, что мы получим ошибки разрешения, если мы не освободим ссылку на предыдущий объект, хранящийся в переменной. Итак, мы хотим вставить небольшой фрагмент кода, в котором говорится, что переменные не устанавливаются в ничто. Выглядит так: set objFile = nothingset objSysFold = nothing Так что для тех из вас, кто следит за вами дома, ваш код должен быть таким (я взял комментарий out): Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.txt" strFileNameStritcher.txt = "strFileNameRetxtdown =" для Shutdown_catcher. ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Если objFiSyOb. FolderExists (strDir), то установите objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFiSyOb. GetFolder (strDir) Else Set objSyOb. GetFolder (strDir) Else Set objSyOb. Set objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo («Мы создали папку с именем« & strDir & »и файл с именем« & strFilename & » каталог "& strDir & strFile &". ") Конец I fEnd IfIf objFiSyOb. FileExists (strDir & strFile) Then Set objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & "& strFilecho" Файл с именем & strEcho создан в файле Wscript. "& strDir &" папка с файлами. ") Конец Ifset objFile = nothingset objSysFold = ничего

Шаг 8: Написание скрипта. Часть 4: Установка атрибутов

Теперь нам нужно установить атрибуты в файл, чтобы мы могли его исправить. Ранее мы устанавливали три постоянные переменные: forReading = 1forWriting = 2 forAppending = 8, если вы установите для него значение forReading, вы сможете читать его, но не записывать в него. Если вы установите его на forWriting, вы будете перезаписывать существующий файл каждый раз при запуске программы.. Если вы установите для него значение forAppending, вы будете добавлять новую строку каждый раз, когда скрипт выполняется в документе. Поскольку нам нужен журнал каждой перезагрузки, мы хотим, чтобы он добавлялся, а не перезаписывался, поэтому мы используем forAppending. Как мы это делаем.: вы должны назвать объект, для которого хотите установить атрибуты. Поскольку мы уже выполнили большую часть работы на предыдущих этапах, нам просто нужно вызвать переменные на этом этапе. Затем просто установите для него значение true. Фактическое использование: 'объект для установки = filesystemobject.action (каталог + имя файла, атрибут, true или false) Установить objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)

Шаг 9: Написание сценария. Часть 5: Запись в файл

Запись в файл очень похожа на создание всплывающего окна. Вы просто указываете: objTextFile. WriteLine («Все, что вы хотите сказать» & Переменная, которую нужно вставить, чтобы написать строку). Единственное отличие - это первая часть. Во всплывающем окне вы помещаете: Wscript.echo в строку записи, которую вы помещаете: objTextFile. WriteLine И в строке записи вы должны закрыть строку записи, чтобы она знала, что нужно прекратить запись, и для этого вы используете: objTextFile. CloseActual Usage: objTextFile. WriteLine («Ваш компьютер выключен» & date & «at» & time) objTextFile.close 'теперь добавьте всплывающее окно, чтобы сказать, что вы написали в файл, чтобы человек знал, что это произошло', и они должны закрыть его, чтобы открыть файл и просмотреть Wscript. Echo ("Ваш компьютер выключится" & date & "at" & время)

Шаг 10: Написание сценария. Часть 5: Открытие файла для просмотра

На этом этапе сценарий остановится, пока кто-нибудь не щелкнет всплывающее окно. Как только вы пройдете всплывающее окно, вы можете вставить строку, открывающую файл. Использование некоторого исправления ошибок помогает поддерживать нормальную работу программы. Когда вы создаете ошибку в vbscript, она добавляет значение переменной "err.number", которая является предварительно определенной переменной в vbscript. Вам не нужно определять ее, и вы можете использовать ее, как любую другую переменную, если вы не нарушаете ее правила. Значение, присвоенное переменной err.number, является кодом возникшей ошибки. Теперь вы можете проверить каждый код ошибки, известный в базе данных vbscript, и убедиться, что он не возник. Или, что проще, просто проверяет, что переменная err.number пуста. если он пуст, ошибок не было. Для этого мы просто проверяем, равна ли переменная vbEmpty. Итак, в нашем скрипте мы хотим использовать другой оператор if then. И проверьте, произошла ли ошибка и не открылся ли файл для просмотра, но если это произошло, появится сообщение с номером ошибки в нем, чтобы мы могли отлаживать. Затем, когда мы все закончили с нашим скриптом, мы введите Wscript. Quit. Это говорит сценарию о завершении работы. Это помогает предотвратить утечки памяти и выполнение нежелательных процессов. Как это используется: если err.number равен vbEmpty, затем создайте оболочку, затем запустите программу из оболочки, в противном случае появится сообщение об ошибке if. Фактическое использование: 'проверьте наличие errorIf err.number = vbEmpty then «Если не создается оболочка Set objShell = CreateObject (" WScript. Shell ") ', затем откройте файл из этой оболочки с помощью проводника. на самом деле он откроется в IE, хотя objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") ', в противном случае появится сообщение с номером ошибки Else WScript.echo "Ошибка VBScript:" & err.numberEnd Если 'конец scriptWscript.quit

Шаг 11: Запуск сценария при запуске

В меню «Пуск» есть папка с файлами, которая называется «Автозагрузка». Все, что помещено в эту папку, запустится, как только компьютер будет запущен. Поместив файл сценария в папку автозагрузки, он будет выполняться каждый раз при перезагрузке компьютера, намеренной или нет. Поскольку я использую это только как диагностический инструмент, его не нужно превращать в службу для запуска, и мне не нужно помещать ее в реестр, чтобы запустить ее, так что все будет хорошо. После того, как я починю компьютер, я могу удалить файл из папки автозагрузки, и никакой другой очистки не потребуется.

Шаг 12: Запуск программы

Когда вы запустите файл vbscript, он теперь будет A.) Проверьте, существует ли папка C: / Catcher, и если нет, создайте ее. B:) Проверьте, существует ли файл Shutdown_catcher.txt и, если нет, создайте его. C:) Если он создал либо папку, либо файл, либо и то, и другое, появится сообщение о том, что он их создал (Примечание: он должен делать это только при первом запуске, после чего он уже должен быть там, если не удален, поэтому вы должны увидеть это сообщение только один раз. Было бы неплохо запустить этот скрипт один раз при контролируемой перезагрузке, чтобы вы могли обойти эти всплывающие окна или ничего не записывать в файл, потому что он не будет обходить всплывающие окна, созданные файлом.) D:) Напишите строку в текстовый документ Shutdown_Catcher.txt, в котором говорится, что компьютер выключился в такую-то дату в такое-то время. E:) Появляется сообщение о перезагрузке F:) Откройте файл для просмотра. Если вы посмотрите на следующем шаге вы увидите код в том виде, в каком он написан. Теперь все, что мне нужно сделать, это сесть и подождать. Каждый раз, когда компьютер перезагружается, я буду записывать это. Затем я могу просмотреть запись и посмотреть, есть ли в ней какое-то соответствие. Примером может быть то, что он перезагружается каждые полчаса или он перезагружается каждый раз, когда на часах есть приращение или 45. Это ни в коем случае не единственный способ проверить компьютер, просто чтобы вы знали. У меня также есть программа для тестирования производительности, чтобы проверить температуру, чтобы я знал, насколько она горячая, когда она выключается, напряжение, чтобы я знал, выходит ли из строя блок питания, и еще несколько полезных вещей. Надеюсь, это было полезно. Я знаю, что мне это нравится, так что, может быть, и другим понравится. Если у вас есть вопросы, не стесняйтесь спросить. Возможно, я не дойду до них сразу, но через некоторое время отвечу вам. Зависит от того, как проходит мой день / неделя.

Шаг 13: Код

Это код в том виде, в каком он написан без всех подсказок и замечаний._Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shuttxtdown_catcher. Константа forReading = 1, forWriting = 2, ForAppending = 8 Установить objFiSyOb = CreateObject ("Scripting. FileSystemObject") Если objFiSyOb. FolderExists (strDir) Тогда Установить objSysFold = objFiSyOb. GetFolder Elder (strDirDir) IfFiSyOb. GetFolder (strDirDir) objFiSyOb. FileExists (strDir & strFile) Затем установите objSysFold = objFiSyOb. GetFolder (strDir) Иначе Установите objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo папку с именем & strFile "& strFilename &" и поместил его в каталог "& strDir & strFile &". " strDir & strFile) Wscript. Echo ("У нас есть создал файл с именем "& strFileName &" в папке с файлами "& strDir &".) Конец Ifset objFile = nothingset objSysFold = nothingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) objTriteLextineFile (YourWriteLextineFile (YourWriteLextineFile) Завершить работу "& date &" в "& time) objTextFile. CloseWscript. Echo (" Ваш компьютер выключится "& date &" at "& time) Если err.number = vbEmpty, тогда Set objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Else WScript.echo" Ошибка VBScript: "& err.numberEnd IfWScript. Quit