Seronok Dengan VBS Mudah !!!: 5 Langkah

2024 Pengarang: John Day | [email protected]. Diubah suai terakhir: 2024-01-30 11:12

Panduan pemula untuk skrip asas visual yang menyeronokkan dan mudah dilakukan. VSB mungkin kelihatan sukar bagi sesetengah orang, tetapi sebenarnya ia sangat mudah. Windows bahkan boleh menjalankannya tanpa penyusun! Sekiranya anda mengetahui tulisan javascript, semestinya sangat mudah bagi anda.

Langkah 1: Kotak Mesej Asas

Baiklah, mari baca Asasnya. Pernahkah anda melihat kotak mesej seperti yang ada di bawah, kemungkinan anda ada. Ini digunakan untuk memberi amaran kepada pengguna tentang apa sahaja yang anda ingin katakan. Anda boleh membuat sendiri dengan menggunakan Function Msgbox Oleh itu, kod ke kotak mesej yang mengatakan hi akan kelihatan seperti ini, Msgbox ("hi") Sebagai alternatif anda boleh membuat yang tidak terlatih kotak mesej dengan membuat gelung sederhana dengan menggunakan perintah Do, Loop. Sekarang kita merangkumi kotak mesej, mari beralih ke kotak mesej yang lebih maju.

Langkah 2: Permainan dan Bahan

Sekiranya anda tertanya-tanya bagaimana membuat permainan teks daripada tidak kelihatan lagi. Saya mungkin salah, tetapi saya percaya bahawa mereka menggunakan vbs. Sekarang banyak skrip vb menggunakan penyusun, tetapi windows tidak memerlukannya. Cukup ketik cscript sebelum jalur fail, sekarang jika anda tahu bagaimana membuat fail bat, maka anda dapat mengotomatisasi proses ini, tetapi kami tidak akan dapat melakukannya dalam arahan ini. Berikut adalah permainan kecil yang saya buat. Tulis "Nice Day Is it not?" Answer = Wscript. StdIn. ReadLine 'jika anda menaip ya tIf answer = "yes" Kemudian Wscript.echo ("Saya harap ia tetap seperti ini")' Sekiranya anda menaip noElseIf jawapan = "tidak" ThenWscript.echo ("Saya harap ia menjadi lebih baik") 'apa-apa lagiElseWscript. Echo ("GoodDay to you")' endEnd Ifnow pada dasarnya menyimpan ini sebagai.vbs dan menggunakan kaedah sebelum menjalankannya.

Langkah 3: Typer Auto

Kod ini untuk menaip sesuatu berulang kali. Saya tidak tahu bagaimana ia berguna, tetapi jika anda menjalankannya, anda harus membunuhnya dalam kumpulan tugas shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" doshellobj.sendkeys "Y" wscript.sleep 200Shellobj.sendkeys "o" wscript.sleep 200loop

Langkah 4: Matirx Mempunyai Anda

Pernah terfikir bagaimana membuat pc bercakap dengan anda? Salin juga

pilihan eksplisit Pada Kesalahan Resume Selanjutnya 'nyatakan pemboleh ubahdim, tajuk, mystring, panjang, kedudukan, tmp, loopA, loopB, linesToWrite, columns, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5, maksimum, elementset wshshell = wscript.createobject ("wscript.shell") title="the matrix" wshshell. SendKeys "{ALT}" + "{ENTER}" 'dapatkan maklumat pengguna, digunakan untuk mendapatkan namaSet objSysInfo = CreateObject ("ADSystemInfo") Set objUser = GetObject ("LDAP: //" & objSysInfo. UserName) '--------------------------- sub waitfor (var)' set ke atas tetingkap, tetapkan tajuk, tunggu sehingga selesai = falseedo hingga tmpwscript.sleep 1000tmp = wshshell.appactivate (var) loopend sub '---------------------- ----- sub matriks (elemen) 'mencetak nombor rawak untuk menjadikan "matriks" kelihatan' menganggap elemen dibahagi dengan 5kol = 5col1 = truecol2 = true col3 = truecol4 = truecol5 = truerandomize () linesToWrite = elemen / lajur untuk loopA = 1 ke barisToWritefor loopB = 1 ke columnSelect Case loopBCase 1Jika col1 = true Kemudian w shshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" Case 2If col2 = true Maka wshshell. SendKeys Int (Round (rnd ())) & "{TAB} "Else wshshell. SendKeys" {TAB} "Case 3If col3 = true Then wshshell. SendKeys Int (Round (rnd ())) &" {TAB} "Else wshshell. SendKeys" {TAB} "Case 4If col4 = true Kemudian wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" Case 5If col5 = true Maka wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Lain-lain wshshell. SendKeys "{TAB}" End Selectwscript.sleep 5nextwscript. Echo 'Lajur flip-flop ini untuk memaparkan 20 peratus masa, secara bebas antara satu sama lain.maximum = 0.20Jika rnd () <maksimum ThenIf col1 = benar Kemudian col1 = false Else col1 = trueEnd IfIf rnd () <maksimum ThenIf col2 = true Kemudian col2 = false Else col2 = trueEnd IfIf rnd () <maksimum ThenIf col3 = true Kemudian col3 = false Else col3 = trueEnd IfIf rnd () <maksimum ThenIf col4 = true Maka col4 = false Else col4 = trueEnd IfIf rnd () <maksimum ThenIf col5 = true Kemudian col5 = false Else col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub '--------------------------- sub key (msg)' lakukan cetakan "matriks" mesej, dan hapus merekawscript.sleep 1500length = len (msg) untuk 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 "main" pelaksanaan di sini (tajuk) Untuk loopA = 1 hingga 4Pilih Case loopACase 1mystring = "bangun, Neo …" Kes 2mystring = "Matriks mempunyai kamu …" Kes 3mystring = "Ikut arnab putih …" Kes 4mystring = "Ketukan mengetuk …" Akhir Pilih 'sekarang mencetak stringkey (mystring) yang betul seterusnya' _ _ _ _ _ _ _ _ _ _ wscript.quit () simpan ke C: / temp as matrix.vbs the create the bat files @ echo offcolor 0atit the the matrixset / p matrix = | cscript / nologo (Ganti ini dengan jalan anda ke fail vbs) exitset / p matrix = Namakan bahawa RabbitHole.bat. Kemudian jalankan !! ini adalah perkara yang keren, tetapi maju dengan vbsSaya hanya memasukkannya kerana ia hebat

Langkah 5: Tamat

Itupun dia

Langit adalah had yang boleh anda lakukan