Zabawa z łatwym VBS !!!: 5 kroków

2024 Autor: John Day | [email protected]. Ostatnio zmodyfikowany: 2024-01-30 11:33

Przewodnik dla początkujących po zabawnym i łatwym do wykonania wizualnym skrypcie podstawowym. VSB może niektórym wydawać się trudne, ale w rzeczywistości jest naprawdę łatwe. Windows może go nawet uruchomić bez kompilatora! Jeśli znasz JavaScript, to powinno być dla Ciebie naprawdę łatwe.

Krok 1: Podstawowe skrzynki wiadomości

Ok, więc przejdźmy do podstaw. Czy kiedykolwiek widziałeś komunikat taki jak ten poniżej, prawdopodobnie masz. Służą one do ostrzegania użytkowników o tym, co chcesz powiedzieć. Możesz utworzyć własne za pomocą funkcji Msgbox Kod do okna komunikatu z napisem „cześć” będzie wyglądał tak, Msgbox("hi")Alternatywnie możesz sprawić, że nie da się zabić okno komunikatu, tworząc prostą pętlę za pomocą poleceń Do, Loop. Teraz, gdy omówiliśmy pola komunikatów, przejdźmy do bardziej zaawansowanych pól komunikatów.

Krok 2: Gry i inne rzeczy

Jeśli kiedykolwiek zastanawiałeś się, jak tworzyć gry tekstowe, nie szukaj dalej. Może się mylę, ale uważam, że używali vbs. Teraz wiele skryptów vb używa kompilatora, ale Windows go nie potrzebuje. Po prostu wpisz cscript przed ścieżką do pliku, teraz, jeśli wiesz, jak tworzyć pliki bat, możesz zautomatyzować ten proces, ale nie będziemy tego robić w tym instruktażowym. Oto mała gra, którą zrobiłem.. Write "Nice Day Isin't it? "answer = Wscript. StdIn. ReadLine 'jeśli wpiszesz yes tIf answer="yes" Then Wscript.echo ("Mam nadzieję, że tak zostanie")'Jeśli wpiszesz noElseIf answer= "no" ThenWscript.echo ("Mam nadzieję, że będzie lepiej")'anything elseElseWscript. Echo ("GoodDay to you")'endEnd Ifnow zasadniczo zapisz to jako.vbs i użyj metody przed uruchomieniem.

Krok 3: Automatyczna maszyna do pisania

Ten kod to pisanie czegoś w kółko. Nie wiem, jak to jest przydatne, ale jeśli go uruchomisz, będziesz musiał go zabić w zestawie zadań shellobj = CreateObject("WScript. Shell")shellobj.run "cmd"doshellobj.sendkeys "Y"wscript.sleep 200Shellobj.sendkeys "o "wscript.sleep 200loop

Krok 4: Matirx cię ma

Czy kiedykolwiek zastanawiałeś się, jak sprawić, by komputer z tobą rozmawiał? Cóż, skopiuj to?

opcja explicitOn Error Resume Next' zadeklaruj zmiennedim wshshell, title, mystring, length, position, tmp, loopA, loopB, linesToWrite, columns, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5, maximum, wshshell = wscript.createobject("wscript.shell")title = "macierz"wshshell. SendKeys "{ALT}"+"{ENTER}"' pobierz informacje o użytkowniku, używane do pobrania nameSet objSysInfo = CreateObject("ADSystemInfo")Set objUser = GetObject("LDAP://" & objSysInfo. UserName)' ---------------------------sub waitfor(var)' ustawiono up window, ustaw tytuł, poczekaj aż się zakończy tmp = falsedo aż tmpwscript.sleep 1000tmp = wshshell.appactivate(var)loopend sub' ---------------------- -----sub matrix(elements)' wypisuje losowe liczby, aby "macierz" wyglądała' zakłada, że elementy są podzielne przez 5kolumny = 5col1 = truecol2 = true kol3 = truecol4 = truecol5 = truerandomize()linesToWrite = elementy / kolumnydla pętliA = 1 do wierszyToWritefor pętlaB = 1 do kolumnWybierz Case loopBCase 1If col1 = true Wtedy w shshell. SendKeys Int(Round(rnd())) & "{TAB}" Else wshshell. SendKeys "{TAB}"Przypadek 2If col2 = true Then wshshell. SendKeys Int(Round(rnd())) & "{TAB} " Else wshshell. SendKeys "{TAB}"Przypadek 3If col3 = true Then wshshell. SendKeys Int(Round(rnd())) & "{TAB}" Else wshshell. SendKeys "{TAB}"Przypadek 4If col4 = true Then wshshell. SendKeys Int(Round(rnd())) & "{TAB}" Else wshshell. SendKeys "{TAB}"Przypadek 5Jeśli col5 = true Then wshshell. SendKeys Int(Round(rnd())) & "{TAB}" Else wshshell. SendKeys "{TAB}"End Selectwscript.sleep 5nextwscript. Echo' Te przerzutniki wyświetlają 20 procent czasu, niezależnie od siebie.maximum = 0.20If rnd() < maksimum ThenIf col1 = true Then col1 = false W przeciwnym razie kol1 = trueEnd IfIf rnd() < maksimum ThenIf kol2 = true Then kol2 = false W innym przypadku kol2 = trueEnd IfIf rnd() < maksimum ThenIf kol3 = true Then kol3 = false Else kol3 = trueEnd IfIf rnd() < maksimum ThenIf kol4 = prawda Wtedy kol4 = fałsz W innym przypadku col4 = trueEnd If rnd() < maksimum Wtedy Jeżeli col5 = true Then kol5 = fałsz Inaczej col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub' ---------------------------sub key(msg)' wykonuj wydruki "macierzy" wiadomości i kasuj jewscript.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 "główne" wykonanie herewaitfor(title)For loopA = 1 To 4Wybierz Case loopACase 1mystring = "obudź się, Neo…"Case 2mystring = "Macierz cię ma…"Case 3mystring = "Podążaj za białym królikiem…"Case 4mystring = "Puk, puk…"Zakończ wybór' teraz drukuje poprawny stringkey(mystring)następny' _ _ _ _ _ _ _ _ _ _ wscript.quit() zapisz go do C:\temp jako matrix.vbs utwórz pliki bat@echo offcolor 0atytuł zestawu macierzy /p matrix= | cscript /nologo (Zastąp to ścieżką do pliku vbs)exitset /p matrix= Nazwij to RabbitHole.bat. Następnie uruchom go!! to jest fajna, ale zaawansowana rzecz do zrobienia z vbs, po prostu ją umieściłem, ponieważ jest niesamowity

Krok 5: Koniec

Proszę bardzo

Niebo jest granicą tego, co możesz zrobić