验证Windows密码

2008-04-09 04:39:35来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

|声明模块:

Option Explicit

Declare Function GetUserName Lib "advapi32.dll" Alias _

"GetUserNameA" (ByVal lpBuffer As String, _

nSize As Long) As Long

Private Declare Function WNetVerifyPassword Lib "mpr.dll" Alias _

"WNetVerifyPasswordA" (ByVal lpszPassword As String, _

ByRef pfMatch As Long) As Long

Public Function GetWindowsLoginUserID() As String

Dim rtn As Long

Dim sBuffer As String

Dim lSize As Long

sBuffer = String$(260, Chr$(0))

lSize = Len(sBuffer)

rtn = GetUserName(sBuffer, lSize)

If rtn Then

sBuffer = left$(sBuffer, lSize)

Reformat string

If InStr(sBuffer, Chr$(0)) Then

sBuffer = left$(sBuffer, InStr(sBuffer, Chr$(0)) - 1)

End If

GetWindowsLoginUserID = sBuffer

Else

Error!

GetWindowsLoginUserID = ""

End If

End Function

Public Function VerifyWindowsLoginU Password(ByVal Password As String) As Boolean

Dim rtn As Long, Match As Long

rtn = WNetVerifyPassword(Password, Match)

If rtn Then

VerifyWindowsLoginUserPassword = False

Else

VerifyWindowsLoginUserPassword = (Match $#@60;$#@62; 0)

End If

End Function

|窗体代码:

Private Sub cmdVerify_Click()

MsgBox "The password you supplied was " VerifyWindowsLoginUserPassword(txtPassword.Text)

End Sub

Private Sub Form_Load()

txtUsername = GetWindowsLoginUserID

txtUsername.Enabled = False

End Sub

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:利用FormQueryUnload询问视窗

下一篇:面向VB编程人员的COM 综述