PDA

Click to See Complete Forum and Search --> : password program


QWERTY
Jan 17th, 2000, 01:31 AM
Add a Module to your App. Paste this code into the Module:

Option Explicit

Option Explicit

'Declarations
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

'//to restore your application to the ALT+CTLR+DEL list
Public Sub AddProgramToList()
Dim lngProcessID As Long
Dim lngReturn As Long

lngProcessID = GetCurrentProcessId()
lngReturn = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE)
End Sub

'//to remove your application from the ALT+CTLR+DEL list
Public Sub RemoveProgramFromList()
Dim lngProcessID As Long
Dim lngReturn As Long

lngProcessID = GetCurrentProcessId()
lngReturn = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
End Sub

Then in form's Load event paste this code:

RemoveProgramFromList

HTH


------------------
Visual Basic Programmer
------------------
PolComSoft
You will hear a lot about it.

Bob Baddeley
Jan 17th, 2000, 06:43 AM
I know this place has answered this before because I've used it, but I'm too lazy to direct you exactly where. Just do a search on it. The answer is pretty easy to find.

brjames
Jan 17th, 2000, 11:55 AM
I am creating a password program and I was wondering if there is any way of disabling the CRTL ALT DEL checking in windowss?

Thanks!

My code is below:

Private Sub cmdEnter_Click()
If Text1.Text = "letmein" Then
End
Do While Text1.Text <> "letmein"
Loop
End If
End Sub

Private Sub cmdRetry_Click()
Text1.Text = ""
End Sub