Spaß mit Easy VBS !!! - Gunook

2024 Autor: John Day | [email protected]. Zuletzt bearbeitet: 2024-01-30 07:22

Ein Anfängerleitfaden für unterhaltsames und einfach zu erstellendes visuelles Basisskript. VSB mag manchen schwer erscheinen, aber in Wirklichkeit ist es wirklich einfach. Windows kann es sogar ohne Compiler ausführen! Wenn Sie Javascript kennen, sollte es für Sie wirklich einfach sein.

Schritt 1: Grundlegende Nachrichtenfelder

Ok, also lass uns die Grundlagen durchgehen. Haben Sie jemals ein Meldungsfeld wie das folgende gesehen, haben Sie es wahrscheinlich. Diese werden verwendet, um Benutzer auf alles aufmerksam zu machen, was Sie sagen möchten. Sie können Ihre eigenen erstellen, indem Sie die Funktion Msgbox verwenden Meldungsfeld, indem Sie mit den Befehlen Do, Loop eine einfache Schleife erstellen. Nachdem wir Meldungsfelder behandelt haben, können wir nun zu fortgeschritteneren Meldungsfeldern übergehen.

Schritt 2: Spiele und Sachen

Wenn Sie sich jemals fragen, wie man Textspiele erstellt, dann suchen Sie nicht weiter. Ich könnte mich irren, aber ich glaube, dass sie vbs verwendet haben. Jetzt verwenden viele vb-Skripte einen Compiler, aber Windows braucht keinen. Geben Sie einfach cscript vor dem Dateipfad ein. Wenn Sie jetzt wissen, wie man Fledermaus-Dateien erstellt, können Sie diesen Prozess automatisieren, aber wir werden in diesem instructable nicht darauf eingehen. Hier ist ein kleines Spiel, das ich gemacht habe Option ExplicitDim Answer'typs the questionWscript. StdOut. Schreiben Sie "Schöner Tag, nicht wahr?" answer = Wscript. StdIn. ReadLine 'wenn Sie yes eingeben tIf answer="yes" Then Wscript.echo ("Ich hoffe, es bleibt so")'Wenn Sie noElseIf eingeben answer= "no" ThenWscript.echo ("Ich hoffe es wird besser")'anything elseElseWscript. Echo ("GoodDay to you")'end Ifnow speichere dies grundsätzlich als.vbs und verwende die Methode vorher, um es auszuführen.

Schritt 3: Der Autotyper

Dieser Code ermöglicht es, immer wieder etwas einzugeben. Ich weiß nicht, wie es nützlich ist, aber wenn Sie es ausführen, müssen Sie es in der Aufgabenliste beenden shellobj = CreateObject("WScript. Shell")shellobj.run "cmd"doshellobj.sendkeys "Y"wscript.sleep 200Shellobj.sendkeys "o "wscript.sleep 200loop

Schritt 4: Die Matirx hat dich

Haben Sie sich jemals gefragt, wie Sie Ihren PC dazu bringen können, mit Ihnen zu sprechen?

Option explizitOn Error Resume Next' Variablendeklarierendim wshshell, title, mystring, length, position, tmp, loopA, loopB, linesToWrite, column, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5, maximum, elementsset wshshell = wscript.createobject("wscript.shell")title = "the matrix"wshshell. SendKeys "{ALT}"+"{ENTER}"' Benutzerinfo abrufen, die verwendet wird, um den Namen zu erhalten. objSysInfo = CreateObject("ADSystemInfo")Set objUser = GetObject("LDAP://" & objSysInfo. UserName)' ---------------------------sub waitfor(var)' set Fenster öffnen, Titel setzen, warten bis es abgeschlossen isttmp = falsedo bis tmpwscript.sleep 1000tmp = wshshell.appactivate(var)loopend sub' ---------------------- -----sub matrix(elements)' drucke Zufallszahlen, um "die Matrix" aussehen zu lassen' geht davon aus, dass Elemente durch 5 teilbar sind 1 to linesToWritefor loopB = 1 to columnSelect Case loopBCase 1If col1 = true Then w shshell. SendKeys Int(Round(rnd())) & "{TAB}" Sonst 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}" Sonst wshshell. SendKeys "{TAB}"Fall 5If col5 = true Then wshshell. SendKeys Int(Round(rnd())) & "{TAB}" Else wshshell. SendKeys "{TAB}"End Selectwscript.sleep 5nextwscript. Echo' Dies schaltet die Spalten um, um 20 Prozent der Zeit unabhängig voneinander anzuzeigen.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 Then col4 = false Else col4 = trueEnd IfIf rnd() < Maximum ThenIf col5 = true Then col5 = false Else col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub' ---------------------------sub key(msg)' Ausdrucke von "der Matrix" Nachrichten und löschen Sie siewscript.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' --------------------------' starte "main" Ausführung hierwaitfor(title)For loopA = 1 To 4Select Case loopACase 1mystring = "wach auf, Neo…"Case 2mystring = "Die Matrix hat dich…"Case 3mystring = "Folge dem weißen Kaninchen…"Case 4mystring = "Klopf klopf…"End Select' jetzt den richtigen stringkey(mystring)next ausdrucken' _ _ _ _ _ _ _ _ _ _ wscript.quit() speichere es in C:\temp als matrix.vbs das erstelle die bat files@echo offcolor 0atitle das Matrixset /p matrix= | cscript /nologo (Ersetzen Sie dies durch Ihren Pfad zur vbs-Datei)exitset /p matrix= Benennen Sie diese RabbitHole.bat. Dann führe es aus!! Das ist eine coole, aber fortgeschrittene Sache mit vbs. Ich habe es einfach eingefügt, weil es großartig ist

Schritt 5: Ende

Da gehst du

Der Himmel ist die Grenze für das, was Sie tun können