Taula de continguts:

Diversió amb Easy VBS !!!: 5 passos
Diversió amb Easy VBS !!!: 5 passos

Vídeo: Diversió amb Easy VBS !!!: 5 passos

Vídeo: Diversió amb Easy VBS !!!: 5 passos
Vídeo: ЗАПРЕЩЁННЫЕ ТОВАРЫ с ALIEXPRESS 2023 ШТРАФ и ТЮРЬМА ЛЕГКО! 2024, De novembre
Anonim
Diversió amb Easy VBS !!!
Diversió amb Easy VBS !!!

Una guia bàsica per a principiants i divertida i fàcil de fer. VSB pot semblar difícil per a alguns, però de fet és molt fàcil. Windows pot fins i tot executar-lo sense un compilador. Si coneixeu javascript, us hauria de ser molt fàcil.

Pas 1: Quadres de missatges bàsics

Quadres bàsics de missatges
Quadres bàsics de missatges

D'acord, doncs, repassem els conceptes bàsics. Probablement heu vist mai un quadre de missatges com el següent. S’utilitzen per avisar els usuaris de tot el que vulgueu dir. Podeu crear el vostre mitjançant la funció Msgbox, de manera que el codi d’un quadre de missatges que diu hola quedaria així, Msgbox ("hi"). Alternativament, podeu fer que un fent un bucle senzill mitjançant les ordres de fer, bucle. Ara que hem cobert els quadres de missatges, podem passar a quadres de missatges més avançats.

Pas 2: jocs i coses

Jocs i coses
Jocs i coses

Si mai us pregunteu com fer jocs de text, no busqueu més. Podria estar equivocat, però crec que feien servir vbs. Ara molts scripts vb utilitzen un compilador, però Windows no en necessita cap. Només cal que escriviu cscript abans del camí del fitxer; ara, si sabeu com fer fitxers bat, podeu automatitzar aquest procés, però no ens adonarem d’aquesta informació instructiva. Aquí hi ha un petit joc que he fet.. Escriviu "Bon dia, no és així?" "no" ThenWscript.echo ("Espero que millori") 'qualsevol altra cosaElseWscript. Echo ("GoodDay to you")' endEnd Ifnow bàsicament deseu això com.vbs i utilitzeu el mètode abans per executar-lo.

Pas 3: el teclat automàtic

L’escriptori automàtic
L’escriptori automàtic

Aquest codi el fa escriure alguna cosa una i altra vegada. No sé com és útil, però si l'executeu, l'haureu de matar al conjunt de tasques shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" doshellobj.sendkeys "Y" wscript.sleep 200Shellobj.sendkeys "o" wscript.sleep 200loop

Pas 4: El Matirx et té

El Matirx et té
El Matirx et té

Alguna vegada us heu preguntat com fer que us parli de PC? Bé copieu això

opció explícita On Error Resume Next 'declare variablesdim wshshell, title, mystring, length, position, tmp, loopA, loopB, linesToWrite, columnes, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5, maximum, elementsset wshshell = wscript.createobject ("wscript.shell") title="la matriu" wshshell. SendKeys "{ALT}" + "{ENTER}" 'obté informació de l'usuari, que s'utilitza per obtenir el nom ObjectSysInfo = CreateObject ("ADSystemInfo") Set objUser = GetObject ("LDAP: //" & objSysInfo. UserName) "--------------------------- sub waitfor (var)" set finestra amunt, definiu el títol, espereu que completetmp = falsedo fins que tmpwscript.sleep 1000tmp = wshshell.appactivate (var) loopend sub '---------------------- ----- sub matriu (elements) 'imprimeix números aleatoris per fer que la "matriu" sembli "suposa que els elements són divisibles per 5 columnes = 5col1 = truecol2 = true col3 = truecol4 = truecol5 = truerandomize () linesToWrite = elements / columnes per bucleA = 1 a linesToWritefor loop B = 1 a columnes Seleccioneu Case loopBCase 1 Si col1 = true Llavors w shshell. SendKeys Int (Round (rnd ())) & "{TAB}" Altres wshshell. SendKeys "{TAB}" Cas 2If col2 = true Aleshores wshshell. SendKeys Int (Round (rnd ())) & "{TAB} "Else wshshell. SendKeys" {TAB} "Cas 3If col3 = true Then wshshell. SendKeys Int (Round (rnd ())) &" {TAB} "Else wshshell. SendKeys" {TAB} "Cas 4If col4 = true Then wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Altres wshshell. SendKeys "{TAB}" Cas 5If col5 = true Aleshores wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Altres coses wshshell. SendKeys "{TAB}" Finalitzar Selectwscript.sleep 5nextwscript. Echo 'Aquestes xancles de columnes per mostrar el 20 per cent del temps, independentment les unes de les altres.maximum = 0.20If rnd () <maximum 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 = true Aleshores col4 = false Else col4 = trueEnd IfIf rnd () <màxim ThenIf col5 = true Then col5 = false Else col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub '--------------------------- sub key (msg)' do prints of "the matrix" missatges i esborreu-los wwscript.sleep 1500length = len (msg) per position = 1 a lengthwshshell. SendKeys mid (msg, position, 1) wscript.sleep 250nextwscript.sleep 3000for position = 1 to lengthwshshell. SendKeys "{BACKSPACE}" wscript. dormir 75 pròxim sub '---------------------------' començar l'execució "principal" per aquí (títol) Per a bucle A = 1 a 4 Seleccionar cas de bucleACase 1mystring = "desperta, Neo …" Case 2mystring = "La matriu et té …" Case 3mystring = "Segueix el conill blanc …" Case 4mystring = "Toca el toc …" Finalitza Selecciona "ara imprimeix la tecla de cadena correcta (mystring) següent" _ _ _ _ _ _ _ _ _ _ wscript.quit () deseu-lo a C: / temp com matrix.vbs creeu els fitxers bat @ echo offcolor 0atitle the matrixset / p matrix = | cscript / nologo (Substitueix-ho pel teu camí al fitxer vbs) exitset / p matrix = Nom que RabbitHole.bat. A continuació, executeu-ho !! Això és una cosa interessant, però avançada, que heu de fer amb vbs. Ho he posat perquè és increïble

Pas 5: finalitzar

Aquí està

Els cels són el límit del que podeu fer

Recomanat: