Zabava z Easy VBS !!!: 5 korakov

2024 Avtor: John Day | [email protected]. Nazadnje spremenjeno: 2024-01-30 12:08

Vodnik za začetnike po zabavni in enostavni vizualni osnovni skripti. VSB se morda zdi nekaterim težaven, v resnici pa je res enostaven. Windows ga lahko zažene tudi brez prevajalnika! Če poznate javascript, bi vam moralo biti zelo enostavno.

1. korak: Osnovna okenca za sporočila

Torej, pojdimo na osnove. Ste že kdaj videli takšno polje za sporočila, kot je spodaj, ste verjetno. Uporabljajo se za opozarjanje uporabnikov na vse, kar želite povedati. S funkcijo Msgbox lahko ustvarite svojo sporočilo, tako da naredite preprosto zanko z ukazi Do, Loop. Zdaj, ko smo pokrili polja s sporočili, se lahko premaknemo na naprednejša polja za sporočila.

2. korak: Igre in stvari

Če se kdaj vprašate, kako narediti besedilne igre, potem ne iščite več. Mogoče se motim, vendar verjamem, da so uporabili vbs. Zdaj veliko skript vb uporablja prevajalnik, vendar ga okna ne potrebujejo. Pred potjo datoteke samo vnesite cscript, zdaj če veste, kako narediti datoteke bat, lahko ta postopek avtomatizirate, vendar tega v tem navodilu ne bomo zajeli.. Napišite "Lep dan, kajne?" Answer = Wscript. StdIn. ReadLine ', če vnesete yes tIf answer = "yes" Potem Wscript.echo ("Upam, da bo tako ostalo")' Če vnesete noElseIf answer = "no" ThenWscript.echo ("Upam, da bo bolje") 'anything elseElseWscript. Echo ("GoodDay to you")' endEnd Ifnow v bistvu shranite to kot.vbs in uporabite metodo, preden jo zaženete.

3. korak: Samodejni tip

To kodo za vnos nečesa znova in znova. Ne vem, kako je uporaben, če pa ga zaženete, ga boste morali ubiti v naboru opravil shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" doshellobj.sendkeys "Y" wscript.sleep 200Shellobj.sendkeys "o" wscript.sleep 200loop

4. korak: Matirx vas ima

Ste se kdaj vprašali, kako vas nagovoriti, da to storite z računalnikom?

opcijsko Naprej Napaka Nadaljuj Naprej 'razglasi spremenljivkedim wshshell, naslov, mystring, dolžina, položaj, tmp, loopA, loopB, linesToWrite, stolpci, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5, maximum, elementset wsh = wscript.createobject ("wscript.shell") title="matrika" wshshell. SendKeys "{ALT}"+"{ENTER}" 'dobite podatke o uporabniku, uporabljene za pridobitev nameSet objSysInfo = CreateObject ("ADSystemInfo") Set objUser = GetObject ("LDAP: //" & objSysInfo. UserName) '--------------------------- nastavljeno pod čakanje (var)' gor okno, nastavite naslov, počakajte, da se dokončatmp = falsedo, dokler tmpwscript.sleep 1000tmp = wshshell.appactivate (var) loopend pod '---------------------- ----- pod matrika (elementi) 'natisni naključna števila, da bi matrika izgledala' predpostavlja, da so elementi deljivi s 5 stolpci = 5col1 = truecol2 = true col3 = truecol4 = truecol5 = truerandomize () vrsticeToWrite = elementi / stolpci za zankoA = 1 v vrstice ToWritefor zankaB = 1 v stolpce Izberite Velikost primeraBCase 1 Če je col1 = true Potem w shshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" Primer 2Če je col2 = true Potem wshshell. SendKeys Int (Round (rnd ())) & "{TAB} "Else wshshell. SendKeys" {TAB} "Primer 3If col3 = true Potem wshshell. SendKeys Int (Round (rnd ())) &" {TAB} "Else wshshell. SendKeys" {TAB} "Primer 4If col4 = true Potem wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" Primer 5If col5 = true Potem wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Sicer wshshell. SendKeys "{TAB}" Končaj Selectwscript.sleep 5nextwscript. Echo 'Ta natikači za prikaz 20 odstotkov časa, neodvisno drug od drugega.maximum = 0,20If rnd () <maximum ThenIf col1 = true Potem col1 = false Else col1 = trueEnd IfIf rnd () <največ Potem = true Potem col4 = false Drugače col4 = trueEnd IfIf rnd () <največ PotemIf col5 = true Potem col5 = false Drugače col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub '--------------------------- podključ (sporočilo)' naredi izpise "matrice" sporočil in 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" izvedba tukaj (naslov) Za zanko A = 1 Za 4Izberi zanko zanjACaza 1vrstica = "zbudi se, Neo …" Primer 2mystring = "Matrica te ima …" Primer 3mystring = "Sledi belemu zajcu …" Primer 4mystring = "Knock knock …" End Select "zdaj natisni pravilen stringkey (mystring) next" _ _ _ _ _ _ _ _ _ _ _ wscript.quit () shranite v C: / temp kot matrix.vbs ustvarite datoteke bat -@echo offcolor 0atitle matrixset /p matrix = | cscript /nologo (Zamenjajte to s potjo do datoteke vbs) exitset /p matrix = Poimenujte RabbitHole.bat. Potem pa zaženite !! To je kul, a napredna zadeva pri vbs -u Pravkar sem ga vstavil, ker je super

5. korak: Konec

Izvolite

Največja omejitev je, kaj lahko storite