Asan VBS ilə Əylən !!!: 5 addım

2024 Müəllif: John Day | [email protected]. Son dəyişdirildi: 2024-01-30 07:48

Başlayanlar əyləncəli və əyani əsas skript etmək üçün asan bir bələdçi. VSB bəzilərinə çətin görünə bilər, amma əslində bu çox asandır. Windows hətta kompilyator olmadan da işlədə bilər! JavaScript bilirsinizsə, sizin üçün həqiqətən asan olmalıdır.

Addım 1: Əsas Mesaj qutuları

Aşağıdakı kimi bir mesaj qutusu görmüsünüzsə, ehtimal ki, əsaslara keçək. İstifadəçilərə demək istədikləriniz barədə xəbərdar etmək üçün istifadə olunur. Msgbox funksiyasından istifadə edərək özünüzü yarada bilərsiniz. Belə ki, salamın belə olacağını bildirən bir mesaj qutusunun kodu Msgbox ("salam") Do, Loop əmrlərindən istifadə edərək sadə bir döngə edərək mesaj qutusu. İndi mesaj qutularını əhatə etdiyimiz üçün daha inkişaf etmiş mesaj qutularına keçməyə imkan verir.

Addım 2: Oyunlar və əşyalar

Mətn oyunlarının necə ediləcəyini heç düşünmürsənsə, heç bir şeyə baxma. Səhv edə bilərəm, amma inanıram ki, vbs istifadə ediblər. İndi bir çox vb skriptləri bir kompilyatordan istifadə edir, lakin Windows -un buna ehtiyacı yoxdur. Sadəcə fayl yolundan əvvəl cscript yazın, indi yarasa fayllarını necə edəcəyinizi bilirsinizsə, bu prosesi avtomatlaşdıra bilərsiniz, amma bu təlimatda bu işə girməyəcəyik. Burada hazırladığım kiçik bir oyun var.. Yazın "Yaxşı gün deyilmi?" Answer = Wscript. StdIn. ReadLine 'yazsanız yes tIf answer = "yes" Sonra Wscript.echo ("Ümid edirəm bu şəkildə qalacaq")' noElseIf cavab yazsanız = "yox" ThenWscript.echo ("Ümid edirəm daha yaxşı olar") 'başqa bir şeyElseWscript. Echo ("GoodDay to you")' endEnd Ifnow əsasən bunu.vbs olaraq qeyd edin və çalıştırmadan əvvəl metoddan istifadə edin.

Addım 3: Avtomatik Typer

Bu kod bir şeyi təkrar -təkrar yazmaqdır. Bunun necə faydalı olduğunu bilmirəm, amma işə salırsınızsa, onu vəzifə siyahısında öldürməlisiniz shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" doshellobj.sendkeys "Y" wscript.yuxu 200Shellobj.sendkeys "o" wscript.yuxu 200loop

Addım 4: Matirx Sizdədir

Kompüterin sizinlə necə danışacağını heç düşünmüsünüzmü? Bunu kopyalayın

wsphell, title, mystring, length, mövqe, tmp, loopA, loopB, linesToWrite, sütunlar, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5, maksimum, = wscript.createobject ("wscript.shell") title="matrix" wshshell. SendKeys "{ALT}"+"{ENTER}" "isSet objSysInfo = CreateObject (" ADSystemInfo ") Setini əldə etmək üçün istifadəçi məlumatlarını əldə edin objUser = GetObject ("LDAP: //" & objSysInfo. UserName) '--------------------------- (var)' dəstəyi üçün alt gözləmə yuxarı pəncərə, başlığı təyin edin, tmpwscript.sleep 1000tmp = wshshell.appactivate (var) loopend sub '---------------------- tamamlanana qədər tamamlanmasını gözləyin. ----- alt matrisin (elementlərin) "matrisə" baxmaq üçün təsadüfi ədədlər yazması, elementlərin 5 sütunlara bölündüyünü güman edir = 5col1 = truecol2 = doğru col3 = truecol4 = truecol5 = truerandomize () xətləriToWrite = loopA üçün elementlər / sütunlar = 1 sətirlərəToWritefor loopB = 1 sütunlara Case loopBCase 1 seçin Əgər col1 = doğru O zaman w shshell. SendKeys Int (Round (rnd ())) & "{TAB}" Başqa wshshell. SendKeys "{TAB}" Vəziyyət 2If col2 = doğru Sonra wshshell. SendKeys Int (Round (rnd ())) & "{TAB} "Başqa wshshell. SendKeys" {TAB} "Vəziyyət 3If col3 = doğru Sonra wshshell. SendKeys Int (Round (rnd ())) &" {TAB} "Başqa wshshell. SendKeys" {TAB} "Vəziyyət 4If col4 = doğru Sonra wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Başqa wshshell. SendKeys "{TAB}" Case 5If col5 = true Sonra wshshell. SendKeys Int (Round (rnd ())) & "{TAB}}" Başqa wshshell. SendKeys "{TAB}" Selectwscript.sleep 5nextwscript. Echo 'Bu flip-floplar bir-birindən asılı olmayaraq zamanın 20 faizini göstərmək üçün.maximum = 0.20İfadəçi rnd () <maksimum SonraIf col1 = doğru Sonra col1 = false Başqa col1 = trueEnd IfIf rnd () <maksimum SonraIf col2 = doğru Sonra col2 = yalan Else col2 = trueEnd IfIf rnd () <maksimum SonraIf col3 = doğru Sonra col3 = yalançı El3 col3 = trueEnd IfIf rnd () <maksimum SonraIf col4 = doğru Sonra col4 = yalan Əlavə col4 = trueEnd IfIf rnd () <maksimum SonraIf col5 = doğru Sonra col5 = yalan Başqa col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub '--------------------------- alt düyməsi (msg)' "matris" in çapını edir mesajlar və silmək themwscript.sleep 1500length = len (msg) to position = 1 to lengthwshshell. SendKeys mid (msg, mövqe, 1) wscript.sleep 250nextwscript.sleep 3000for to the lengthwshshell. SendKeys to "{BACKSPACE}" wscript. sleep 75nextend sub '---------------------------' start "main" icrasını burada gözləyin (başlıq) Loop üçün A = 1-dən 4-ə qədər Case loop-unu seçin = "oyan, Neo…" Vəziyyət 2mystring = "Matris səndədir …" Case 3mystring = "Ağ dovşanı izlə…" Case 4mystring = "Knock knock…" End Select 'indi düzgün string key (mystring) yazdır' _ _ _ _ _ _ _ _ _ _ wscript.quit () matrix.vbs olaraq C: / temp olaraq qeyd edin, yarasa faylları yaradın@echo offcolor 0 matrixset /p matrix = | cscript /nologo (Bunu vbs faylına gedən yolla əvəz edin) exitset /p matrix = RabbitHole.bat adı. Sonra çalıştırın !! bu vbs ilə əlaqəli sərin, lakin inkişaf etmiş bir şeydir, sadəcə zəhmli olduğu üçün qoydum

Addım 5: Bitirin

Ora gedirsən

Göylər edə biləcəyinizin həddi