请问一下,在vb6.0中怎样隐藏win2000中的任务管理器的任务。

解决方案 »

  1.   

    '模块中声明
    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 RemoveProgramFromList()
        Dim lngProcessID As Long
        Dim lngReturn As Long
        '取得当前运行程序id
        lngProcessID = GetCurrentProcessId()
        '从列表中删除程序
        lngReturn = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
    End SubPrivate Sub Command1_Click()
        RemoveProgramFromList
    End Sub
      

  2.   

    sxfzu,请问一下,上面的这一段程序中:
    lngReturn = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
    参数,pid是什么意思?
      

  3.   

    sxfzu(flying) 在98中可以实现楼主的目的,但在2000是不可以的