📄 17480.html
字号:
<html> <head> <title>Re: ~SOS~请问有谁知道在输入一字串后，自动去侦测Windows Login的Password是否正确？</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>Re: ~SOS~请问有谁知道在输入一字串后，自动去侦测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:44:19:<p>In Reply to: <a href="17477.html">~SOS~请问有谁知道在输入一字串后，自动去侦测Windows Login的Password是否正确？</a> posted by 小宛 on August 18, 1999 at 23:35:45:<p>: 我目前在做一权限管制的程式，当User输入User与Password后，自动去侦测User在Windows Login<br>: 的User Name与Password，在Check User Name这部份已没问题，但是要去Check Login的Password<br>: 却令我大伤脑筋，请问有谁可以告诉我应如何做呢？小女子在此先谢谢了！<p><br>'在一个窗体上添加两个文本框 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: 17480--></ul><!--end: 17480--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -