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

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

  1. Millimeter

    Millimeter Team AutoHotkey
    • 53/68

    Tham gia ngày:
    9/7/16
    Bài viết:
    62
    Đã được thích:
    362
    Nơi ở:
    Chơn Thành, Bình Phước
    Đâ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.Ý tưởng của cái ứng dụng này mình học được nhờ xem video trên youtobe, nói đúng hơn là hầu hết ứng dụng của mình :D. Các bạn có thể vào kênh của YouTobers này để xem những tutorial về AutoHotkey.
    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. **

    Ảnh:

    [​IMG]

    Mới:
    -Chỉnh sửa một chút ở tray icon:
    [​IMG]

    -Mình vừa mới thêm chức năng xem vùng click để các bạn dễ sử dụng hơn.
    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.
    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. **
     
    Chỉnh sửa cuối: 26/8/17
  2. Huân Hoàng

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

    Tham gia ngày:
    29/9/15
    Bài viết:
    534
    Đã được thích:
    1,015
    Thým chắc pro ahk nhất cái VN này rồi :))
     
    Bùi thanh luan and Millimeter like this.
  3. Millimeter

    Millimeter Team AutoHotkey
    • 53/68

    Tham gia ngày:
    9/7/16
    Bài viết:
    62
    Đã được thích:
    362
    Nơi ở:
    Chơn Thành, Bình Phước
    Update tinh chỉnh tí
     
    phucminhphung thích bài này.
  4. Huân Hoàng

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

    Tham gia ngày:
    29/9/15
    Bài viết:
    534
    Đã được thích:
    1,015
    Đâ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. Millimeter

    Millimeter Team AutoHotkey
    • 53/68

    Tham gia ngày:
    9/7/16
    Bài viết:
    62
    Đã được thích:
    362
    Nơi ở:
    Chơn Thành, Bình Phước
    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. Millimeter

    Millimeter Team AutoHotkey
    • 53/68

    Tham gia ngày:
    9/7/16
    Bài viết:
    62
    Đã được thích:
    362
    Nơi ở:
    Chơn Thành, Bình Phước
    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
     
    Diablo thích bài này.
  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. Millimeter

    Millimeter Team AutoHotkey
    • 53/68

    Tham gia ngày:
    9/7/16
    Bài viết:
    62
    Đã được thích:
    362
    Nơi ở:
    Chơn Thành, Bình Phước
    Của bạn đây
     

    Các file đính kèm:

Chia sẻ trang này

Đang tải...