Windows'ta .vbs ile şaka yapma

benmuhammed

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 :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: 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.
 
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
 
Uyarı! Bu konu 5 yıl önce açıldı.
Muhtemelen daha fazla tartışma gerekli değildir ki bu durumda yeni bir konu başlatmayı öneririz. Eğer yine de cevabınızın gerekli olduğunu düşünüyorsanız buna rağmen cevap verebilirsiniz.

Benzer konular

7
Teknolojik bir şaka yapın
2
Mesaj
11
Görüntüleme
584
Nokya
Nokya
Bay Oyuncu
En komik şaka hangisi?
2 3 4
Mesaj
38
Görüntüleme
2.090
dyingme
dyingme
Grandfather
Şaka yapın
2 3 4
Mesaj
37
Görüntüleme
2.850
485936
4
Connor The Android
Marka İsimlerinden Şaka Üretin
2 3 4
Mesaj
31
Görüntüleme
2.411
Nokya
Nokya
tisortea7
Yapabildiğiniz en iyi şaka
2
Mesaj
15
Görüntüleme
2.286
389072
3

Technopat Haberler

Yeni konular

Yeni mesajlar

Geri
Yukarı