Jautri ar vienkāršu VBS !!!: 5 soļi

2024 Autors: John Day | [email protected]. Pēdējoreiz modificēts: 2024-01-30 10:58

Iesācēju ceļvedis jautrībai un viegli izpildāms vizuālais pamata skripts. VSB dažiem var šķist grūti, bet patiesībā tas ir patiešām vienkārši. Windows pat var to palaist bez kompilatora! Ja jūs zināt javascript, tam vajadzētu būt ļoti vienkāršam.

1. darbība: pamata ziņojumu kastes

Labi, ļaujiet apskatīt pamatus. Vai esat kādreiz redzējis ziņojumu lodziņu, piemēram, zemāk redzamo, jums, iespējams, ir. Tos izmanto, lai brīdinātu lietotājus par visu, ko vēlaties pateikt. Jūs varat izveidot savu, izmantojot funkciju Msgbox. Tātad ziņojuma lodziņa kods, kas saka hi, izskatītos šādi, Msgbox ("čau") ziņojumu lodziņu, izveidojot vienkāršu cilpu, izmantojot komandas Do, Loop. Tagad, kad mēs apskatījām ziņojumu lodziņus, ļauj pāriet uz sarežģītākām ziņojumu kastēm.

2. darbība. Spēles un sīkumi

Ja jūs kādreiz domājat, kā izveidot teksta spēles, nemeklējiet tālāk. Es varētu kļūdīties, bet uzskatu, ka viņi izmantoja vbs. Tagad daudzi vb skripti izmanto kompilatoru, bet logiem tas nav vajadzīgs. Vienkārši ierakstiet cscript pirms faila ceļa, tagad, ja jūs zināt, kā izveidot bat failus, tad jūs varat automatizēt šo procesu, taču mēs šajā instrukcijā to neiedziļināsimies. Šeit ir neliela spēle, ko es veicu Opcija ExplicitDim Answer. Ierakstiet "Jauka diena, vai ne?" "nē" ThenWscript.echo ("Es ceru, ka tas kļūs labāks") 'jebkas citsElseWscript. Echo ("GoodDay to you")' endEnd Ifnow būtībā saglabājiet to kā.vbs un izmantojiet šo metodi, lai to palaistu.

3. darbība: automātiskais rakstītājs

Tas kodē to, lai kaut ko ierakstītu atkal un atkal. Es nezinu, kā tas ir noderīgi, bet, ja jūs to palaižat, jums tas būs jānogalina uzdevumu sarakstā setob shellbj = CreateObject ("WScript. Shell") shellobj.run "cmd" doshellobj.sendkeys "Y" wscript.sleep 200Shellobj.sendkeys "o" wscript.sleep 200loop

4. solis: jūs esat Matirx

Vai esat kādreiz domājuši, kā likt jums sarunāties ar datoru? Nokopējiet šo

opcija explicitOn Kļūda Atsākt nākamo 'deklarēt mainīgos dim 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="matrica" wshshell. SendKeys "{ALT}"+"{ENTER}" 'iegūt lietotāja informāciju, ko izmanto, lai iegūtu nosaukumuSet objSysInfo = CreateObject ("ADSystemInfo") kopa objUser = GetObject ("LDAP: //" & objSysInfo. UserName) '--------------------------- sub waitfor (var)' set augšup logā, iestatiet nosaukumu, pagaidiet, līdz tas pabeigsmpmp = falsedo, līdz tmpwscript.sleep 1000tmp = wshshell.appactivate (var) loopend sub '---------------------- ----- apakšmatricas (elementu) 'drukāt nejaušus skaitļus, lai padarītu "matricas" izskatu ", pieņem, ka elementi dalās ar 5 kolonnām = 5col1 = truecol2 = true col3 = truecol4 = truecol5 = truerandomize () linesToWrite = elements / columnfor loopA = 1 līdz rindām Lai rakstītu cilpai B = 1 kolonnām Atlasiet Lietiņas cilpaBase 1 Ja kolonna1 = patiesa Tad w shshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" 2. gadījumsJa kolonna = true Tad wshshell. SendKeys Int (Round (rnd ())) & "{TAB} "Else wshshell. SendKeys" {TAB} "3. gadījumsJa col3 = true Tad wshshell. SendKeys Int (Round (rnd ())) &" {TAB} "Else wshshell. SendKeys" {TAB} "4. gadījumsJa kolonna = true Tad wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" 5. gadījumsJa kolonna = true Tad wshshell. SendKeys Int (Round (rnd ()))) un "{TAB}" Else wshshell. SendKeys "{TAB}" Beigt Selectwscript.sleep 5nextwscript. Echo 'Šīs flip-flops kolonnas tiek rādītas 20 procentus laika neatkarīgi no cita. Maksimums = 0.20Ja rnd () <maksimālais Tad = false Else col1 = trueEnd IfIf rnd () <maksimālais tadIf col2 = true Tad col2 = false Else col2 = trueEnd IfIf rnd () <maksimālais thenIf col3 = true Tad col3 = nepatiess Cits col3 = trueEnd IfIf rnd () <maksimālais TadIf kol. = true Tad col4 = false Else col4 = trueEnd IfIf rnd () <maksimums ThenIf col5 = true Tad col5 = false Else col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub '--------------------------- sub key (msg)' do izdrukas no "matricas" ziņojumus un izdzēsiet 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. gulēt 75nepagarināt apakšpunktu '---------------------------' sākt "galveno" izpildi šeit = "mosties, Neo …" Lieta 2mystring = "Matricā ir tevi …" Lieta 3mystring = "Sekojiet baltajam trusim …" Lieta 4mystring = "Klauvēt …" Beigas Atlasiet "tagad izdrukājiet pareizo virknes atslēgu (mirgojošo virkni)" _ _ _ _ _ _ _ _ _ _ wscript.quit () saglabājiet to mapē C: / temp kā matrix.vbs, lai izveidotu bat failus@echo offcolor 0atitle matrixset /p matrix = | cscript /nologo (Aizstājiet to ar savu ceļu uz vbs failu) exitset /p matrix = Nosauciet RabbitHole.bat. Tad palaidiet to! Šī ir forša, bet progresīva lieta, kas saistīta ar vbs. Es to vienkārši ievietoju, jo tas ir lieliski

5. darbība: beigas

Lūdzu

Debesis ierobežo to, ko jūs varat darīt