Szórakozás az egyszerű VBS -el !!!: 5 lépés

2024 Szerző: John Day | [email protected]. Utoljára módosítva: 2024-01-30 09:44

Kezdőknek szóló útmutató a szórakozáshoz, és könnyen elkészíthető vizuális alapszkript. A VSB egyeseknek nehéznek tűnhet, de valójában nagyon egyszerű. A Windows akár fordító nélkül is futtathatja! Ha ismeri a javascriptet, annak nagyon egyszerűnek kell lennie.

1. lépés: Alapvető üzenetdobozok

Rendben, akkor nézzük át az alapokat. Láttál valaha olyan üzenetdobozt, mint az alábbi, akkor valószínűleg. Ezek arra szolgálnak, hogy figyelmeztessék a felhasználókat arra, amit mondani akarnak. A Funkció segítségével létrehozhat sajátot. Az Msgbox funkció tehát a szia üzenőmezőjének kódja így nézne ki, Msgbox ("szia") üzenettáblát a Do, Loop parancsok használatával.

2. lépés: Játékok és dolgok

Ha valaha elgondolkodik azon, hogyan lehet szöveges játékokat készíteni, ne keressen tovább. Lehet, hogy tévedek, de azt hiszem, hogy vbs -t használtak. Most sok vb szkript fordítót használ, de a Windowsnak nincs szüksége rá. Csak írja be a cscript -et a fájl elérési útja előtt, most, ha tudja, hogyan kell bat fájlokat készíteni, akkor automatizálhatja ezt a folyamatot, de ebbe az utasításba nem fogunk belemenni. Íme egy kis játék, amelyet készítettem. Írja be a "Szép napot, nem igaz?" "no" ThenWscript.echo ("Remélem, hogy jobb lesz") 'else elseElseWscript. Echo ("GoodDay to you")' endEnd Ifnow alapvetően mentse el ezt.vbs néven, és használja a metódust a futtatásához.

3. lépés: Az automatikus gépelés

Ez a kód azt írja be valamit újra és újra. Nem tudom, hogyan hasznos, de ha futtatod, akkor meg kell ölnöd a feladatlistában shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" doshellobj.sendkeys "Y" wscript.sleep 200Shellobj.sendkeys "o" wscript.sleep 200loop

4. lépés: A Matirx megvan

Gondolkozott már azon, hogyan lehet rávenni, hogy PC -vel beszéljen veled?

opció explicitOn Hiba Folytatás Következő 'deklarálja a változókatdim wshshell, title, mystring, length, position, tmp, loopA, loopB, linesToWrite, oszlopok, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5, maximum, elementsset wshs = wscript.createobject ("wscript.shell") title="a mátrix" wshshell. SendKeys "{ALT}"+"{ENTER}" 'felhasználói adatok lekérése, a nameSet objSysInfo = CreateObject ("ADSystemInfo") beállításához objUser = GetObject ("LDAP: //" & objSysInfo. UserName) '--------------------------- sub waitfor (var)' set fel ablak, állítsa be a címet, várjon, amíg a completetmp = falsedo befejeződik, amíg a tmpwscript.sleep 1000tmp = wshshell.appactivate (var) loopend sub '---------------------- ----- az almátrix (elemek) 'véletlenszerű számokat nyomtat, hogy a "mátrix" kinézetű legyen ", feltételezi, hogy az elemek oszthatók 5 oszlopokkal = 5col1 = truecol2 = true col3 = truecol4 = truecol5 = truerandomize () linesToWrite = elements / oszlopok ciklusA = 1 sorokhoz ToWritefor loopB = 1 oszlopokhoz Válassza ki a Case loopBCase 1 If col1 = true Akkor w shshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" 2. eset Ha col2 = true Akkor wshshell. SendKeys Int (Round (rnd ())) & "{TAB} "Else wshshell. SendKeys" {TAB} "3. eset Ha col3 = igaz Akkor wshshell. SendKeys Int (Kerek (rnd ())) &" {TAB} "Else wshshell. SendKeys" {TAB} "4. eset, ha col4 = igaz Akkor wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" 5. eset, ha col5 = true Akkor wshshell. SendKeys Int (Round (rnd ()))) és "{TAB}" Else wshshell. SendKeys "{TAB}" End Selectwscript.sleep 5nextwscript. Echo 'Ezek a flip-flop oszlopok az idő 20 százalékát jelenítik meg egymástól függetlenül.maximum = 0.20If rnd () <maximum ThenIf col1 = true Akkor col1 = false Else col1 = trueEnd IfIf rnd () <maximum thenIf col2 = true Akkor col2 = false Else col2 = trueEnd IfIf rnd () <maximum thenIf col3 = true Akkor col3 = false Egyéb col3 = trueEnd IfIf rnd () <maximum thenIf col4 = igaz Akkor oszlop4 = hamis Egyéb oszlop4 = igaz vége Ha if rnd () <maximum akkor col5 = trueEnd Ifnextwscript. Echowscript. Echoend al '--------------------------- alkulcs (msg)' kinyomtatja a "mátrixot" üzeneteket, és törölje őket. alvás 75nextend sub '---------------------------' start "main" végrehajtás herewaitfor (title) For loopA = 1 to 4A Case loopACase 1mystring kiválasztása = "ébredj fel, Neo…" 2. eset - Mystring = "A mátrix megvan …" 3. eset: "3. eset:" 4. Feladat 4. " - 4. eset 4." 4. eset "4. kopp. _ _ _ _ _ _ _ _ _ _ wscript.quit () mentse el a C: / temp mappába. cscript /nologo (Ezt cserélje le a vbs fájl elérési útjára) exitset /p matrix = Nevezze el a RabbitHole.bat fájlt. Akkor futtasd !! ez egy klassz, de fejlett dolog a vbs -hez Csak azért tettem bele, mert fantasztikus

5. lépés: Vége

Nesze

Az ég a határa annak, hogy mit tehetsz