Jump to content

why not ini handle

tuanvu

By tuanvu,
in AutoIt General Help and Support

 Share

Recommended Posts

tuanvu Seeker

tuanvu

Posted
Posted 
Help me fix the source
thank you
 
I want to handle at the command
 
            If $check <> @error Then
  1.                 If $user <> $check[1][0] Then
  2.                 MsgBox(16, $title, "Tài khoảng không tồn tại", 3)

 

 

  1. #include <ButtonConstants.au3>
  2. #include <EditConstants.au3>
  3. #include <GUIConstantsEx.au3>
  4. #include <StaticConstants.au3>
  5. #include <WindowsConstants.au3>
  6.  
  7. Global $title = "[GUI] Login & Register"
  8. Global $file = @ScriptDir & "\data.ini"
  9.  
  10. #Region ### START Koda GUI section ### Form=
  11. Global $Form = GUICreate($title, 308, 135, 352, 307)
  12. GUISetFont(10, 400, 0, "Arial")
  13. GUISetBkColor(0xFFFFFF)
  14. Global $Label_User = GUICtrlCreateLabel("Tài khoảng", 3, 8, 67, 20)
  15. Global $Label_Pass = GUICtrlCreateLabel("Mật khẩu", 3, 40, 58, 20)
  16. Global $Input_User = GUICtrlCreateInput("", 80, 5, 225, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
  17. Global $Input_Pass = GUICtrlCreateInput("", 80, 37, 225, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_PASSWORD))
  18. Global $Radio_Login = GUICtrlCreateRadio("Đăng nhập", 3, 72, 89, 25)
  19. GUICtrlSetState(-1, $GUI_CHECKED)
  20. Global $Radio_Reg = GUICtrlCreateRadio("Đăng ký", 3, 104, 89, 25)
  21. Global $Button = GUICtrlCreateButton("Đăng nhập", 130, 72, 130, 57)
  22. Dim $Form1_AccelTable[1][2] = [["{Enter}", $Button]]
  23. GUISetAccelerators($Form1_AccelTable)
  25. #EndRegion ### END Koda GUI section ###
  26.  
  27. While 1
  28.         $nMsg = GUIGetMsg()
  29.         Switch $nMsg
  30.                 Case $GUI_EVENT_CLOSE
  31.                         Exit
  32.                 Case $Radio_Login
  33.                         GUICtrlSetData($Button, "Đăng nhập")
  34.                 Case $Radio_Reg
  35.                         GUICtrlSetData($Button, "Đăng ký")
  36.                 Case $Button
  37.                         If GUICtrlRead($Radio_Reg) = 1 Then
  38.                                 _Reg()
  39.                         Else
  40.                                 _Login()
  41.                         EndIf
  42.         EndSwitch
  44.  
  45. Func _Reg()
  46.         $user = GUICtrlRead($Input_User)
  47.         $pass = GUICtrlRead($Input_Pass)
  48.  
  49.         If StringLen($user) < 3 Then
  50.                 MsgBox(16, $title, "Tài khoảng không được bé hơn 4 kí tự")
  51.         ElseIf StringLen($pass) < 3 Then
  52.                 MsgBox(16, $title, "Mật khẩu không được bé hơn 4 kí tự")
  53.         ElseIf $user = $pass Then
  54.                 MsgBox(16, $title, "Tài khoảng và mật khẩu không trùng nhau!")
  55.         Else
  56.                 IniWrite($file, $user, $user, $pass)
  57.                 MsgBox(64, $title, "Đăng kí thành công!", 3)
  58.                 GUICtrlSetData($Input_User, "")
  59.                 GUICtrlSetData($Input_Pass, "")
  60.                 GUICtrlSetState($Radio_Login, 1)
  61.         EndIf
  63.  
  64. Func _Login()
  65.         $user = GUICtrlRead($Input_User)
  66.         $pass = GUICtrlRead($Input_Pass)
  67.         $check = IniReadSection($file, $user)
  68.  
  69.         If $check <> @error Then
  70.                 If $user <> $check[1][0] Then
  71.                         MsgBox(16, $title, "Tài khoảng không tồn tại", 3)
  72.                 ElseIf $pass <> $check[1][1] Then
  73.                         MsgBox(16, $title, "Sai mật khẩu", 3)
  74.                 ElseIf $user = $check[1][0] And $pass = $check[1][1] Then
  75.                         MsgBox(64, $title, "Đăng nhập thành công!", 3)
  76.                 Else
  77.                 EndIf
  78.         EndIf

 

