password program

[QWERTY]

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]

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]

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