1. Tải bản cài đặt AutoIT mới nhất

    Chào Khách. Nếu bạn mới tham gia và chưa cài đặt AutoIT.
    Vui lòng vào topic trên để tải bản AutoIT mới nhất nhé
    Dismiss Notice
  2. Quy định và nội quy

    Chào Khách. Vui lòng đọc kỹ nội quy và quy định của diễn đàn
    Để tránh bị ban một cách đáng tiếc nhé!
    Dismiss Notice
  3. Hướng dẫn chèn mã AutoIT trong diễn đàn

    Chào Khách. Vui lòng xem qua bài viết này
    Để biết cách chèn mã AutoIT trong diễn đàn bạn nhé :)
    Dismiss Notice

Hỏi đáp Hỏi về cách chuyển đổi từ GUI Login qua GUI chính

Thảo luận trong 'Thảo luận chung - Hỏi đáp' bắt đầu bởi Hade123, 29/12/18.

  1. Hade123

    Hade123 Thành viên
    • 8/11

    Tham gia ngày:
    14/12/18
    Bài viết:
    44
    Đã được thích:
    2
    mình là newb mong các bạn giúp mình nối 2 gui này với , khi mình nhấn đăng nhập thì gui 2 hiện lên và gui 1 mất đi

    Code Gui 1 login:
    Mã (AutoIt):
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form2 = GUICreate("Form2", 379, 118, 399, 133)
    $Label1 = GUICtrlCreateLabel("Vui Lòng Nhập Key Login", 72, 8, 225, 27)
    GUICtrlSetFont(-1, 16, 400, 0, "Times New Roman")
    $Input1 = GUICtrlCreateInput("Vui Lòng Nhập Key Login", 16, 48, 345, 21)
    $Button2 = GUICtrlCreateButton("Đăng Nhập", 104, 80, 147, 33)
    GUICtrlSetFont(-1, 11, 400, 0, "Times New Roman")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $button2
                If GUICtrlRead($input1)='7F65CFCA45EECD488C8D94B3DFE41' Then
                   MsgBox(0,'Thông Báo','Đăng Nhập Thành Công')
                Else
                   MsgBox(0,'Thông Báo','Key Sai')
                   EndIf

        EndSwitch
    WEnd
    Code Gui2 :
    Mã (AutoIt):
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("BOT FISHING RGAME.VN", 360, 282, 396, 133)
    $Label1 = GUICtrlCreateLabel("AUTO BOT FISHING", 32, 40, 296, 40)
    GUICtrlSetFont(-1, 24, 400, 0, "Times New Roman")
    GUICtrlSetColor(-1, 0xFF0000)
    $Label2 = GUICtrlCreateLabel("BETA 1.0", 272, 8, 67, 23)
    GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman")
    GUICtrlSetColor(-1, 0x00FF00)
    $Label3 = GUICtrlCreateLabel("CODE: Nguyễn Trường Sơn ", 184, 256, 176, 23)
    GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman")
    GUICtrlSetColor(-1, 0xFF00FF)
    $Button1 = GUICtrlCreateButton("Start", 208, 128, 137, 41)
    GUICtrlSetFont(-1, 11, 400, 0, "Times New Roman")
    GUICtrlSetColor(-1, 0xFF0000)
    $Checkbox1 = GUICtrlCreateCheckbox("Tu Dong ban Ca", 8, 136, 129, 17)
    GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman")
    GUICtrlSetColor(-1, 0xFF0000)
    $Checkbox2 = GUICtrlCreateCheckbox("Tự Động Giải Captcha", 8, 168, 161, 17)
    GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman")
    GUICtrlSetColor(-1, 0xFF0000)
    $Checkbox3 = GUICtrlCreateCheckbox("Anti AFK", 8, 200, 113, 17)
    GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman")
    GUICtrlSetColor(-1, 0xFF0000)
    $Checkbox4 = GUICtrlCreateCheckbox("Random Chat", 8, 232, 113, 17)
    GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman")
    GUICtrlSetColor(-1, 0xFF0000)
    $Label4 = GUICtrlCreateLabel("Rgame.vn", 112, 88, 111, 35)
    GUICtrlSetFont(-1, 20, 400, 0, "Times New Roman")
    GUICtrlSetColor(-1, 0xFFFF00)
    GUISetState(@SW_SHOW)
    $Pic1 = GUICtrlCreatePic("C:\Users\87 le thanh nghi\Desktop\hqdefault.jpg", 216, 176, 121, 73)

    #EndRegion ### END Koda GUI section ###

    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $Button1
                MsgBox(0,'Thông báo','Chạy Thành Công')
                MsgBox(0,'Thông Báo','Vui Long Chuyển Sang Tab Game')

        EndSwitch
    WEnd
    các bác giúp mình với ạ
     
  2. quochoa

    quochoa Thành viên mới
    • 3/6

    Tham gia ngày:
    18/2/17
    Bài viết:
    11
    Đã được thích:
    2
    Khi bạn đang nhập thành cong thì bạn sử dụng guidelete($form2) đi .
     
  3. Hade123

    Hade123 Thành viên
    • 8/11

    Tham gia ngày:
    14/12/18
    Bài viết:
    44
    Đã được thích:
    2
    mình newb nên ko biết bạn viết đoạn đó dùm mình được ko
     
  4. CanTrungSo1

    CanTrungSo1 Thành viên mới
    • 3/6

    Tham gia ngày:
    20/11/18
    Bài viết:
    7
    Đã được thích:
    2
  5. Hade123

    Hade123 Thành viên
    • 8/11

    Tham gia ngày:
    14/12/18
    Bài viết:
    44
    Đã được thích:
    2
    ý của mình là sau khi login đúng với key 7F65CFCA45EECD488C8D94B3DFE41 là nó chuyển qua gui code thứ 2 và tắt gui code thứ nhất đi bạn nối giúp mình với :3
     
  6. CanTrungSo1

    CanTrungSo1 Thành viên mới
    • 3/6

    Tham gia ngày:
    20/11/18
    Bài viết:
    7
    Đã được thích:
    2
    thì mình sửa rồi mà.
    Mã (AutoIt):

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form2 = GUICreate("Form2", 379, 118, 399, 133)
    $Label1 = GUICtrlCreateLabel("Vui Lòng Nhập Key Login", 72, 8, 225, 27)
    GUICtrlSetFont(-1, 16, 400, 0, "Times New Roman")
    $Input1 = GUICtrlCreateInput("Vui Lòng Nhập Key Login", 16, 48, 345, 21)
    $Button2 = GUICtrlCreateButton("Đăng Nhập", 104, 80, 147, 33)
    GUICtrlSetFont(-1, 11, 400, 0, "Times New Roman")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $button2
    If GUICtrlRead($input1)='7F65CFCA45EECD488C8D94B3DFE41' Then
    MsgBox(0,'Thông Báo','Đăng Nhập Thành Công')
    guidelete($Form2)
    exitloop
    Else
    MsgBox(0,'Thông Báo','Key Sai')
    EndIf

    EndSwitch
    WEnd

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("BOT FISHING RGAME.VN", 360, 282, 396, 133)
    $Label1 = GUICtrlCreateLabel("AUTO BOT FISHING", 32, 40, 296, 40)
    GUICtrlSetFont(-1, 24, 400, 0, "Times New Roman")
    GUICtrlSetColor(-1, 0xFF0000)
    $Label2 = GUICtrlCreateLabel("BETA 1.0", 272, 8, 67, 23)
    GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman")
    GUICtrlSetColor(-1, 0x00FF00)
    $Label3 = GUICtrlCreateLabel("CODE: Nguyễn Trường Sơn ", 184, 256, 176, 23)
    GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman")
    GUICtrlSetColor(-1, 0xFF00FF)
    $Button1 = GUICtrlCreateButton("Start", 208, 128, 137, 41)
    GUICtrlSetFont(-1, 11, 400, 0, "Times New Roman")
    GUICtrlSetColor(-1, 0xFF0000)
    $Checkbox1 = GUICtrlCreateCheckbox("Tu Dong ban Ca", 8, 136, 129, 17)
    GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman")
    GUICtrlSetColor(-1, 0xFF0000)
    $Checkbox2 = GUICtrlCreateCheckbox("Tự Động Giải Captcha", 8, 168, 161, 17)
    GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman")
    GUICtrlSetColor(-1, 0xFF0000)
    $Checkbox3 = GUICtrlCreateCheckbox("Anti AFK", 8, 200, 113, 17)
    GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman")
    GUICtrlSetColor(-1, 0xFF0000)
    $Checkbox4 = GUICtrlCreateCheckbox("Random Chat", 8, 232, 113, 17)
    GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman")
    GUICtrlSetColor(-1, 0xFF0000)
    $Label4 = GUICtrlCreateLabel("Rgame.vn", 112, 88, 111, 35)
    GUICtrlSetFont(-1, 20, 400, 0, "Times New Roman")
    GUICtrlSetColor(-1, 0xFFFF00)
    GUISetState(@SW_SHOW)
    $Pic1 = GUICtrlCreatePic("C:\Users\87 le thanh nghi\Desktop\hqdefault.jpg", 216, 176, 121, 73)

    #EndRegion ### END Koda GUI section ###

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    MsgBox(0,'Thông báo','Chạy Thành Công')
    MsgBox(0,'Thông Báo','Vui Long Chuyển Sang Tab Game')

    EndSwitch
    WEnd
     
  7. Hade123

    Hade123 Thành viên
    • 8/11

    Tham gia ngày:
    14/12/18
    Bài viết:
    44
    Đã được thích:
    2
    ok thanks bạn <3
     

Chia sẻ trang này

Đang tải...