Link to comment
Share on other sites
tuanvu Seeker

tuanvu

Posted
  • Author
Posted 
Help me fix the source
thank you
 
I want to handle at the command

 

If $check <> @error Then
  1.                 If $user <> $check[1][0] Then
  2.                 MsgBox(16, $title, "Tài khoảng không tồn tại", 3) 
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
 
Global $title = "[GUI] Login & Register"
Global $file = @ScriptDir & "\data.ini"
 
#Region ### START Koda GUI section ### Form=
Global $Form = GUICreate($title, 308, 135, 352, 307)
GUISetFont(10, 400, 0, "Arial")
GUISetBkColor(0xFFFFFF)
Global $Label_User = GUICtrlCreateLabel("Tài khoảng", 3, 8, 67, 20)
Global $Label_Pass = GUICtrlCreateLabel("Mật khẩu", 3, 40, 58, 20)
Global $Input_User = GUICtrlCreateInput("", 80, 5, 225, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
Global $Input_Pass = GUICtrlCreateInput("", 80, 37, 225, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_PASSWORD))
Global $Radio_Login = GUICtrlCreateRadio("Đăng nhập", 3, 72, 89, 25)
GUICtrlSetState(-1, $GUI_CHECKED)
Global $Radio_Reg = GUICtrlCreateRadio("Đăng ký", 3, 104, 89, 25)
Global $Button = GUICtrlCreateButton("Đăng nhập", 130, 72, 130, 57)
Dim $Form1_AccelTable[1][2] = [["{Enter}", $Button]]
GUISetAccelerators($Form1_AccelTable)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
 
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Radio_Login
                        GUICtrlSetData($Button, "Đăng nhập")
                Case $Radio_Reg
                        GUICtrlSetData($Button, "Đăng ký")
                Case $Button
                        If GUICtrlRead($Radio_Reg) = 1 Then
                                _Reg()
                        Else
                                _Login()
                        EndIf
        EndSwitch
WEnd
 
Func _Reg()
        $user = GUICtrlRead($Input_User)
        $pass = GUICtrlRead($Input_Pass)
 
        If StringLen($user) < 3 Then
                MsgBox(16, $title, "Tài khoảng không được bé hơn 4 kí tự")
        ElseIf StringLen($pass) < 3 Then
                MsgBox(16, $title, "Mật khẩu không được bé hơn 4 kí tự")
        ElseIf $user = $pass Then
                MsgBox(16, $title, "Tài khoảng và mật khẩu không trùng nhau!")
        Else
                IniWrite($file, $user, $user, $pass)
                MsgBox(64, $title, "Đăng kí thành công!", 3)
                GUICtrlSetData($Input_User, "")
                GUICtrlSetData($Input_Pass, "")
                GUICtrlSetState($Radio_Login, 1)
        EndIf
EndFunc
 
Func _Login()
        $user = GUICtrlRead($Input_User)
        $pass = GUICtrlRead($Input_Pass)
        $check = IniReadSection($file, $user)
 
        If $check <> @error Then
                If $user <> $check[1][0] Then
                        MsgBox(16, $title, "Tài khoảng không tồn tại", 3)
                ElseIf $pass <> $check[1][1] Then
                        MsgBox(16, $title, "Sai mật khẩu", 3)
                ElseIf $user = $check[1][0] And $pass = $check[1][1] Then
                        MsgBox(64, $title, "Đăng nhập thành công!", 3)
                Else
                EndIf
        EndIf
EndFunc
Link to comment
Share on other sites
tuanvu Seeker

tuanvu

Posted
  • Author
Posted 
Help me fix the source
thank you
 
I want to handle at the command

 

