Bersenang-senang Dengan VBS Mudah!!!: 5 Langkah

2024 Pengarang: John Day | [email protected]. Terakhir diubah: 2024-01-30 09:58

Panduan pemula untuk skrip visual basic yang menyenangkan dan mudah dilakukan. VSB mungkin tampak sulit bagi sebagian orang, tetapi sebenarnya itu sangat mudah. Windows bahkan dapat menjalankannya tanpa compiler! Jika Anda tahu javascript, itu akan sangat mudah bagi Anda.

Langkah 1: Kotak Pesan Dasar

Ok jadi mari kita membahas Dasar-dasarnya. Pernahkah Anda melihat kotak pesan seperti di bawah ini, Anda mungkin pernah melihatnya. Ini digunakan untuk memperingatkan pengguna tentang apa pun yang ingin Anda katakan. Anda dapat membuat sendiri dengan menggunakan Fungsi Msgbox Jadi kode ke kotak pesan yang mengatakan hai akan terlihat seperti ini, Msgbox("hai") Atau Anda dapat membuat unkillable kotak pesan dengan membuat loop sederhana dengan menggunakan perintah Do, Loop. Sekarang setelah kita membahas kotak pesan, mari pindah ke kotak pesan yang lebih maju.

Langkah 2: Game dan Barang

Jika Anda pernah bertanya-tanya bagaimana membuat permainan teks daripada tidak perlu mencari lagi. Saya mungkin salah, tetapi saya yakin mereka menggunakan vbs. Sekarang banyak skrip vb menggunakan kompiler, tetapi windows tidak membutuhkannya. Cukup ketik cscript sebelum jalur file, sekarang jika Anda tahu cara membuat file bat, maka Anda dapat mengotomatiskan proses ini, tetapi kami tidak akan membahasnya dalam instruksi ini. Berikut ini adalah permainan kecil yang saya buat Option ExplicitDim Answer'ketik pertanyaanWscript. StdOut. Tulis "Hari yang Menyenangkan, kan? "answer = Wscript. StdIn. ReadLine 'jika Anda mengetik yes tIf answer="yes" Kemudian Wscript.echo ("Saya harap tetap seperti ini")'Jika Anda mengetik noElseIf answer= "no" ThenWscript.echo ("Saya harap ini menjadi lebih baik")'anything elseElseWscript. Echo ("GoodDay to you")'endEnd Ifnow pada dasarnya simpan ini sebagai.vbs dan gunakan metode sebelumnya untuk menjalankannya.

Langkah 3: Pengetik Otomatis

Kode ini untuk mengetik sesuatu berulang kali. Saya tidak tahu bagaimana ini berguna, tetapi jika Anda menjalankannya, Anda harus mematikannya di daftar tugas shellobj = CreateObject("WScript. Shell")shellobj.run "cmd"doshellobj.sendkeys "Y"wscript.sleep 200Shellobj.sendkeys "o "wscript.sleep 200loop

Langkah 4: Matirx Memiliki Anda

Pernah bertanya-tanya bagaimana membuat komputer Anda berbicara dengan Anda?

option eksplisitOn Error Resume Next' mendeklarasikan variabeldim wshshell, judul, mystring, panjang, posisi, tmp, loopA, loopB, linesToWrite, kolom, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5, maksimum, elementsset wshshell = wscript.createobject("wscript.shell")title = "the matrix"wshshell. SendKeys "{ALT}"+"{ENTER}"' mendapatkan info pengguna, digunakan untuk mendapatkan nameSet objSysInfo = CreateObject("ADSystemInfo")Set objUser = GetObject("LDAP://" & objSysInfo. UserName)' ---------------------------sub waitfor(var)' set up window, atur judul, tunggu sampai selesaitmp = falsedo sampai tmpwscript.sleep 1000tmp = wshshell.appactivate(var)loopend sub' ---------------------- -----sub matriks(elemen)' mencetak angka acak untuk membuat "matriks" terlihat' mengasumsikan elemen habis dibagi 5kolom = 5kol1 = truecol2 = true col3 = truecol4 = truecol5 = truerandomize()linesToWrite = elemen / kolomfor loopA = 1 ke barisToWritefor loopB = 1 ke kolomPilih Kasus loopBCase 1Jika col1 = true Kemudian w shshell. SendKeys Int(Round(rnd())) & "{TAB}" Lain wshshell. SendKeys "{TAB}"Kasus 2Jika col2 = true Kemudian wshshell. SendKeys Int(Round(rnd())) & "{TAB} " Lain wshshell. SendKeys "{TAB}"Kasus 3Jika col3 = true Kemudian wshshell. SendKeys Int(Round(rnd())) & "{TAB}" Lain wshshell. SendKeys "{TAB}"Kasus 4Jika col4 = true Kemudian wshshell. SendKeys Int(Round(rnd())) & "{TAB}" Lain wshshell. SendKeys "{TAB}"Kasus 5Jika col5 = true Kemudian wshshell. SendKeys Int(Round(rnd())) & "{TAB}" Else wshshell. SendKeys "{TAB}"End Selectwscript.sleep 5nextwscript. Echo' Kolom flip-flop ini menampilkan 20 persen waktu, secara independen satu sama lain.maximum = 0.20If rnd() < maximum ThenIf col1 = true Then col1 = false Else col1 = trueEnd IfIf rnd() < maksimum KemudianIf col2 = true Kemudian col2 = false Else col2 = trueEnd IfIf rnd() < maksimum KemudianJika col3 = true Kemudian col3 = false Lain col3 = trueEnd IfIf rnd() < maksimum KemudianJika col4 = true Kemudian col4 = false Lain col4 = trueEnd IfIf rnd() < maksimum KemudianJika col5 = true Kemudian col5 = false Lain-lain col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub' ---------------------------sub key(msg)' mencetak "matriks" pesan, dan hapus wscript.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' ---------------------------' mulai eksekusi "utama" di sinitunggu(judul)Untuk loopA = 1 Sampai 4Pilih Kasus loopACase 1mystring = "bangun, Neo…"Kasus 2mystring = "Matriks memilikimu…"Kasus 3mystring = "Ikuti kelinci putih…"Kasus 4mystring = "Knock knock…"End Select' sekarang cetak stringkey(mystring)selanjutnya yang benar' _ _ _ _ _ _ _ _ _ _ wscript.quit() simpan ke C:\temp as matrix.vbs the create the bat files@echo offcolor 0atitle the matrixset /p matrix= | cscript /nologo (Ganti ini dengan path Anda ke file vbs)exitset /p matrix= Beri nama RabbitHole.bat itu. Kemudian jalankan!! ini hal yang keren, tapi canggih untuk dilakukan dengan vbsSaya hanya memasukkannya karena itu luar biasa

Langkah 5: Akhir

Ini dia

Langit membatasi apa yang bisa kamu lakukan