Lõbus lihtsa VBS -iga !!!: 5 sammu

2024 Autor: John Day | [email protected]. Viimati modifitseeritud: 2024-01-30 08:50

Algajate juhend lõbuks ja hõlpsasti teostatav visuaalne põhiskript. VSB võib mõnele tunduda raske, kuid tegelikult on see tõesti lihtne. Windows saab seda isegi ilma kompilaatorita käivitada! Kui teate javascripti, peaks see teie jaoks tõesti lihtne olema.

Samm: põhilised sõnumikastid

Olgu, nii et läheme üle põhitõdedest. Kas olete kunagi näinud sellist sõnumikast nagu allpool, siis tõenäoliselt teil on. Neid kasutatakse kasutajate hoiatamiseks kõigest, mida soovite öelda. Funktsiooni Msgbox abil saate luua oma, nii et sõnumikasti kood, mis ütleb hi, näeks välja selline, Msgbox ("tere") Teise võimalusena saate teha hävitamatu sõnumikast, tehes käsu Do, Loop abil lihtsa silmuse. Nüüd, kui me kaustasime sõnumikastid, saate liikuda täpsemate sõnumikastide juurde.

Samm: mängud ja muu

Kui olete kunagi mõelnud, kuidas tekstimänge teha, siis ärge otsige enam. Ma võin eksida, aga usun, et nad kasutasid vbs -e. Nüüd kasutavad paljud vb -skriptid kompilaatorit, kuid Windows ei vaja seda. Lihtsalt tippige failitee ette cscript. Nüüd, kui teate, kuidas bat -faile teha, saate seda protsessi automatiseerida, kuid selles juhendis me seda ei tee. Siin on väike mäng, mille ma teginOption ExplicitDim Answer. Kui sisestate jah, kirjutage "Nice Day Isin't it?" "ei" ThenWscript.echo ("ma loodan, et läheb paremaks") 'midagi muudElseWscript. Echo ("Head päeva teile")' endEnd Ifnow põhimõtteliselt salvestage see.vbs -vormingus ja kasutage seda meetodit enne selle käivitamist.

3. samm: automaatne trükkimine

See kodeerib selle, et midagi uuesti ja uuesti sisestada. Ma ei tea, kuidas see kasulik on, kuid kui selle käivitate, peate selle tapma ülesannete loendis setob shellbj = CreateObject ("WScript. Shell") shellobj.run "cmd" doshellobj.sendkeys "Y" wscript.sleep 200Shellobj.sendkeys "o" wscript.sleep 200loop

4. samm: Matirxil on teid

Kas olete kunagi mõelnud, kuidas panna teid arvutiga teiega rääkima? Kopeerige see

option explicitOn Error Resume Next 'deklareerige muutujaddim wshshell, title, mystring, length, position, tmp, loopA, loopB, linesToWrite, veerud, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5, maximum, elementsset wsh = wscript.createobject ("wscript.shell") title="maatriks" wshshell. SendKeys "{ALT}"+"{ENTER}" 'kasutajateabe hankimine, mida kasutatakse nimeSet objSysInfo = CreateObject ("ADSystemInfo") määramiseks objUser = GetObject ("LDAP: //" & objSysInfo. UserName) '--------------------------- sub waitfor (var)' set üles aken, määrake pealkiri, oodake, kuni see lõpetabmp = falsedo, kuni tmpwscript.sleep 1000tmp = wshshell.appactivate (var) loopend sub '---------------------- ----- alammaatriks (elemendid) 'prindivad juhuslike numbrite abil "maatriksi" välimuse "eeldab, et elemendid jagunevad 5 veeruga = 5col1 = truecol2 = true col3 = truecol4 = truecol5 = truerandomize () linesToWrite = elemendid / veerud silmuse jaoks A = 1 ridadesse ToWritefor loopB = 1 veergudesse Valige Case loopBCase 1 If col1 = true Siis w shshell. SendKeys Int (Round (rnd ())) ja "{TAB}" Muu wshshell. SendKeys "{TAB}" Juhtum 2Kui col2 = true Siis wshshell. SendKeys Int (Round (rnd ())) & "{TAB} "Else wshshell. SendKeys" {TAB} "Juhtum 3If col3 = true Siis wshshell. SendKeys Int (Round (rnd ())) &" {TAB} "Else wshshell. SendKeys" {TAB} "Juhtum 4If col4 = true Siis wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Muu wshshell. SendKeys "{TAB}" Juhtum 5Kui col5 = true Siis wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" End Selectwscript.sleep 5nextwscript. Echo 'See flip-flops veerg kuvab üksteisest sõltumatult 20 % ajast. Maksimum = 0,20If rnd () <maksimaalne SiisIf col1 = tõene Siis col1 = vale Else col1 = trueEnd IfIf rnd () <maksimaalne SiisIf col2 = tõene Siis col2 = vale Muu col2 = tõeneEnd IfIf rnd () <maksimaalne SiisIf col3 = tõene Siis col3 = vale Muu col3 = tõeneEnd IfIf rnd () <maksimaalne SiisIf veerg4 = true Siis col4 = vale Muu col4 = trueEnd IfIf rnd () <maksimaalne SiisIf col5 = tõene Siis col5 = vale Muu col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub '--------------------------- sub key (msg)' do print of "therix" sõnumid ja kustutage 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. uni 75nextend sub '---------------------------' start "main" täitmine herewaitfor (title) For loopA = 1 to 4 Valige Case loopACase 1mystring = "ärka üles, Neo …" Juhtum 2minstring = "Maatriks sisaldab sind …" Juhtum 3minstring = "Jälgi valget jänest …" Juhtum 4minstring = "Koputus …" Lõpp Vali "prindi nüüd välja järgmine stringike (müstring) _ _ _ _ _ _ _ _ _ _ wscript.quit () salvesta see kausta C: / temp kui matrix.vbs, et luua bat failid@echo offcolor 0atitle the matrixset /p matrix = | cscript /nologo (Asenda see oma teega vbs -faili) exitset /p matrix = Nimetage see RabbitHole.bat. Siis käivitage see! See on lahe, kuid arenenud asi, mida teha vbs -ga. Ma panin selle lihtsalt sisse, sest see on fantastiline

Samm: lõpetage

Palun

Taevas on piir, mida saate teha