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