Function Name: _MouseClickPlus() work perfect

[binhepu]

I read post of Insolence, but have more people cant use or use it but it do nothing, me too. Final I edited code to this function and now can run perfect!

I tested with Paint

Thank Insolence!

I can share my edit for all.

expandcollapse popup

;----------------------------Test--------------------------
    For $i = 200 to 600
        ;ControlClick("untitled - Paint", "", "[CLASS:Afx:1000000:8; INSTANCE:1]", "Left", 1, $i, $i)
        $handle = ControlGetHandle(WinGetHandle("untitled - Paint"), '', '[CLASS:Afx:1000000:8;INSTANCE:1]')
        _MouseClickPlus($handle, "Left",  $i, $i,1)
    Next
;----------------------------Test--------------------------
;===============================================================================

;
; Function Name:  _MouseClickPlus()
; Version added:  0.1
; Description:  Sends a click to window, not entirely accurate, but works
;                minimized.
; Parameter(s):   $Window    =  Title of the window to send click to
;                $Button     =  "left" or "right" mouse button
;                $X       =  X coordinate
;                $Y       =  Y coordinate
;                $Clicks     =  Number of clicks to send
; Remarks:      You MUST be in "MouseCoordMode" 0 to use this without bugs.
; Author(s):      Insolence <insolence_9@yahoo.com>
;
;===============================================================================
;opt("MouseCoordMode", 0)
Func _MouseClickPlus($handle, $Button = "left", $X = "", $Y = "", $Clicks = 1)
  Local $MK_LBUTTON    =  0x0001
  Local $WM_LBUTTONDOWN   =  0x0201
  Local $WM_LBUTTONUP    =  0x0202

  Local $MK_RBUTTON    =  0x0002
  Local $WM_RBUTTONDOWN   =  0x0204
  Local $WM_RBUTTONUP    =  0x0205

  Local $WM_MOUSEMOVE    =  0x0200

  Local $i              = 0
  Local $user32 = DllOpen("user32.dll")

  Select
  Case $Button = "left"
     $Button     =  $MK_LBUTTON
     $ButtonDown =  $WM_LBUTTONDOWN
     $ButtonUp   =  $WM_LBUTTONUP
  Case $Button = "right"
     $Button     =  $MK_RBUTTON
     $ButtonDown =  $WM_RBUTTONDOWN
     $ButtonUp   =  $WM_RBUTTONUP
  EndSelect

  If $X = "" OR $Y = "" Then
     $MouseCoord = MouseGetPos()
     $X = $MouseCoord[0]
     $Y = $MouseCoord[1]
  EndIf
  For $i = 1 to $Clicks
     DllCall($user32, "int", "SendMessage", "hwnd",$handle, "int", $WM_MOUSEMOVE, "int", 0, "long", _MakeLong($X, $Y))

     DllCall($user32, "int", "SendMessage", "hwnd", $handle, "int", $ButtonDown, "int", $Button, "long", _MakeLong($X, $Y))

     DllCall($user32, "int", "SendMessage", "hwnd", $handle,  "int", $ButtonUp, "int", $Button, "long", _MakeLong($X, $Y))
  Next
EndFunc

Func _MakeLong($LoWord,$HiWord)
  Return BitOR($HiWord * 0x10000, BitAND($LoWord, 0xFFFF))
EndFunc

Edited October 15, 2009 by binhepu

[larryvns]

it test myself, it doesn't work

[Bert]

Well, your necropost did work perfectly.

<facepalm>

[guinness]

it test myself, it doesn't work

What is wrong with MouseClick() in AutoIt?

[Melba23]

larryvns,

Did you notice that the first post in this thread dates from over 4 years ago and that the OP has not been online for over 2 years?

Please do not necro-post like this again - just open a new thread and link to the old one if it is absoutely necessary for understanding the problem. We ask you to do this for two main reasons:

 

- 1. The language advances and the functionality might well be included in core or UDF code by now

- 2. The changes in language syntax mean that it is likely that code from more than a couple of years ago may well not run under the current release interpreter without significant modification.

Finally, the main use of this function was to fool games into believing that the clicks were not being made by a bot - so I suggest you read the Forum rules (there is also a link at bottom right of each page) before you post again.

M23