Zábava s Easy VBS !!!: 5 kroků

2024 Autor: John Day | [email protected]. Naposledy změněno: 2024-01-30 08:24

Průvodce pro začátečníky k zábavnému a snadno proveditelnému vizuálnímu základnímu skriptu. VSB se může někomu zdát těžké, ale ve skutečnosti je to opravdu snadné. Windows jej dokonce může spustit bez kompilátoru! Pokud znáte javascript, mělo by to pro vás být opravdu snadné.

Krok 1: Základní schránky zpráv

Dobře, pojďme tedy projít základy. Už jste někdy viděli okno se zprávou, jako je to níže, pravděpodobně máte. Používají se k upozornění uživatelů na cokoli, co chcete říci. Můžete si vytvořit vlastní pomocí funkce Msgbox. Takže kód do pole se zprávou, který říká ahoj, bude vypadat takto, Msgbox („hi“) Alternativně můžete vytvořit nezabíjitelné pole zpráv vytvořením jednoduché smyčky pomocí příkazů Do, Loop. Nyní, když jsme pokryli pole zpráv, se můžeme přesunout do pokročilejších polí zpráv.

Krok 2: Hry a věci

Pokud vás někdy zajímá, jak vytvářet textové hry, už nehledejte. Možná se mýlím, ale věřím, že používali vbs. Mnoho skriptů vb nyní používá kompilátor, ale Windows jej nepotřebují. Stačí zadat cscript před cestu k souboru, nyní pokud víte, jak vytvářet netopýří soubory, můžete tento proces zautomatizovat, ale v tomto návodu se k tomu nedostaneme. Zde je malá hra, kterou jsem vytvořil Volba ExplicitDim Odpověď'typy otázkyWscript. StdOut. Napište „Hezký den, že?“Answer = Wscript. StdIn. ReadLine 'pokud napíšete yes tIf answer = „yes“Then Wscript.echo („doufám, že to tak zůstane“)' Pokud napíšete noElseIf answer = „no“ThenWscript.echo („doufám, že se to zlepší“) 'else elseElseWscript. Echo („GoodDay to you“)' endEnd Ifnow v zásadě uložte jako.vbs a před spuštěním použijte tuto metodu.

Krok 3: Auto Typer

Tento kód to psát něco znovu a znovu. Nevím, jak je to užitečné, ale pokud to spustíte, budete to muset zabít v sadě úkolů shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" doshellobj.sendkeys "Y" wscript.spánek 200Shellobj.sendkeys „o“wscript.sleep 200loop

Krok 4: Matirx vás má

Přemýšleli jste někdy o tom, jak přimět počítač, aby s vámi mluvil?

volba explicitOn Chyba Obnovit další 'deklarovat proměnnédim 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="matice" wshshell. SendKeys "{ALT}"+"{ENTER}" '' získat informace o uživateli, slouží k získání sady nameSet objSysInfo = CreateObject ("ADSystemInfo") objUser = GetObject ("LDAP: //" & objSysInfo. UserName) '--------------------------- dílčí čekání (var)' sada okno nahoru, zadejte název, počkejte, až se dokončí ----- sub matrix (elements) 'print random numbers to make "the matrix" look' assumes elements is delis by 5columns = 5col1 = truecol2 = true col3 = truecol4 = truecol5 = truerandomize () linesToWrite = elements / columns for loopA = 1 to linesToWritefor loopB = 1 to columns Vyberte Case loopBCase 1If col1 = true Then w shshell. SendKeys Int (Round (rnd ())) & "{TAB}" Jinak wshshell. SendKeys "{TAB}" Case 2If col2 = true Then wshshell. SendKeys Int (Round (rnd ())) & "{TAB} "Else wshshell. SendKeys" {TAB} "Případ 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}" Jinak wshshell. SendKeys "{TAB}" Case 5If col5 = true Then wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Jinak wshshell. SendKeys "{TAB}" Konec Selectwscript.sleep 5nextwscript. Echo 'Toto překlopí sloupce a zobrazí 20 procent času, nezávisle na sobě.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)' do print of "the matrix" zprávy a vymažte themwscript.sleep 1500length = len (msg) pro pozici = 1 až lengthwshshell. SendKeys mid (msg, position, 1) wscript.sleep 250nextwscript.sleep 3000for position = 1 to lengthwshshell. SendKeys "{BACKSPACE}" wscript. sleep 75nextend sub '---------------------------' start "main" execution herewaitfor (title) For loopA = 1 To 4Select Case loopACase 1mystring = "Probuď se, Neo …" Případ 2mystring = "Matice tě má …" Případ 3mystring = "Následuj bílého králíka …" Případ 4mystring = "Klop klepání …" Konec Vybrat 'nyní vytiskněte správný řetězec (mystring) další' _ _ _ _ _ _ _ _ _ _ _ wscript.quit () uložte jej do C: / temp jako matrix.vbs vytvořte soubory bat@echo offcolor 0atitle the matrixset /p matrix = | cscript /nologo (Nahraďte to svou cestou k souboru vbs) exitset /p matrix = Název, který RabbitHole.bat. Pak to spusťte !! je to skvělá, ale pokročilá věc, kterou můžete udělat s vbs. Prostě jsem to vložil, protože je to úžasné

Krok 5: Konec

Tady máš

Obloha je limit toho, co můžete dělat