[Code] Giảo diện Login

by **Admin** Mon Dec 17, 2012 3:15 am

Code:: #include <GUIConstantsEx.au3> #include <EditConstants.au3> Global $UserList = 'user.ini' CheckUserList() ;Tạo GUI GUICreate("Login",250,100) Global $ID = GUICtrlCreateInput('Nhập ID',7,7) Global $PA = GUICtrlCreateInput('Nhập PA',7,37,Default,Default,$ES_PASSWORD) Global $Set = GUICtrlCreateButton('Tạo',7,62) Global $Check = GUICtrlCreateButton('Kiểm Tra',47,62) GUISetState(@SW_SHOW) ;Vòng lặp điều khiển, giữ GUI while 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then ExitLoop If $msg = $Set Then SetNewID() If $msg = $Check Then CheckID() WEnd ;Kiểm tra xem User List có tồn tại kg Func CheckUserList() If Not FileExists($UserList) Then Local $f = FileOpen($UserList,2+8+32) FileClose($f) EndIf EndFunc ;Thêm một ID vào User List Func SetNewID() Local $NewID = GUICtrlRead($ID) Local $NewPA = GUICtrlRead($PA) IniWrite($UserList, $NewID, 'pass', $NewPA) EndFunc ;Check một ID Func CheckID() Local $CheckID = GUICtrlRead($ID) Local $var = IniReadSection($UserList, $CheckID) If @error Then MsgBox(4096, "Login", "Không tìm thấy ID") Else Local $CheckPA = GUICtrlRead($PA) Local $var = IniRead($UserList, $CheckID, "pass", "") If $var And $var=$CheckPA Then MsgBox(4096, "Login", 'ID và Pass hợp lệ') Else MsgBox(4096, "Login", 'Pass không hợp lệ') EndIf EndIf EndFunc