Argëtim me VBS të lehtë !!!: 5 hapa

2024 Autor: John Day | [email protected]. E modifikuara e fundit: 2024-01-30 12:30

Një udhëzues fillestar për shkrime argëtuese dhe të thjeshta vizuale. VSB mund të duket e vështirë për disa, por në fakt është vërtet e lehtë. Windows madje mund ta ekzekutojë atë pa një përpilues! Nëse e dini javascript, duhet të jetë vërtet e lehtë për ju.

Hapi 1: Kutitë themelore të mesazheve

Ok, le të kalojmë mbi Bazat. A keni parë ndonjëherë një kuti mesazhesh si ajo më poshtë, ju me siguri e keni. Këto përdoren për të paralajmëruar përdoruesit për gjithçka që dëshironi të thoni. Ju mund të krijoni tuajin duke përdorur Funksionin Msgbox Pra, kodi në një kuti mesazhesh që thotë hi do të dukej kështu, Msgbox ("hi") Përndryshe ju mund të bëni një të pakthyeshëm kutinë e mesazheve duke bërë një lak të thjeshtë duke përdorur komandat Do, Loop. Tani që mbuluam kutitë e mesazheve, le të kalojmë në kutitë e mesazheve më të përparuara.

Hapi 2: Lojëra dhe gjëra

Nëse ndonjëherë pyesni veten se si të bëni lojëra me tekst, mos shikoni më tej. Mund të jem gabim, por besoj se ata përdorën vbs. Tani shumë skripte vb përdorin një përpilues, por dritaret nuk kanë nevojë për një të tillë. Thjesht shkruani cscript para shtegut të skedarit, tani nëse dini të bëni skedarë bat, atëherë mund ta automatizoni këtë proces, por ne nuk do të hyjmë në këtë në këtë udhëzues. Këtu është një lojë e vogël që kam bërë. Shkruani "Dita e bukur, apo jo?" jo

Hapi 3: Auto Typer

Ky kodon atë për të shtypur diçka pa pushim. Unë nuk e di se si është e dobishme, por nëse e përdorni, do t'ju duhet ta vrisni në listet e detyrave shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" doshellobj.sendkeys "Y" wscript.gjumë 200Shellobj.sndkeys "o" wscript. fle 200loop

Hapi 4: Matirxhi ju ka

A keni menduar ndonjëherë se si t’ju bëjë të flisni me kompjuterin tuaj? Mirë kopjoni këtë

opsioni eksplicitOn Error Resume Next 'deklaro variablat dim wshshell, titullin, mystring, gjatësinë, pozicionin, tmp, loopA, loopB, linesToWrite, kolona, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5sh maksimum, elementsset = wscript.createobject ("wscript.shell") title="matrica" wshshell. SendKeys "{ALT}"+"{ENTER}" 'merrni informacionin e përdoruesit, të përdorur për të marrë emrinSet objSysInfo = Krijoni Objekt ("ADSystemInfo") Set objUser = GetObject ("LDAP: //" & objSysInfo. UmerName) '--------------------------- nën pritje për (var)' dritare lart, vendos titullin, prit që të përfundojëmpt = falsedo derisa tmpwscript.sleep 1000tmp = wshshell.appactivate (var) loopend sub '---------------------- ----- nën matrica (elemente) 'printo numra të rastit për ta bërë "matricën" të duket' supozon se elementët ndahen me 5 kolona = 5 koll1 = truecol2 = e vërtetë col3 = truecol4 = truecol5 = truerandomize () linesToWrite = elemente / kolona për loopA = 1 tek rreshtatToWritefor loopB = 1 tek kolonat Zgjedhja e lakut të rastitBCase 1 Nëse col1 = e vërtetë Pastaj w shshell. SendKeys Int (Round (rnd ())) & "{TAB}" Tjetër wshshell. SendKeys "{TAB}" Rasti 2Nëse col2 = e vërtetë Atëherë wshshell. SendKeys Int (Raundi (rnd ()))) & "{TAB} "Tjetër wshshell. SendKeys" {TAB} "Rasti 3Nëse col3 = e vërtetë Atëherë wshshell. SendKeys Int (Round (rnd ())) &" {TAB} "Tjetër wshshell. SendKeys" {TAB} "Rasti 4Nëse col4 = vërtetë Atëherë wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Tjetër wshshell. SendKeys "{TAB}" Rasti 5Nëse col5 = e vërtetë Pastaj wshshell. SendKeys Int (Raundi (rnd ()))) & "{TAB}" Përndryshe wshshell. SendKeys "{TAB}" Përfundoni Selectwscript.sleep 5nextwscript. Echo 'Kjo kolonë do të shfaqë 20 përqind të kohës, në mënyrë të pavarur nga njëra-tjetra.maximum = 0.20Nëse rnd () <maksimum Atëherë Nëse col1 = e vërtetë Pastaj col1 = false Tjetër col1 = trueEnd IfIf rnd () <maksimum ThenIf col2 = true Atëherë col2 = false Else col2 = trueEnd IfIf rnd () <maksimal ThenIf col3 = true Atëherë col3 = false Else col3 = trueEnd IfIf rnd () <maksimum ThenIf col4 = e vërtetë Atëherë col4 = false Tjetër col4 = e vërtetë PërfundoniNëse rnd () <maksimum atëherëNëse kol5 = e vërtetë Pastaj col5 = e gabuar Tjetër col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub '------------------------------- nën çelës (msg)' bëni printime të "matricës" mesazhet, dhe fshi themwscript.sleep 1500length = len (msg) për pozicionin = 1 në lengthwshshell. SendKeys mes (msg, position, 1) wscript.sleep 250nextwscript.sleep 3000for position = 1 to lengthwshshell. SendKeys "{BACKSPACE}" wscript. fle 75 shtrije nën '-------------------------------' fillo ekzekutimin "kryesor" këtupërpara (titulli) Për lakun A = 1 deri në 4Përzgjidhni lakun e çështjesAase 1mystring = "zgjohu, Neo …" Rasti 2mystring = "Matrica të ka …" Rasti 3mystring = "Ndiq lepurin e bardhë …" Rasti 4mystring = "Trokit… _ _ _ _ _ _ _ _ _ _ wscript.quit () ruajeni atë në C: / temp si matricë.vbs the create the bat files@echo offcolor 0atitle matrica /p matrica = | cscript /nologo (Zëvendësojeni këtë me rrugën tuaj drejt skedarit vbs) exitset /p matrix = Emërtoni atë RabbitHole.bat. Pastaj drejtojeni atë !! kjo është një gjë e lezetshme, por e avancuar për të bërë me vbs Unë thjesht e vendosa atë sepse është e mrekullueshme

Hapi 5: Përfundoni

Aty shkoni

Qielli kufizon atë që mund të bëni