If $check <> @error Then
  1.                 If $user <> $check[1][0] Then
  2.                 MsgBox(16, $title, "Tài khoảng không tồn tại", 3) 
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
 
Global $title = "[GUI] Login & Register"
Global $file = @ScriptDir & "\data.ini"
 
#Region ### START Koda GUI section ### Form=
Global $Form = GUICreate($title, 308, 135, 352, 307)
GUISetFont(10, 400, 0, "Arial")
GUISetBkColor(0xFFFFFF)
Global $Label_User = GUICtrlCreateLabel("Tài khoảng", 3, 8, 67, 20)
Global $Label_Pass = GUICtrlCreateLabel("Mật khẩu", 3, 40, 58, 20)
Global $Input_User = GUICtrlCreateInput("", 80, 5, 225, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
Global $Input_Pass = GUICtrlCreateInput("", 80, 37, 225, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_PASSWORD))
Global $Radio_Login = GUICtrlCreateRadio("Đăng nhập", 3, 72, 89, 25)
GUICtrlSetState(-1, $GUI_CHECKED)
Global $Radio_Reg = GUICtrlCreateRadio("Đăng ký", 3, 104, 89, 25)
Global $Button = GUICtrlCreateButton("Đăng nhập", 130, 72, 130, 57)
Dim $Form1_AccelTable[1][2] = [["{Enter}", $Button]]
GUISetAccelerators($Form1_AccelTable)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
 
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Radio_Login
                        GUICtrlSetData($Button, "Đăng nhập")
                Case $Radio_Reg
                        GUICtrlSetData($Button, "Đăng ký")
                Case $Button
                        If GUICtrlRead($Radio_Reg) = 1 Then
                                _Reg()
                        Else
                                _Login()
                        EndIf
        EndSwitch
WEnd
 
Func _Reg()
        $user = GUICtrlRead($Input_User)
        $pass = GUICtrlRead($Input_Pass)
 
        If StringLen($user) < 3 Then
                MsgBox(16, $title, "Tài khoảng không được bé hơn 4 kí tự")
        ElseIf StringLen($pass) < 3 Then
                MsgBox(16, $title, "Mật khẩu không được bé hơn 4 kí tự")
        ElseIf $user = $pass Then
                MsgBox(16, $title, "Tài khoảng và mật khẩu không trùng nhau!")
        Else
                IniWrite($file, $user, $user, $pass)
                MsgBox(64, $title, "Đăng kí thành công!", 3)
                GUICtrlSetData($Input_User, "")
                GUICtrlSetData($Input_Pass, "")
                GUICtrlSetState($Radio_Login, 1)
        EndIf
EndFunc
 
Func _Login()
        $user = GUICtrlRead($Input_User)
        $pass = GUICtrlRead($Input_Pass)
        $check = IniReadSection($file, $user)
 
        If $check <> @error Then
                If $user <> $check[1][0] Then
                        MsgBox(16, $title, "Tài khoảng không tồn tại", 3)
                ElseIf $pass <> $check[1][1] Then
                        MsgBox(16, $title, "Sai mật khẩu", 3)
                ElseIf $user = $check[1][0] And $pass = $check[1][1] Then
                        MsgBox(64, $title, "Đăng nhập thành công!", 3)
                Else
                EndIf
        EndIf
EndFunc
Link to comment
Share on other sites
  • Moderators
Melba23 Universalist

Melba23

Posted
  • Moderators
Posted

tuanvu,

Welcome to the AutoIt forums. But in future, please stick to just the one thread at a time.

M23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Link to comment
Share on other sites
kylomas Universalist

kylomas

Posted
Posted

tuanvu,

This statement makes no sense... 

If $check <> @error Then

IniReadSection returns an array.  @ERROR is set by the function to indicate status.  From the Help file

Return Value

Success: a 2 dimensional array where element[n][0] is the key and element[n][1] is the value.
Failure: sets the @error flag to non-zero if unable to read the section (The INI file may not exist or the section may not exist or is empty)

kylomas

Forum Rules         Procedure for posting code

"I like pigs.  Dogs look up to us.  Cats look down on us.  Pigs treat us as equals."

- Sir Winston Churchill

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...