Chỉnh sửa GUI

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$tieude = "GhostMonster - Tools"

Opt('GuiOnEventMode', 1)

;===================RandomMatKhau======================;
$pwd = ""
Dim $aSpace[3]
$digits = 5
For $i = 1 To $digits
    $aSpace[0] = Chr(Random(65, 90, 1)) ;A-Z
    $aSpace[1] = Chr(Random(97, 122, 1)) ;a-z
    $aSpace[2] = Chr(Random(48, 57, 1)) ;0-9
    $pwd &= $aSpace[Random(0, 2, 1)]
Next
MsgBox(0, $tieude, "Mật khẩu để đăng nhập : " & $pwd)
;==========================================================;
Global $nCheck
AdlibRegister('thoigian')
;================GuiDangNhap================;
$Form1 = GUICreate($tieude, 361, 203, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "FormMainClose")
$Group1 = GUICtrlCreateGroup("Đăng Nhập", 8, 8, 337, 185)
$EnterPassLabel = GUICtrlCreateLabel("Mật Khẩu :", 15, 119, 81, 21, 0)
GUICtrlSetFont(-1, 11, 800, 0, "Times New Roman")
GUICtrlSetColor(-1, 0x000000)
$PasswordEdit = GUICtrlCreateInput("", 97, 119, 161, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
$ButtonDN = GUICtrlCreateButton("Đăng Nhập", 267, 86, 67, 57, $BS_NOTIFY)
GUICtrlSetOnEvent(-1, "DangNhap")
GUICtrlSetFont(-1, 8, 800, 0, "Times New Roman")
GUICtrlSetColor(-1, 0x00FF00)
$Label1 = GUICtrlCreateLabel("Tài Khoản :", 16, 88, 81, 21)
GUICtrlSetFont(-1, 11, 800, 0, "Times New Roman")
GUICtrlSetColor(-1, 0x000000)
$Input1 = GUICtrlCreateInput("", 97, 88, 161, 21)
$Button1 = GUICtrlCreateButton("?", 312, 160, 27, 25)
GUICtrlSetOnEvent(-1, "thongtin")
$Label2 = GUICtrlCreateLabel("Đăng Nhập", 104, 32, 144, 36)
GUICtrlSetFont(-1, 22, 800, 0, "Times New Roman")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$hLabel = GuiCtrlCreateLabel("", 16, 175, 150, 12)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
    Sleep(69)
WEnd

Func FormMainClose()
    Exit
EndFunc

Func thoigian()
    If @SEC <> $nCheck Then
        GUICtrlSetData($hLabel,@HOUR & ":" & @MIN & ":" & @SEC & " || " & @MDAY & "/" & @MON & "/" & @YEAR )
        $nCheck = @SEC
    EndIf
EndFunc

Func DangNhap()
    If GUICtrlRead($Input1) = "GhostMonsterIT" And GUICtrlRead($PasswordEdit) = $pwd Then
        MsgBox(0,$tieude,"Đăng nhập thành công !!!")
    Else
        MsgBox(0,$tieude,"Đăng nhập không thành công !!!")
    EndIf
EndFunc

;GhostMonsterIT
;j59sy

Func thongtin()
    Global $Form2 = GUICreate("Thông Tin", 322, 236, 302, 218)
    GUISetOnEvent($GUI_EVENT_CLOSE, "ChildFormClose")
    Global $GroupBox1 = GUICtrlCreateGroup("", 8, 8, 305, 185)
    Global $Image3 = GUICtrlCreatePic("C:\Users\Administrator\Desktop\Gui\11164824_465937286895581_5351719548539907701_n.jpg", 16, 24, 105, 97)
    GUICtrlCreateLabel("Tên phần mềm :", 128, 80, 86, 19)
    GUICtrlSetFont(-1, 10, 800, 0, "Times New Roman")
    GUICtrlCreateLabel("Phiên bản :", 128, 104, 65, 19)
    GUICtrlSetFont(-1, 10, 800, 0, "Times New Roman")
    GUICtrlCreateLabel("Copyright :", 16, 168, 66, 19)
    GUICtrlSetFont(-1, 10, 800, 0, "Times New Roman")
    GUICtrlCreateLabel("GhostMonster_it™", 80, 168, 96, 17)
    GUICtrlCreateLabel("Người tạo :", 128, 32, 67, 19)
    GUICtrlSetFont(-1, 10, 800, 0, "Times New Roman")
    GUICtrlCreateLabel("GhostMonster_it", 208, 32, 85, 19)
    GUICtrlSetFont(-1, 9, 400, 2, "Times New Roman")
    GUICtrlSetColor(-1, 0xFF0000)
    GUICtrlCreateLabel("Tools", 224, 80, 50, 19)
    GUICtrlSetFont(-1, 9, 400, 0, "Times New Roman")
    GUICtrlCreateLabel("v1.0", 208, 104, 25, 18)
    GUICtrlSetFont(-1, 8, 400, 0, "Times New Roman")
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUICtrlSetCursor (-1, 2)
    $Buttontt = GUICtrlCreateButton("&OK", 124, 208, 75, 25, 0)
    GUICtrlSetOnEvent(-1, "ChildFormClose")
    GUISetState(@SW_SHOW)
EndFunc

While 2
    Sleep(69)
WEnd

Func ChildFormClose()
    GUIDelete($Form2)
EndFunc