VB.NET 'te şaka exe yapma

[aLayıNaiSyaN]

vb.net ile şaka bir virüs program yapayı düşünen arkadaşlar baksın...basit ve kolay bir exe ile c# ve vb.net ile program yapmanın bi o kadar zor oldugu kadarda zevkli oldugunu göreceksiniz...



yapmamız gerekenler

bir adet ProgressBar , bir adet Timer ve bir adete te label ekleyelim..

şimdi de kodlamaya geçelim




---LABEL İÇİNE---




PrivateSub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
Label1.Text = "bilgisayarınız 10 sn.sonra kaydedilen bütün bilgileri silecektir"
EndSub

---TİMER1 İÇİNE ----

PrivateSub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If ProgressBar1.Value > 20 Then
ProgressBar1.Value = ProgressBar1.Value - 10
Else
Timer1.Enabled = False
MsgBox("Bilgisayarınız çöktü!!!", MsgBoxStyle.OkOnly, "Mahmut Karataş ")
( İSTEDİGİNİZ SAYIDA MESAJ YAZDIRANBİLİRSİNİZ )
ProgressBar1.Value = 100
EndIf
EndSub


---FORM1 İÇİNE----
PrivateSub Form1_Closing(ByVal sender AsObject, ByVal e As System.ComponentModel.CancelEventArgs) HandlesMyBase.Closing
MsgBox("Bu programı sonlandıramazsınız!!", MsgBoxStyle.OkOnly, "Mahmut Karataş")
( istediginiz sayıda mesaj yazdırdabilirsiniz )
EndSub

----tekrardan form1 içine ----

PrivateSub Form1_Closed(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMyBase.Closed
MsgBox("UMARIM BEGENMİŞ SİNİZDİR!!", MsgBoxStyle.OkOnly, "hoSSohBet.Com")
( mesaj sayısını istediginiz kadar yapabilirsiniz..)
end sub


umarım faydalı olur....