Windows'ta .vbs ile şaka yapma

benmuhammed

benmuhammed

Hectopat
Katılım
25 Aralık 2020
Mesajlar
1.464
Makaleler
3
Çözümler
8
Yer
İstanbul - Turkey
Daha fazla  
Sistem Özellikleri
RAM: DDR3 12 GB
Ekran kartı: Intel(R) HD Graphics 4600 I NVIDIA GeForce GT 750M
Anakart: Bilmiyorum. (ASUS N550JV Laptop kullanmaktayım.)
İşlemci: Intel(R) Core(TM) İ7-4700HQ @2.40GHz
Cinsiyet
Erkek
Meslek
Öğrenci
Selamlar! size bugün .vbs ile nasıl şaka yapcağınızı anlatacağım :D.

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.

1618492240163.png

Ve dosyamız masaüstüne geldi :D.

1618492298345.png


Açıyoruz.

1618492348417.png


Ve evet. Bende yazılar bozuk çıkmış. Siz "virüs bulaştı" gibi şeyler yazabilirsiniz :D. 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 :D.
 

Dosya Ekleri

  • 1618492524167.png
    1618492524167.png
    32,8 KB · Görüntüleme: 201
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.
 
benmuhammed dedi:
selamlar! size bugün .vbs ile nasıl şaka yapcağınızı anlatacağım :D.

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.

Eki Görüntüle 975733

ve dosyamız masaüstüne geldi :D.

Eki Görüntüle 975735

açıyoruz.

Eki Görüntüle 975737

Ve evet. Bende yazılar bozuk çıkmış. Siz "virüs bulaştı" gibi şeyler yazabilirsiniz :D. 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 :D.
Genişletmek için tıkla...

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
 

Benzer konular

NoobSoldier26
Teknolojik bir şaka yapın
2
Mesaj
10
Görüntüleme
290
Rustin Cohle
Rustin Cohle
Bay Oyuncu
En komik şaka hangisi?
2 3 4
Mesaj
38
Görüntüleme
1B
dyingme
dyingme
Grandfather
Şaka yapın
2 3 4
Mesaj
37
Görüntüleme
1B
Kargaşa
Kargaşa
Connor The Android
Marka İsimlerinden Şaka Üretin
2 3 4
Mesaj
30
Görüntüleme
2B
Melih02
M
mertisincoming
Yapabildiğiniz en iyi şaka
2
Mesaj
15
Görüntüleme
2B
Tibet Ulubey
Tibet Ulubey

Yeni konular

Yeni mesajlar

Geri
Yukarı