Hỏi đáp [Solved] Vấn đề về Start/Stop Button trong GUI

Do trong hàm iSleep thým gọi nhiều GUIGetMsg() quá, mà AutoIt nó khá kém trong việc xử lý nhiều luồng thông tin → Vì vậy AutoIt nó "đau não" không biết xử lý Message nhận được nào trước nào sau, dẫn đến đơ :v

Căn bản thì chỉ cần chỉnh nhẹ lại iSleep (chỉ gọi 1 cái GUIGetMsg) là code chạy mượt mà ngay ấy mà:

Mã (AutoIt):

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("", 355, 211)
    $Group1 = GUICtrlCreateGroup("", 8, 48, 249, 97)
    $BtnStart = GUICtrlCreateButton("Start", 16, 64, 65, 33)
    $LblFooter = GUICtrlCreateLabel("Thông tin chung", 8, 192, 337, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $paused = False
Global $i = 0

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $BtnStart
            BtnStart_Click()
    EndSwitch
WEnd


Func BtnStart_Click()
    GUICtrlSetData($BtnStart, "Pause")
    $paused = False
    While 1
        $i += 1
        ToolTip('Đang hoạt động, biến tăng: ' & $i)
        iSleep(500)
    WEnd
EndFunc


Func BtnPause_Click()
    GUICtrlSetData($BtnStart, "Resume")
    $paused = True
    ToolTip('Đang tạm dừng')
    While 1
        iSleep(100)
    WEnd
    ToolTip('')
EndFunc


Func iSleep($iDelay)
    $iBegin = TimerInit()
    While TimerDiff($iBegin) < $iDelay
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                Exit
            Case $BtnStart
                If $paused Then
                    BtnStart_Click()
                Else
                    BtnPause_Click()
                EndIf
        EndSwitch
    WEnd
EndFunc

P/S: Code thým sửa lại ngon voãi chày, không ngờ có thể sử dụng kiểu:

$iBegin = TimerInit()

While TimerDiff($iBegin) < $iDelay​

Start/Stop mượt kinh :v Code này đem đi làm code mẫu cho mọi người tìm hiểu là chuẩn bài rồi (y)