[GUI Templates] Simple Login AutoIT

; #FUNCTION# ====================================================================================================================
; Name ..........: _LoginGUI
; Description ...: Tạo GUI Login mẫu
; Syntax ........: _LoginGUI([, $title = '' [, $logo = '']])
; Parameters ....: $title               - [optional] Tiêu đề của GUI. Default is ''.
;                  $logo                - [optional] Đường dẫn file logo. Default is ''.
; Return values .: return về dạng String
;                  '0' nếu như hủy bỏ đăng nhập
;                  tên tài khoản nếu đăng nhập thành công
; Author ........: opdo
; Link ..........: http://opdo.top
; Example .......: Ở bên dưới
; ===============================================================================================================================

#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiButton.au3>
#include <EditConstants.au3>

; tài khoản test: admin pass admin
Local $username = _LoginGUI("Login System",@ScriptDir & "\logo.jpg")
If $username <> '0' Then
    MsgBox(64,"Thông báo","Bạn đã đăng nhập thành công với tài khoản "&$username)
Else
    MsgBox(16,"Thông báo","Bạn đã hủy bỏ đăng nhập")
EndIf



Func _LoginGUI($title = '',$logo = '')
Global $LoginGUI = GUICreate($title,500,285,-1,-1,$WS_POPUP,-1)
GUISetBkColor(0xFFFFFF,$LoginGUI)
GUICtrlCreateLabel("",0,0,607,69,-1,$GUI_WS_EX_PARENTDRAG)
GUICtrlSetState(-1,BitOr($GUI_SHOW,$GUI_DISABLE))
GUICtrlSetBkColor(-1,"0x0063B1")
Local $login_Logo = GUICtrlCreatePic($logo,20,10,50,50,-1,-1)
GUICtrlSetState(-1,BitOr($GUI_SHOW,$GUI_DISABLE))
Local $login_Title = GUICtrlCreateLabel($title,80,7,309,51,$SS_CENTERIMAGE,-1)
GUICtrlSetFont(-1,20,600,0,"Segoe UI Semibold")
GUICtrlSetColor(-1,"0xFFFFFF")
GUICtrlSetBkColor(-1,"-2")
GUICtrlCreateLabel("👨",90,99,30,37,-1,-1)
GUICtrlSetFont(-1,26,400,0,"MS Sans Serif")
GUICtrlSetBkColor(-1,"-2")
Local $login_Username = GUICtrlCreateInput("",133,99,268,29,-1,0)
GUICtrlSetFont(-1,14,400,0,"Segoe UI")
GUICtrlSendMsg(-1, $EM_SETCUEBANNER, False, "Your username")
GUICtrlCreateLabel("_______________",133,102,276,34,-1,-1)
GUICtrlSetFont(-1,24,400,0,"MS Sans Serif")
GUICtrlSetBkColor(-1,"-2")
GUICtrlCreateLabel("🔐",92,151,30,37,-1,-1)
GUICtrlSetFont(-1,26,400,0,"MS Sans Serif")
GUICtrlSetBkColor(-1,"-2")
Local $login_Password = GUICtrlCreateInput("",133,151,268,29,$ES_PASSWORD,0)
GUICtrlSetFont(-1,14,400,0,"Segoe UI")
GUICtrlSendMsg(-1, $EM_SETCUEBANNER, False, "Your password")
GUICtrlCreateLabel("_______________",133,154,276,34,-1,-1)
GUICtrlSetFont(-1,24,400,0,"MS Sans Serif")
GUICtrlSetBkColor(-1,"-2")
GUICtrlCreateLabel("",0,261,607,27,-1,-1)
GUICtrlSetState(-1,BitOr($GUI_SHOW,$GUI_DISABLE))
GUICtrlSetBkColor(-1,"0x0063B1")
Local $login_Exit = GUICtrlCreateLabel("❎ Exit",448,266,40,15,$SS_CENTER,-1)
GUICtrlSetFont(-1,9,400,0,"Segoe UI")
GUICtrlSetColor(-1,"0xFFFFFF")
GUICtrlSetBkColor(-1,"-2")
GUICtrlSetCursor(-1,0)
Local $login_Forgot = GUICtrlCreateLabel("❓ Forgot Password",324,266,120,15,$SS_CENTER,-1)
GUICtrlSetFont(-1,9,400,0,"Segoe UI")
GUICtrlSetColor(-1,"0xFFFFFF")
GUICtrlSetBkColor(-1,"-2")
GUICtrlSetCursor(-1,0)
Local $login_SignIn = GUICtrlCreateLabel("▶ SIGN IN",304,201,97,31,BitOr($SS_CENTER,$SS_CENTERIMAGE),-1)
GUICtrlSetFont(-1,12,600,0,"Segoe UI Semibold")
GUICtrlSetColor(-1,"0xFFFFFF")
GUICtrlSetBkColor(-1,"0x0063B1")
GUICtrlSetCursor(-1,0)
Local $login_SignUp = GUICtrlCreateLabel("💼 SIGN UP",193,201,97,31,BitOr($SS_CENTER,$SS_CENTERIMAGE),-1)
GUICtrlSetFont(-1,12,600,0,"Segoe UI Semibold")
GUICtrlSetColor(-1,"0xFFFFFF")
GUICtrlSetBkColor(-1,"0x0063B1")
GUICtrlSetCursor(-1,0)


Dim $login_HotKeyEnter[1][2] = [["{ENTER}", $login_SignIn]]
GUISetAccelerators($login_HotKeyEnter)

GUIRegisterMsg($WM_NCHITTEST, "_LoginGUI_DropGUI") ; move GUI
GUISetState(@SW_SHOW,$LoginGUI)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $login_SignIn ; SIGN IN
            If GUICtrlRead($login_Username) = '' or GUICtrlRead($login_Password) = '' Then
                MsgBox(16,'Error','You must enter username and password')
                Else
                If GUICtrlRead($login_Username) == "admin" and GUICtrlRead($login_Password) == "admin" Then
                ; Đăng nhập thành công
                Local $username = String(GUICtrlRead($login_Username))
                GUIDelete($LoginGUI)
                Return $username
                    Else
                ; Đăng nhập thất bại
                MsgBox(64,'Error','Wrong username or password, please try again.')
                EndIf
            EndIf
        Case $login_Forgot ; FORGOT PASSWORD
            MsgBox(64,"Test","Test")
        Case $login_SignUp ; SIGN UP
            MsgBox(64,"Test","Test")
        Case $login_Exit ; EXIT
            if MsgBox(32+4,"Info","Do you want to exit?") = 6 Then
                GUIDelete($LoginGUI)
                Return '0'
            EndIf
    EndSwitch
WEnd
EndFunc


Func _LoginGUI_DropGUI($hWnd, $uMsg, $wParam, $lParam)
    If $hWnd = $LoginGUI Then
        Local $aPos = WinGetPos($hWnd)
        If Abs(BitAND(BitShift($lParam, 16),0xFFFF)- $aPos[1]) < 100 Then Return $HTCAPTION
    EndIf
    Return $GUI_RUNDEFMSG
EndFunc