Zabava uz Easy VBS !!!: 5 koraka

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

Vodič za zabavu za početnike i jednostavan za izradu vizualne osnovne skripte. VSB se nekima može činiti teškim, ali zapravo je doista jednostavan. Windows ga čak može pokrenuti i bez kompajlera! Ako znate javascript, trebalo bi vam biti jako 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") Naizmjence 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 puno vb skripti koristi prevoditelj, ali Windowsima to ne treba. Samo upišite cscript prije putanje datoteke. Sada, ako znate kako napraviti datoteke šišmiša, tada možete automatizirati ovaj proces, ali nećemo ulaziti u to u ovoj uputi. Evo male igre koju sam napravioOption ExplicitDim Answer'types the 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: Automatski upisivač

Ovaj kod za unos 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.spavati 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 optionalOn Error Resume Next 'deklarirati varijabledim wshshell, title, mystring, length, position, tmp, loopA, loopB, linesToWrite, columns, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5, maximum, elementset wsh = wscript.createobject ("wscript.shell") title="the matrix" wshshell. SendKeys "{ALT}"+"{ENTER}" 'get user information, used to get the nameSet objSysInfo = CreateObject ("ADSystemInfo") Set objUser = GetObject ("LDAP: //" & objSysInfo. UserName) '--------------------------- postavljeno pod čekanje (var)' 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 / stupci 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 2Ako col2 = true Tada wshshell. SendKeys Int (okrugli (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 (okrugli (rnd ())) & "{TAB}" Ostalo wshshell. SendKeys "{TAB}" Slučaj 5Ako col5 = true Tada wshshell. SendKeys Int (okrugli (rnd ())) & "{TAB}" Inače wshshell. SendKeys "{TAB}" Prekini Selectwscript.sleep 5nextwscript. Echo 'Ovaj stupac za japanke prikazuje 20 posto vremena, neovisno jedan o drugom.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 je col5 = false Ostalo col5 = trueEnd Ifnextwscript. Echowscript. Echoend pod '--------------------------- potključ (poruka)' rade ispise "matrice" poruke i izbrišite themwscript.sleep 1500length = len (msg) for 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 (za naslov) Za petljuA = 1 do 4Odaberite petlju velikih slova CaseAza 1m string = "probudi se, Neo …" Slučaj 2mystring = "Matrica te ima …" Slučaj 3mystring = "Prati bijelog zeca …" Slučaj 4mystring = "Kucni kuc …" Kraj Odaberite "sada ispišite ispravan niz znakova (mystring) next" _ _ _ _ _ _ _ _ _ _ _ wscript.quit () spremite ga u C: / temp kao matrix.vbs stvorite datoteke šišmiša@echo offcolor 0atitle matrixset /p matrix = | cscript /nologo (Zamijenite ovo svojim putem 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 super

Korak 5: Završite

Izvoli

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