Easy VBS ile Eğlence!!!: 5 Adım

2024 Yazar: John Day | [email protected]. Son düzenleme: 2024-01-30 13:21

Yeni Başlayanlar için eğlenceli ve yapması kolay görsel temel komut dosyası kılavuzu. VSB bazılarına zor görünebilir, ancak aslında gerçekten kolaydır. Windows, bir derleyici olmadan bile çalıştırabilir! Javascript biliyorsanız, sizin için gerçekten kolay olmalı.

Adım 1: Temel Mesaj Kutuları

Tamam, o zaman Temelleri gözden geçirelim. Aşağıdaki gibi bir mesaj kutusu gördünüz mü, muhtemelen görmüşsünüzdür. Bunlar, kullanıcıları söylemek istediğiniz her şey hakkında uyarmak için kullanılır. Function Msgbox'ı kullanarak kendinizinkini oluşturabilirsiniz. Merhaba diyen bir mesaj kutusunun kodu şöyle görünecektir, Msgbox("hi")Alternatif olarak bir unkillable yapabilirsiniz. mesaj kutusu Do, Döngü komutlarını kullanarak basit bir döngü yaparak. Mesaj kutularını ele aldığımıza göre artık daha gelişmiş mesaj kutularına geçelim.

2. Adım: Oyunlar ve Malzemeler

Metin oyunlarının nasıl yapıldığını merak ediyorsanız, başka yere bakmanıza gerek yok. Yanılıyor olabilirim, ama vbs kullandıklarına inanıyorum. Şimdi pek çok vb betiği bir derleyici kullanıyor, ancak Windows'un bir derleyiciye ihtiyacı yok. Dosya yolundan önce cscript yazmanız yeterlidir, şimdi bat dosyalarının nasıl oluşturulacağını biliyorsanız, bu işlemi otomatikleştirebilirsiniz, ancak bu talimatta buna girmeyeceğiz.."Güzel Gün Değil mi? "cevap = Wscript. StdIn. ReadLine 'evet yazarsanız tIf answer="evet" O zaman Wscript.echo ("Umarım böyle kalır")' yazın. noElseIf yazarsanız cevap= "hayır" ThenWscript.echo ("Umarım daha iyi olur")' başka bir şey ElseWscript. Echo ("Size İyi Günler")'endEnd Ifnow temelde bunu.vbs olarak kaydedin ve çalıştırmadan önce yöntemi kullanın.

3. Adım: Otomatik Typer

Bu kod, tekrar tekrar bir şeyler yazmak için. Nasıl yararlı olduğunu bilmiyorum, ancak çalıştırırsanız, onu görev listesinde öldürmeniz gerekecek shellobj = CreateObject("WScript. Shell")shellobj.run "cmd"doshellobj.sendkeys "Y"wscript.sleep 200Shellobj.sendkeys "o"wscript.sleep 200loop

Adım 4: Matirx Size Sahiptir

Bilgisayarın seninle nasıl konuşmasını sağlayacağını hiç merak ettin mi? Bunu kopyala

seçeneği açık Hata Devam Et' değişkenleri bildir değişkenlerdim wshshell, title, mystring, length, position, tmp, loopA, loopB, lineToWrite, column, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5, maksimum, elementsset wshshell = wscript.createobject("wscript.shell")title = "matriks"wshshell. SendKeys "{ALT}"+"{ENTER}"' kullanıcı bilgilerini al, nameSet objSysInfo = CreateObject("ADSystemInfo")Set objUser = GetObject("LDAP://" & objSysInfo. UserName)' ---------------------------sub waitfor(var)' seti yukarı pencere, başlığı ayarlayın, tamamlanmasını bekleyintmp = falsedo tmpwscript.sleep 1000tmp = wshshell.appactivate(var)loopend sub' ---------------------- -----sub matrix(elements)' "matris" görünmesi için rasgele sayılar yazdırın' öğelerin 5 sütunla bölünebildiğini varsayar = 5col1 = truecol2 = true col3 = truecol4 = truecol5 = truerandomize()linesToWrite = elementler / sütunlar için döngüA = 1'den lineToWritefor loopB = 1'den sütunlara Case loopBCase 1If col1 = true O zaman w shshell. SendKeys Int(Round(rnd())) & "{TAB}" Else wshshell. SendKeys "{TAB}"Case 2If col2 = true Then 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 Sonra wshshell. SendKeys Int(Round(rnd())) & "{TAB}" Diğer wshshell. SendKeys "{TAB}"Case 5If col5 = true Then wshshell. SendKeys Int(Round(rnd())) & "{TAB}" Else wshshell. SendKeys "{TAB}"End Selectwscript.sleep 5nextwscript. Echo' Bu flip-flop sütunları, birbirinden bağımsız olarak zamanın yüzde 20'sini görüntülemek için sütunlar.maximum = 0.20If rnd() < maksimum ThenIf col1 = true Then col1 = false Else col1 = trueEnd IfIf rnd() < maksimum ThenIf col2 = true Then col2 = false Else col2 = trueEnd IfIf rnd() < maksimum ThenIf col3 = true Then col3 = false Else col3 = trueEnd IfIf rnd() < maksimum ThenIf col4 = true Sonra col4 = false Else col4 = trueEnd IfIf rnd() < maksimum ThenIf col5 = true Sonra col5 = false Aksi col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub' ---------------------------sub key(msg)' "matris" çıktılarını alır iletileri silin ve bunlarıwscript.sleep 1500length = len(msg)for position = 1 to lengthwshshell. SendKeys mid(msg, position, 1)wscript.sleep 250nextwscript.sleep 3000forposition = 1 to lengthwshshell. SendKeys "{BACKSPACE}"wscript. sleep 75nextend sub' ---------------------------' "ana" yürütmeyi başlat buradabekle(başlık)For loopA = 1 To 4Select Case loopACase 1mystring = "wake up, Neo…"Case 2mystring = "Matris size sahip…"Case 3mystring = "Beyaz tavşanı takip edin…"Case 4mystring = "Knock vur…"End Select' şimdi doğru stringkey(mystring)next' yazdırın _ _ _ _ _ _ _ _ _ _ wscript.quit()bunu matrix.vbs olarak C:\temp dosyasına kaydedin, bat dosyalarını oluşturun@echo offcolor 0atitle the matrixset /p matrix= | cscript /nologo (Bunu vbs dosyasına giden yol ile değiştirin)exitset /p matrix= RabbitHole.bat adını verin. O zaman çalıştırın!!Bu harika, ama vbs ile yapılacak gelişmiş bir şey, sadece harika olduğu için koydum

Adım 5: Bitir

işte gidiyorsun

Yapabileceklerinizin sınırı gökyüzü