Windows'ta .vbs ile şaka yapma

benmuhammed

Hectopat
Katılım
25 Aralık 2020
Mesajlar
1.532
Makaleler
3
Çözümler
8
Yer
İstanbul - Turkey
Selamlar! size bugün .vbs ile nasıl şaka yapcağınızı anlatacağım .

Herhangi bir txt açıyoruz. Daha sonra aşağıda verdiğim kodu yazıyorsunuz.

[CODE title="Kod" highlight="3"]do
Msgbox "Mesajınız", vbCritical, "Başlık"
loop[/CODE]

Daha sonra CTRL+Shift+s kombinasyonu ile dosyayı kaydediyoruz. Fakat kayıt ederken dosyamızın sonuna .vbs yazıyoruz.



Ve dosyamız masaüstüne geldi .



Açıyoruz.



Ve evet. Bende yazılar bozuk çıkmış. Siz "virüs bulaştı" gibi şeyler yazabilirsiniz . Bu şey ne kadar tıklarsanız tıklayın gitmeyecektir. Gitmesi için görev yöneticisini açıp aşağıdaki uygulumanın görevini sonlandırıyoruz. Sonunda şaka aletimiz hazır! İyi eğlenceler .
 

Dosya Ekleri

  • 1618492524167.png
    32,8 KB · Görüntüleme: 294
Son düzenleme:
YFK dedi:
Eki Görüntüle 976101

Bozuk yapmışsın.
Genişletmek için tıkla...
Bozuk değil aslında. Yukarıda bozuk şekilde "akıl sağlını kaybet" yazıyor. Alt kısımda "Ḿ̶̚ẽ̴̾n̶̑̉t̴̔͝a̶͗̎l̸̛̐ ̶̃̓Ç̶̀͘ȫ̴̈k̴͊̇ü̸̒͘n̷̅̒t̷̑̊ü̴̃͂ ̵̈́̄" yazıyor ve bunu Windows okuyamıyor ortaya böyle şeyler çıkıyor.
 

Hocam bunun sürekli CD açıp kapatanıda vardı diye hatırlıyorum
 
Bu olması lazım.

Kod: 
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >=1 then
do
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If
 
Konuyu cevapla
Menü
Giriş yap
Kaydol
Bu siteyi kullanmak için çerezler gereklidir. Siteyi kullanmaya devam etmek için çerezleri kabul etmelisiniz. Daha Fazlasını Öğren.…