Hauskaa Easy VBS: llä !!!: 5 vaihetta

2024 Kirjoittaja: John Day | [email protected]. Viimeksi muokattu: 2024-01-30 09:04

Aloittelijoiden opas hauskaan ja helppokäyttöiseen visuaaliseen perusskriptiin. VSB voi tuntua vaikealta joillekin, mutta itse asiassa se on todella helppoa. Windows voi jopa käyttää sitä ilman kääntäjää! Jos tiedät javascriptin, sen pitäisi olla todella helppoa.

Vaihe 1: Perusviestilaatikot

Ok, joten mennään perusteiden yli. Oletko koskaan nähnyt alla olevan kaltaisen viestiruudun, sinulla todennäköisesti on. Näitä käytetään varoittamaan käyttäjiä kaikesta, mitä haluat sanoa. Voit luoda omasi käyttämällä funktiota Msgbox. Joten tervehdysviestiruudun koodi näyttäisi tältä, Msgbox ("hei") Vaihtoehtoisesti voit tehdä häviämättömän viestikenttään tekemällä yksinkertainen silmukka käyttämällä Do, Loop -komentoja.

Vaihe 2: Pelit ja jutut

Jos mietit, miten voit tehdä tekstipelejä, älä etsi enää. Voin olla väärässä, mutta uskon, että he käyttivät vbs: ää. Nyt monet vb -komentosarjat käyttävät kääntäjää, mutta Windows ei tarvitse sitä. Kirjoita vain cscript ennen tiedostopolkua. Nyt jos tiedät miten tehdä bat -tiedostoja, voit automatisoida tämän prosessin, mutta emme pääse siihen tässä ohjeessa. Tässä on pieni peli, jonka tein. Kirjoita "Kiva päivä, eikö olekin?" "ei" ThenWscript.echo ("Toivottavasti se paranee") "else elseElseWscript. Echo (" GoodDay to you ") 'endEnd Ifnow pohjimmiltaan tallenna tämä.vbs -muodossa ja käytä sitä ennen sen suorittamiseen.

Vaihe 3: Automaattinen kirjoituskone

Tämä koodi sen kirjoittaa jotain uudestaan ja uudestaan. En tiedä miten se on hyödyllinen, mutta jos suoritat sen, sinun on tapettava se tehtäväluettelossa shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" doshellobj.sendkeys "Y" wscript.sleep 200Shellobj.sendkeys "o" wscript.sleep 200loop

Vaihe 4: Matirxilla on sinut

Oletko koskaan miettinyt, kuinka saada sinut puhumaan kanssasi? Kopioi tämä

option explicitOn Error Resume Next 'deklarate muuttujatdim wshshell, title, mystring, length, position, tmp, loopA, loopB, linesToWrite, column, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5, maximum, elementsset wsh = wscript.createobject ("wscript.shell") title="matriisi" wshshell. SendKeys "{ALT}"+"{ENTER}" 'hae käyttäjätiedot, joita käytetään haettaessa nameSet objSysInfo = CreateObject ("ADSystemInfo") Set objUser = GetObject ("LDAP: //" & objSysInfo. UserName) '--------------------------- sub waitfor (var)' set ylös-ikkuna, aseta otsikko, odota sen completetmp = falsedo kunnes tmpwscript.sleep 1000tmp = wshshell.appactivate (var) loopend sub '---------------------- ----- alimatriisi (elementit) 'tulostaa satunnaislukuja, jotta "matriisi" näyttää "olettaa, että elementit jaetaan viidellä sarakkeella = 5col1 = truecol2 = true col3 = truecol4 = truecol5 = truerandomize () linesToWrite = elements / columnfor loopA = 1 rivilleToWritefor silmukkaB = 1 sarakkeille Valitse tapaussilmukkaBCase 1Jos col1 = true Sitten w shshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" Tapaus 2Jos col2 = true Sitten wshshell. SendKeys Int (Round (rnd ())) & "{TAB} "Else wshshell. SendKeys" {TAB} "Tapaus 3Jos col3 = true Sitten wshshell. SendKeys Int (Round (rnd ())) &" {TAB} "Else wshshell. SendKeys" {TAB} "Tapaus 4Jos col4 = true Sitten wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" Tapaus 5Jos col5 = true Sitten wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" Lopeta Selectwscript.sleep 5nextwscript. Echo 'Nämä flip-flops-sarakkeet näyttävät 20 prosenttia ajasta riippumatta toisistaan.maksimi = 0,20If rnd () <maksimi SittenIf col1 = true Sitten col1 = epätosi Else col1 = trueEnd IfIf rnd () <maksimi SittenIf col2 = true Sitten col2 = false Muu col2 = trueEnd IfIf rnd () <maksimi SittenIf col3 = true Sitten col3 = false Muu col3 = trueEnd IfIf rnd () <maksimi SittenIf col4 = true Sitten col4 = false Muu col4 = trueEnd IfIf rnd () <maksimi SittenIf col5 = true Sitten col5 = false Muu col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub '--------------------------- sub key (msg)' do print the "matrix" viestit ja poista themwscript.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. lepotila 75nextend sub '---------------------------' start "main" performance herewaitfor (title) For loopA = 1 to 4Valitse Case loopACase 1mystring = "herää, Neo…" Tapaus 2mystring = "Matriisi sisältää sinut …" Tapaus 3mystring = "Seuraa valkoista kania…" Tapaus 4mystring = "Knock knock…" Lopeta Valitse nyt ja tulosta oikea merkkijono (mystring) seuraavaksi _ _ _ _ _ _ _ _ _ _ wscript.quit () tallenna se C: / temp matrix.vbs -tiedostona luo bat -tiedostot@echo offcolor 0atitle the matrixset /p matrix = | cscript /nologo (Korvaa tämä polulla vbs -tiedostoon) exitset /p matrix = Nimeä RabbitHole.bat. Suorita se sitten! Tämä on siistiä, mutta edistynyttä tekemistä vbs: n kanssa Laitoin sen sisään, koska se on mahtavaa

Vaihe 5: Lopeta

Ole hyvä

Taivas on raja sille, mitä voit tehdä