AutoClick không chiếm chuột

http://dl.dropbox.com/u/51309241/Source/AutoClick.au3

quangark đã viết:Có bạn nào sửa dùm ct Auto ckick ko chiếm chuột click dc vào nhiều điểm và gửi phím ESC ko chiếm keyboard, để vừa có thể chạy ct này vừa làm việc khác dùm.
Thanks rất nhiều.

Code:

#include <WinAPI.au3>
#include <GUIConstantsEx.au3>
#include <array.au3>

Global $Struct = DllStructCreate($tagPoint), $y_ctrl[0], $x_ctrl[0], $ctrl_hwnd[0]

HotKeySet("^a", "_Get_Win_Pos") ;;;nhấn phím Control + A để lưu các điểm click
HotKeySet("^s", "xem_cac_toa_do_da_chon") ;;;nhấn phím Control + S để xem các tọa độ đã chọn

Func xem_cac_toa_do_da_chon()
 _ArrayDisplay($x_ctrl, "x")
 _ArrayDisplay($y_ctrl, "y")
 _ArrayDisplay($ctrl_hwnd, "ctrl")
EndFunc   ;==>i

GUICreate("AutoClick", 200, 150, @DesktopWidth - 210, @DesktopHeight - 350, 0x2000)
GUISetState()
GUICtrlCreateLabel("Toa do:", 5, 5, 50, 15)
$tdx = GUICtrlCreateLabel("x1", 55, 5, 70, 15)
$tdy = GUICtrlCreateLabel("y1", 125, 5, 70, 15)
$win = GUICtrlCreateLabel("win", 55, 20, 200, 15)
GUICtrlCreateLabel("Sau ", 5, 60, 20, 15)
$thoigian = GUICtrlCreateInput("3000", 30, 58, 130, 15)
GUICtrlCreateLabel("ms", 170, 60, 50, 15)
$bd = GUICtrlCreateCheckbox("Bat dau", 5, 80, 80, 30,0x1000)
$thoat = GUICtrlCreateButton("Thoat", 85, 80, 80, 30)


While 1
 $msg = GUIGetMsg()
 Switch $msg
 Case $bd
 batdau()
 Case $thoat
 Exit
 EndSwitch
WEnd

Func batdau()
 $time = GUICtrlRead($thoigian)
 If $time = "" Then $time = 0
 While 1
 If GUICtrlRead($bd) = $gui_unchecked Then exitloop
 _Click_No_Detect_Mouse()
 Sleep($time)
 WEnd
EndFunc   ;==>batdau

Func _Get_Win_Pos()
 DllStructSetData($Struct, "x", MouseGetPos(0))
 DllStructSetData($Struct, "y", MouseGetPos(1))
 $hwnd = _WinAPI_WindowFromPoint($Struct)
 _WinAPI_ScreenToClient($hwnd, $Struct)
 $x_converted = DllStructGetData($Struct, "x")
 $y_converted = DllStructGetData($Struct, "y")
 _ArrayAdd($x_ctrl, $x_converted)
 _ArrayAdd($y_ctrl, $y_converted)
 _ArrayAdd($ctrl_hwnd, $hwnd)
 GUICtrlSetData($tdx, $x_converted)
 GUICtrlSetData($tdy, $y_converted)
EndFunc   ;==>_Get_Win_Pos

Func _Click_No_Detect_Mouse()
 For $i = 0 To UBound($ctrl_hwnd) - 1
 $lParam = ($y_ctrl[$i] * 65536) + ($x_ctrl[$i])
 _WinAPI_PostMessage($ctrl_hwnd[$i], 0x201, 0x1, $lParam)
 _WinAPI_PostMessage($ctrl_hwnd[$i], 0x202, 0, $lParam)
 Sleep(50)
 Next
EndFunc   ;==>_Click_No_Detect_Mouse

cuongkoken đã viết:Admin ơi! code này không tác dụng, nếu làm như vậy thì ta tự Click luôn cho nó lành.
Nên lưu tọa độ vào *ini, sau đó có thể chạy click cố định các tọa độ đã chọn về sau này luôn...

hmmx4 đã viết:code của moi mon không có lựa chọn click chuột trái phải kick dup hay 1 kick . nó mặc định là 1 lick chuột trái @@ giá như moi mon code lại có đủ lựa chọn như của admin thì tuyệt vời ông mặt trời .. đợi chờ :D

Code:

Func _Click_No_Detect_Mouse()
  For $i = 0 To UBound($ctrl_hwnd) - 1
    $lParam = ($y_ctrl[$i] * 65536) + ($x_ctrl[$i])
    _WinAPI_PostMessage($ctrl_hwnd[$i], 0x201, 0x1, $lParam)
    _WinAPI_PostMessage($ctrl_hwnd[$i], 0x202, 0, $lParam)
    Sleep(50)
  Next
EndFunc   ;==>_Click_No_Detect_Mouse

Code:

_WinAPI_PostMessage($ctrl_hwnd[$i], 0x201, 0x1, $lParam)
_WinAPI_PostMessage($ctrl_hwnd[$i], 0x202, 0, $lParam)

Code:

_WinAPI_PostMessage($ctrl_hwnd[$i], 0x201, 0x1, $lParam
_WinAPI_PostMessage($ctrl_hwnd[$i], 0x202, 0, $lParam
_WinAPI_PostMessage($ctrl_hwnd[$i], 0x201, 0x1, $lParam
_WinAPI_PostMessage($ctrl_hwnd[$i], 0x202, 0, $lParam)