本機Windows帳號密碼驗證登入

參考引用來源
---

Public Class Form1
 
    Public Declare Auto Function LogonUser Lib "advapi32.dll" (ByVal lpszUsername As String, ByVal lpszDomain As String, ByVal lpszPassword As String, _
   ByVal dwLogonType As Integer, ByVal dwLogonProvider As Integer, ByRef phToken As IntPtr) As Boolean
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_OK.Click
        Dim UserID As String = TextBox_UserName.Text
        Dim UserPass As String = TextBox_Password.Text
        Dim bTemp As Boolean
        Dim MachineName As String
 
        MachineName = System.Environment.MachineName
 
        Const LOGON32_PROVIDER_DEFAULT As Integer = 0
        Const LOGON32_LOGON_INTERACTIVE As Integer = 2
        Dim tokenHandle As New IntPtr(0)
        tokenHandle = IntPtr.Zero
 
        bTemp = LogonUser(UserID, MachineName, UserPass, LOGON32_LOGON_INTERACTIVE, LOGON32_PROVIDER_DEFAULT, tokenHandle)
 
        If bTemp Then
            MsgBox("登入成功")
        Else
            MsgBox("登入失敗")
        End If
    End Sub 

End Class