Make your own free website on Tripod.com

AllApi.net

[an error occurred while processing this directive]
 
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: KPDTeam@Allapi.net
    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


 
Copyright © 1998-2000, The KPD-Team.
Send mail to KPDTeam@Allapi.net with comments about this web site.
This site is located at
http://www.Allapi.net/