Plezier met Easy VBS!!!: 5 stappen

2024 Auteur: John Day | [email protected]. Laatst gewijzigd: 2024-01-30 11:19

Een beginnershandleiding voor een leuk en gemakkelijk uit te voeren visueel basisscript. VSB lijkt voor sommigen misschien moeilijk, maar in feite is het heel eenvoudig. Windows kan het zelfs zonder compiler draaien! Als u javascript kent, zou het heel gemakkelijk voor u moeten zijn.

Stap 1: Basisberichtenboxen

Oké, dus laten we de basis doornemen. Heb je ooit een berichtvenster gezien zoals hieronder, waarschijnlijk heb je dat. Deze worden gebruikt om gebruikers te waarschuwen voor wat u maar wilt zeggen. U kunt uw eigen berichten maken met behulp van de functie Msgbox. Dus de code voor een berichtvenster dat hallo zegt, ziet er als volgt uit, Msgbox ("hi"). berichtvenster door een eenvoudige lus te maken met behulp van de opdrachten Do, Loop. Nu we de berichtvensters hebben behandeld, gaan we naar meer geavanceerde berichtvensters.

Stap 2: Spelletjes en zo

Als je je ooit afvraagt hoe je tekstspellen kunt maken, zoek dan niet verder. Ik kan het mis hebben, maar ik geloof dat ze vbs gebruikten. Nu gebruiken veel vb-scripts een compiler, maar Windows heeft er geen nodig. Typ gewoon cscript vóór het bestandspad, als je nu weet hoe je bat-bestanden moet maken, dan kun je dit proces automatiseren, maar daar gaan we in deze instructable niet op in. Hier is een klein spel dat ik heb gemaaktOption ExplicitDim Answer'typt de vraagWscript. StdOut. Schrijf "Nice Day Isin't it? "answer = Wscript. StdIn. ReadLine 'als je ja typt tIf answer="yes" Dan Wscript.echo ("ik hoop dat het zo blijft")'Als je noElseIf typt answer= "no" ThenWscript.echo ("Ik hoop dat het beter wordt")'anything elseElseWscript. Echo ("GoodDay to you")'endEnd Sla dit nu in feite op als.vbs en gebruik de methode ervoor om het uit te voeren.

Stap 3: De autotyper

Deze code het om iets steeds opnieuw te typen. Ik weet niet hoe het nuttig is, maar als je het uitvoert, moet je het doden in de takenlijstset shellobj = CreateObject("WScript. Shell")shellobj.run "cmd"doshellobj.sendkeys "Y"wscript.sleep 200Shellobj.sendkeys "o "wscript.sleep 200loop

Stap 4: De Matirx heeft jou

Heb je je ooit afgevraagd hoe je je pc tegen je kunt laten praten? Kopieer dit nou eens

optie explicietOn Error Resume Next' declareer variabelendim 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 = "the matrix"wshshell. SendKeys "{ALT}"+"{ENTER}"' gebruikersinformatie ophalen, gebruikt om de nameSet te krijgen objSysInfo = CreateObject("ADSystemInfo")Set objUser = GetObject("LDAP://" & objSysInfo. UserName)' ---------------------------sub waitfor(var)' set venster omhoog, titel instellen, wachten tot het voltooid istmp = falsedo totdat tmpwscript.sleep 1000tmp = wshshell.appactivate(var)loopend sub' ---------------------- -----sub matrix(elementen)' print willekeurige getallen om "de matrix" eruit te laten zien' gaat ervan uit dat elementen deelbaar zijn door 5kolommen = 5col1 = truecol2 = true col3 = truecol4 = truecol5 = truerandomize()linesToWrite = elements / columnsfor loopA = 1 naar regelsToWritevoor loopB = 1 naar kolommenSelecteer Case loopBCase 1If col1 = true Dan w shshell. SendKeys Int(Round(rnd())) & "{TAB}" Anders wshshell. SendKeys "{TAB}"Case 2If col2 = true Dan wshshell. SendKeys Int(Round(rnd())) & "{TAB} " Anders wshshell. SendKeys "{TAB}"Case 3If col3 = true Dan wshshell. SendKeys Int(Round(rnd())) & "{TAB}" Else wshshell. SendKeys "{TAB}"Case 4If col4 = true Dan wshshell. SendKeys Int(Round(rnd())) & "{TAB}" Anders wshshell. SendKeys "{TAB}"Case 5If col5 = true Dan wshshell. SendKeys Int(Round(rnd())) & "{TAB}" Else wshshell. SendKeys "{TAB}"End Selectwscript.sleep 5nextwscript. Echo' Dit flip-flopt kolommen om 20 procent van de tijd, onafhankelijk van elkaar, weer te geven.maximum = 0.20If rnd() < maximum ThenIf col1 = true Then col1 = false Anders col1 = trueEnd IfIf rnd() < maximum ThenIf col2 = true Then col2 = false Else col2 = trueEnd IfIf rnd() < maximum ThenIf col3 = true Then col3 = false Anders col3 = trueEnd IfIf rnd() < maximum ThenIf col4 = true Dan col4 = false Anders col4 = trueEnd IfIf rnd() < maximum ThenIf col5 = true Dan col5 = false Anders col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub' ---------------------------subsleutel (msg)' afdrukken van "de matrix" berichten, en wis zewscript.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" uitvoering herewaitfor(title)For loopA = 1 To 4Select Case loopACase 1mystring = "wakker worden, Neo…"Case 2mystring = "De matrix heeft jou…"Case 3mystring = "Volg het witte konijn…"Case 4mystring = "Klop klop…"End Select' print nu de juiste stringkey(mystring)volgende' _ _ _ _ _ _ _ _ _ _ wscript.quit() sla het op in C:\temp als matrix.vbs de maak de bat-bestanden@echo offcolor 0atitel de matrixset /p matrix= | cscript /nologo (Vervang dit door uw pad naar het vbs-bestand)exitset /p matrix= Geef die RabbitHole.bat een naam. Voer het dan uit!! dit is een cool, maar geavanceerd ding om te doen met vbs. Ik heb het er gewoon in gedaan omdat het geweldig is

Stap 5: Einde

Daar ga je

De skys the limit van wat je kunt doen