Hỏi đáp Cho hỏi cách gọi các GUI con từ GUI mẹ

Mình Có 4 Gui , Gui 1 Là Gui chính Trong Gui 1 có 3 button mình muốn khi nhấn vào button 1 nó hiện gui 2
và nhấn button 2 hiện gui 3 nhấn button 3 hiện gui 4

Gui 1:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\users\87 le thanh nghi\desktop\koda_1.7.3.0\forms\trang chu.kxf
$Form1 = GUICreate("Form1", 404, 323, 192, 124)
GUISetFont(8, 400, 0, "Times New Roman")
$Label1 = GUICtrlCreateLabel("Tool Hỗ Trợ Marketing", 48, 16, 352, 40)
GUICtrlSetFont(-1, 24, 400, 0, "Times New Roman")
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("Tool Tăng Mắt coi Live Stream ", 16, 96, 244, 25)
GUICtrlSetFont(-1, 14, 400, 0, "Times New Roman")
GUICtrlSetColor(-1, 0x008000)
$Button1 = GUICtrlCreateButton("Vào", 272, 96, 97, 25)
GUICtrlSetFont(-1, 10, 400, 0, "Times New Roman")
$Label3 = GUICtrlCreateLabel("Tool Bật/Tắt Khiên Facebook", 16, 152, 228, 25)
GUICtrlSetFont(-1, 14, 400, 0, "Times New Roman")
GUICtrlSetColor(-1, 0x0000FF)
$Button2 = GUICtrlCreateButton("Vào", 272, 152, 97, 25)
GUICtrlSetFont(-1, 10, 400, 0, "Times New Roman")
$Label4 = GUICtrlCreateLabel("Tool Hủy Token", 16, 208, 129, 25)
GUICtrlSetFont(-1, 14, 400, 0, "Times New Roman")
GUICtrlSetColor(-1, 0x00FFFF)
$Button3 = GUICtrlCreateButton("Vào", 160, 208, 89, 25)
GUICtrlSetFont(-1, 10, 400, 0, "Times New Roman")
$Label5 = GUICtrlCreateLabel("CODE: NGUYỄN TRƯỜNG SƠN", 104, 272, 175, 19)
GUICtrlSetFont(-1, 10, 400, 0, "Times New Roman")
GUICtrlSetColor(-1, 0xFF00FF)
$Label6 = GUICtrlCreateLabel("Beta: 1.0", 352, 304, 46, 18)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

