Kul med enkel VBS !!!: 5 steg

2024 Författare: John Day | [email protected]. Senast ändrad: 2024-01-30 12:47

En nybörjarguide till roligt och lätt att göra visuellt grundläggande manus. VSB kan tyckas svårt för vissa, men det är faktiskt väldigt enkelt. Windows kan till och med köra det utan en kompilator! Om du kan javascript borde det vara väldigt enkelt för dig.

Steg 1: Grundläggande meddelanderutor

Ok, så låt oss gå igenom grunderna. Har du någonsin sett en meddelanderuta som den nedan, har du sannolikt. Dessa används för att varna användare om vad du än vill säga. Du kan skapa din egen genom att använda funktionen Msgbox Så koden till en meddelanderuta som säger hej skulle se ut så här, Msgbox ("hej") Alternativt kan du göra en oslagbar meddelandefältet genom att göra en enkel loop med hjälp av kommandona Do, Loop.

Steg 2: Spel och saker

Om du någonsin undrar hur du gör textspel än leta längre. Jag kan ha fel, men jag tror att de använde vbs. Nu använder en hel del vb -skript en kompilator, men Windows behöver inte en. Skriv bara cscript innan filens sökväg, nu om du vet hur man gör bat -filer, så kan du automatisera den här processen, men vi kommer inte in på det i denna instruerbara. Här är ett litet spel jag gjordeOption ExplicitDim Answer'types the questionWscript. StdOut. Skriv "Nice Day Isin't it?" Answer = Wscript. StdIn. ReadLine 'om du skriver ja tIf answer = "yes" Sedan Wscript.echo ("Jag hoppas att det förblir så")' Om du skriver noElseIf answer = "nej" ThenWscript.echo ("jag hoppas att det blir bättre") "allt annatElseWscript. Echo (" GoodDay to you ") 'endEnd Ifnow i princip spara detta som.vbs och använda metoden innan för att köra den.

Steg 3: Auto Typer

Den här koden för att skriva något om och om igen. Jag vet inte hur det är användbart, men om du kör det måste du döda det i aktivitetslistans uppsättning shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" doshellobj.sendkeys "Y" wscript.sleep 200Shellobj.sendkeys "o" wscript.sleep 200loop

Steg 4: Matirx har dig

Har du någonsin undrat hur du får dig att prata med dig?

option explicitOn Error Resume Next 'förklara variablerdim wshshell, titel, mystring, längd, position, tmp, loopA, loopB, linesToWrite, kolumner, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5, maximum, elementsset wshshell = wscript.createobject ("wscript.shell") title="matrisen" wshshell. SendKeys "{ALT}"+"{ENTER}" 'få användarinformation, används för att få nameSet objSysInfo = CreateObject ("ADSystemInfo") Set objUser = GetObject ("LDAP: //" & objSysInfo. UserName) '--------------------------- sub waitfor (var)' set upp fönstret, ställ in titel, vänta på att det ska slutföraetmp = falsedo tills tmpwscript.sleep 1000tmp = wshshell.appactivate (var) loopend sub '---------------------- ----- delmatris (element) "skriv ut slumpmässiga nummer för att få" matrisen "att se ut" förutsätter att element är delbara med 5 kolumner = 5col1 = truecol2 = true col3 = truecol4 = truecol5 = truerandomize () linesToWrite = element / kolumner för loopA = 1 till linesToWritefor loopB = 1 till kolumner Välj Case loopBCase 1If col1 = true Sedan w shshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else 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}" Else wshshell. SendKeys "{TAB}" Case 5If col5 = true Then wshshell. SendKeys Int (Round (rnd ()))) & "{TAB}}" Annars wshshell. SendKeys "{TAB}" Avsluta Selectwscript.sleep 5nextwscript. Echo 'Denna flip-flops kolumner för att visa 20 procent av tiden, oberoende av varandra.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 Då col4 = false Else col4 = trueEnd IfIf rnd () <maximum ThenIf col5 = true Then col5 = false Else col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub '--------------------------- sub-nyckel (msg)' gör utskrifter av "matrisen" meddelanden och radera 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 75nextend sub '---------------------------' start "main" exekvering här (titel) För loopA = 1 Till 4Välj Case loopACase 1mystring = "vakna upp, Neo …" Case 2mystring = "Matrisen har dig …" Case 3mystring = "Följ den vita kaninen …" Case 4mystring = "Knock knock …" End Select 'skriv nu ut rätt strängnyckel (mystring) nästa' _ _ _ _ _ _ _ _ _ _ wscript.quit () spara den i C: / temp som matrix.vbs skapa bat -filerna@echo offcolor 0atitle matrixset /p matrix = | cscript /nologo (Ersätt detta med din sökväg till vbs -filen) exitset /p matrix = Namnge det RabbitHole.bat. Kör sedan !! det här är en cool, men avancerad sak att göra med vbsJag lägger bara in den eftersom den är fantastisk

Steg 5: Avsluta

Varsågod

Skys gränsen för vad du kan göra