?? 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>: 我目前在做一權(quán)限管制程式，當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 + -