API tools faq
paste
MrTheDzam

DEMO Login + Register + Bảng giá

MrTheDzam
Aug 31st, 2015
113
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 12.77 KB | None | 0 0
raw download clone embed print report
  1. #cs
  2.     Coder: [T]ênkocầndài [C]hỉcầntốnđất [T]hếnómớichất (MrTheDzam)
  3.     Lưu ý: Đây là code cilent, không kết nối với bất kỳ server nào. Đề nghị không sử dụng để lừa đảo hoặc sử dụng
  4.     với các mục đích kháC
  5. #ce
  6.  
  7. #include <ButtonConstants.au3>
  8. #include <EditConstants.au3>
  9. #include <GUIConstantsEx.au3>
  10. #include <StaticConstants.au3>
  11. #include <WindowsConstants.au3>
  12. #Include <Misc.au3>
  13.  
  14. Opt('GuiOnEventMode', -1)
  15.  
  16. gui1()
  17.  
  18. Func gui1()
  19.     Global $Form1 = GUICreate("Auto SC Ver 3.12.1.5", 421, 435, 775, 159)
  20.     GUISetOnEvent($GUI_EVENT_CLOSE, "MainFormClose")
  21.     GUISetBkColor(0x008080)
  22.     Global $Label1 = GUICtrlCreateLabel("AUTO SC Ver 3.12.1.5", 64, 16, 295, 40)
  23.     GUICtrlSetFont(-1, 22, 400, 0, "VnFrankfurtGothic2")
  24.     GUICtrlSetColor(-1, 0x800000)
  25.     Global $Input1 = GUICtrlCreateInput("", 128, 80, 209, 21)
  26.     Global $Label2 = GUICtrlCreateLabel("ID Name:", 16, 80, 90, 28)
  27.     GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
  28.     GUICtrlSetColor(-1, 0x000000)
  29.     Global $Input2 = GUICtrlCreateInput("", 128, 120, 209, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
  30.     Global $Label3 = GUICtrlCreateLabel("Password:", 16, 120, 100, 28)
  31.  
  32.     GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
  33.     GUICtrlSetColor(-1, 0x000000)
  34.  
  35.     $Label4 = GUICtrlCreateLabel("", 16, 152, 4, 4)
  36.     GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
  37.     GUICtrlSetColor(-1, 0x000000)
  38.     Global $Button2 = GUICtrlCreateButton("Đăng nhập", 155, 169, 121, 49)
  39.     GUICtrlSetOnEvent(-1, 'dangnhap')
  40.     Global $Button1 = GUICtrlCreateButton("Đăng xuất", 24, 168, 121, 49)
  41.     GUICtrlSetOnEvent(-1, 'dangxuat')
  42.     GUICtrlSetState(-1, $GUI_DISABLE)
  43.     Global $Button3 = GUICtrlCreateButton("Tạo tài khoản", 288, 168, 121, 49)
  44.     GUICtrlSetOnEvent(-1, 'gui2')
  45.     Global $Radio1 = GUICtrlCreateRadio("Post 2 - 2 TD", 256, 272, 129, 33)
  46.     GUICtrlSetOnEvent(-1, 'success')
  47.     GUICtrlSetState(-1, $GUI_DISABLE)
  48.     Global $Label5 = GUICtrlCreateLabel("Tài khoản VIP", 232, 240, 134, 28)
  49.  
  50.     GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
  51.     GUICtrlSetColor(-1, 0xFF0000)
  52.     Global $Radio2 = GUICtrlCreateRadio("Post 2 - 1 TD", 256, 304, 129, 33)
  53.     GUICtrlSetOnEvent(-1, 'success')
  54.     GUICtrlSetState(-1, $GUI_DISABLE)
  55.     Global $Radio3 = GUICtrlCreateRadio("Post Win", 256, 336, 129, 33)
  56.     GUICtrlSetOnEvent(-1, 'success')
  57.     GUICtrlSetState(-1, $GUI_DISABLE)
  58.     Global $Radio4 = GUICtrlCreateRadio("Post 3 - 1 TD", 256, 376, 89, 17)
  59.     GUICtrlSetOnEvent(-1, 'success')
  60.     GUICtrlSetState(-1, $GUI_DISABLE)
  61.     Global $Radio5 = GUICtrlCreateRadio("Post 3 - 2 TD", 256, 408, 89, 17)
  62.     GUICtrlSetOnEvent(-1, 'success')
  63.     GUICtrlSetState(-1, $GUI_DISABLE)
  64.     Global $Label6 = GUICtrlCreateLabel("Tài khoản thường", 24, 240, 167, 28)
  65.  
  66.     GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
  67.     GUICtrlSetColor(-1, 0xFF0000)
  68.     Global $Label7 = GUICtrlCreateLabel("Create And Rencode By BAOVI", 8, 352, 219, 20)
  69.     GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  70.     GUICtrlSetColor(-1, 0xFFFF00)
  71.     Global $Label8 = GUICtrlCreateLabel("Facebook: fb.com/baovisociu", 8, 384, 209, 20)
  72.     GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  73.     GUICtrlSetColor(-1, 0xFFFF00)
  74.     Global $Label9 = GUICtrlCreateLabel("Version: 3.12.1.5", 8, 408, 117, 20)
  75.     GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  76.     GUICtrlSetColor(-1, 0xFFFF00)
  77.     Global $Checkbox3 = GUICtrlCreateCheckbox("Nhanh", 128, 320, 97, 17)
  78.     GUICtrlSetOnEvent(-1, 'success')
  79.     GUICtrlSetState(-1, $GUI_DISABLE)
  80.     Global $Checkbox4 = GUICtrlCreateCheckbox("Bình thường", 128, 296, 97, 17)
  81.     GUICtrlSetOnEvent(-1, 'success')
  82.     GUICtrlSetState(-1, $GUI_DISABLE)
  83.     Global $Checkbox5 = GUICtrlCreateCheckbox("Chậm", 128, 272, 97, 17)
  84.     GUICtrlSetOnEvent(-1, 'success')
  85.     GUICtrlSetState(-1, $GUI_DISABLE)
  86.     Global $Radio6 = GUICtrlCreateRadio("Post 2 - 2 TD", 8, 272, 105, 33)
  87.     GUICtrlSetOnEvent(-1, 'success')
  88.     GUICtrlSetState(-1, $GUI_DISABLE)
  89.     GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  90.     GUICtrlSetColor(-1, 0xFF0000)
  91.     Global $Radio7 = GUICtrlCreateRadio("Post 2 - 1 TD", 8, 304, 105, 33)
  92.     GUICtrlSetOnEvent(-1, 'success')
  93.     GUICtrlSetState(-1, $GUI_DISABLE)
  94.     GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  95.     GUICtrlSetColor(-1, 0xFF0000)
  96.     GUISetState(@SW_SHOW)
  97. EndFunc
  98.  
  99. While 1
  100.     Sleep(69)
  101. WEnd
  102.  
  103. Func success()
  104.     ToolTip("Chọn thành công!", 50, 50, "Thông báo", 1, 2) ;Dở tọa độ nên tooltip có thể sẽ hiện rất xa khỏi chưng trình
  105.     Sleep(2000)
  106.     ToolTip("")
  107. EndFunc
  108.  
  109. Func MainFormClose()
  110.     Exit
  111. EndFunc
  112.  
  113. Func dangnhap()
  114.     $username = GUICtrlRead($Input1)
  115.     $Password = GUICtrlRead($Input2)
  116.     If $Username == '' or $Password == '' then ;User Không được để trống
  117.        MsgBox(16, "Thông báo", "Vui lòng điền đầy đủ thông tin!")
  118.     Else
  119.         If $Username == 'admin' and $Password == 'admin' then
  120.             tkthuong()
  121.         ElseIf $Username == 'taikhoanvip1' and $Password == 'TCT' then
  122.             tkvip()
  123.         Else
  124.             MsgBox(16, "Thông báo", "Đăng nhập thất bại: Sai Username/Password")
  125.         EndIf
  126.         MsgBox(64, "License", "Coded by [T]ênkocầndài [C]hỉcầntốnđất [T]hếnómớichất")
  127.     EndIf
  128. EndFunc
  129.  
  130.  
  131.  
  132. Func tkthuong()
  133.     MsgBox(64, "Thông báo", "Đăng nhập vào TK thường thành công")
  134.     GUICtrlSetState($Radio1,$GUI_DISABLE)
  135.     GUICtrlSetState($Radio2,$GUI_DISABLE)
  136.     GUICtrlSetState($Radio3,$GUI_DISABLE)
  137.     GUICtrlSetState($Radio4,$GUI_DISABLE)
  138.     GUICtrlSetState($Radio5,$GUI_DISABLE)
  139.     GUICtrlSetState($Radio6,$GUI_ENABLE)
  140.     GUICtrlSetState($Radio7,$GUI_ENABLE)
  141.     GUICtrlSetState($Checkbox3,$GUI_ENABLE)
  142.     GUICtrlSetState($Checkbox4,$GUI_ENABLE)
  143.     GUICtrlSetState($Checkbox5,$GUI_ENABLE)
  144.     GUICtrlSetState($Input1, $GUI_DISABLE)
  145.     GUICtrlSetState($INPUT2, $GUI_DISABLE)
  146.     GUICtrlSetState($BUTTON2, $GUI_DISABLE)
  147.     GUICtrlSetData($BUTTON2, "Đã đăng nhập")
  148.     GUICtrlSetState($Button1, $GUI_ENABLE)
  149. EndFunc
  150.  
  151. Func tkvip()
  152.     MsgBox(64, "Thông báo", "Đăng nhập vào TK VIP thành công!")
  153.     GUICtrlSetState($Radio1,$GUI_ENABLE)
  154.     GUICtrlSetState($Radio2,$GUI_ENABLE)
  155.     GUICtrlSetState($Radio3,$GUI_ENABLE)
  156.     GUICtrlSetState($Radio4,$GUI_ENABLE)
  157.     GUICtrlSetState($Radio5,$GUI_ENABLE)
  158.     GUICtrlSetState($Radio6,$GUI_ENABLE)
  159.     GUICtrlSetState($Radio7,$GUI_ENABLE)
  160.     GUICtrlSetState($Checkbox3,$GUI_ENABLE)
  161.     GUICtrlSetState($Checkbox4,$GUI_ENABLE)
  162.     GUICtrlSetState($Checkbox5,$GUI_ENABLE)
  163.     GUICtrlSetState($Input1, $GUI_DISABLE)
  164.     GUICtrlSetState($INPUT2, $GUI_DISABLE)
  165.     GUICtrlSetState($BUTTON2, $GUI_DISABLE)
  166.     GUICtrlSetData($BUTTON2, "Đã đăng nhập")
  167.     GUICtrlSetState($Button1, $GUI_ENABLE)
  168. EndFunc
  169.  
  170. Func dangxuat()
  171.     GUICtrlSetState($Radio1,$GUI_DISABLE)
  172.     GUICtrlSetState($Radio2,$GUI_DISABLE)
  173.     GUICtrlSetState($Radio3,$GUI_DISABLE)
  174.     GUICtrlSetState($Radio4,$GUI_DISABLE)
  175.     GUICtrlSetState($Radio5,$GUI_DISABLE)
  176.     GUICtrlSetState($Radio6,$GUI_DISABLE)
  177.     GUICtrlSetState($Radio7,$GUI_DISABLE)
  178.     GUICtrlSetState($Checkbox3,$GUI_DISABLE)
  179.     GUICtrlSetState($Checkbox4,$GUI_DISABLE)
  180.     GUICtrlSetState($Checkbox5,$GUI_DISABLE)
  181.     GUICtrlSetState($Input1, $GUI_ENABLE)
  182.     GUICtrlSetState($INPUT2, $GUI_ENABLE)
  183.     GUICtrlSetData($Input1, '')
  184.     GUICtrlSetData($Input2, '')
  185.     GUICtrlSetState($BUTTON2, $GUI_ENABLE)
  186.     GUICtrlSetData($BUTTON2, "Đăng nhập")
  187.     GUICtrlSetState($Button1, $GUI_DISABLE)
  188. EndFunc
  189.  
  190. Func gui2()
  191.     Global $Form2 = GUICreate("Dang ki tai khoan AUTO", 364, 305, 302, 218)
  192.     GUISetOnEvent($GUI_EVENT_CLOSE, 'Form2Close')
  193.     GUISetBkColor(0xFFFF00)
  194.     Global $Input10 = GUICtrlCreateInput("password", 104, 80, 161, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
  195.     GUICtrlSetColor(-1, 0x000000)
  196.     Global $name = GUICtrlCreateInput("", 104, 40, 161, 21)
  197.     GUICtrlSetColor(-1, 0x000000)
  198.     $Label1 = GUICtrlCreateLabel("Đăng ký tài khoản", 104, 8, 150, 24)
  199.     GUICtrlSetFont(-1, 12, 800, 4, "MS Sans Serif")
  200.     GUICtrlSetColor(-1, 0x0000FF)
  201.     Global $Input69 = GUICtrlCreateInput("password", 112, 120, 161, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
  202.     GUICtrlSetColor(-1, 0x000000)
  203.     $Label2 = GUICtrlCreateLabel("ID NAME:", 8, 40, 83, 24)
  204.     GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
  205.     GUICtrlSetColor(-1, 0x000000)
  206.     $Label3 = GUICtrlCreateLabel("Password:", 8, 80, 90, 24)
  207.     GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
  208.     GUICtrlSetColor(-1, 0x000000)
  209.     $Label4 = GUICtrlCreateLabel("Retry Pass:", 8, 120, 96, 24)
  210.     GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
  211.     GUICtrlSetColor(-1, 0x000000)
  212.     $Label5 = GUICtrlCreateLabel("SĐT:", 8, 160, 115, 24)
  213.     GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
  214.     GUICtrlSetColor(-1, 0x000000)
  215.     Global $Input11 = GUICtrlCreateInput("", 128, 160, 161, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER))
  216.     GUICtrlSetColor(-1, 0x000000)
  217.     $Button1 = GUICtrlCreateButton("Kiểm tra TK", 272, 40, 89, 25)
  218.     GUICtrlSetOnEvent(-1, 'Default1')
  219.     GUICtrlSetColor(-1, 0x000000)
  220.     $Label6 = GUICtrlCreateLabel("Thông báo: Chỉ nhận card Viettel khi ĐK tài khoản", 32, 192, 314, 17)
  221.     GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  222.     GUICtrlSetColor(-1, 0xFF0000)
  223.     Global $Label68 = GUICtrlCreateInput("", 128, 216, 201, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER))
  224.     GUICtrlSetColor(-1, 0x000000)
  225.     $Label7 = GUICtrlCreateLabel("Số Seri", 56, 216, 63, 24)
  226.     GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
  227.     GUICtrlSetColor(-1, 0x808080)
  228.     $Label8 = GUICtrlCreateLabel("Mã thẻ", 56, 240, 59, 24)
  229.     GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
  230.     GUICtrlSetColor(-1, 0xC0C0C0)
  231.     Global $Label70 = GUICtrlCreateInput("", 128, 240, 201, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER))
  232.     GUICtrlSetColor(-1, 0x000000)
  233.     $Label9 = GUICtrlCreateLabel("", 0, 216, 4, 4)
  234.     GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
  235.     GUICtrlSetState(-1, $GUI_DISABLE)
  236.     $Button2 = GUICtrlCreateButton("Đăng kí tài khoản", 208, 264, 121, 33)
  237.     GUICtrlSetOnEvent(-1, 'Default1')
  238.     GUICtrlSetColor(-1, 0x000000)
  239.     $Button3 = GUICtrlCreateButton("Xem giá tài khoản Auto", 32, 264, 145, 33)
  240.     GUICtrlSetOnEvent(-1, 'gui3')
  241.     GUICtrlSetColor(-1, 0x000000)
  242.     $Button4 = GUICtrlCreateButton("Facebook", 280, 72, 73, 41)
  243.     GUICtrlSetOnEvent(-1, 'fb')
  244.     GUICtrlSetColor(-1, 0x000000)
  245.     GUISetState(@SW_SHOW)
  246. EndFunc
  247.  
  248. Func Form2Close()
  249.     GUIDelete($Form2)
  250. EndFunc
  251.  
  252.  
  253. Func Default1()
  254.     If GUICtrlRead($name) == '' then
  255.         MsgBox(16, "Lỗi", "Thiếu tên đăng nhập")
  256.     ElseIf GUICtrlRead($Input11) == '' then
  257.         MsgBox(48, "Lỗi", "THiếu SĐT")
  258.     ElseIf GUICtrlRead($Input10) <> GUICtrlRead($Input69) then
  259.         MsgBox(48, "Lỗi", "Password và password entry không giống nhau!!")
  260.     ElseIf GUICtrlRead($Input10) == '' or GUICtrlRead($Input69) == '' then
  261.         MsgBox(48, "Lỗi", "Không được để trống Password!")
  262.     ElseIf GUICtrlRead($Label68) == '' or GUICtrlRead($Label70) == '' then
  263.         MsgBox(48, "Lỗi", "Thiếu series/mã thẻ")
  264.     Else
  265.         MsgBox(16, "Lỗi", "Error")
  266.     EndIf
  267. EndFunc
  268.  
  269. Func fb()
  270.     ShellExecute('http://www.facebook.com/baovisociu')
  271. EndFunc
  272.  
  273. Func gui3()
  274.     Global $Form3 = GUICreate("Bảng giá Auto", 316, 238, 346, 262)
  275.     GUISetOnEvent($GUI_EVENT_CLOSE, "Form3Close")
  276.     GUISetBkColor(0x000000)
  277.     $Button1 = GUICtrlCreateButton("&OK", 65, 203, 75, 25)
  278.     GUICtrlSetOnEvent(-1, "Form3Close")
  279.     $Button2 = GUICtrlCreateButton("&Cancel", 162, 203, 75, 25)
  280.     GUICtrlSetOnEvent(-1, "Form3Close")
  281.     $Label1 = GUICtrlCreateLabel("Bảng giá TK Auto", 48, 8, 207, 24)
  282.     GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
  283.     GUICtrlSetColor(-1, 0xFFFFFF)
  284.     $Label2 = GUICtrlCreateLabel("TÀI KHOẢN VIP : ĐĂNG NHẬP VIP", 16, 40, 237, 20)
  285.     GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  286.     GUICtrlSetColor(-1, 0xFF0000)
  287.     $Label3 = GUICtrlCreateLabel("100k/ 1 tháng SD", 16, 64, 159, 20)
  288.     GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  289.     GUICtrlSetColor(-1, 0xFFFF00)
  290.     $Label4 = GUICtrlCreateLabel("300k/ Vĩnh viễn", 16, 88, 108, 20)
  291.     GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  292.     GUICtrlSetColor(-1, 0xFFFF00)
  293.     $Label5 = GUICtrlCreateLabel("TÀI KHOẢN THƯỜNG", 16, 112, 153, 20)
  294.     GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  295.     GUICtrlSetColor(-1, 0xFF0000)
  296.     $Label6 = GUICtrlCreateLabel("50k/ 1 Tháng", 16, 136, 93, 20)
  297.     GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  298.     GUICtrlSetColor(-1, 0xFFFF00)
  299.     $Label7 = GUICtrlCreateLabel("200k/ Vĩnh viễn", 16, 160, 110, 20)
  300.     GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  301.     GUICtrlSetColor(-1, 0xFFFF00)
  302.     $Label8 = GUICtrlCreateLabel("TK VIP Post với tốc độ Maximum", 32, 184, 235, 17)
  303.     GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  304.     GUICtrlSetColor(-1, 0xFFFFFF)
  305.     $Button3 = GUICtrlCreateButton("FACEBOOK ", 200, 80, 97, 33)
  306.     GUICtrlSetOnEvent(-1, 'fb')
  307.     $Buttom69 = GuiCtrlCreateButton("License", 200, 130, 97, 33)
  308.     GUICtrlSetOnEvent(-1, 'license')
  309.     GUISetState(@SW_SHOW)
  310. EndFunc
  311.  
  312. Func License()
  313.     MsgBox(64, "License", "Việt hóa (:v) và chỉnh sửa by [T][C][T]"&@CRLF&"http://hocautoit.com/u/MrTheDzam")
  314. EndFunc
  315.  
  316. Func Form3Close()
  317.     GUIDelete($Form3)
  318. EndFunc
  319.  
  320.  
  321. Func guidel()
  322.     $UserRegister = GUICtrlRead($name)
  323.     GUICtrlSetData($Input1, $UserRegister)
  324.     Form2Close()
  325. EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!