' 声明 Declare Function RegisterServiceProcess Lib "kernel32" (ByVal ProcessID As Long, ByVal ServiceFlags As Long) As Long Declare Function GetCurrentProcessId Lib "kernel32" () As LongPrivate Sub Form_Load() RegisterServiceProcess GetCurrentProcessId, 1 end sub
添加一个模块: 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窗体的代码为:Private Sub Form_Load() '遮蔽Del+Alt+Ctrl Dim Ret As Long Dim pOld As Boolean Ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
Declare Function RegisterServiceProcess Lib "kernel32" (ByVal ProcessID As Long, ByVal ServiceFlags As Long) As Long
Declare Function GetCurrentProcessId Lib "kernel32" () As LongPrivate Sub Form_Load()
RegisterServiceProcess GetCurrentProcessId, 1
end sub
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窗体的代码为:Private Sub Form_Load()
'遮蔽Del+Alt+Ctrl
Dim Ret As Long
Dim pOld As Boolean
Ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
End Sub
保证连Alt+F4都遮蔽掉
只要存在窗口(哪怕不可见),都会被列出。因而,你最好的选择是不用exe文件。譬如,你用vc做一个动态连接库dll,你的所有操作都在此dll中完成。程序(exe文件)运行后,你将此dll文件挂接上其他程序。在你的程序被中止后,其他程序依然会调用dll. 这个方法比较好! 写vxd最好,可惜…………vb…………