📄 17481.html
字号:
<html> <head> <title>Re: ~SOS~请问如何在输入一字串后，自动去Check Windows Login的Password是否正确呢？</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>Re: ~SOS~请问如何在输入一字串后，自动去Check Windows Login的Password是否正确呢？</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:alone@telekbird.com.cn">wawa</a> on August 19, 1999 at 01:45:23:<p>In Reply to: <a href="17475.html">~SOS~请问如何在输入一字串后，自动去Check Windows Login的Password是否正确呢？</a> posted by 小宛 on August 18, 1999 at 23:26:54:<p>: 我目前在做一权限管制程式，当User输入User Name和Password后，自动去侦测Windows Login的<br>: User Name 及 Password，在Check User Name上已无问题，但是要Check Password却大伤脑筋，<br>: 请问有谁知道如何达成呢？小女子在此先谢谢了！<p>'婓珨跺敦极奻氝楼谤跺恅挂遗 txtUser ﹜txtPass ㄛ珨跺偌听 cmdCheck ㄛ怀□眕狟测钨<p><br>Option Explicit<p>Private Declare Function GetUserName Lib "Advapi32.dll" Alias "GetUserNameA" _<br> (ByVal lpBuffer As String, _<br> nSize As Long) As Long<br> <br>Private Declare Function WNetVerifyPassword Lib "mpr.dll" Alias "WNetVerifyPasswordA" ( _<br> ByVal lpszPassword As String, _<br> ByRef pfMatch As Long) As Long<p>Private Sub cmdCheck_Click()<br>Dim strUserName As String<br>Dim n As Long<br>Dim di As Long<br>Dim strPassTemp As String<br>Dim CheckUser, CheckPass As Boolean<br> di = GetUserName(strUserName, n)<br> strUserName = String(n - 1, 0)<br> di = GetUserName(strUserName, n)<br> CheckUser = (txtUser.Text = strUserName)<br> If Len(txtPass.Text) <= 0 Then<br> strPassTemp = ""<br> Else<br> strPassTemp = txtPass.Text<br> End If<br> CheckPass = (VerifyPass(strPassTemp))<br> If CheckUser And CheckPass Then<br> MsgBox "磁杨蚚誧ㄐ"<br> Else<br> MsgBox "准杨蚚誧ㄐ"<br> End If<br>End Sub<p>Function VerifyPass(strPass As String) As Boolean<br>Dim lResult As Long<br>If (WNetVerifyPassword(strPass, lResult)) <> 0 Then<br> MsgBox "System Error!"<br>Else<br> VerifyPass = IIf(lResult <> 0, True, False)<br>End If<br>End Function<p>Private Sub Form_Load()<br> txtUser.Text = ""<br> txtPass.Text = ""<br>End Sub<p><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 17481--></ul><!--end: 17481--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -