hideappfromcontrolaltdel.txt

一部分关于VB编程的小技巧

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


Public Sub HideApp()

Dim process As Long

process = GetCurrentProcessId()
Call RegisterServiceProcess(process, 1)

End Sub