Win98 Login

[MacDuke]

Hi!

I want to make an Windows 98 login, that allows, or don't allows the user to enter in system but i don't know how to start!! :-))

Do you know a way, or a tip?

Thanks for the help!
MacDuke
[email protected]

[Sophtware]

Here's some API that i found that could possibly be modified to suit your needs

********verifyscreensaverpsw*********
Private Declare Function VerifyScreenSavePwd Lib "password.cpl" (ByVal hwnd As Long) As Boolean
Private Sub Form_Load()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: [email protected]
Dim Ret As Boolean
'Ask the user to type in the password
Ret = VerifyScreenSavePwd(Me.hwnd)
If Ret Then
'If there's no password, VerifyScreenSavePwd automatically returns True
MsgBox "OK.... you've entered the correct password, or there is no screen saver password!"
Else
MsgBox "Invalid password entered"
End If
End Sub

*********************


****pswchangeapi****


Private Declare Function PwdChangePassword Lib "mpr" Alias "PwdChangePasswordA" (ByVal lpcRegkeyname As String, ByVal hwnd As Long, ByVal uiReserved1 As Long, ByVal uiReserved2 As Long) As Long
Private Sub Form_Load()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: [email protected]
PwdChangePassword "SCRSAVE", Me.hwnd, 0, 0
End Sub

*********************