Введение в сценарий VB: руководство для начинающих: 11 шагов

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

*** ((((ПРЕДУПРЕЖДЕНИЕ: хотя шагов много. На самом деле это довольно просто. Я просто объясню все подробно для новичков. Если вам просто нужен код, перейдите к последнему шагу, и вы найдете полный код там.)))) *** Я много играю в Xbox live, и мне всегда приходится отключать интернет на моем компьютере, потому что это увеличивает пропускную способность. В основном потому, что я все время что-то скачиваю или выгружаю. Проблема не в том, чтобы отключить его, а в том, чтобы снова включить, о чем я забываю, и я теряю все время загрузки / выгрузки, поэтому я решил создать программу, которая сделает это за меня. Я собирался написать это на Vb.net, но мне совсем недавно пришлось нанести ядерный удар и проложить мою операционную систему на моем компьютере из-за сильного шторма, который зажарил мой жесткий диск, и я еще не переустановил VB.net, поэтому я просто подумал, что это будет дайте мне повод поиграть с vbscript. Я также сделал изображение в краске для отображения в фоновом режиме, поэтому я знал, что он работает.

Шаг 1. Определите, что вы хотите сделать

Первое, что я всегда делаю, это составляю план. Что я хочу, чтобы программа делала? А) Я хочу иметь возможность открыть скрипт, и он автоматически отключит соединение. Б) Я хочу, чтобы на заднем плане отображался гигантский дисплей, чтобы не было ошибки, что Интернет отключен, поэтому я не забуду его снова включить. В) Я хочу, чтобы у меня была возможность включить его снова включите, а затем дождитесь ответа. D) Я хочу убедиться, что я включил его снова, чтобы не забыть. E) Затем, как только я действительно скажу да, чтобы включить его снова, сценарий снова включит его а затем закрывает фон. F) Выйти из всего.

Шаг 2. Вещи, которые я использую, но в которых нет особой необходимости

Все, что вам действительно нужно, это текстовый редактор, например блокнот. Все остальное необязательно. Я использую Notepad ++, когда пишу сценарий VB, потому что он обращается с ним так же, как vb.net с цветами и знает язык. Это помогает избежать ошибок. Он также пронумеровывает строки, чтобы вы могли диагностировать, в чем проблема, когда вы получаете код ошибки. Его можно получить здесь notepad ++

Шаг 3: начать программирование

Ну, первое, что вам нужно сделать, это создать текстовый файл и сохранить его в любом месте, где вы хотите, чтобы он назывался с расширением файла.vbsExample: NetworkShutOffScriptThatShutsOffTheInternetSoIcanPlayGamesOnMyXboxAndNotGetLag.vbsExample 2: games.vbs.vbs Я обычно делаю это на рабочем столе, потому что я открываю его около миллиона раз, пока работаю над ним. Теперь просто щелкните файл правой кнопкой мыши и нажмите Edit or Edit with notepad ++

Шаг 4: Шаг 1: Открытие окна командной строки

Поэтому я решил сделать большую часть работы, я просто буду использовать программы, уже хранящиеся на компьютере, чтобы делать то, что я хочу. Меньше кодирования и никаких загрузок … Woohoo. Самый простой - это командная строка. Поэтому мы хотим открыть окно командной строки, чтобы сделать это, мы хотим создать объект, для этого мы набираем: set shellobj = CreateObject ("WScript. Shell") Что он делает: Установить экземпляр shellobj, равный оболочке сценария создания объекта w. Таким образом, все, что нам нужно сделать, это набирать shellobj вместо CreateObject ("WScript. Shell") каждый раз, когда нам нужна новая команда. Теперь, когда мы создали объект, мы даем ему указание открыть окно командной строки. Для этого мы набираем: shellobj.run "cmd" Что он делает: это было бы эквивалентом ввода CMD в поле выполнения в меню "Пуск". Если бы мы не установили переменную shellobject, нам пришлось бы ввести: CreateObject ("WScript. Shell"). Run "cmd"… посмотрите, насколько это стало проще. Меньше места для ошибок. Щелкните файл … затем Сохранить … затем перейдите на рабочий стол и дважды щелкните файл vbs, который вы создали, он должен запуститься Если все пойдет правильно, вы должны получить командную строку Windows, чтобы появиться …..яааааа !!! ваше кодирование, пока у вас должно быть: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" Вы можете добавлять комментарии в свой сценарий, чтобы помнить, что вы делали позже, поставив запятую перед строкой, например this: 'это для открытия командной строки Когда я кодирую много раз, я сделаю это, чтобы вспомнить, что я делал позже, когда я это ищу. Сценарий просто игнорирует эту строку и продолжает работу. Если вы их видите, вы можете сделать то же самое.

