Zabava uz Easy VBS !!!: 5 koraka

2024 Autor: John Day | [email protected]. Zadnja izmjena: 2024-01-30 08:09

Vodič za zabavu za početnike i jednostavan za izvođenje vizualne osnovne skripte. VSB nekima može izgledati teško, ali u stvari je zaista lako. Windows ga čak može pokrenuti i bez kompajlera! Ako znate javascript, trebalo bi vam biti zaista lako.

Korak 1: Osnovni okviri za poruke

U redu pa prijeđimo na osnove. Jeste li ikada vidjeli okvir za poruku poput onog ispod, vjerojatno ste ga vidjeli. Koriste se za upozoravanje korisnika na sve što želite reći. Možete stvoriti vlastiti pomoću funkcije Msgbox. Dakle, kôd u okvir s porukom u kojem piše "hi" bi izgledao ovako, Msgbox ("hi") Alternativno, možete napraviti neuništivu okvir za poruke jednostavnom petljom pomoću naredbi Do, Loop. Sada kada smo pokrili okvire poruka, idemo na naprednije okvire poruka.

Korak 2: Igre i stvari

Ako se ikada zapitate kako napraviti tekstualne igre, ne tražite dalje. Možda griješim, ali vjerujem da su koristili vbs. Sada mnogo vb skripti koristi kompajler, ali Windowsima to ne treba. Samo upišite cscript prije putanje datoteke, sada ako znate kako napraviti bat datoteke, tada možete automatizirati ovaj proces, ali nećemo ulaziti u to u ovoj uputi. Evo jedne male igre koju sam napravioOption ExplicitDim Odgovor ne upisuje questionWscript. StdOut. Napišite "Lijep dan, zar ne?" Answer = Wscript. StdIn. ReadLine 'ako upišete yes tIf answer = "yes" Zatim Wscript.echo ("Nadam se da će tako ostati")' Ako upišete noElseIf answer = "no" ThenWscript.echo ("Nadam se da će biti bolje") 'anything elseElseWscript. Echo ("GoodDay to you")' endEnd Ifnow u osnovi spremite ovo kao.vbs i upotrijebite metodu prije nego što ga pokrenete.

Korak 3: Automatsko kucanje

Ovaj kôd služi za upisivanje nečega iznova i iznova. Ne znam koliko je koristan, ali ako ga pokrenete, morat ćete ga ubiti u popisu zadataka shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" doshellobj.sendkeys "Y" wscript.sleep 200Shellobj.sendkeys "o" wscript.sleep 200loop

Korak 4: Matirx vas ima

Jeste li se ikada zapitali kako vas natjerati da računalo razgovara s vama? Pa kopirajte ovo

option eksplicitno Na grešci Nastavi dalje 'deklarirajte varijabledim wshshell, naslov, mystring, dužina, pozicija, tmp, loopA, loopB, linesToWrite, stupci, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5, maximum, skup elemenata wsh = wscript.createobject ("wscript.shell") title="matrica" wshshell. SendKeys "{ALT}"+"{ENTER}" 'pribavite podatke o korisniku, koji se koriste za dobijanje nameSet objSysInfo = CreateObject ("ADSystemInfo") Set objUser = GetObject ("LDAP: //" & objSysInfo. UserName) '--------------------------- sub waitfor (var)' set gore prozor, postavite naslov, pričekajte da se dovršitmp = falsedo dok tmpwscript.sleep 1000tmp = wshshell.appactivate (var) loopend sub '---------------------- ----- pod matrica (elementi) 'ispisuje nasumične brojeve kako bi matrica izgledala' pretpostavlja da su elementi djeljivi sa 5 kolona = 5col1 = truecol2 = true col3 = truecol4 = truecol5 = truerandomize () linesToWrite = elementi / kolone za petljuA = 1 to linesToWritefor loopB = 1 to columnsSelect Case loopBCase 1If col1 = true Tada w shshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" Slučaj 2If col2 = true Tada wshshell. SendKeys Int (Round (rnd ())) & "{TAB} "Else wshshell. SendKeys" {TAB} "Slučaj 3If col3 = true Zatim wshshell. SendKeys Int (Round (rnd ())) &" {TAB} "Ostalo wshshell. SendKeys" {TAB} "Slučaj 4If col4 = true Tada wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" Case 5If col5 = true then wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Inače wshshell. SendKeys "{TAB}" Prekini Selectwscript.sleep 5nextwscript. Echo 'Ove flip-flops kolone za prikaz 20 posto vremena, nezavisno jedna od druge.maximum = 0.20If rnd () <maximum ThenIf col1 = true Then col1 = false Ostalo col1 = trueEnd IfIf rnd () <maksimalno ThenIf col2 = true Tada col2 = false Ostalo col2 = trueEnd IfIf rnd () <maksimalno ThenIf col3 = true Tada col3 = false Ostalo col3 = trueEnd IfIf rnd () <maksimalno ThenIf col4 = true Tada je col4 = false Ostalo col4 = trueEnd IfIf rnd () <maksimalno ThenIf col5 = true Tada col5 = false Ostalo col5 = trueEnd Ifnextwscript. Echowscript. Echoend pod '--------------------------- potključ (poruka)' rade ispise "matrice" poruke i obrišite themwscript.sleep 1500length = len (msg) za position = 1 to lengthwshshell. SendKeys mid (msg, position, 1) wscript.sleep 250nextwscript.sleep 3000for position = 1 to lengthwshshell. SendKeys "{BACKSPACE}" wscript. sleep 75nextend sub '---------------------------' start "main" izvršenje ovdje čeka (naslov) Za loopA = 1 To 4Izaberite Case loopACase 1mystring = "probudi se, Neo …" Slučaj 2mystring = "Matrica te ima …" Slučaj 3mystring = "Prati bijelog zeca …" Slučaj 4mystring = "Kucni kuc …" Kraj Odaberi "sada ispišite ispravan niz znakova (mystring) next" _ _ _ _ _ _ _ _ _ _ _ wscript.quit () sačuvajte ga u C: / temp kao matrix.vbs kreirajte bat datoteke@echo offcolor 0atitle matrixset /p matrix = | cscript /nologo (Zamijenite ovo svojom stazom do vbs datoteke) exitset /p matrix = Imenujte taj RabbitHole.bat. Onda pokreni !! Ovo je super, ali napredna stvar s vbs -om, samo sam ga stavio jer je odličan

Korak 5: Završite

Eto ti

Skys je granica onoga što možete učiniti