Funվարճացեք հեշտ VBS- ով: 5 քայլ

2024 Հեղինակ: John Day | [email protected]. Վերջին փոփոխված: 2024-01-30 09:52

Սկսնակների ուղեցույց դեպի զվարճալի և հեշտ կատարվող տեսողական հիմնական սցենար: VSB- ն ոմանց կարող է դժվար թվալ, բայց իրականում դա իսկապես հեշտ է: Windows- ը նույնիսկ կարող է այն գործարկել առանց կազմողի: Եթե դուք գիտեք javascript- ը, ապա դա ձեզ համար իսկապես հեշտ պետք է լինի:

Քայլ 1: Հիմնական հաղորդագրությունների տուփեր

Դե ինչ, եկեք անցնենք Հիմնականը: Երբևէ տեսե՞լ եք հաղորդագրության տուփ, ինչպես ստորևը, հավանաբար ունեք: Դրանք օգտագործվում են օգտագործողներին նախազգուշացնելու այն ամենի համար, ինչ ուզում եք ասել: Դուք կարող եք ստեղծել ձեր սեփականը ՝ օգտագործելով գործառույթը Msgbox: Այսպիսով, հաղորդագրությունների տուփի ծածկագիրը, որում ասվում է, որ ողջույնը այսպիսին կլինի, Msgbox («բարև») Այլապես կարող եք անհաղթահարելի դարձնել հաղորդագրությունների տուփ ՝ կազմելով մի պարզ օղակ ՝ օգտագործելով Do, Loop հրամանները: Այժմ, երբ մենք լուսաբանել ենք հաղորդագրությունների տուփերը, թույլ ենք տալիս անցնել ավելի առաջադեմ հաղորդագրությունների տուփերի:

Քայլ 2: Խաղեր և իրեր

Եթե երբևէ մտածում եք, թե ինչպես պատրաստել տեքստային խաղեր, ապա այլևս մի նայեք: Ես կարող եմ սխալվել, բայց ես հավատում եմ, որ նրանք օգտագործել են vbs: Այժմ շատ vb սցենարներ օգտագործում են կոմպիլյատոր, բայց windows- ը դրա կարիքը չունի: Պարզապես մուտքագրեք cscript ֆայլի ուղուց առաջ, այժմ, եթե դուք գիտեք, թե ինչպես պատրաստել չղջիկ ֆայլեր, ապա կարող եք ավտոմատացնել այս գործընթացը, բայց մենք չենք սովորի դրան սովորել: Ահա մի փոքրիկ խաղ, որը ես պատրաստել եմ:. Գրի՛ր «Հաճելի օր է, այդպես չէ՞» պատասխան = Wscript. StdIn. ReadLine 'եթե այո մուտքագրեք tIf պատասխան = "այո" Ապա Wscript.echo ("Հուսով եմ այդպես էլ մնաց") "Եթե մուտքագրեք noElseIf պատասխան = «ոչ» ThenWscript.echo («Հուսով եմ, որ ավելի լավ կլինի») 'այլ բան

Քայլ 3: Ավտոմատ տպիչ

Այս ծածկագիրը թույլ է տալիս անընդհատ ինչ -որ բան մուտքագրել: Չգիտեմ, թե որքանով է այն օգտակար, բայց եթե այն գործարկեք, ապա ստիպված կլինեք այն սպանել առաջադրանքների ցանկում shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" doshellobj.sendkeys "Y" wscript. քնիր 200Shellobj.sendkeys "o" wscript.sleep 200loop

Քայլ 4: The Matirx Have You

Երբևէ մտածե՞լ եք, թե ինչպես ստիպել ձեր համակարգչին խոսել ձեզ հետ: լավ պատճենեք սա