Шаг 5: Шаг 2: Настройка таймеров

Хорошо, теперь, когда у нас есть элегантное новое окно, нам нужно заполнить его командами, чтобы мы могли заставить его делать то, что мы хотим. Проблема в том, что на некоторых компьютерах требуется больше времени, чем на других, чтобы открывать окна, поэтому мы хотим, чтобы сценарий немного подождал немного, чтобы начать. если он запустится слишком рано, компьютер заполнит пустое поле до того, как вы откроете окно, и вы либо получите частичную команду, либо вообще не получите ее. Поэтому нам нужно установить таймер. Для этого мы набираем: wscript.sleep 200 Что он делает: Он сообщает сценарию, что он должен ждать некоторое количество времени перед выполнением следующей команды. 1000 равняется одной секунде, поэтому мой ждет пятую часть секунды. Вы можете обнаружить, что вашему компьютеру нужно ждать больше или меньше времени. Если вы смотрите на компьютер, и он неправильно набирает команды, измените число на большее, например, 2000, это будет 2 секунды и, вероятно, много времени. Сохраните файл. Теперь ваш код должен быть таким: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200

Шаг 6: Шаг 3: Сделайте картинку

Я просто открыл Paint и набрал в нем «Internet Disconected», сделал его 800x600, сохранил его как id.bmp и сохранил в моем корневом каталоге, в моем случае k: \, но ваш, вероятно, будет c:

Шаг 7: Шаг 4: Отправка команд, открытие изображения

Хорошо, теперь у нас есть командное окно, ожидающее команд, все, что нам нужно сделать, это ввести команды в окно, используя команду sendkeys. Когда мы используем команду sendkeys, это похоже на набор текста, но она набирает все, что мы хотим. Все, что мы можем напечатать, мы можем отправить, включая клавиши ввода, необходимые для выполнения программ. Теперь, когда мы знаем, как отправлять ключи, давайте откроем только что созданное изображение, а затем вставим послесловие другого таймера, чтобы дать изображению время для загрузки. Для этого мы набираем: shellobj.sendkeys "k: / id.bmp {enter}" wscript.sleep 200 Что он делает: Это то же самое, что вводить k: / id.bmp в поле выполнения. Он должен открывать ваше изображение в программе просмотра изображений по умолчанию для BMP … в моем случае это программа просмотра изображений и факсов Windows, но большинство людей устанавливают дополнительные программы, которые также делают это, так что кто знает, что будет открываться у вас. Теперь сохраните файл и запустите его. Вы должны получить командную строку и всплывающее изображение. пока все хорошо !!! ваш код пока должен быть: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp {enter}" wscript. спать 200

Шаг 8: Шаг 5: Отправка команд, отключение Интернета

