Mousemove and Mouseclick

[dazjehyy]

Hi, I just begin AutoIT scripting and I'm very sad on it. Trying to make script what: Mouse Left click, move from mouse position to 20 coord down and Mouse Left click. I tryed this:

While 1
HotKeySet("{esc}", "ExitScript")
HotKeySet("1", "THarvest")
WEnd

Func ExitScript()
Exit
EndFunc

$posx = MouseGetPos()
$posy = MouseGetPos()


Func THarvest()
MouseGetPos()
MouseClick("left")
MouseMove($posx[0], $posy[1] 20, 10)
MouseClick("left")
EndFunc

Can anyone who know this language better to explain what is wrong on this and how to fix it ;P.

Thanks.

[veronesi]

Hi,

try this code:

;Main Loop
While 1
    HotKeySet("{ESC}", "ExitScript")
    HotKeySet("1", "THarvest")
WEnd



;Used functions
Func ExitScript() ;Exit Main Loop
    Exit
EndFunc    ;==>ExitScript

Func THarvest()
    $posX = MouseGetPos(0) ;Get x position of mouse
    $PosY = MouseGetPos(1) ;Get y position of mouse
    MouseClick("Left") ;click left
    MouseMove($PosX, $PosY + 20, 10) ;move mouse
    MouseClick("Left") ;click left
EndFunc    ;==>THarvest

Regards

Veronesi

Edited April 23, 2010 by veronesi

[dazjehyy]

It works, thanks. Well I was close .