Oson VBS bilan qiziqarli !!!: 5 qadam

2024 Muallif: John Day | [email protected]. Oxirgi o'zgartirilgan: 2024-01-30 13:29

Yangi boshlanuvchilar uchun qiziqarli va oson bajariladigan vizual asosiy skript. Ba'zilarga VSB qiyin tuyulishi mumkin, lekin aslida bu juda oson. Windows hatto kompilyatorsiz ham ishlashi mumkin! Agar siz javascriptni bilsangiz, bu siz uchun juda oson bo'lishi kerak.

1 -qadam: Asosiy xabarlar qutilari

Xo'sh, keling, asoslarni ko'rib chiqaylik. Agar siz hech qachon quyidagi xabar qutisini ko'rmagan bo'lsangiz, ehtimol sizda. Bu foydalanuvchilarga nima demoqchi bo'lsangiz, shuni ogohlantirish uchun ishlatiladi. Siz Msgbox funktsiyasini ishlatib, o'zingiz yaratishingiz mumkin. Shunday qilib, xabar qutisiga salom, shunday ko'rinadi, Msgbox ("salom") Do, Loop buyruqlari yordamida oddiy tsiklni yaratish orqali xabarlar qutisi. Endi biz xabar qutilarini yopdik, shuning uchun biz yanada rivojlangan xabarlar qutilariga o'tamiz.

2 -qadam: O'yinlar va narsalar

Agar siz matnli o'yinlarni qanday qilishni o'ylab ko'rsangiz, boshqa qaramang. Men xato qilishim mumkin, lekin ular vbs ishlatganiga ishonaman. Endi ko'plab vb skriptlari kompilyatordan foydalanadi, lekin derazalarga kerak emas. Fayl yo'lining oldiga faqat cscript -ni kiriting, agar siz bat fayllarini qanday yaratishni bilsangiz, bu jarayonni avtomatlashtirishingiz mumkin, lekin biz bu ko'rsatmaga kirmaymiz, mana bu o'yin. "Yaxshi kun shunday emasmi?" Deb javob yozing = Wscript. StdIn. ReadLine ', agar ha deb yozsangiz tIf answer = "ha" Keyin Wscript.echo ("Umid qilamanki, shunday qoladi")' Agar noElseIf javob = yozsangiz "yo'q" ThenWscript.echo ("Umid qilamanki, u yaxshilanadi") 'elseElseWscript. Echo ("GoodDay to you")' endEnd Ifnow, asosan,.vbs sifatida saqlang va uni ishlatishdan oldin usuldan foydalaning.

3 -qadam: Avtotashuvchi

Bu kod bir narsani qayta -qayta yozish uchun. Bu qanday foydali ekanligini bilmayman, lekin agar siz uni ishlatsangiz, uni vazifalar ro'yxatida o'chirishingiz kerak bo'ladi shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" doshellobj.sendkeys "Y" wscript.sleep 200Shellobj.sendkeys "o" wscript.sleep 200loop

4 -qadam: Matirx sizda

Siz bilan qanday qilib kompyuterda gaplashishni o'ylab ko'rganmisiz?

"Hato Resume Next" xatosi "o'zgaruvchini e'lon qiladi wshshell, sarlavha, satr, uzunlik, pozitsiya, tmp, loopA, loopB, chiziqlarToWrite, ustunlar, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5, maksimal, elementlar wshshell. = wscript.createobject ("wscript.shell") title="wshshell. SendKeys" ALT} "+" {ENTER} "matritsasi" Set "objSysInfo = CreateObject (" ADSystemInfo ") nomini olish uchun ishlatiladigan foydalanuvchi ma'lumotlarini oladi. objUser = GetObject ("LDAP: //" & objSysInfo. UserName) '--------------------------- kutish uchun pastki var (var)' yuqoridagi oyna, sarlavhani o'rnating va tmpwscript.sleep 1000tmp = wshshell.appactivate (var) loopend sub '---------------------- tugaguncha uning tamom bo'lishini kuting. ----- matritsa (elementlar) ning tasodifiy sonlarini "matritsa" ko'rinishiga keltirish uchun elementlar 5 ustunlarga bo'linadi, deb taxmin qiladi = 5col1 = truecol2 = haqiqiy col3 = truecol4 = truecol5 = truerandomize () chiziqlarToWrite = looplar uchun elementlar / ustunlar = 1 satrlargaToWritefor loopB = 1 ustunlar uchun Case loopBCase 1 ni tanlang agar col1 = rost bo'lsa w shshell. SendKeys Int (Round (rnd ())) & "{TAB}" Boshqa wshshell. SendKeys "{TAB}" 2 -holatAgar col2 = rost bo'lsa wshshell. SendKeys Int (Round (rnd ())) & "{TAB}} "Boshqa wshshell. SendKeys" {TAB} "3 -holatAgar col3 = rost bo'lsa wshshell. SendKeys Int (Round (rnd ()))) va" {TAB} "Boshqa wshshell. SendKeys" {TAB} "Case 4If col4 = true Keyin wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Boshqa wshshell. SendKeys "{TAB}" Case 5If col5 = true Keyin wshshell. SendKeys Int (Round (rnd ()))) va "{TAB}}" Boshqa wshshell. SendKeys "{TAB}" ni tanlang Selectwscript.sleep 5nextwscript. Echo 'Bu ustunlar vaqtning 20 foizini bir-biridan mustaqil ravishda ko'rsatadi.maximum = 0.20If rnd () <maksimal ThenIf col1 = rost Keyin col1 = false Else col1 = trueEnd IfIf rnd () <maximum ThenIf col2 = true then col2 = false Else col2 = trueEnd IfIf rnd () <maximum ThenIf col3 = true then col3 = false Else col3 = trueEnd IfIf rnd () <maximum ThenIf col4 = rost Keyin col4 = yolg'on Boshqa col4 = trueEnd IfIf rnd () <maksimal ThenIf col5 = rost Keyin col5 = noto'g'ri Boshqa col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub '--------------------------- pastki kaliti (msg)' "matritsa" ni chop etishni amalga oshiradi xabarlar va ularni o'chiring 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. sleep 75nextend sub '--------------------------- "start" asosiy "bajarilishini shu erda kuting (sarlavha) Loop uchun A = 1dan 4gacha Case loopACase 1mystring ni tanlang = "uyg'on, Neo …" 2 -holat: "Matritsa sizda …" 3 -holat: "Oq quyonni kuzatib boring …" 4 -holat: "Taqillat …" ni tanlang, so'ng "to'g'ri" tugmachasini (mystring) bosib chiqaring _ _ _ _ _ _ _ _ _ _ wscript.quit () uni C: / temp ga saqlang, matrix.vbs sifatida bat fayllarini yarating@echo offcolor 0 matrisset /p matrix = cscript /nologo (Buni vbs faylga yo'l bilan almashtiring) exitset /p matrix = RabbitHole.bat nomi. Keyin ishga tushiring!

5 -qadam: tugatish

Mana, borasiz

Osmon siz qila oladigan narsalarning chegarasi