gui2:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Tool Tăng Mắt Live Facebook", 292, 281, 192, 124)
$Input1 = GUICtrlCreateInput("Điền Token Via Vào Đây", 16, 104, 249, 21)
$Input2 = GUICtrlCreateInput("Điền ID live vào đây", 16, 168, 121, 21)
$Label1 = GUICtrlCreateLabel("Token Via ", 16, 72, 87, 25)
GUICtrlSetFont(-1, 14, 400, 0, "Times New Roman")
$Label2 = GUICtrlCreateLabel("ID Live", 16, 136, 60, 25)
GUICtrlSetFont(-1, 14, 400, 0, "Times New Roman")
$Label3 = GUICtrlCreateLabel("Tool Mắt Live Facebook", 48, 8, 201, 26)
GUICtrlSetFont(-1, 15, 400, 0, "Times New Roman")
GUICtrlSetColor(-1, 0xFF0000)
$Label4 = GUICtrlCreateLabel("Phiên Bản Beta 1.2", 64, 40, 155, 26)
GUICtrlSetFont(-1, 15, 400, 0, "Times New Roman")
GUICtrlSetColor(-1, 0x00FF00)
$Button1 = GUICtrlCreateButton("Chạy Mắt", 16, 208, 107, 25)
$Label5 = GUICtrlCreateLabel("CODE:Nguyễn Trường Sơn", 72, 248, 130, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

Gui3:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form3 = GUICreate("Bật Khiên", 513, 310, 192, 124)
$input1 = GUICtrlCreateInput("Điền Token Vào Đây", 16, 112, 281, 21)
$Input2 = GUICtrlCreateInput("Điền Token Vào Đây", 16, 200, 281, 21)
$Label1 = GUICtrlCreateLabel("Bật Tắt Khiên Facebook", 96, 16, 280, 37)
GUICtrlSetFont(-1, 22, 400, 0, "Times New Roman")
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("Bật Khiên", 24, 64, 88, 27)
GUICtrlSetFont(-1, 16, 400, 0, "Times New Roman")
$Label3 = GUICtrlCreateLabel("Tắt Khiên", 24, 160, 86, 27)
GUICtrlSetFont(-1, 16, 400, 0, "Times New Roman")
$Button1 = GUICtrlCreateButton("Click bật khiên", 328, 104, 99, 25)
$Button2 = GUICtrlCreateButton("Click Tắt Khiên", 328, 200, 105, 25)
$Label4 = GUICtrlCreateLabel("CODE: NGUYỄN TRƯỜNG SƠN", 96, 264, 274, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit


EndSwitch
WEnd

Gui4:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form4 = GUICreate("Tool Hủy Token", 559, 228, 192, 124)
$Input1 = GUICtrlCreateInput("Điền token vào đây", 8, 112, 553, 21)
$Label1 = GUICtrlCreateLabel("Tool Hủy Token Facebook", 120, 16, 345, 40)
GUICtrlSetFont(-1, 24, 400, 0, "Times New Roman")
GUICtrlSetColor(-1, 0x00FF00)
$Label2 = GUICtrlCreateLabel("Token", 8, 72, 52, 25)
GUICtrlSetFont(-1, 14, 400, 0, "Times New Roman")
$Label3 = GUICtrlCreateLabel("CODE: NGUYỄN TRƯỜNG SƠN", 200, 192, 159, 17)
GUICtrlSetColor(-1, 0xFF0000)
$Button1 = GUICtrlCreateButton("Chạy", 208, 144, 139, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

Cảm ơn

 

Bạn phải học function , bạn gom mỗi gũi thành 1 function để dễ làm viiec.

 

Ok bác mà bác gom hộ tui cái trên trước với ạ tại đang cần gấp @@

 

Cần gấp và "để sau hãy học Func" thì xài cách này
Đặt tên 4 script thành gui1.au3, gui2.au3, gui3.au3 và gui4.au3, để cùng folder.
Vòng lặp While trong gui1.au3 đổi thành cái này

Mã (AutoIt):

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
    Case $Button1
        Run(@AutoItExe & ' /AutoIt3ExecuteScript "' & "gui2.au3" & '"')
    Case $Button2
        Run(@AutoItExe & ' /AutoIt3ExecuteScript "' & "gui3.au3" & '"')
    Case $Button3
        Run(@AutoItExe & ' /AutoIt3ExecuteScript "' & "gui4.au3" & '"')
EndSwitch
WEnd

Rồi thì đúng như ý bạn muốn

 

Bác nối kiểu bác trên nói hộ với :<

 

Mã (AutoIt):

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

Global $Form1, $Form2, $Form3, $Form4

#Region ### START Koda GUI section ### Form=c:\users\87 le thanh nghi\desktop\koda_1.7.3.0\forms\trang chu.kxf
$Form1 = GUICreate("Form1", 404, 323, 192, 124)
GUISetFont(8, 400, 0, "Times New Roman")
$Label1 = GUICtrlCreateLabel("Tool Hỗ Trợ Marketing", 48, 16, 352, 40)
GUICtrlSetFont(-1, 24, 400, 0, "Times New Roman")
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("Tool Tăng Mắt coi Live Stream ", 16, 96, 244, 25)
GUICtrlSetFont(-1, 14, 400, 0, "Times New Roman")
GUICtrlSetColor(-1, 0x008000)
$Button1 = GUICtrlCreateButton("Vào", 272, 96, 97, 25)
GUICtrlSetFont(-1, 10, 400, 0, "Times New Roman")
$Label3 = GUICtrlCreateLabel("Tool Bật/Tắt Khiên Facebook", 16, 152, 228, 25)
GUICtrlSetFont(-1, 14, 400, 0, "Times New Roman")
GUICtrlSetColor(-1, 0x0000FF)
$Button2 = GUICtrlCreateButton("Vào", 272, 152, 97, 25)
GUICtrlSetFont(-1, 10, 400, 0, "Times New Roman")
$Label4 = GUICtrlCreateLabel("Tool Hủy Token", 16, 208, 129, 25)
GUICtrlSetFont(-1, 14, 400, 0, "Times New Roman")
GUICtrlSetColor(-1, 0x00FFFF)
$Button3 = GUICtrlCreateButton("Vào", 160, 208, 89, 25)
GUICtrlSetFont(-1, 10, 400, 0, "Times New Roman")
$Label5 = GUICtrlCreateLabel("CODE: NGUYỄN TRƯỜNG SƠN", 104, 272, 175, 19)
GUICtrlSetFont(-1, 10, 400, 0, "Times New Roman")
GUICtrlSetColor(-1, 0xFF00FF)
$Label6 = GUICtrlCreateLabel("Beta: 1.0", 352, 304, 46, 18)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg(1)
    Switch $nMsg[1]
        Case $Form1
            Switch $nMsg[0]
                Case $GUI_EVENT_CLOSE
                    Exit
                Case $Button1
                    gui2()
                Case $Button2
                    gui3()
                Case $Button3
                    gui4()
            EndSwitch
        Case $Form2
            Switch $nMsg[0]
                Case $GUI_EVENT_CLOSE
                    GUIDelete($Form2)
            EndSwitch
        Case $Form3
            Switch $nMsg[0]
                Case $GUI_EVENT_CLOSE
                    GUIDelete($Form3)
            EndSwitch
        Case $Form4
            Switch $nMsg[0]
                Case $GUI_EVENT_CLOSE
                    GUIDelete($Form4)
            EndSwitch
    EndSwitch

WEnd

Func gui2()
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Tool Tăng Mắt Live Facebook", 292, 281, 192, 124)
$Input1 = GUICtrlCreateInput("Điền Token Via Vào Đây", 16, 104, 249, 21)
$Input2 = GUICtrlCreateInput("Điền ID live vào đây", 16, 168, 121, 21)
$Label1 = GUICtrlCreateLabel("Token Via ", 16, 72, 87, 25)
GUICtrlSetFont(-1, 14, 400, 0, "Times New Roman")
$Label2 = GUICtrlCreateLabel("ID Live", 16, 136, 60, 25)
GUICtrlSetFont(-1, 14, 400, 0, "Times New Roman")
$Label3 = GUICtrlCreateLabel("Tool Mắt Live Facebook", 48, 8, 201, 26)
GUICtrlSetFont(-1, 15, 400, 0, "Times New Roman")
GUICtrlSetColor(-1, 0xFF0000)
$Label4 = GUICtrlCreateLabel("Phiên Bản Beta 1.2", 64, 40, 155, 26)
GUICtrlSetFont(-1, 15, 400, 0, "Times New Roman")
GUICtrlSetColor(-1, 0x00FF00)
$Button1 = GUICtrlCreateButton("Chạy Mắt", 16, 208, 107, 25)
$Label5 = GUICtrlCreateLabel("CODE:Nguyễn Trường Sơn", 72, 248, 130, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
EndFunc

Func gui3()
#Region ### START Koda GUI section ### Form=
$Form3 = GUICreate("Bật Khiên", 513, 310, 192, 124)
$input1 = GUICtrlCreateInput("Điền Token Vào Đây", 16, 112, 281, 21)
$Input2 = GUICtrlCreateInput("Điền Token Vào Đây", 16, 200, 281, 21)
$Label1 = GUICtrlCreateLabel("Bật Tắt Khiên Facebook", 96, 16, 280, 37)
GUICtrlSetFont(-1, 22, 400, 0, "Times New Roman")
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("Bật Khiên", 24, 64, 88, 27)
GUICtrlSetFont(-1, 16, 400, 0, "Times New Roman")
$Label3 = GUICtrlCreateLabel("Tắt Khiên", 24, 160, 86, 27)
GUICtrlSetFont(-1, 16, 400, 0, "Times New Roman")
$Button1 = GUICtrlCreateButton("Click bật khiên", 328, 104, 99, 25)
$Button2 = GUICtrlCreateButton("Click Tắt Khiên", 328, 200, 105, 25)
$Label4 = GUICtrlCreateLabel("CODE: NGUYỄN TRƯỜNG SƠN", 96, 264, 274, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
EndFunc

Func gui4()
#Region ### START Koda GUI section ### Form=
$Form4 = GUICreate("Tool Hủy Token", 559, 228, 192, 124)
$Input1 = GUICtrlCreateInput("Điền token vào đây", 8, 112, 553, 21)
$Label1 = GUICtrlCreateLabel("Tool Hủy Token Facebook", 120, 16, 345, 40)
GUICtrlSetFont(-1, 24, 400, 0, "Times New Roman")
GUICtrlSetColor(-1, 0x00FF00)
$Label2 = GUICtrlCreateLabel("Token", 8, 72, 52, 25)
GUICtrlSetFont(-1, 14, 400, 0, "Times New Roman")
$Label3 = GUICtrlCreateLabel("CODE: NGUYỄN TRƯỜNG SƠN", 200, 192, 159, 17)
GUICtrlSetColor(-1, 0xFF0000)
$Button1 = GUICtrlCreateButton("Chạy", 208, 144, 139, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
EndFunc

 

oke thanks bác, mà bác cho mình hỏi mình muốn chèn code này vào chỗ GUI 2 á thì mình điền ở đâu vậy :

$oIE = ObjCreate("InternetExplorer.Application")
$oIE.visible = true
$oIE.Navigate("http://nvhsystem.xyz/live/api.php?token=" & GUICtrlRead($Input1) & "&id=" & GUICtrlRead($Input2))

 

Bạn hỏi ở đâu thì "chắp vá" chổ đó thôi,
và cứ tiếp tục như vầy thì code này không đi xa được đâu,
cần điều chỉnh là từ đầu cho có đầu có đũa mới được.

Mã (AutoIt):

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

Global $Form1, $Form2, $Form3, $Form4, $Button1, $Input1, $Input2

#Region ### START Koda GUI section ### Form=c:\users\87 le thanh nghi\desktop\koda_1.7.3.0\forms\trang chu.kxf
$Form1 = GUICreate("Form1", 404, 323, 192, 124)
GUISetFont(8, 400, 0, "Times New Roman")
$Label1 = GUICtrlCreateLabel("Tool Hỗ Trợ Marketing", 48, 16, 352, 40)
GUICtrlSetFont(-1, 24, 400, 0, "Times New Roman")
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("Tool Tăng Mắt coi Live Stream ", 16, 96, 244, 25)
GUICtrlSetFont(-1, 14, 400, 0, "Times New Roman")
GUICtrlSetColor(-1, 0x008000)
$Button1 = GUICtrlCreateButton("Vào", 272, 96, 97, 25)
GUICtrlSetFont(-1, 10, 400, 0, "Times New Roman")
$Label3 = GUICtrlCreateLabel("Tool Bật/Tắt Khiên Facebook", 16, 152, 228, 25)
GUICtrlSetFont(-1, 14, 400, 0, "Times New Roman")
GUICtrlSetColor(-1, 0x0000FF)
$Button2 = GUICtrlCreateButton("Vào", 272, 152, 97, 25)
GUICtrlSetFont(-1, 10, 400, 0, "Times New Roman")
$Label4 = GUICtrlCreateLabel("Tool Hủy Token", 16, 208, 129, 25)
GUICtrlSetFont(-1, 14, 400, 0, "Times New Roman")
GUICtrlSetColor(-1, 0x00FFFF)
$Button3 = GUICtrlCreateButton("Vào", 160, 208, 89, 25)
GUICtrlSetFont(-1, 10, 400, 0, "Times New Roman")
$Label5 = GUICtrlCreateLabel("CODE: NGUYỄN TRƯỜNG SƠN", 104, 272, 175, 19)
GUICtrlSetFont(-1, 10, 400, 0, "Times New Roman")
GUICtrlSetColor(-1, 0xFF00FF)
$Label6 = GUICtrlCreateLabel("Beta: 1.0", 352, 304, 46, 18)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg(1)
    Switch $nMsg[1]
        Case $Form1
            Switch $nMsg[0]
                Case $GUI_EVENT_CLOSE
                    Exit
                Case $Button1
                    gui2()
                Case $Button2
                    gui3()
                Case $Button3
                    gui4()
            EndSwitch
        Case $Form2
            Switch $nMsg[0]
                Case $GUI_EVENT_CLOSE
                    GUIDelete($Form2)
                Case $Button1
                    $oIE = ObjCreate("InternetExplorer.Application")
                    $oIE.visible = true
                    $oIE.Navigate("http://nvhsystem.xyz/live/api.php?token=" & GUICtrlRead($Input1) & "&id=" & GUICtrlRead($Input2))
            EndSwitch
        Case $Form3
            Switch $nMsg[0]
                Case $GUI_EVENT_CLOSE
                    GUIDelete($Form3)
            EndSwitch
        Case $Form4
            Switch $nMsg[0]
                Case $GUI_EVENT_CLOSE
                    GUIDelete($Form4)
            EndSwitch
    EndSwitch

WEnd

Func gui2()
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Tool Tăng Mắt Live Facebook", 292, 281, 192, 124)
$Input1 = GUICtrlCreateInput("Điền Token Via Vào Đây", 16, 104, 249, 21)
$Input2 = GUICtrlCreateInput("Điền ID live vào đây", 16, 168, 121, 21)
$Label1 = GUICtrlCreateLabel("Token Via ", 16, 72, 87, 25)
GUICtrlSetFont(-1, 14, 400, 0, "Times New Roman")
$Label2 = GUICtrlCreateLabel("ID Live", 16, 136, 60, 25)
GUICtrlSetFont(-1, 14, 400, 0, "Times New Roman")
$Label3 = GUICtrlCreateLabel("Tool Mắt Live Facebook", 48, 8, 201, 26)
GUICtrlSetFont(-1, 15, 400, 0, "Times New Roman")
GUICtrlSetColor(-1, 0xFF0000)
$Label4 = GUICtrlCreateLabel("Phiên Bản Beta 1.2", 64, 40, 155, 26)
GUICtrlSetFont(-1, 15, 400, 0, "Times New Roman")
GUICtrlSetColor(-1, 0x00FF00)
$Button1 = GUICtrlCreateButton("Chạy Mắt", 16, 208, 107, 25)
$Label5 = GUICtrlCreateLabel("CODE:Nguyễn Trường Sơn", 72, 248, 130, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
EndFunc

Func gui3()
#Region ### START Koda GUI section ### Form=
$Form3 = GUICreate("Bật Khiên", 513, 310, 192, 124)
$input1 = GUICtrlCreateInput("Điền Token Vào Đây", 16, 112, 281, 21)
$Input2 = GUICtrlCreateInput("Điền Token Vào Đây", 16, 200, 281, 21)
$Label1 = GUICtrlCreateLabel("Bật Tắt Khiên Facebook", 96, 16, 280, 37)
GUICtrlSetFont(-1, 22, 400, 0, "Times New Roman")
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("Bật Khiên", 24, 64, 88, 27)
GUICtrlSetFont(-1, 16, 400, 0, "Times New Roman")
$Label3 = GUICtrlCreateLabel("Tắt Khiên", 24, 160, 86, 27)
GUICtrlSetFont(-1, 16, 400, 0, "Times New Roman")
$Button1 = GUICtrlCreateButton("Click bật khiên", 328, 104, 99, 25)
$Button2 = GUICtrlCreateButton("Click Tắt Khiên", 328, 200, 105, 25)
$Label4 = GUICtrlCreateLabel("CODE: NGUYỄN TRƯỜNG SƠN", 96, 264, 274, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
EndFunc

Func gui4()
#Region ### START Koda GUI section ### Form=
$Form4 = GUICreate("Tool Hủy Token", 559, 228, 192, 124)
$Input1 = GUICtrlCreateInput("Điền token vào đây", 8, 112, 553, 21)
$Label1 = GUICtrlCreateLabel("Tool Hủy Token Facebook", 120, 16, 345, 40)
GUICtrlSetFont(-1, 24, 400, 0, "Times New Roman")
GUICtrlSetColor(-1, 0x00FF00)
$Label2 = GUICtrlCreateLabel("Token", 8, 72, 52, 25)
GUICtrlSetFont(-1, 14, 400, 0, "Times New Roman")
$Label3 = GUICtrlCreateLabel("CODE: NGUYỄN TRƯỜNG SƠN", 200, 192, 159, 17)
GUICtrlSetColor(-1, 0xFF0000)
$Button1 = GUICtrlCreateButton("Chạy", 208, 144, 139, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
EndFunc

 

ok bác tool em hoàn thiện rồi ^^