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 Xin mọi người kiểm tra giúp mình đoạn mã autoclick

Thảo luận trong 'Thảo luận chung - Hỏi đáp' bắt đầu bởi oceankingdom, 8/6/19.

  1. oceankingdom

    oceankingdom Thành viên mới
    • 1/6

    Tham gia ngày:
    8/6/19
    Bài viết:
    4
    Đã được thích:
    0
    Mình làm cái auto click đơn giản, 10 giây tự động click đúp chuột phải, xong đợi 10 giây tiếp click 1 lần chuột phải, xong đợi 10 giây lại quay lại vòng lặp như vậy. Song song với vòng lặp ấy mình muốn chạy 1 vòng lặp khác 40 phút click nút 5, 6 1 lần.

    Lần trước mình chia 2 vòng lặp ra 2 func, mỗi vòng lặp dùng 1 hotkey để bật lên, nhưng mà hễ bật vòng lặp nào thì nó chỉ chạy trong vòng lặp ấy thôi chứ không chạy song song được.

    Thế nên mình thử gộp hai cái vào chung, nhưng mà cái này nó lỗi ngay ở Case $fDiff += 20000, mọi người chỉ giúp mình sửa sao cho đúng với ?

    Mình cảm ơn :

    Mã (AutoIt):
    #include <IE.au3>
    #include <AutoItConstants.au3>
    #include <Misc.au3>
    #include <Timers.au3>

    Opt("MouseClickDownDelay", 100)

    HotKeySet("{F2}", "captureEsc")
    HotKeySet("{F3}", "chayct")




    Func captureEsc()
          Exit 0
    EndFunc


    Func chayct()

          Do
             Local $hTimer = TimerInit()
             Local $fDiff = TimerDiff($hTimer)

             Switch    $fDiff
                Case $fDiff += 20000
                   MouseClick($MOUSE_CLICK_RIGHT, 600, 500, 3)
                   ContinueCase
                Case $fDiff += 10000
                   MouseClick($MOUSE_CLICK_RIGHT, 500, 500, 1)
                   ContinueCase
                Case $fDiff += 2400000
                   Send("5")
                   Send("6")
                   ContinueCase
             EndSwitch
          Until 0

    EndFunc


    Do
    Until 0


     
     
    Chỉnh sửa cuối: 8/6/19
  2. oceankingdom

    oceankingdom Thành viên mới
    • 1/6

    Tham gia ngày:
    8/6/19
    Bài viết:
    4
    Đã được thích:
    0
    Hình như mình giải quyết được rồi, cảm ơn ae ghé đọc, mình test đã, admin xóa giùm mình nhé, cảm ơn mọi người.
    Mã (AutoIt):
    Func chuongtrinh()
       Do
          Do
             MouseClick($MOUSE_CLICK_RIGHT, 600, 500, 2)
             Sleep(20000)
             MouseClick($MOUSE_CLICK_RIGHT, 500, 500, 1)
             Sleep(10000)
          Until 240
          Send("5")
          Send("6")
       Until 0
    EndFunc
     
  3. #Rainy# Hoàng Vũ IT

    #Rainy# Hoàng Vũ IT Hoàng Vũ IT Moderator
    • 43/45

    Tham gia ngày:
    21/11/16
    Bài viết:
    404
    Đã được thích:
    122
    Code của bạn sai rồi. nhưng đúng ý tưởng 2 vòng lặp.
     
    oceankingdom thích bài này.
  4. oceankingdom

    oceankingdom Thành viên mới
    • 1/6

    Tham gia ngày:
    8/6/19
    Bài viết:
    4
    Đã được thích:
    0
    Cảm ơn bạn, mình sửa cái code như này :

    Mã (AutoIt):
    Func chayct()
       Do
          Local $a = 0
             Do
                $a = $a + 1
                ControlClick("ARK: Survival Evolved","","","right",2 )
                Sleep(2500)
                ControlClick("ARK: Survival Evolved","","","right",1 )
                Sleep(1200)
             Until $a = 5
          ControlSend("ARK: Survival Evolved","","","5",1)
          ControlSend("ARK: Survival Evolved","","","6",1)
       Until 0

    EndFunc
    Cái này mình dùng auto click cho một game sinh tồn làm sao cho nó không chiếm chuột, nhưng mà cái controlclick thì hoạt động bình thường nhưng mà controlsend thì không thấy hoạt động lúc cửa sổ game ẩn xuống. Bạn chỉ giúp mình sai chỗ nào với được không ?
     
  5. #Rainy# Hoàng Vũ IT

    #Rainy# Hoàng Vũ IT Hoàng Vũ IT Moderator
    • 43/45

    Tham gia ngày:
    21/11/16
    Bài viết:
    404
    Đã được thích:
    122
    Kp sai mà là game check avtive cửa sổ nên k đc thôi
     
    oceankingdom thích bài này.
  6. oceankingdom

    oceankingdom Thành viên mới
    • 1/6

    Tham gia ngày:
    8/6/19
    Bài viết:
    4
    Đã được thích:
    0
    Có cách nào vượt qua vấn đề này không ạ ?
     
  7. #Rainy# Hoàng Vũ IT

    #Rainy# Hoàng Vũ IT Hoàng Vũ IT Moderator
    • 43/45

    Tham gia ngày:
    21/11/16
    Bài viết:
    404
    Đã được thích:
    122
    nó tốn rất nhiều tiền nên khuyên bạn là k. bạn nên chạy máy ảo rồi trên máy ảo cho tốn chuột tốn phim nhé
     
    oceankingdom thích bài này.

Chia sẻ trang này

Đang tải...