На этом этапе, если вы еще этого не сделали, загрузите файл pdf в конце, поэтому, если вы облажались, у вас есть загруженное руководство о том, как это исправить. Теперь здесь начинается самое интересное. Хорошо, поэтому мы будем использовать ipconfig, чтобы освободить наш IP-адрес. Без IP-адреса мы не можем получить интернет-трафик, потому что маршрутизатор не знает, куда отправить его на компьютер. Для этого мы набираем: shellobj.sendkeys "ipconfig / release {enter}". Что он делает: это указывает программе IPCONFIG освободить IP-адрес. {ввод} сообщает компьютеру, что вы нажали клавишу ввода. это было бы похоже на ввод ipconfig / release в окно выполнения и нажатие клавиши Enter. Обычно после того, как вы это сделаете, если вы запустите ipconfig, он сообщит вам, что ваш IP-адрес - 0.0.0.0. Это то, что мы хотим. Без IP-адреса маршрутизатор не знает, что мы здесь, и никакие программы не могут «дозвониться», так сказать. Теперь, когда мы успешно завершили отключение IP-адреса, мы хотим закрыть окно. Теперь мы могли бы написать еще одну строку, которая гласит: shellobj.sendkeys "exit {enter}" Но было бы проще просто отредактировать приведенную выше строку и добавить ее в конец, чтобы у вас было: shellobj.sendkeys "ipconfig / release {enter} exit {enter} "Теперь сохраните его, но не запускайте, потому что вы отключите подключение к Интернету. Если вы все же запустите его, и ваш интернет отключится, просто измените переключатель с ipconfig / release на ipconfig / Renew, и он запустит его снова, и он должен снова его включить. А если все остальное не помогло, перезагрузитесь и все будет в порядке. Ваш код должен быть таким: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp { enter} "wscript.sleep 200shellobj.sendkeys" ipconfig / release {enter} exit {enter}"

Шаг 9: Шаг 6: Создание окна сообщения и ожидание ответа

Хорошо, теперь, когда мы успешно отключили Интернет и закрыли окно командной строки, мы хотим, чтобы появилось окно сообщения с вопросом, хотим ли мы снова включить Интернет, но здесь все становится сложно, мы хотим, чтобы оно подождало для «да», но если мы нажмем «нет», мы не хотим, чтобы он ушел, поэтому мы будем использовать для этого оператор while. Сначала нам нужно измерить переменную для сообщения, чтобы мы могли присвоить ему числовые переменные. Я знаю, это звучит запутанно, но на самом деле это не так. мы уже делали это однажды со строкой: set shellobj = CreateObject ("WScript. Shell"), этот еще проще настроить, мы просто набираем: Dim MyVar Что он делает: Теперь мы измерили переменную с именем MyVar Когда вы получите ответ "да" На экране появляется окно сообщения / нет, когда вы нажимаете кнопки, которые присваивают значение каждой кнопке, в данном случае «да» равно 1, а «нет» - 2. Мы хотим, чтобы переменная начиналась с «нет». мы присваиваем ему номер 2 по умолчанию, таким образом он приостанавливается, пока не будет нажата кнопка. Для этого мы набираем: myvar = 2 Что он делает: теперь MyVar равен 2, таким образом, в следующей строке он остановится и будет ждать ввода. Теперь мы просто хотим, чтобы он сидел и ждал, пока мы не будем готовы снова включить Интернет. Для этого мы набираем: while myvar = 2 Что он делает: Делая это, мы сказали скрипту, что до тех пор, пока значение myvar = 2, тогда просто продолжайте зацикливать окно сообщения, пока мы не получим любое другое значение, кроме 2, которое в данном случае может быть только 1 Далее мы действительно хотим, чтобы окно сообщения всплывало с кнопками да / нет. это мы набираем: MyVar = MsgBox («Включить подключение к Интернету», 65, «Включить подключение к Интернету»). Что он делает: Теперь переменной MyVar будет присвоено любое значение, присвоенное кнопке, нажатой в окне сообщения. первая часть в кавычках - это то, что на самом деле будет написано в окне сообщения. 65 обозначает его как окно сообщения Да / Нет. и последняя часть в кавычках - это этикетка окна сообщений. чтобы проверить, какое значение он присваивает, когда вы нажимаете да или нет, вы можете добавить строку с надписью msgbox (myVar), и она будет печатать любое значение, присвоенное myvar в окно сообщения. теперь, когда у нас есть окно сообщения, нам нужно закрыть оператор while. Все, что находится между открытием и закрытием оператора while, будет выполняться каждый раз, когда вы нажимаете `` нет '', потому что, если вы нажмете `` нет '', оно все равно будет иметь значение 2 и вернется к первой части. Для завершения оператора while введите: wendWhat it делает: как только вы завершите оператор while, он будет действовать как цикл до тех пор, пока аргумент не перестанет встречаться. Поэтому, если вы продолжите нажимать «Нет», он будет зацикливаться, но как только вы нажмете «Да», он выйдет из цикла и продолжит выполнение сценария. Сохраните файл, но дождитесь его запуска до следующего шага. Ваш код должен быть таким: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp { enter} "wscript.sleep 200shellobj.sendkeys" ipconfig / release {enter} exit {enter} "Dim MyVarmyvar = 2 while myvar = 2MyVar = MsgBox (" Включить подключение к Интернету ", 65," Включить подключение к Интернету ") wend

