49 lines
1.7 KiB
VB.net
49 lines
1.7 KiB
VB.net
|
|
Public Class loginForm
|
|
Private formName As String = " Login"
|
|
|
|
Private apiLoginURL As String = "auths/token"
|
|
|
|
' TODO: 제공된 사용자 이름과 암호를 사용하여 사용자 지정 인증을 수행하는 코드를 삽입합니다
|
|
' (https://go.microsoft.com/fwlink/?LinkId=35339 참조).
|
|
' 그러면 사용자 지정 보안 주체가 현재 스레드의 보안 주체에 다음과 같이 첨부될 수 있습니다.
|
|
' My.User.CurrentPrincipal = CustomPrincipal
|
|
' 여기서 CustomPrincipal은 인증을 수행하는 데 사용되는 IPrincipal이 구현된 것입니다.
|
|
' 나중에 My.User는 CustomPrincipal 개체에 캡슐화된 사용자 이름, 표시 이름 등의
|
|
' ID 정보를 반환합니다.
|
|
|
|
Private Sub loginForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Me.Text = frm_Main.programName & formName
|
|
txbUserID.Focus()
|
|
End Sub
|
|
|
|
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
|
|
|
|
If txbUserID.Text.Replace(" ", "") = "" Then
|
|
MsgBox("아이디를 입력하여 주십시오.", vbExclamation)
|
|
txbUserID.Focus()
|
|
Exit Sub
|
|
End If
|
|
|
|
If txbUserPW.Text.Replace(" ", "") = "" Then
|
|
MsgBox("비밀번호를 입력하여 주십시오.", vbExclamation)
|
|
txbUserPW.Focus()
|
|
Exit Sub
|
|
End If
|
|
|
|
If loginAPIRequest(txbUserID.Text, txbUserPW.Text, apiLoginURL) Then
|
|
Me.DialogResult = DialogResult.OK
|
|
Me.Close()
|
|
Else
|
|
txbUserID.Focus()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
|
|
Me.DialogResult = DialogResult.Cancel
|
|
Me.Close()
|
|
End Sub
|
|
|
|
|
|
End Class
|