Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #cs
- Check at 4.03 PM
- Coder: [T]ênkocầndài [C]hỉcầntốnđất [T]hếnómớichất (MrTheDzam)
- #ce
- #include <ButtonConstants.au3>
- #include <EditConstants.au3>
- #include <GUIConstantsEx.au3>
- #include <StaticConstants.au3>
- #include <WindowsConstants.au3>
- $Form1 = GUICreate("Auto SC Ver 3.12.1.5", 421, 435, 775, 159)
- GUISetBkColor(0x008080)
- $Label1 = GUICtrlCreateLabel("AUTO SC Ver 3.12.1.5", 64, 16, 295, 40)
- GUICtrlSetFont(-1, 22, 400, 0, "VnFrankfurtGothic2")
- GUICtrlSetColor(-1, 0x800000)
- Global $Input1 = GUICtrlCreateInput("", 128, 80, 209, 21)
- $Label2 = GUICtrlCreateLabel("ID Name:", 16, 80, 90, 28)
- GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
- GUICtrlSetColor(-1, 0x000000)
- Global $Input2 = GUICtrlCreateInput("", 128, 120, 209, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
- $Label3 = GUICtrlCreateLabel("Password:", 16, 120, 100, 28)
- GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
- GUICtrlSetColor(-1, 0x000000)
- $Label4 = GUICtrlCreateLabel("", 16, 152, 4, 4)
- GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
- GUICtrlSetColor(-1, 0x000000)
- $Button2 = GUICtrlCreateButton("Đăng nhập", 155, 169, 121, 49)
- $Button1 = GUICtrlCreateButton("Đăng xuất", 24, 168, 121, 49)
- GUICtrlSetState(-1, $GUI_DISABLE)
- $Button3 = GUICtrlCreateButton("Quên mật khẩu?", 288, 168, 121, 49)
- $Radio1 = GUICtrlCreateRadio("Post 2 - 2 TD", 256, 272, 129, 33)
- GUICtrlSetState(-1, $GUI_DISABLE)
- $Label5 = GUICtrlCreateLabel("Tài khoản VIP", 232, 240, 134, 28)
- GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
- GUICtrlSetColor(-1, 0xFF0000)
- $Radio2 = GUICtrlCreateRadio("Post 2 - 1 TD", 256, 304, 129, 33)
- GUICtrlSetState(-1, $GUI_DISABLE)
- $Radio3 = GUICtrlCreateRadio("Post Win", 256, 336, 129, 33)
- GUICtrlSetState(-1, $GUI_DISABLE)
- $Radio4 = GUICtrlCreateRadio("Post 3 - 1 TD", 256, 376, 89, 17)
- GUICtrlSetState(-1, $GUI_DISABLE)
- $Radio5 = GUICtrlCreateRadio("Post 3 - 2 TD", 256, 408, 89, 17)
- GUICtrlSetState(-1, $GUI_DISABLE)
- $Label6 = GUICtrlCreateLabel("Tài khoản thường", 24, 240, 167, 28)
- GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
- GUICtrlSetColor(-1, 0xFF0000)
- $Label7 = GUICtrlCreateLabel("Create And Rencode By BAOVI", 8, 352, 219, 20)
- GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
- GUICtrlSetColor(-1, 0xFFFF00)
- $Label8 = GUICtrlCreateLabel("Facebook: fb.com/baovisociu", 8, 384, 209, 20)
- GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
- GUICtrlSetColor(-1, 0xFFFF00)
- $Label9 = GUICtrlCreateLabel("Version: 3.12.1.5", 8, 408, 117, 20)
- GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
- GUICtrlSetColor(-1, 0xFFFF00)
- $Checkbox3 = GUICtrlCreateCheckbox("Nhanh", 128, 320, 97, 17)
- GUICtrlSetState(-1, $GUI_DISABLE)
- $Checkbox4 = GUICtrlCreateCheckbox("Bình thường", 128, 296, 97, 17)
- GUICtrlSetState(-1, $GUI_DISABLE)
- $Checkbox5 = GUICtrlCreateCheckbox("Chậm", 128, 272, 97, 17)
- GUICtrlSetState(-1, $GUI_DISABLE)
- $Radio6 = GUICtrlCreateRadio("Post 2 - 2 TD", 8, 272, 105, 33)
- GUICtrlSetState(-1, $GUI_DISABLE)
- GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
- GUICtrlSetColor(-1, 0xFF0000)
- $Radio7 = GUICtrlCreateRadio("Post 2 - 1 TD", 8, 304, 105, 33)
- GUICtrlSetState(-1, $GUI_DISABLE)
- GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
- GUICtrlSetColor(-1, 0xFF0000)
- GUISetState(@SW_SHOW)
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE
- Exit
- Case $button2
- $username = GUICtrlRead($Input1)
- $Password = GUICtrlRead($Input2)
- If $Username == '' or $Password == '' then ;User Không được để trống
- MsgBox(16, "Thông báo", "Vui lòng điền đầy đủ thông tin!")
- Else
- If $Username == 'admin' and $Password == 'admin' then
- tkthuong()
- ElseIf $Username == 'taikhoanvip1' and $Password == 'TCT' then
- tkvip()
- Else
- MsgBox(16, "Thông báo", "Đăng nhập thất bại: Sai Username/Password")
- EndIf
- MsgBox(64, "License", "Coded by [T]ênkocầndài [C]hỉcầntốnđất [T]hếnómớichất")
- EndIf
- Case $Button1
- dangxuat()
- EndSwitch
- WEnd
- Func tkthuong()
- MsgBox(64, "Thông báo", "Đăng nhập vào TK thường thành công")
- GUICtrlSetState($Radio1,$GUI_DISABLE)
- GUICtrlSetState($Radio2,$GUI_DISABLE)
- GUICtrlSetState($Radio3,$GUI_DISABLE)
- GUICtrlSetState($Radio4,$GUI_DISABLE)
- GUICtrlSetState($Radio5,$GUI_DISABLE)
- GUICtrlSetState($Radio6,$GUI_ENABLE)
- GUICtrlSetState($Radio7,$GUI_ENABLE)
- GUICtrlSetState($Checkbox3,$GUI_ENABLE)
- GUICtrlSetState($Checkbox4,$GUI_ENABLE)
- GUICtrlSetState($Checkbox5,$GUI_ENABLE)
- GUICtrlSetState($Input1, $GUI_DISABLE)
- GUICtrlSetState($INPUT2, $GUI_DISABLE)
- GUICtrlSetState($BUTTON2, $GUI_DISABLE)
- GUICtrlSetData($BUTTON2, "Đã đăng nhập")
- GUICtrlSetState($Button1, $GUI_ENABLE)
- EndFunc
- Func tkvip()
- MsgBox(64, "Thông báo", "Đăng nhập vào TK VIP thành công!")
- GUICtrlSetState($Radio1,$GUI_ENABLE)
- GUICtrlSetState($Radio2,$GUI_ENABLE)
- GUICtrlSetState($Radio3,$GUI_ENABLE)
- GUICtrlSetState($Radio4,$GUI_ENABLE)
- GUICtrlSetState($Radio5,$GUI_ENABLE)
- GUICtrlSetState($Radio6,$GUI_ENABLE)
- GUICtrlSetState($Radio7,$GUI_ENABLE)
- GUICtrlSetState($Checkbox3,$GUI_ENABLE)
- GUICtrlSetState($Checkbox4,$GUI_ENABLE)
- GUICtrlSetState($Checkbox5,$GUI_ENABLE)
- GUICtrlSetState($Input1, $GUI_DISABLE)
- GUICtrlSetState($INPUT2, $GUI_DISABLE)
- GUICtrlSetState($BUTTON2, $GUI_DISABLE)
- GUICtrlSetData($BUTTON2, "Đã đăng nhập")
- GUICtrlSetState($Button1, $GUI_ENABLE)
- EndFunc
- Func dangxuat()
- GUICtrlSetState($Radio1,$GUI_DISABLE)
- GUICtrlSetState($Radio2,$GUI_DISABLE)
- GUICtrlSetState($Radio3,$GUI_DISABLE)
- GUICtrlSetState($Radio4,$GUI_DISABLE)
- GUICtrlSetState($Radio5,$GUI_DISABLE)
- GUICtrlSetState($Radio6,$GUI_DISABLE)
- GUICtrlSetState($Radio7,$GUI_DISABLE)
- GUICtrlSetState($Checkbox3,$GUI_DISABLE)
- GUICtrlSetState($Checkbox4,$GUI_DISABLE)
- GUICtrlSetState($Checkbox5,$GUI_DISABLE)
- GUICtrlSetState($Input1, $GUI_ENABLE)
- GUICtrlSetState($INPUT2, $GUI_ENABLE)
- GUICtrlSetData($Input1, '')
- GUICtrlSetData($Input2, '')
- GUICtrlSetState($BUTTON2, $GUI_ENABLE)
- GUICtrlSetData($BUTTON2, "Đăng nhập")
- GUICtrlSetState($Button1, $GUI_DISABLE)
- EndFunc
Advertisement
Add Comment
Please, Sign In to add comment