տարբերակ expplicOn Error Resume Next 'հայտարարեք variables dim wshshell, վերնագիր, mystring, երկարություն, դիրք, tmp, loopA, loopB, linesToWrite, սյուներ, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5sh առավելագույն, elementsset = wscript.createobject ("wscript.shell") title="the matrix" wshshell. SendKeys "{ALT}"+"{ENTER}" 'ստանալ օգտվողի տվյալները, որոնք օգտագործվում են nameSet objSysInfo = CreateObject ("ADSystemInfo") հավաքածուի համար objUser = GetObject ("LDAP: //" & objSysInfo. UserName) '--------------------------- sub waitfor (var)' հավաքածու վերևի պատուհան, սահմանեք վերնագիր, սպասեք, որ այն ավարտվի ----- ենթամատրիցը (տարրեր) «պատահական թվեր տպել ՝« մատրիցան »տեսք տալու համար» ենթադրում է, որ տարրերը բաժանվում են 5 սյունակների = 5 գույնի 1 = truecol2 = ճշմարիտ col3 = truecol4 = truecol5 = truerandomize () տողերի Գրելու = տարրեր / սյուներ loopA = 1 դեպի տողերToWritefor loopB = 1 դեպի սյուներ Ընտրեք Case loopBCase 1 Եթե col1 = true Ապա w shshell. SendKeys Int (Round (rnd ())) & "{TAB}" Other wshshell. SendKeys "{TAB}" Case 2If col2 = true Հետո wshshell. SendKeys Int (Round (rnd ())) & "{TAB} "Այլ wshshell. SendKeys" {TAB} "Case 3 Եթե col3 = true ապա wshshell. SendKeys Int (Round (rnd ())) &" {TAB} "Else wshshell. SendKeys" {TAB} "Case 4If col4 = true Ապա wshshell. SendKeys Int (Կլոր (rnd ())) & "{TAB}" Այլ wshshell. SendKeys "{TAB}" Case 5If col5 = true Ապա wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Այլապես wshshell. SendKeys "{TAB}" Ավարտել Selectwscript.sleep 5nextwscript. Echo 'Այս մատնահետքերը սյուները ցույց են տալիս ժամանակի 20 տոկոսը ՝ միմյանցից անկախ: maximum = 0.20 Եթե rnd () <առավելագույնը Եթե col1 = true Ապա col1 = false Այլ col1 = trueEnd IfIf rnd () <առավելագույն thenIf col2 = true Ապա col2 = false Else col2 = trueEnd IfIf rnd () <առավելագույն thenIf col3 = true Այնուհետև col3 = false Այլ col3 = trueEnd IfIf rnd () <առավելագույնը thenIf col4 = true Հետո col4 = false Այլ col4 = trueEnd IfIf rnd () <max thenIf col5 = true Այնուհետեւ col5 = false Else col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub '------------------------------- sub key (msg)' do printouts of "the matrix" հաղորդագրություններ և ջնջել 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. քնել 75 երկարացնել ենթակետը ------------------------------- 'սկսել «հիմնական» կատարումը այստեղ (վերնագիր) Օղակի համար = "արթնացիր, Նեո …" Case 2mystring = "The matrix has you …" Case 3mystring = "Follow the white rabbit …" Case 4mystring = "Knock knock …" End Select 'now print out the right stringkey (mystring) next' _ _ _ _ _ _ _ _ _ _ wscript.quit () պահեք այն C: / temp- ում որպես matrix.vbs, ստեղծեք bat ֆայլերը@echo offcolor 0atitle the matrixset /p matrix = | cscript /nologo (Փոխարինեք սա vbs ֆայլի ձեր ճանապարհով) exitset /p matrix = Անվանեք այն RabbitHole.bat. Հետո գործարկեք !! սա թույն, բայց առաջադեմ բան է vbs- ի հետ: Ես պարզապես դրեցի այն, քանի որ այն հիանալի է

Քայլ 5: Վերջ

Այդպես էլ գնացեք

Երկինքը սահմանափակում է այն, ինչ կարող եք անել