Advertisement
MrTheDzam

DEMO LOGIN [2]

Aug 31st, 2015
90
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 3.55 KB | None | 0 0
  1. #cs
  2.     Check at 3.41 PM
  3.     Coder: [T]ênkocầndài [C]hỉcầntốnđất [T]hếnómớichất
  4. #ce
  5.  
  6. #include <ButtonConstants.au3>
  7. #include <EditConstants.au3>
  8. #include <GUIConstantsEx.au3>
  9. #include <StaticConstants.au3>
  10. #include <WindowsConstants.au3>
  11.  
  12.  
  13. $Form1 = GUICreate("Auto SC Ver 3.12.1.5", 421, 435, 775, 159)
  14. GUISetBkColor(0x008080)
  15. $Label1 = GUICtrlCreateLabel("AUTO SC Ver 3.12.1.5", 64, 16, 295, 40)
  16. GUICtrlSetFont(-1, 22, 400, 0, "VnFrankfurtGothic2")
  17. GUICtrlSetColor(-1, 0x800000)
  18. Global $Input1 = GUICtrlCreateInput("", 128, 80, 209, 21)
  19. $Label2 = GUICtrlCreateLabel("ID Name:", 16, 80, 90, 28)
  20. GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
  21. GUICtrlSetColor(-1, 0x000000)
  22. Global $Input2 = GUICtrlCreateInput("", 128, 120, 209, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
  23. $Label3 = GUICtrlCreateLabel("Password:", 16, 120, 100, 28)
  24.  
  25. GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
  26. GUICtrlSetColor(-1, 0x000000)
  27.  
  28. $Label4 = GUICtrlCreateLabel("", 16, 152, 4, 4)
  29. GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
  30. GUICtrlSetColor(-1, 0x000000)
  31. $Button2 = GUICtrlCreateButton("Đăng nhập", 155, 169, 121, 49)
  32. $Button1 = GUICtrlCreateButton("Hướng Dẫn ", 24, 168, 121, 49)
  33. $Button3 = GUICtrlCreateButton("Quên mật khẩu?", 288, 168, 121, 49)
  34. $Radio1 = GUICtrlCreateRadio("Post 2 - 2 TD", 256, 272, 129, 33)
  35. $Label5 = GUICtrlCreateLabel("Tài khoản VIP", 232, 240, 134, 28)
  36. GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
  37. GUICtrlSetColor(-1, 0xFF0000)
  38. $Radio2 = GUICtrlCreateRadio("Post 2 - 1 TD", 256, 304, 129, 33)
  39. $Radio3 = GUICtrlCreateRadio("Post Win", 256, 336, 129, 33)
  40. $Radio4 = GUICtrlCreateRadio("Post 3 - 1 TD", 256, 376, 89, 17)
  41. $Radio5 = GUICtrlCreateRadio("Post 3 - 2 TD", 256, 408, 89, 17)
  42. $Label6 = GUICtrlCreateLabel("Tài khoản thường", 24, 240, 167, 28)
  43. GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
  44. GUICtrlSetColor(-1, 0xFF0000)
  45. $Label7 = GUICtrlCreateLabel("Create And Rencode By BAOVI", 8, 352, 219, 20)
  46. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  47. GUICtrlSetColor(-1, 0xFFFF00)
  48. $Label8 = GUICtrlCreateLabel("Facebook: fb.com/baovisociu", 8, 384, 209, 20)
  49. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  50. GUICtrlSetColor(-1, 0xFFFF00)
  51. $Label9 = GUICtrlCreateLabel("Version: 3.12.1.5", 8, 408, 117, 20)
  52. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  53. GUICtrlSetColor(-1, 0xFFFF00)
  54. $Checkbox3 = GUICtrlCreateCheckbox("Nhanh", 128, 320, 97, 17)
  55. $Checkbox4 = GUICtrlCreateCheckbox("Bình thường", 128, 296, 97, 17)
  56. $Checkbox5 = GUICtrlCreateCheckbox("Chậm", 128, 272, 97, 17)
  57. $Radio6 = GUICtrlCreateRadio("Post 2 - 2 TD", 8, 272, 105, 33)
  58. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  59. GUICtrlSetColor(-1, 0xFF0000)
  60. $Radio7 = GUICtrlCreateRadio("Post 2 - 1 TD", 8, 304, 105, 33)
  61. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  62. GUICtrlSetColor(-1, 0xFF0000)
  63. GUISetState(@SW_SHOW)
  64.  
  65.  
  66.  
  67.  
  68. While 1
  69.     $nMsg = GUIGetMsg()
  70.     Switch $nMsg
  71.         Case $GUI_EVENT_CLOSE
  72.             Exit
  73.         Case $button2
  74.             $username = GUICtrlRead($Input1)
  75.             $Password = GUICtrlRead($Input2)
  76.             If $Username == '' or $Password == '' then ;User Không được để trống
  77.                MsgBox(16, "Thông báo", "Vui lòng điền đầy đủ thông tin!")
  78.             Else
  79.                 If $Username == 'admin' and $Password == 'admin' then
  80.                    MsgBox(64, "Thông báo", "Đăng nhập thành công!")
  81.                    MsgBox(64, "License", "Coded by [T]ênkocầndài [C]hỉcầntốnđất [T]hếnómớichất")
  82.                 Else
  83.                    MsgBox(16, "Thông báo", "Đăng nhập thất bại: Sai Username/Password")
  84.                 EndIf
  85.             EndIf
  86.     EndSwitch
  87.  WEnd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement