Page 1 sur 1

[R] Problème MouseGetPos

Posté : dim. 06 juil. 2008 19:30
par autoporte
Bonjour à tous, j'ai un problème avec mon script que voici :

Code : Tout sélectionner

#Include <Misc.au3>
$fenetre1x = InputBox("","1 ere mouse postion (x)")
$fenetre1y = InputBox("","1 ere mouse postion (y)")
$fenetre2x = InputBox("","2 eme mouse postion (x)")
$fenetre2y = InputBox("","2 eme mouse postion (y)")
While 1
    If _IsPressed(01) then savepos()
WEnd

Func savepos()
    $clic = MouseGetPos()
    Sleep(150)
    MouseClick("left",$fenetre2x[0],$fenetre2y[1],1,1)
    MouseClick("left",$clic[0],$clic[1],1,1)
    MouseClick("left",$fenetre1x[0],$fenetre1y[1],1,1)
    EndFunc
 
Je voudrais que lors d'un clic de la sourie gauche, la position de la sourie soit "sauvegardée" pour pouvoir l'utilisé lors d'un MouseClick ( MouseClick("left",$clic[0],$clic[1],1,1) ).
Que faire?

Merci d'avance
Autoporte

Re: [..] Problème MouseGetPos

Posté : mar. 28 déc. 2010 16:53
par timmalos
Ton probleme, a été traité de nombreuses fois, mais il suffit de remplacer

Code : Tout sélectionner

While 1
    If _IsPressed(01) then savepos()
WEnd

par 
While 1
    If _IsPressed(01) then savepos()
    Sleep( 50 )
WEnd
et il n'y a plus d'erreurs, j'avais deja eu le probleme.
après pour la sauvegarde, tu peux utiliser le programme tout fait: SciteWriter ou telecharger la programme que je te donne ci-dessous.