Taula de continguts:
- Pas 1: Quadres de missatges bàsics
- Pas 2: jocs i coses
- Pas 3: el teclat automàtic
- Pas 4: El Matirx et té
- Pas 5: finalitzar
Vídeo: Diversió amb Easy VBS !!!: 5 passos
2024 Autora: John Day | [email protected]. Última modificació: 2024-01-30 08:16
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
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
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
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é
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:
Transferir aprenentatge amb NVIDIA JetBot: diversió amb cons de trànsit: 6 passos
Transferir aprenentatge amb NVIDIA JetBot: diversió amb cons de trànsit: ensenyeu al vostre robot a trobar un camí en un laberint de cons de trànsit mitjançant la càmera i el model d’aprenentatge profund d’última generació
Diversió amb pantalla OLED i Arduino: 12 passos (amb imatges)
Diversió amb la pantalla OLED i Arduino: estic segur que definitivament heu sentit a parlar de la tecnologia de pantalla OLED. És relativament nou i ofereix una millor qualitat que la tecnologia LCD antiga. En aquest tutorial volem revisar els passos necessaris per mostrar dades sobre una de les empreses més comunes
Diversió amb giroscopi amb anell de Neopixel: 4 passos (amb imatges)
Divertiment amb giroscopi amb anell de Neopixel: en aquest tutorial utilitzarem el giroscopi MPU6050, un anell de neopixel i un arduino per construir un dispositiu que il·lumini els leds que corresponguin a l’angle d’inclinació. Aquest és un projecte senzill i divertit. reunir-se en una pissarra
Omni_use Usb Cover i diversió amb Plasti Dip: 3 passos
Omni_use Usb Cover i Fun With Plasti Dip: aquest és el meu primer instructable tot i que fa més de dos mesos que estic a l'aguait del lloc. Tinc la intenció que aquest sigui el meu primer en una sèrie (fins ara 3) sobre l'ús de plasti dip per a un ús que no sigui previst. materials necessaris. - es pot banyar plasti (11 dòlars
Diversió amb el llum IKEA: 9 passos
Diversió amb el llum IKEA: res d’especial. Res de nou: és només la meva pròpia versió de llum d’ànim amb el famós llum IKEA Mylonit