Веселитесь с Easy VBS !!!: 5 шагов

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

Руководство для начинающих по веселому и простому наглядному основному сценарию. Кому-то VSB может показаться сложным, но на самом деле это действительно просто. Windows может запускать его даже без компилятора! Если вы знаете javascript, вам должно быть очень легко.

Шаг 1. Основные окна сообщений

Хорошо, давайте рассмотрим Основы. Вы когда-нибудь видели окно сообщения, подобное приведенному ниже, вероятно, оно есть. Они используются для оповещения пользователей о том, что вы хотите сказать. Вы можете создать свое собственное, используя функцию Msgbox. Таким образом, код для окна сообщения, который говорит привет, будет выглядеть так: Msgbox («привет»). окно сообщения, создав простой цикл с помощью команд Do, Loop. Теперь, когда мы рассмотрели окна сообщений, давайте перейдем к более сложным окнам сообщений.

Шаг 2: игры и прочее

Если вы когда-нибудь задумывались, как создавать текстовые игры, не ищите дальше. Возможно, я ошибаюсь, но я считаю, что они использовали vbs. Сейчас во многих сценариях vb используется компилятор, но Windows он не нужен. Просто введите cscript перед путем к файлу, теперь, если вы знаете, как создавать файлы bat, вы можете автоматизировать этот процесс, но мы не будем вдаваться в это в этой инструкции. Вот небольшая игра, которую я сделал Option ExplicitDim Answer 'задает вопрос Wscript. StdOut. Напишите «Хороший день, не так ли?» Answer = Wscript. StdIn. ReadLine ', если вы наберете yes tIf answer = "yes" Затем Wscript.echo («Я надеюсь, что так и останется»)' Если вы наберете noElseIf answer = "no" ThenWscript.echo ("Надеюсь, что станет лучше") 'что-нибудь ещеElseWscript. Echo ("Доброго вам дня")' endEnd Ifnow в основном сохраните это как.vbs и используйте метод перед его запуском.

Шаг 3: автоматический наборщик

Этот код позволяет набирать что-то снова и снова. Не знаю, насколько это полезно, но если вы запустите его, вам придется убить его в списке задач shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" doshellobj.sendkeys "Y" wscript.sleep 200Shellobj.sendkeys "o" wscript.sleep 200loop

Шаг 4: Матиркс есть у вас

Вы когда-нибудь задумывались, как заставить компьютер разговаривать с вами? Хорошо скопируйте это

option explicitOn Error Resume Next 'объявить переменныеdim wshshell, title, mystring, length, position, tmp, loopA, loopB, linesToWrite, columns, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5, maximum, elementsset wshshell = wscript.createobject ("wscript.shell") title="the matrix" wshshell. SendKeys "{ALT}" + "{ENTER}" 'получить информацию о пользователе, используемую для получения nameSet objSysInfo = CreateObject ("ADSystemInfo") Set objUser = GetObject ("LDAP: //" & objSysInfo. UserName) '--------------------------- sub waitfor (var)' set окно вверх, установите заголовок, дождитесь его завершения tmp = falsedo до tmpwscript.sleep 1000tmp = wshshell.appactivate (var) loopend sub '---------------------- ----- субматрица (элементы) 'печатает случайные числа, чтобы "матрица" выглядела' предполагает, что элементы делятся на 5columns = 5col1 = truecol2 = true col3 = truecol4 = truecol5 = truerandomize () linesToWrite = elements / columnsfor loopA = 1 в строки для записи для цикла B = 1 в столбцы Выберите вариант цикла BCase 1 Если col1 = true Тогда w shshell. SendKeys Int (Round (rnd ())) & "{TAB}" Иначе wshshell. SendKeys "{TAB}" Случай 2 Если col2 = true Тогда wshshell. SendKeys Int (Round (rnd ())) & "{TAB} "Else wshshell. SendKeys" {TAB} "Случай 3 Если col3 = true Затем wshshell. SendKeys Int (Round (rnd ())) &" {TAB} "Иначе wshshell. SendKeys" {TAB} "Случай 4 Если col4 = true Затем wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Иначе wshshell. SendKeys "{TAB}" Случай 5 Если col5 = true Тогда wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Иначе wshshell. SendKeys "{TAB}" End Selectwscript.sleep 5nextwscript. Echo 'Эти триггеры отображают столбцы в 20% случаев независимо друг от друга. Maximum = 0.20 Если rnd () <максимум ThenIf col1 = true Then col1 = false Else col1 = trueEnd IfIf rnd () <maximum ThenIf col2 = true Then col2 = false Else col2 = trueEnd IfIf rnd () <maximum ThenIf col3 = true Then col3 = false Else col3 = trueEnd IfIf rnd () <maximum ThenIf col4 = true Then col4 = false Else col4 = trueEnd IfIf rnd () <maximum ThenIf col5 = true Then col5 = false Else col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub '--------------------------- sub key (msg)' распечатывает "матрицу" сообщения и удалите их wscript.sleep 1500length = len (msg) для позиции от 1 до длины wshshell. SendKeys mid (msg, position, 1) wscript.sleep 250nextwscript.sleep 3000for position = 1 до длины wshshell. SendKeys "{BACKSPACE}" wscript. sleep 75nextend sub '---------------------------' здесь запускает "основное" выполнение waitfor (title) For loopA = 1 To 4 Select Case loopACase 1mystring = "проснись, Нео…" Case 2mystring = "В матрице есть ты…" Case 3mystring = "Следуй за белым кроликом…" Case 4mystring = "Тук-тук …" End Select 'теперь распечатай правильный строковый ключ (mystring) next' _ _ _ _ _ _ _ _ _ _ wscript.quit () сохраните его в C: / temp как matrix.vbs, создайте файлы bat @ echo offcolor 0 под названием matrixset / p matrix = | cscript / nologo (замените это на свой путь к файлу vbs) exitset / p matrix = Назовите этот RabbitHole.bat. Затем запустите !! это крутая, но продвинутая вещь, связанная с vbs, я просто вставил ее, потому что она классная

Шаг 5: Конец

Вот ты идёшь

Небеса - предел тому, что вы можете сделать