Забавление с Easy VBS !!!: 5 стъпки

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

Ръководство за начинаещи за забавление и лесен за изпълнение визуален основен скрипт. На някои VSB може да изглежда трудно, но всъщност е наистина лесно. Windows дори може да го стартира без компилатор! Ако знаете javascript, би трябвало да ви е много лесно.

Стъпка 1: Основни кутии за съобщения

Добре, нека да преминем към основите. Виждали ли сте някога поле за съобщения като това по -долу, вероятно имате. Те се използват, за да предупреждават потребителите за всичко, което искате да кажете. Можете да създадете свой собствен, като използвате функцията Msgbox Така че кодът към полето за съобщение, което казва здравей, ще изглежда така, Msgbox ("здравей") Алтернативно можете да направите неубиваем съобщение, като направите прост цикъл, като използвате командите Do, Loop. Сега, когато покрихме кутиите за съобщения, нека преминем към по -разширени кутии за съобщения.

Стъпка 2: Игри и неща

Ако някога се чудите как да правите текстови игри, не търсете повече. Може и да греша, но вярвам, че са използвали vbs. Сега много vb скриптове използват компилатор, но windows не се нуждае от такъв. Просто въведете cscript преди пътя на файла, сега, ако знаете как да правите файлове с прилеп, тогава можете да автоматизирате този процес, но няма да навлизаме в това в тази инструкция. Ето една малка игра, която направихOption ExplicitDim Answer'types the questionWscript. StdOut. Напишете "Хубав ден, нали?" Answer = Wscript. StdIn. ReadLine ', ако напишете yes tIf answer = "yes" Тогава Wscript.echo ("Надявам се, че ще остане така")' Ако напишете noElseIf answer = "no" ThenWscript.echo ("Надявам се да стане по -добре") 'anything elseElseWscript. Echo ("GoodDay to you")' endEnd Ifnow основно запазете това като.vbs и използвайте метода преди да го стартирате.

Стъпка 3: Автоматичното въвеждане

Кодирайте го, за да въвеждате нещо отново и отново. Не знам колко е полезно, но ако го стартирате, ще трябва да го убиете в списъка със задачи shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" doshellobj.sendkeys "Y" wscript.sleep 200Shellobj.sendkeys "o" wscript.sleep 200loop

Стъпка 4: Matirx ви има

Чудили ли сте се как да ви накарам да говорите на компютър? Добре копирайте това

опция expressOn Грешка Възобновяване Напред 'деклариране на променливи dm wshshell, заглавие, мистринг, дължина, позиция, tmp, loopA, loopB, linesToWrite, колони, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5, максимум, елементи set ws = wscript.createobject ("wscript.shell") title="матрицата" wshshell. SendKeys "{ALT}"+"{ENTER}" 'вземете потребителска информация, използвана за получаване на nameSet objSysInfo = CreateObject ("ADSystemInfo") Set objUser = GetObject ("LDAP: //" & objSysInfo. UserName) '--------------------------- подреждане за чакане (var)' прозорец нагоре, задайте заглавие, изчакайте да завърши tmpwscript.sleep 1000tmp = wshshell.appactivate (var) loopend sub '---------------------- ----- подматрица (елементи) 'отпечатайте произволни числа, за да изглежда "матрицата" да изглежда "предполага, че елементите са делими на 5 колони = 5col1 = truecol2 = true col3 = truecol4 = truecol5 = truerandomize () linesToWrite = елементи / колони за цикълA = 1 към редове ToWrite за цикъл B = 1 към колони Изберете цикъл за случай BCBCase 1 Ако col1 = true Тогава w shshell. SendKeys Int (Round (rnd ())) & "{TAB}" Друго wshshell. SendKeys "{TAB}" Случай 2If col2 = true Тогава wshshell. SendKeys Int (Round (rnd ())) & "{TAB} "Else wshshell. SendKeys" {TAB} "Case 3If col3 = true then wshshell. SendKeys Int (Round (rnd ())) &" {TAB} "Else wshshell. SendKeys" {TAB} "Case 4If col4 = true Тогава wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Друго wshshell. SendKeys "{TAB}" Случай 5If col5 = true Тогава wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" В противен случай wshshell. SendKeys "{TAB}" Край Selectwscript.sleep 5nextwscript. Echo 'Това колонки за показване на 20 процента от времето, независимо един от друг.maximum = 0.20If rnd () <maximum ThenIf col1 = true Then = false Else col1 = trueEnd IfIf rnd () <максимум ThenIf col2 = true Тогава col2 = false Else col2 = trueEnd IfIf rnd () <максимум ThenIf col3 = true Тогава col3 = false Else col3 = trueEnd IfIf rnd () <максимум ТогаваIf col4 = true Тогава col4 = false Друго col4 = trueEnd IfIf rnd () <максимално ThenIf col5 = true Тогава col5 = false Else col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub '--------------------------- sub key (msg)' прави разпечатки на "матрицата" съобщения и ги изтрийте. sleep 75nextend sub '---------------------------' start "main" изпълнение тук (заглавие) For loopA = 1 To 4Изберете Case loopACase 1mystring = "събуди се, Нео …" Случай 2mystring = "Матрицата те има …" Случай 3mystring = "Следвай белия заек …" Дело 4mystring = "Чукни почукване …" Край Изберете "сега разпечатайте правилния низ (mystring) следващ" _ _ _ _ _ _ _ _ _ _ _ _ wscript.quit () запишете го в C: / temp като matrix.vbs създайте файловете на прилеп@echo offcolor 0atitle the matrixset /p matrix = | cscript /nologo (Заменете това с пътя си към vbs файла) exitset /p matrix = Име, което RabbitHole.bat. След това го стартирайте !! Това е готино, но усъвършенствано нещо, което можете да направите с vbsПросто го поставих, защото е страхотно

Стъпка 5: Край

Ето

Небесната граница на това, което можете да направите