Шаг 10: Шаг 7: Повторное включение Интернета

Теперь, когда кто-то наконец-то щелкнул «да» и прошел оператор while, нам нужно отправить запрос в Интернет. Обычно я всплываю с подтверждением, чтобы конечный пользователь знал, что происходит, но это совершенно необязательно. Чтобы отобразить всплывающее окно подтверждения, введите: msgbox («Теперь мы снова включим подключение к Интернету !!!»). Что он делает: он отправляет окно сообщения, в котором говорится, что мы снова включим подключение к Интернету !!! и дает вам кнопку ОК, чтобы щелкнуть. Теперь все, что нам нужно сделать, это снова включить Интернет и закрыть все. чтобы снова включить Интернет, мы просто открываем командную строку, устанавливаем таймер, затем снова используем ipcionfig. для этого введите: shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "ipconfig / refresh {enter}" Что он делает: отменяет предыдущую команду выключения и обновляет ваш IP-адрес. После того, как вы обновили свой IP-адрес, вы снова можете подключиться к Интернету. Теперь все, что нам нужно сделать, это очистить открытые окна. Опять же, мы могли бы использовать команду sendkeys, но я просто добавлю последнюю строку, чтобы также провести очистку. В этом случае я собираюсь использовать программу taskkill, чтобы убить программу, отображающую изображение. В данном случае это программа просмотра изображений и факсов Windows, которая отображается как rundll32.exe на вкладке процессов диспетчера задач, так что это то, что нам нужно убить. Если ваше изображение открывается с помощью другой программы, например irfanview или acdsee, найдите его имя на вкладке процессов и замените rundll32.exe найденным именем. Команда будет выглядеть так: taskkill / F / IM rundll32.exe делает: taskkill - это имя программы, переключатель / F указывает ему принудительно выполнить уничтожение, а переключатель / IM сообщает ему имя изображения Итак, теперь мы добавляем его в последнюю строку, добавляем ввод для выполнения команды, а затем команду exit и еще один ввод, и это выглядит так: shellobj.sendkeys "ipconfig / Renew {enter} taskkill / F / IM rundll32.exe {enter} exit {enter}" Сохраните файл.

Шаг 11: Готовый продукт

Если все прошло хорошо, ваш готовый продукт должен выглядеть примерно так: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp {enter}" wscript.sleep 200shellobj.sendkeys "ipconfig / release {enter} exit {enter}" Dim MyVarmyvar = 2 while myvar = 2MyVar = MsgBox («Включить подключение к Интернету», 65, «Включить подключение к Интернету») wendmsgbox («Теперь мы включим Интернет Подключение снова включено !!! ") shellobj.run" cmd "wscript.sleep 200shellobj.sendkeys" ipconfig / refresh {enter} taskkill / F / IM rundll32.exe {enter} exit {enter} "_end of script_Now, что программирование Готово, вы можете запустить программу. Что должно произойти: 1. Вы должны на короткое время получить всплывающее окно CMD, а затем закрыть его. 2. Ваш Интернет больше не должен работать. но вы этого не увидите. вы снова открываете вопрос, хотите ли вы снова включить Интернет.6.) После того, как вы нажмете Да, окно сообщения должно исчезнуть, а окно CMD должно появиться снова 7.) После обновления IP-адреса окно CMD и изображение должен закрываться. Вот и все. Очень простой сценарий VBscript для включения и выключения вашего интернета. Надеюсь, тебе понравится. На самом деле я сделал еще один сценарий, почти идентичный этому, который отключает сетевые адаптеры с помощью программы DevCon, которая похожа на диспетчер устройств командной строки. Работает очень хорошо. Скрипт идентичен этому, за исключением того, что в нем есть команды для ipconfig, а также команды для DevCon.