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

AutoHotKey Area Auto Clicker - Tự động click chuột theo vùng

Thảo luận trong 'AutoHotkey' bắt đầu bởi Milli Master, 26/7/17.

  1. Milli Master

    Milli Master ??
    • 93/113

    Tham gia ngày:
    9/7/16
    Bài viết:
    106
    Đã được thích:
    2,301
    Nơi ở:
    Thủ Đức, TP Hồ Chí Minh
    Đây là chương trình auto click khá đơn giản, nó có khả năng click chuột trong một vùng và cửa sổ xác định.
    Ảnh:

    [​IMG]

    Chương trình cũng khá dễ sử dụng, phần hướng dẫn mình đã ghi chi tiết trong phần help rồi.

    * Phần mềm đã ngưng phát triển nên sẽ có một lỗi phát sinh.

    Link download:
    Nội dung bị ẩn:
    ** Nội dung ẩn: Bạn phải nhấn 'Like' trước khi bạn có thể xem các dữ liệu ẩn chứa ở đây. **
    Mã nguồn:
    Nội dung bị ẩn:
    ** Nội dung ẩn: Bạn phải nhấn 'Like' trước khi bạn có thể xem các dữ liệu ẩn chứa ở đây. **
    * Cách tạo một autoclick không chiếm chuột: http://autoitvn.com/threads/huong-dan-cach-tao-mot-auto-click-khong-chiem-chuot-don-gian.1577
     
    Chỉnh sửa cuối: 14/5/19
  2. Huân Hoàng

    Huân Hoàng Administrator Thành viên BQT Administrator Super Moderator
    • 93/113

    Tham gia ngày:
    29/9/15
    Bài viết:
    642
    Đã được thích:
    1,181
    Thým chắc pro ahk nhất cái VN này rồi :))
     
  3. Milli Master

    Milli Master ??
    • 93/113

    Tham gia ngày:
    9/7/16
    Bài viết:
    106
    Đã được thích:
    2,301
    Nơi ở:
    Thủ Đức, TP Hồ Chí Minh
    Update tinh chỉnh tí
     
  4. Huân Hoàng

    Huân Hoàng Administrator Thành viên BQT Administrator Super Moderator
    • 93/113

    Tham gia ngày:
    29/9/15
    Bài viết:
    642
    Đã được thích:
    1,181
    Đây là soft AutoHotKey trong box AutoHotKey. Nếu hỏi AutoIt vui lòng sang box Hỏi đáp-Câu hỏi chung
     
  5. MinhPhap

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

    Tham gia ngày:
    29/9/17
    Bài viết:
    5
    Đã được thích:
    0
    vâng mình đang nói về autohotkey mà
     
  6. Trần Xuân Hải

    Trần Xuân Hải XHAI
    • 1/6

    Tham gia ngày:
    10/1/17
    Bài viết:
    11
    Đã được thích:
    8
    1. Youtube, not YouTobers
    2. Có chiếm chuột k bạn?
     
  7. Milli Master

    Milli Master ??
    • 93/113

    Tham gia ngày:
    9/7/16
    Bài viết:
    106
    Đã được thích:
    2,301
    Nơi ở:
    Thủ Đức, TP Hồ Chí Minh
    1. YouTobers là YouTobe Partner.
    2. Tool hoạt động khi bạn đưa đúng vào vùng cần click nên chiếm chuột hay không là không quan trọng.
     
  8. Diablo

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

    Tham gia ngày:
    16/2/18
    Bài viết:
    3
    Đã được thích:
    0
    Sao minh bi loi nay, giup minh vs

    [​IMG]
     
  9. Milli Master

    Milli Master ??
    • 93/113

    Tham gia ngày:
    9/7/16
    Bài viết:
    106
    Đã được thích:
    2,301
    Nơi ở:
    Thủ Đức, TP Hồ Chí Minh
    Lỗi này là do máy bạn không có cái icon đó. Đây là code của nó mà mình sửa lại cho bạn:
    #SingleInstance Force
    CoordMode, Mouse, Screen
    SetMouseDelay,-1
    OnMessage(0x201, "Drag_Drop")


    Menu, Tray, NoStandard
    Menu Tray, Add, Hiện chương trình, Show
    Menu Tray, Disable, Hiện chương trình
    Menu Tray, Icon, Hiện chương trình, shell32.dll, 247
    Menu Tray, Add, Ẩn chương trình, Hide
    Menu Tray, Icon, Ẩn chương trình, shell32.dll, 248
    Menu Tray, Add, &Tải lại,Reload
    Menu Tray, Icon, &Tải lại, shell32.dll, 239
    Menu Tray, Add, Trợ giúp`tCtrl+H, Help
    Menu Tray, Icon, Trợ giúp`tCtrl+H, shell32.dll, 24
    Menu Tray, Add, Thoát`tEsc, GuiClose
    Menu Tray, Icon, Thoát`tEsc, shell32.dll, 132


    gui,font,s8 ,Arial
    Gui Add, Text, x10 y13 w242 h2 0x10
    Gui Add, CheckBox, x16 y26 h23 BackgroundTrans vKWClick gKWin, Click không cần cửa số
    Gui Add, Edit, x16 y55 w120 h21 vtitle gSubmit ReadOnly ,
    Gui Add, Button, x146 y55 w91 h24 vGet_W gGet_New_Title, Lấy cửa sổ mới
    Gui Add, Text, x22 y97 w230 h2 0x10
    Gui Add, Text, x16 y114 w41 h23 BackgroundTrans +0x200, X1, Y1:
    Gui Add, Edit, x60 y116 w60 h21 ReadOnly vPos1 gSubmit,
    Gui Add, Button, x126 y115 w50 h23 gGet_pos1, Lấy
    Gui Add, Text, x16 y143 w40 h23 BackgroundTrans +0x200, X2, Y2:
    Gui Add, Edit, x60 y144 w60 h21 ReadOnly vPos2 gSubmit,
    Gui Add, Button, x126 y144 w50 h23 gGet_pos2, Lấy
    Gui Add, Button, x180 y115 w60 h52 gGet_pos2 gView vView, Xem
    Gui Add, Text, x50 y188 w203 h2 0x10
    Gui Add, Text, x16 y202 w62 h23 BackgroundTrans +0x200, Số lần click:
    Gui Add, Edit, x80 y204 w43 h21 vLan gSubmit number,
    Gui,Add, UpDown, Range1-10000000000 gSubmit,1
    Gui Add, CheckBox, x135 y202 w120 h23 BackgroundTrans Checked vA_Loop gA_Loop, Auto click liên tục
    Gui Add, Text, x16 y231 w39 h23 BackgroundTrans +0x200, Độ trễ:
    Gui Add, Edit, x55 y234 w120 h21 vSleep_c gSubmit number,
    Gui, Add, UpDown, Range20-10000000000 gSubmit,20
    Gui Add, Text, x180 y240 BackgroundTrans ,(ms)
    Gui Add, Text, x16 y260 w54 h23 BackgroundTrans +0x200, Kiểu click:
    Gui Add, DropDownList, x71 y265 w120 vKieu_c gSubmit AltSubmit,Left||Right
    Gui Add, Text, x-4 y294 w255 h3 0x10
    Gui Add, CheckBox, x4 y302 h23 BackgroundTrans Checked vontop gOn_top, Luôn ở trên
    Gui, Add, StatusBar,,
    SB_SetParts(80)
    SB_SetText("Đã dừng.",1)
    SB_SetText("Control+H: Bật hướng dẫn.",2)
    SB_SetIcon("Shell32.dll", 44,1)
    SB_SetIcon("Shell32.dll", 24,2)
    gui,font,bold c3A70BD
    Gui Add, Text, x3 y84 h23 +0x200, Vị trí cần Auto
    Gui Add, Text, x3 y3 h19 +0x200 ,Cửa sổ cần Auto
    Gui Add, Text, x3 y175 h23 +0x200, Tùy chỉnh Auto
    Gui Add, Button, x90 y301 w72 h25 vrun gRun_auto, Chạy
    Gui Add, Button, x170 y301 w72 h25 vdung gStop_C, Dừng
    gui -caption border AlwaysOnTop
    Gui,Show, x1050 y100 w247 h360, Area Auto Clicker
    Gui, Submit, NoHide
    WinSet,Transparent,235,Area Auto Clicker
    GuiControl,Disable,dung
    gosub,A_Loop
    Return

    View:
    gosub,Submit
    if (Pos1==""||Pos2=="")
    MsgBox, 262160,Thông báo !! ,Lấy tọa độ trước để xem
    else{
    W_V:=X2-X1
    H_V:=Y2-Y1
    Gui,Hide
    Gui,2: +AlwaysOnTop -Caption
    Gui,2:Color,1477CC
    Gui,2:Show,x%X1% y%Y1% w%W_V% h%H_V%,View
    WinSet,Trans,180,View
    Sleep,2000
    Gui,2:Destroy
    Gui,Show
    }
    return

    Reload:
    Reload
    return

    Show:
    Gui,Show
    Menu Tray, Disable, Hiện chương trình
    Menu Tray, Enable, Ẩn chương trình
    return
    Hide:
    TrayTip,Area Auto Clicker,Click lại vào tray icon để hiện chương trình,,1
    Gui,Hide
    Menu Tray,Enable , Hiện chương trình
    Menu Tray, Disable, Ẩn chương trình
    return
    Help:
    MsgBox,262176,Hướng dẫn !!,-Chọn cửa sổ: Nhấp chuột trái vào cửa sổ cần auto, nhấp chuột phải để kết thúc `n-Chọn toạn độ: Nhấp chuột trái để lấy tọa độ auto `n-Hotkey: `n Win+S: Chạy Auto `n Win+X: Dừng Auto `n-Chương trình được viết bởi Phạm Ngọc Đức. Gửi lời cảm ơn đến Hellbent
    Return

    ^H::
    MsgBox,262176,Hướng dẫn !!,-Chọn cửa sổ: Nhấp chuột trái vào cửa sổ cần auto, nhấp chuột phải để kết thúc `n-Chọn toạn độ: Nhấp chuột trái để lấy tọa độ auto `n-Hotkey: `n Win+S: Chạy Auto `n Win+X: Dừng Auto `n-Chương trình được viết bởi Phạm Ngọc Đức. Gửi lời cảm ơn đến Hellbent
    return
    On_top:
    gosub,Submit
    if (ontop=1)
    {
    WinSet,Alwaysontop, on,Area Auto Clicker
    }
    else
    {
    WinSet,Alwaysontop, off,Area Auto Clicker
    }
    return

    A_Loop:
    gosub,Submit
    if (A_Loop=1)
    {
    GuiControl,Disable,Lan
    GuiControl,,Lan
    }
    else
    {
    GuiControl,Enable,Lan
    }
    return

    KWin:
    gosub,Submit
    if (KWClick=1)
    {
    GuiControl,Disable,Get_W
    GuiControl,,title
    GuiControlGet,title
    KW:=1
    }
    else
    {
    GuiControl,Enable,Get_W
    title:=""
    KW:=0
    }
    return
    #s::
    Auto_Click(Stop,title,Lan,KW,Kieu_c,Sleep_c,X1,Y1,X2,Y2)
    return
    #x::
    Stop:=1
    return

    Run_auto:
    Auto_Click(Stop,title,Lan,KW,Kieu_c,Sleep_c,X1,Y1,X2,Y2)
    return
    Stop_C:
    Stop:=1
    return
    Submit:
    gui,submit,nohide
    return
    Get_pos1:
    while not GetKeyState("LButton"){
    Sleep,50
    MouseGetPos,X1,Y1
    GuiControl,,Pos1,%X1% - %Y1%
    ToolTip,%X1% - %Y1%
    }
    ToolTip
    return
    Get_pos2:
    while not GetKeyState("LButton"){
    Sleep,50
    MouseGetPos,X2,Y2
    GuiControl,,Pos2,%X2% - %Y2%
    ToolTip,%X2% - %Y2%
    }
    ToolTip
    return
    Get_New_Title:
    while not GetKeyState("RButton"){
    Sleep,72
    WinGetTitle,title,A
    ToolTip,%title%
    GuiControl,,title,%title%
    }
    ToolTip
    return
    Auto_Click(ByRef stop,ByRef win,ByRef Count,ByRef KCW,ByRef kieu,ByRef delay,ByRef X1_Click,ByRef Y1_Click,ByRef X2_Click,ByRef Y2_Click){
    if(delay==null||delay<20)
    delay=20
    if (Count==null)
    {
    Count=0
    }
    if (win==null&&KCW<>1)
    {
    MsgBox,262160,Lỗi !!, Vui lòng lấy cửa sổ cần Auto
    return
    }
    if (win==null&&KCW=1)
    {
    win:=0
    }
    if (X1_Click==null||X2_Click==null)
    {
    MsgBox,262160,Lỗi !!,Vui lòng lấy đúng toạn độ cần Auto
    return
    }
    GuiControl,Disable,View
    GuiControl,Disable,run
    GuiControl,Enable,dung
    SB_SetText("Đang chạy.",1)
    i:=0
    Loop
    {
    if (stop==1)
    {
    Stop := 0
    break
    }
    if (win==0)
    {
    if (Count==0)
    {
    MouseGetPos,X,Y
    if (X>=X1_Click&&Y>=Y1_Click&&X<=X2_Click&&Y<=Y2_Click)
    {
    Click,%Kieu%
    Sleep,%delay%
    }
    }
    else if (Count<>0)
    {
    MouseGetPos,X,Y
    if (X>=X1_Click&&Y>=Y1_Click&&X<=X2_Click&&Y<=Y2_Click)
    {
    Click,%Kieu%
    Sleep,%delay%
    i++
    if (Count==i)
    break
    }
    }
    }
    else if (win<>0)
    {
    if (Count==0)
    {
    WinGetTitle,Get_win,A
    MouseGetPos,X,Y
    if (Win==Get_win&&X>=X1_Click&&Y>=Y1_Click&&X<=X2_Click&&Y<=Y2_Click)
    {
    Click,%Kieu%
    Sleep,%delay%
    }
    }
    else if (Count<>0)
    {
    WinGetTitle,Get_win,A
    MouseGetPos,X,Y
    if (Win==Get_win&&X>=X1_Click&&Y>=Y1_Click&&X<=X2_Click&&Y<=Y2_Click)
    {
    Click,%Kieu%
    Sleep,%delay%
    i++
    if (Count==i)
    break
    }
    }
    }
    }
    i:=0
    GuiControl,Enabled,View
    GuiControl,Enable,run
    GuiControl,Disable,dung
    SB_SetText("Đã dừng.",1)
    }

    Drag_Drop()
    {
    PostMessage, 0xA1, 2
    }



    GuiEscape:
    GuiClose:
    ExitApp
     
    nongdanit85 and Diablo like this.
  10. Diablo

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

    Tham gia ngày:
    16/2/18
    Bài viết:
    3
    Đã được thích:
    0
    Mình cảm ơn nhé,
    Có 2 điều mình muốn bạn giúp
    1 là cho nó chạy ở dạng tự click luôn chứ ko cần phải đợi mình rê chuột đi qua vị trí đó, kiểu như random click
    Mình chỉ có code random click 1 chỗ nếu mình viết ra, mình đang dùng, nhưng bất tiện là mình ko thể xuất nó ra theo kiểu tool để thay đổi vị trí click, mỗi lần muốn thay đổi lại phải vào text rồi viết lại rồi xuất file .exe chạy, =))
    2 là có cái hàm nào cho nó chạy random click mà ko chiếm chuột ko, khi ẩn nó vẫn auto click ấy
    0868029280, bạn làm đc thì call mình nhé, chủ yếu cái auto click mà ko chiếm chuột, chủ yếu bước 2, giúp đc xin hậu tạ cao nhân, sẵn tiện còn đam mê ahk thì nhận tui theo học với, =))))
     
  11. Milli Master

    Milli Master ??
    • 93/113

    Tham gia ngày:
    9/7/16
    Bài viết:
    106
    Đã được thích:
    2,301
    Nơi ở:
    Thủ Đức, TP Hồ Chí Minh
    Của bạn đây
     

    Các file đính kèm:

    sidn1234 thích bài này.
  12. Long2019

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

    Tham gia ngày:
    4/9/18
    Bài viết:
    3
    Đã được thích:
    5
    Mình muốn edit auto với chức năng, khi nhấn button lấy 1 cửa đang mở, nó sẽ thêm tên cửa sổ đó vào listview (mỗi lần thêm 1 cửa sổ mới là lưu vào 1 dòng trong listview)hình như dùng WinWaitActive hay gì đó mình ko rành lắm. sau đó từ danh sách Listview gán thêm chắc chức năng click theo số lần. thì đồng loạt các cửa sổ đó sẽ click theo(không chiếm chuột) mình edit mà toàn bị lỗi hĩ
     
    JohnPham and zKelBin like this.
  13. Milli Master

    Milli Master ??
    • 93/113

    Tham gia ngày:
    9/7/16
    Bài viết:
    106
    Đã được thích:
    2,301
    Nơi ở:
    Thủ Đức, TP Hồ Chí Minh
    Bạn tham khảo thêm ở đây nhá
    http://autoitvn.com/threads/huong-dan-cach-tao-mot-auto-click-khong-chiem-chuot-don-gian
     
  14. autitest

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

    Tham gia ngày:
    18/11/18
    Bài viết:
    2
    Đã được thích:
    0
    Ca ơi, có thể cho auto click không cần rê chuột vào vùng đã chọn k, share cho đệ vs ạ :). Thank ca
     
  15. Milli Master

    Milli Master ??
    • 93/113

    Tham gia ngày:
    9/7/16
    Bài viết:
    106
    Đã được thích:
    2,301
    Nơi ở:
    Thủ Đức, TP Hồ Chí Minh
    autitest thích bài này.
  16. autitest

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

    Tham gia ngày:
    18/11/18
    Bài viết:
    2
    Đã được thích:
    0
    em vẫn chưa hiểu lắm ạ, vdu như
    em vẫn chưa hiểu lắm ạ, tại e cũng mới tự mò thoy. Ca cho e hỏi vdu như code ở dưới thì chỉnh chổ nào để nó tự auto click tất cả các thứ nằm trong Vùng mik chọn. Chứ code này chọn vùng rồi fai đưa chuột vào các file trong vùng đó nó mới click.
    Em cảm ơn.
    #SingleInstance Force
    CoordMode, Mouse, Screen
    SetMouseDelay,-1
    OnMessage(0x201, "Drag_Drop")


    Menu, Tray, NoStandard
    Menu Tray, Add, Hiện chương trình, Show
    Menu Tray, Disable, Hiện chương trình
    Menu Tray, Icon, Hiện chương trình, shell32.dll, 247
    Menu Tray, Add, Ẩn chương trình, Hide
    Menu Tray, Icon, Ẩn chương trình, shell32.dll, 248
    Menu Tray, Add, &Tải lại,Reload
    Menu Tray, Icon, &Tải lại, shell32.dll, 239
    Menu Tray, Add, Trợ giúp`tCtrl+H, Help
    Menu Tray, Icon, Trợ giúp`tCtrl+H, shell32.dll, 24
    Menu Tray, Add, Thoát`tEsc, GuiClose
    Menu Tray, Icon, Thoát`tEsc, shell32.dll, 132


    gui,font,s8 ,Arial
    Gui Add, Text, x10 y13 w242 h2 0x10
    Gui Add, CheckBox, x16 y26 h23 BackgroundTrans vKWClick gKWin, Click không cần cửa số
    Gui Add, Edit, x16 y55 w120 h21 vtitle gSubmit ReadOnly ,
    Gui Add, Button, x146 y55 w91 h24 vGet_W gGet_New_Title, Lấy cửa sổ mới
    Gui Add, Text, x22 y97 w230 h2 0x10
    Gui Add, Text, x16 y114 w41 h23 BackgroundTrans +0x200, X1, Y1:
    Gui Add, Edit, x60 y116 w60 h21 ReadOnly vPos1 gSubmit,
    Gui Add, Button, x126 y115 w50 h23 gGet_pos1, Lấy
    Gui Add, Text, x16 y143 w40 h23 BackgroundTrans +0x200, X2, Y2:
    Gui Add, Edit, x60 y144 w60 h21 ReadOnly vPos2 gSubmit,
    Gui Add, Button, x126 y144 w50 h23 gGet_pos2, Lấy
    Gui Add, Button, x180 y115 w60 h52 gGet_pos2 gView vView, Xem
    Gui Add, Text, x50 y188 w203 h2 0x10
    Gui Add, Text, x16 y202 w62 h23 BackgroundTrans +0x200, Số lần click:
    Gui Add, Edit, x80 y204 w43 h21 vLan gSubmit number,
    Gui,Add, UpDown, Range1-10000000000 gSubmit,1
    Gui Add, CheckBox, x135 y202 w120 h23 BackgroundTrans Checked vA_Loop gA_Loop, Auto click liên tục
    Gui Add, Text, x16 y231 w39 h23 BackgroundTrans +0x200, Độ trễ:
    Gui Add, Edit, x55 y234 w120 h21 vSleep_c gSubmit number,
    Gui, Add, UpDown, Range20-10000000000 gSubmit,20
    Gui Add, Text, x180 y240 BackgroundTrans ,(ms)
    Gui Add, Text, x16 y260 w54 h23 BackgroundTrans +0x200, Kiểu click:
    Gui Add, DropDownList, x71 y265 w120 vKieu_c gSubmit AltSubmit,Left||Right
    Gui Add, Text, x-4 y294 w255 h3 0x10
    Gui Add, CheckBox, x4 y302 h23 BackgroundTrans Checked vontop gOn_top, Luôn ở trên
    Gui, Add, StatusBar,,
    SB_SetParts(80)
    SB_SetText("Đã dừng.",1)
    SB_SetText("Control+H: Bật hướng dẫn.",2)
    SB_SetIcon("Shell32.dll", 44,1)
    SB_SetIcon("Shell32.dll", 24,2)
    gui,font,bold c3A70BD
    Gui Add, Text, x3 y84 h23 +0x200, Vị trí cần Auto
    Gui Add, Text, x3 y3 h19 +0x200 ,Cửa sổ cần Auto
    Gui Add, Text, x3 y175 h23 +0x200, Tùy chỉnh Auto
    Gui Add, Button, x90 y301 w72 h25 vrun gRun_auto, Chạy
    Gui Add, Button, x170 y301 w72 h25 vdung gStop_C, Dừng
    gui -caption border AlwaysOnTop
    Gui,Show, x1050 y100 w247 h360, Area Auto Clicker
    Gui, Submit, NoHide
    WinSet,Transparent,235,Area Auto Clicker
    GuiControl,Disable,dung
    gosub,A_Loop
    Return

    View:
    gosub,Submit
    if (Pos1==""||Pos2=="")
    MsgBox, 262160,Thông báo !! ,Lấy tọa độ trước để xem
    else{
    W_V:=X2-X1
    H_V:=Y2-Y1
    Gui,Hide
    Gui,2: +AlwaysOnTop -Caption
    Gui,2:Color,1477CC
    Gui,2:Show,x%X1% y%Y1% w%W_V% h%H_V%,View
    WinSet,Trans,180,View
    Sleep,2000
    Gui,2:Destroy
    Gui,Show
    }
    return

    Reload:
    Reload
    return

    Show:
    Gui,Show
    Menu Tray, Disable, Hiện chương trình
    Menu Tray, Enable, Ẩn chương trình
    return
    Hide:
    TrayTip,Area Auto Clicker,Click lại vào tray icon để hiện chương trình,,1
    Gui,Hide
    Menu Tray,Enable , Hiện chương trình
    Menu Tray, Disable, Ẩn chương trình
    return
    Help:
    MsgBox,262176,Hướng dẫn !!,-Chọn cửa sổ: Nhấp chuột trái vào cửa sổ cần auto, nhấp chuột phải để kết thúc `n-Chọn toạn độ: Nhấp chuột trái để lấy tọa độ auto `n-Hotkey: `n Win+S: Chạy Auto `n Win+X: Dừng Auto `n-Chương trình được viết bởi Phạm Ngọc Đức. Gửi lời cảm ơn đến Hellbent
    Return

    ^H::
    MsgBox,262176,Hướng dẫn !!,-Chọn cửa sổ: Nhấp chuột trái vào cửa sổ cần auto, nhấp chuột phải để kết thúc `n-Chọn toạn độ: Nhấp chuột trái để lấy tọa độ auto `n-Hotkey: `n Win+S: Chạy Auto `n Win+X: Dừng Auto `n-Chương trình được viết bởi Phạm Ngọc Đức. Gửi lời cảm ơn đến Hellbent
    return
    On_top:
    gosub,Submit
    if (ontop=1)
    {
    WinSet,Alwaysontop, on,Area Auto Clicker
    }
    else
    {
    WinSet,Alwaysontop, off,Area Auto Clicker
    }
    return

    A_Loop:
    gosub,Submit
    if (A_Loop=1)
    {
    GuiControl,Disable,Lan
    GuiControl,,Lan
    }
    else
    {
    GuiControl,Enable,Lan
    }
    return

    KWin:
    gosub,Submit
    if (KWClick=1)
    {
    GuiControl,Disable,Get_W
    GuiControl,,title
    GuiControlGet,title
    KW:=1
    }
    else
    {
    GuiControl,Enable,Get_W
    title:=""
    KW:=0
    }
    return
    #s::
    Auto_Click(Stop,title,Lan,KW,Kieu_c,Sleep_c,X1,Y1,X2,Y2)
    return
    #x::
    Stop:=1
    return

    Run_auto:
    Auto_Click(Stop,title,Lan,KW,Kieu_c,Sleep_c,X1,Y1,X2,Y2)
    return
    Stop_C:
    Stop:=1
    return
    Submit:
    gui,submit,nohide
    return
    Get_pos1:
    while not GetKeyState("LButton"){
    Sleep,50
    MouseGetPos,X1,Y1
    GuiControl,,Pos1,%X1% - %Y1%
    ToolTip,%X1% - %Y1%
    }
    ToolTip
    return
    Get_pos2:
    while not GetKeyState("LButton"){
    Sleep,50
    MouseGetPos,X2,Y2
    GuiControl,,Pos2,%X2% - %Y2%
    ToolTip,%X2% - %Y2%
    }
    ToolTip
    return
    Get_New_Title:
    while not GetKeyState("RButton"){
    Sleep,72
    WinGetTitle,title,A
    ToolTip,%title%
    GuiControl,,title,%title%
    }
    ToolTip
    return
    Auto_Click(ByRef stop,ByRef win,ByRef Count,ByRef KCW,ByRef kieu,ByRef delay,ByRef X1_Click,ByRef Y1_Click,ByRef X2_Click,ByRef Y2_Click){
    if(delay==null||delay<20)
    delay=20
    if (Count==null)
    {
    Count=0
    }
    if (win==null&&KCW<>1)
    {
    MsgBox,262160,Lỗi !!, Vui lòng lấy cửa sổ cần Auto
    return
    }
    if (win==null&&KCW=1)
    {
    win:=0
    }
    if (X1_Click==null||X2_Click==null)
    {
    MsgBox,262160,Lỗi !!,Vui lòng lấy đúng toạn độ cần Auto
    return
    }
    GuiControl,Disable,View
    GuiControl,Disable,run
    GuiControl,Enable,dung
    SB_SetText("Đang chạy.",1)
    i:=0
    Loop
    {
    if (stop==1)
    {
    Stop := 0
    break
    }
    if (win==0)
    {
    if (Count==0)
    {
    MouseGetPos,X,Y
    if (X>=X1_Click&&Y>=Y1_Click&&X<=X2_Click&&Y<=Y2_Click)
    {
    Click,%Kieu%
    Sleep,%delay%
    }
    }
    else if (Count<>0)
    {
    MouseGetPos,X,Y
    if (X>=X1_Click&&Y>=Y1_Click&&X<=X2_Click&&Y<=Y2_Click)
    {
    Click,%Kieu%
    Sleep,%delay%
    i++
    if (Count==i)
    break
    }
    }
    }
    else if (win<>0)
    {
    if (Count==0)
    {
    WinGetTitle,Get_win,A
    MouseGetPos,X,Y
    if (Win==Get_win&&X>=X1_Click&&Y>=Y1_Click&&X<=X2_Click&&Y<=Y2_Click)
    {
    Click,%Kieu%
    Sleep,%delay%
    }
    }
    else if (Count<>0)
    {
    WinGetTitle,Get_win,A
    MouseGetPos,X,Y
    if (Win==Get_win&&X>=X1_Click&&Y>=Y1_Click&&X<=X2_Click&&Y<=Y2_Click)
    {
    Click,%Kieu%
    Sleep,%delay%
    i++
    if (Count==i)
    break
    }
    }
    }
    }
    i:=0
    GuiControl,Enabled,View
    GuiControl,Enable,run
    GuiControl,Disable,dung
    SB_SetText("Đã dừng.",1)
    }

    Drag_Drop()
    {
    PostMessage, 0xA1, 2
    }



    GuiEscape:
    GuiClose:
    ExitApp
     
  17. Kopite

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

    Tham gia ngày:
    25/11/18
    Bài viết:
    1
    Đã được thích:
    0
    để thử xem sao, thnx thớt
     
  18. luunguyen094

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

    Tham gia ngày:
    14/5/19
    Bài viết:
    2
    Đã được thích:
    0
    bị lỗi rùi bác
    [​IMG]
     
  19. Milli Master

    Milli Master ??
    • 93/113

    Tham gia ngày:
    9/7/16
    Bài viết:
    106
    Đã được thích:
    2,301
    Nơi ở:
    Thủ Đức, TP Hồ Chí Minh
    Bạn vào đây tải imageres.dll rồi cho nó vào cùng thư mục với cái auto nha.
    Mình cũng đã thêm mã nguồn vào bài viết, bạn có thể tham khảo
     
  20. luunguyen094

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

    Tham gia ngày:
    14/5/19
    Bài viết:
    2
    Đã được thích:
    0
    BÁC CÓ FACEBOOK hay zalo gì ko mình có vấn đề về auto hotkey muốn hỏi bác
     

Chia sẻ trang này

Đang tải...