Stealth

[Dayo312]

Some nice person gave me some non-working stealth code yesterday.. and I dont understand how it works so I need a working way to make a program non listed in Alt+Ctrl+Delete Menu.

Help please?

Thankyou!

[Bart]

Put this code in a module:

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

Public Sub HideProgram(Hide As Boolean)
Dim pid As Long
Dim reserv As Long
pid = GetCurrentProcessId()
If Hide Then
regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
Else
regserv = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE)
End If
End Sub

[Bob Baddeley]

taken straight from the form of my gag program:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long

Private Sub Form_Unload(Cancel As Integer)
Call RegisterServiceProcess(0&, 0&)
End Sub

Private Sub Form_Load()
Call RegisterServiceProcess(0&, 1)
End Sub

note: If you have more than one form, put the API stuff in the module and take off the word private.

good luck,

bob