Distracție cu Easy VBS !!!: 5 pași

2024 Autor: John Day | [email protected]. Modificat ultima dată: 2024-01-30 11:46

Un ghid pentru începători pentru distracție și script de bază vizual ușor de realizat. VSB poate părea greu pentru unii, dar de fapt este foarte ușor. Windows îl poate rula chiar și fără un compilator! Dacă știți javascript, ar trebui să vă fie foarte ușor.

Pasul 1: Casete de mesaje de bază

Ok, deci să trecem peste elementele de bază. Probabil că ați văzut vreodată o casetă de mesaje ca cea de mai jos. Acestea sunt folosite pentru a avertiza utilizatorii despre orice doriți să spuneți. Puteți crea propriul dvs. folosind funcția Msgbox. Deci, codul pentru o casetă de mesaj care spune că salut ar arăta astfel, Msgbox ("hi") Alternativ, puteți face un incapacitate caseta de mesaj făcând o buclă simplă utilizând comenzile Do, Loop. Acum, că am acoperit casetele de mesaje, să trecem la casetele de mesaje mai avansate.

Pasul 2: Jocuri și alte lucruri

Dacă vreodată vă întrebați cum să creați jocuri text, nu căutați mai departe. S-ar putea să mă înșel, dar cred că au folosit vbs. Acum, o mulțime de scripturi vb folosesc un compilator, dar Windows nu are nevoie de unul. Tastați doar cscript înainte de calea fișierului, acum, dacă știți cum să faceți fișiere bat, atunci puteți automatiza acest proces, dar nu vom intra în acest lucru în acest instructable.. Scrieți „Ziua plăcută nu-i așa?” Answer = Wscript. StdIn. ReadLine 'dacă tastați da tIf answer = "da" Atunci Wscript.echo („Sper să rămână așa”)' Dacă tastați noElseIf answer = „nu” ThenWscript.echo („Sper că se îmbunătățește”) 'orice altcevaElseWscript. Echo („Bună ziua pentru tine”)' endEnd Ifnow salvează practic acest lucru ca.vbs și folosește metoda înainte de al rula.

Pasul 3: Auto Typer

Acest cod îl introduce pentru a introduce ceva din nou. Nu știu cum este util, dar dacă îl rulați, va trebui să-l ucideți în lista de sarcini shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" doshellobj.sendkeys "Y" wscript.sleep 200Shellobj.sendkeys "o" wscript.sleep 200loop

Pasul 4: Matirx te are

V-ați întrebat vreodată cum să vă fac să vorbiți cu computerul? Copiați acest lucru

opțiune explicit On Error Resume Next 'declara variabile dim wshshell, titlu, șir, lungime, poziție, tmp, buclă A, buclă B, linesToWrite, coloane, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5, maximum, elementsset wshshell = wscript.createobject ("wscript.shell") title="matricea" wshshell. SendKeys "{ALT}" + "{ENTER}" 'obțineți informații despre utilizator, utilizate pentru a obține setul nameSet objSysInfo = CreateObject ("ADSystemInfo") Set objUser = GetObject ("LDAP: //" & objSysInfo. UserName) set '--------------------------- sub waitfor (var)' set fereastră sus, setați titlul, așteptați să se completetmp = falsedo până când tmpwscript.sleep 1000tmp = wshshell.appactivate (var) loopend sub '---------------------- ----- sub matricea (elemente) 'tipărește numere aleatorii pentru a face ca „matricea” să arate' presupune că elementele sunt divizibile cu 5 coloane = 5col1 = truecol2 = adevărat col3 = truecol4 = truecol5 = mai adevărat () linesToWrite = elemente / coloane pentru bucla A = 1 la linesToWritefor bucla B = 1 la coloane Selectați Case loopBCase 1 Dacă col1 = adevărat Atunci w shshell. SendKeys Int (Round (rnd ())) & "{TAB}" Altfel wshshell. SendKeys "{TAB}" Cazul 2If col2 = true Then wshshell. SendKeys Int (Round (rnd ())) & "{TAB} „Altceva wshshell. SendKeys" {TAB} "Caz 3If col3 = true Then wshshell. SendKeys Int (Round (rnd ())) &„ {TAB} "Else wshshell. SendKeys" {TAB} "Case 4If col4 = true Then wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Altfel wshshell. SendKeys "{TAB}" Cazul 5Dacă col5 = true Apoi wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Altfel wshshell. SendKeys "{TAB}" End Selectwscript.sleep 5nextwscript. Echo 'Această coloană flip-flops pentru a afișa 20% din timp, independent una de cealaltă. Maxim = 0,20 Dacă rnd () <maxim ThenIf col1 = true Then col1 = false Else col1 = trueEnd IfIf rnd () <maximum ThenIf col2 = true Then col2 = false Else col2 = trueEnd IfIf rnd () <maximum ThenIf col3 = true Then col3 = false Else col3 = trueEnd IfIf rnd () <maximum ThenIf col4 = adevărat Atunci col4 = fals Altceva col4 = adevăratEnd DacăInd rnd () <maxim ThenIf col5 = adevărat Apoi col5 = fals Altfel col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub '--------------------------- sub key (msg)' do printouts of "the matrix" mesaje și ștergeți 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 75extend sub '---------------------------' start "main" executare herewaitfor (title) For loopA = 1 To 4Select Case case loopACase 1mystring = "trezește-te, Neo …" Case 2mystring = "Matricea te are …" Case 3mystring = "Urmează iepurele alb …" Case 4mystring = "Knock knock …" End Select 'tipărește acum cheia corectă (mystring) următoare' _ _ _ _ _ _ _ _ _ _ wscript.quit () salvați-l în C: / temp ca matrix.vbs creați fișierele bat @ echo offcolor 0atitle matrixset / p matrix = | cscript / nologo (Înlocuiți-l cu calea către fișierul vbs) exitset / p matrix = Name that RabbitHole.bat. Apoi rulați-l !! acesta este un lucru interesant, dar avansat de făcut cu vbs, l-am pus doar pentru că este minunat

Pasul 5: Sfârșit

Iată-te

Zonele sunt limita la ceea ce poți face