VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 重新验证 Win 95 用户口令
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:8408, 日期:2001-12-10
重新验证 Win 95 用户口令
在进行重要的操作或特定的情况下,我们可能需要重新验证用户的口令,以提高系统的安全性。

Private Declare Function WNetVerifyPassword Lib "mpr.dll" Alias "WNetVerifyPasswordA" (ByVal lpszPassword As String, ByRef pfMatch As Long) As Long

Function VerifyPassWin95(sPassword As String) As Boolean
Dim lRetVal As Long
If (WNetVerifyPassword(sPassword, lRetVal)) <> 0 Then
MsgBox "VerifyPassWin95: Application Error"
Else
If lRetVal <> 0 Then
VerifyPassWin95 = True
Else
VerifyPassWin95 = False
End If
End If
End Function