Hỏi đáp Ai chỉ em cách làm sao để code giữ chuột 1 lúc rồi click được ko

Ai chỉ em cách nếu giữ chuột trong(giây) thì sẽ autoclick đc ko

 

Nếu nhấp chuột xuống trong x giây sẽ chạy 1 đoạn code nào đó. ý bạn là vậy chăng.
1. bạn tìm hiểu về while.
2. hàm _IsPressed
3. TImeInit TimeDiff
4. hàm.
Có vẻ nhiêu đó là đủ. à tất nhiên thì phải còn 1 số cái như If else mà mình k liệt kê.

 

thx a,để em tìm hiểu

 

ummm em tìm hiểu kĩ r mà ko rõ hướng dẫn lắm, anh có thể giúp em 1 đoạn code đc ko. Do em đã làm đc _ispressed r mà ko bt cách để cho nó phải giữ đc, nó toàn chỉ cần ấn r đợi là tự hiện =(.

 

Mã (AutoIt):

While Sleep(10)

    if _ispressed("01") Then
        $TIME = TimerInit()
        While _ispressed("01")

            ; Đây là TH xảy ra mở mức đợi lớn nhất,
            if TimerDiff($TIME) > 5000 Then
                MsgBox(0,0,"Đây là TH xảy ra khi đè chuột ở mức lâu nhất, có thể bỏ qua TH này.")

                ; Sau khi đã đợi mở mức lớn nhất thì làm cái ở trên và đợi nhả chuột lên thôi. vì lớn nhất rồi mà. =))
                While _ispressed("01")
                    Sleep(10)
                WEnd
            EndIf
        WEnd

        if TimerDiff($TIME) > 5000 Then
            ; Đây là TH ở mức lớn nhất nên k xử lí nữa nhé.
        ElseIf TimerDiff($TIME) > 3000 Then
            ; Đây là TH đè hơn 3s.
            MsgBox(0,3,"Bạn đã đè chuột hơn 3s")
        ElseIf TimerDiff($TIME) > 1000 Then
            ; TH hơn 1s nhưng chưa đến 3s.
            MsgBox(0,1,"Bạn đã đè chuột hơn 1s mà chưa đủ 3s.")
        Else
            ; đây là TH ít hơn 1 giây.
            MsgBox(0,"", "Bạn vừa nhấp chuột.")
        EndIf

    EndIf
WEnd

Nhớ thêm hotkeyset để tắt, + thư viện nhé.

 

thx anh, em cx vừa hoàn thiện đc code của mik r ^^, mà anh có cách nào để lặp lại lệnh khi đã exit r ko, lệnh của em nè:

Mã (AutoIt):

MsgBox(0, "TOOL auto click", "bắt đầu nhé :>")



#include <AutoItConstants.au3>
#Include <Timers.au3>
#include <Misc.au3>

Global $interval_timer, $counter
Local $hDLL = DllOpen("user32.dll")


While 1
    If _IsPressed("1", $hDLL) Then
      autocl()
EndIf
WEnd



While 1
    Sleep(10)
WEnd



Func autocl()
    Local $itv_timer
    $itv_timer = _Timer_Diff($interval_timer)
    $interval_timer = _Timer_Init()

    If $itv_timer > 100 And $itv_timer < 250 Then
        $counter = 0
        $interval_timer = _Timer_Init()
        While 1
        MouseClick("right",684, 409,1)        ; chỉnh
        Sleep(10)
        MouseClick("right",684, 409,1)

        HotKeySet("{ESC}", "HotKeyPressed")
        WEnd
    Elseif $counter >= 3000 Then
        $counter = 0
        $interval_timer = _Timer_Init()
        While 1
        MouseClick("left",684, 409,1)        ; chỉnh
        Sleep(10)
        MouseClick("left",684, 409,1)

        HotKeySet("{ESC}", "HotKeyPressed")
        WEnd
    ElseIf $itv_timer < 100 Then
        $counter = $counter + 1
        ConsoleWrite($counter & @CRLF)
    Else
        $counter = 0
    EndIf
EndFunc


Global $g_bPaused = False

HotKeySet("{ESC}", "HotKeyPressed")


While 1
    Sleep(100)
WEnd

Func HotKeyPressed()
    Switch @HotKeyPressed
        Case "{ESC}"
            $g_bPaused = Not $g_bPaused
            While $g_bPaused
                Sleep(100)
            WEnd
            ToolTip("")

        Case "{ESC}"

          Exit

    EndSwitch

EndFunc

em muốn khi nhấn esc thì nó sẽ tắt nhưng quay lại từ msgbox đc ko anh :(.

 

Sao phải tắt rồi quay lại msgbox. sao k đẩy nó vào vòng lặp đợi. ??

 

em cho vô vòng lặp thì bị lỗi

 

Mã (AutoIt):

Local $nPID = Run(FileGetShortName(@AutoItExe) & ' "' & @ScriptFullPath & '"', @ScriptDir, @SW_HIDE)
Exit

Code đây nhé. Nguyên lí code là mở 1 chương trình mới (là cái mà đang chạy cái code này) sau đó tắt code này đi. Mọi biến đều k được lưu trữ.

 

thx em cx đang tìm hiểu nè nhưng ko bt cách dùng , nên đặt ở đâu cho ko bị lỗi ạ