Divertimento con Easy VBS!!!: 5 passaggi

2024 Autore: John Day | [email protected]. Ultima modifica: 2024-01-30 10:05

Una guida per principianti allo script di base visivo divertente e facile da fare. VSB può sembrare difficile per alcuni, ma in realtà è davvero facile. Windows può persino eseguirlo senza un compilatore! Se conosci javascript, dovrebbe essere davvero facile per te.

Passaggio 1: caselle di messaggio di base

Ok, allora andiamo oltre le basi. Hai mai visto una finestra di messaggio come quella qui sotto, probabilmente l'hai capita. Questi sono usati per avvisare gli utenti di qualunque cosa tu voglia dire. Puoi crearne uno usando la funzione Msgbox Quindi il codice di una finestra di messaggio che dice ciao sarebbe simile a questo, Msgbox ("ciao") In alternativa puoi creare un unkillable finestra di messaggio eseguendo un semplice ciclo utilizzando i comandi Do, Loop. Ora che abbiamo trattato le finestre di messaggio, passiamo a finestre di messaggio più avanzate.

Passaggio 2: giochi e cose

Se ti sei mai chiesto come creare giochi di testo, non cercare oltre. Potrei sbagliarmi, ma credo che abbiano usato vbs. Ora molti script vb usano un compilatore, ma Windows non ne ha bisogno. Basta digitare cscript prima del percorso del file, ora se sai come creare file bat, puoi automatizzare questo processo, ma non lo approfondiremo in questo istruibile. Ecco un piccolo gioco che ho fattoOption ExplicitDim Answer'types the questionWscript. StdOut. Scrivi "Bella giornata non è vero? "answer = Wscript. StdIn. ReadLine 'se digiti yes tIf answer="yes" Then Wscript.echo ("Spero che rimanga così")'Se digiti noElseIf answer= "no" ThenWscript.echo ("Spero che vada meglio")'anything elseElseWscript. Echo ("Buongiorno a te")'endEnd Ifnow fondamentalmente salva questo come.vbs e usa il metodo prima di eseguirlo.

Passaggio 3: la digitazione automatica

Questo lo codifica per digitare qualcosa più e più volte. Non so quanto sia utile, ma se lo esegui, dovrai ucciderlo nel task listset shellobj = CreateObject("WScript. Shell")shellobj.run "cmd"doshellobj.sendkeys "Y"wscript.sleep 200Shellobj.sendkeys "o" wscript.sleep 200loop

Passaggio 4: il Matirx ti ha preso

Vi siete mai chiesti come far parlare il vostro PC? Bene copiate questo

option esplicitoOn Error Resume Next' dichiara variabilidim wshshell, title, mystring, length, position, tmp, loopA, loopB, linesToWrite, columns, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5, maximum, elementsset wshshell = wscript.createobject("wscript.shell")title = "la matrice"wshshell. SendKeys "{ALT}"+"{ENTER}"' ottiene le informazioni dell'utente, utilizzate per ottenere il nameSet objSysInfo = CreateObject("ADSystemInfo")Set objUser = GetObject("LDAP://" & objSysInfo. UserName)' ---------------------------sub waitfor(var)' set up window, impostare il titolo, attendere che venga completatotmp = falsedo fino a tmpwscript.sleep 1000tmp = wshshell.appactivate(var)loopend sub' ---------------------- -----sub matrix(elements)' stampa numeri casuali per far sembrare "la matrice"' presuppone che gli elementi siano divisibili per 5columns = 5col1 = truecol2 = true col3 = truecol4 = truecol5 = truerandomize()linesToWrite = elementi / colonne per loopA = da 1 a righeToWritefor loopB = 1 a colonneSeleziona Case loopBCase 1Se col1 = true Allora w shshell. SendKeys Int(Round(rnd())) & "{TAB}" Altrimenti wshshell. SendKeys "{TAB}"Case 2If col2 = true Then wshshell. SendKeys Int(Round(rnd())) & "{TAB} " Else wshshell. SendKeys "{TAB}"Case 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}" Altrimenti wshshell. SendKeys "{TAB}"Case 5If col5 = true Then wshshell. SendKeys Int(Round(rnd())) & "{TAB}" Else wshshell. SendKeys "{TAB}"End Selectwscript.sleep 5nextwscript. Echo' Questo flip-flop le colonne per visualizzare il 20 percento delle volte, indipendentemente l'una dall'altra.maximum = 0.20If rnd() < massimo ThenIf col1 = true Then col1 = false Else col1 = trueEnd IfIf rnd() < massimo ThenIf col2 = true Then col2 = false Else col2 = trueEnd IfIf rnd() < massimo ThenIf col3 = true Then col3 = false Else col3 = trueEnd IfIf rnd() < massimo ThenIf col4 = vero Then col4 = false Else col4 = trueEnd IfIf rnd() < massimo ThenIf col5 = true Then col5 = false Else col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub' ---------------------------sub key(msg)' stampa della "matrice" messaggi e cancellali wscript.sleep 1500length = len(msg)for position = 1 a lengthwshshell. SendKeys mid(msg, position, 1)wscript.sleep 250nextwscript.sleep 3000for position = 1 a lengthwshshell. SendKeys "{BACKSPACE}"wscript. sleep 75nextend sub' ---------------------------' avvia l'esecuzione "main" herewaitfor(title)For loopA = 1 To 4Select Case loopACase 1mystring = "svegliati, Neo…"Case 2mystring = "La matrice ti ha…"Case 3mystring = "Segui il coniglio bianco…"Case 4mystring = "Knock knock…"End Select' ora stampa la stringa corretta (mystring)next' _ _ _ _ _ _ _ _ _ _ wscript.quit() salvalo in C:\temp come matrice.vbs crea il bat files@echo offcolor 0atitle il set di matrici /p matrice= | cscript /nologo (Sostituiscilo con il tuo percorso al file vbs)exitset /p matrix= Assegna un nome a RabbitHole.bat. Quindi eseguilo!! questa è una cosa interessante, ma avanzata da fare con vbs, l'ho appena inserita perché è fantastica

Passaggio 5: fine

Ecco qua

Il cielo è il limite a quello che puoi fare