Pramogos naudojant paprastą VBS !!!: 5 žingsniai

2024 Autorius: John Day | [email protected]. Paskutinį kartą keistas: 2024-01-30 10:49

Pradedančiųjų linksmybių vadovas ir paprastas vizualus pagrindinis scenarijus. VSB kai kam gali atrodyti sunku, bet iš tikrųjų tai tikrai lengva. „Windows“netgi gali jį paleisti be kompiliatoriaus! Jei žinote „javascript“, tai jums turėtų būti tikrai paprasta.

1 veiksmas: pagrindinės pranešimų dėžutės

Gerai, todėl pereikime prie pagrindų. Ar kada nors matėte tokį pranešimų laukelį, kaip nurodyta toliau, tikriausiai turite. Jie naudojami įspėti vartotojus apie viską, ką norite pasakyti. Galite sukurti savo, naudodami funkciją „Msgbox“. Taigi, pranešimų laukelio, kuriame sakoma „labas“, kodas atrodytų taip, „Msgbox“(„labas“) Arba galite padaryti nepažeidžiamą pranešimų dėžutę, atlikdami paprastą ciklą naudodami komandas „Do, Loop“. Dabar, kai apėmėme pranešimų laukus, galime pereiti prie sudėtingesnių pranešimų laukelių.

2 žingsnis: žaidimai ir dalykai

Jei kada nors susimąstote, kaip sukurti teksto žaidimus, nebesidairykite. Galbūt klystu, bet manau, kad jie naudojo vbs. Dabar daugelyje vb scenarijų naudojamas kompiliatorius, tačiau „Windows“jo nereikia. Tiesiog įveskite cscript prieš failo kelią, o dabar, jei žinote, kaip sukurti bat failus, galite automatizuoti šį procesą, bet mes to nepadarysime šioje instrukcijoje. Čia yra nedidelis žaidimas, kurį padariau.. Parašykite "Graži diena, ar ne?" Answer = Wscript. StdIn. ReadLine ', jei įvesite taip tIf answer = "taip" Tada Wscript.echo ("Tikiuosi, kad taip ir bus")' Jei įvesite noElseIf answer = Ne

3 žingsnis: automatinis spausdinimas

Tai koduoja, kad kažką įvestumėte vėl ir vėl. Nežinau, kaip tai naudinga, bet jei ją paleisite, turėsite ją užmušti užduočių sąrašuose shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" doshellobj.sendkeys "Y" wscript.sleep 200Shellobj.sendkeys "o" wscript.sleep 200loop

4 žingsnis: „Matirx“turi jus

Ar kada susimąstėte, kaip priversti jus kalbėtis su kompiuteriu? Na, nukopijuokite tai

parinktis eksplicit = wscript.createobject ("wscript.shell") title="matrica" wshshell. SendKeys "{ALT}"+"{ENTER}" 'gauti vartotojo informaciją, naudojama norint gauti vardąSet objSysInfo = CreateObject ("ADSystemInfo") rinkinys objUser = GetObject ("LDAP: //" & objSysInfo. UserName) '--------------------------- sub waitfor (var)' set iki lango, nustatykite pavadinimą, palaukite, kol jis baigsis ----- antrinė matrica (elementai) 'spausdina atsitiktinius skaičius, kad "matrica" atrodytų ", darant prielaidą, kad elementai dalijasi iš 5 stulpelių = 5col1 = truecol2 = tiesa col3 = truecol4 = truecol5 = truerandomize () linesToWrite = elementai / stulpeliai kilpaA = 1 iki eilučių ToWritefor kilpa shshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" 2 atvejisJei col2 = true Tada wshshell. SendKeys Int (Round (rnd ())) & "{TAB} "Else wshshell. SendKeys" {TAB} "3 atvejisJei col3 = true Tada wshshell. SendKeys Int (Round (rnd ())) &" {TAB} "Else wshshell. SendKeys" {TAB} "4 atvejisJei col4 = true Tada wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" 5 atvejisJei col5 = true Tada wshshell. SendKeys Int (Round (rnd ()))) ir "{TAB}" Else wshshell. SendKeys "{TAB}" Pabaiga Selectwscript.sleep 5nextwscript. Echo 'Šie apversti stulpeliai rodys 20 procentų laiko, nepriklausomai vienas nuo kito.maximum = 0.20If rnd () <maksimalus TadaIf col1 = tiesa Tada col1 = false Else col1 = trueEnd IfIf rnd () <maksimalus TadaIf col2 = tiesa Tada col2 = false El. col2 = tiesaEnd IfIf rnd () <maksimalus TadaIf col3 = tiesa Tada col3 = klaidinga Kita col3 = tiesa = tiesa Tada col4 = klaidinga Kita col4 = tiesaEnd IfIf rnd () <maksimalus TadaIf col5 = tiesa Tada col5 = klaidinga col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub '--------------------------- sub key (msg)' print the "matrica" pranešimus ir ištrinkite 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. miegoti 75pratęsti sub '---------------------------' pradėti "pagrindinį" vykdymą herewaitfor (title) LoopA = 1 to 4 = "pabusk, Neo …" atvejis 2mystring = "Matrica turi tave …" atvejis 3mystring = "Sekite baltą triušį …" Byla 4mystring = "Knock knock …" Pabaiga Pasirinkite 'dabar atsispausdinkite teisingą eilutės raktą (mystring) _ _ _ _ _ _ _ _ _ _ wscript.quit () išsaugokite jį C: / temp kaip matrix.vbs sukurti bat failus@echo offcolor 0atitle the matrixset /p matrix = | cscript /nologo (Pakeiskite tai savo keliu į vbs failą) exitset /p matrix = Pavadinkite tą RabbitHole.bat. Tada paleiskite jį! Tai šaunus, bet pažangus dalykas, susijęs su „vbs“. Aš tiesiog įdėjau jį, nes tai nuostabu

5 žingsnis: pabaiga

Štai taip

Dangus yra riba to, ką galite padaryti