[R] Détection de mouvement de la souris

[Sadiik]

Bonjour, bonsoir,

Alors, étant débutant je demande de l'aide pour un script assez simple, mais je bloque dessus
Donc, j'aimerais faire une "alarme", qui, dès que la souris n'est plus en 500,500, une boucle commence avec deux beeps, mais pour que la boucle démarre, il faut que la souris ne soit plus en 500,500, et pour que le script sache où est la souris, il faut un MouseGetPos, le problème c'est que j'essaye mais ça ne marche jamais, ça sonne toujours..

Code : Tout sélectionner

$Var1 = MouseMove ( 500 , 500 , 0 )
$Var2 = MouseGetPos ()

Sleep ( 2*1000 )

While 1

If $Var1 <> $Var2 Then

While 2
Beep ( 500 , 500 )
Beep ( 1000 , 500 )
Sleep ( 1 )
WEnd

ElseIf $Var1 = $Var2 Then
Sleep ( 1 )
EndIf

WEnd
 

Merci d'avance..

[Yogui]

Bonjour,

J'ai tenté de trouver un moyen de vous aider sans donner la solution mais je vais tenter de vous faire un code qui fonctionne avec le max d'information

Code : Tout sélectionner

MouseMove(500, 500, 0) ;mousemove déplace le pointeur sur un position 500 500 (pour placer un point il faut deux chiffre l'abscisse et l'ordonné)

While 1 ;je commence ma boucle while 1 veux dire tant que 1 = 1 je fais une ou des actions
    $Var2 = MouseGetPos() ;Mousegetpos donne la position de la souris le résultat est mis dans Var2 c'est un tableau puisqu'il faut deux chiffres pour placer un point sur l'écran
    If 500500 <> $Var2[0] & $Var2[1] Then ;la je triche un peu la souris doit etre aux coordonnées 500 500 si elle n'y est pas alors je bit je concatène donc les deux coordonnées 500500 et les deux éléments du tableau $var[0] et $var[1]
        Beep(500, 250) ; si ma condition est correcte je beep
    Else ;sinon
        Sleep(100) ;je fais une pause
    EndIf ;fin de ma condition
WEnd ; fin de mon tant que retour au début de mon while un pour vérifier si 1 est toujours égale à 1

[Sadiik]

Ah ok, le coup du 500500 j'avais pas vu ça comme ça, j'éssayer trop de faire qu'avec des variables, merci beaucoup !

Mon code final, il n'y avait presque rien à changer en faite :p

Code : Tout sélectionner

HotKeySet ( "{ESC}" , "Echap" )
Func Echap ()
Exit
EndFunc

$Var1 = MouseMove ( 500 , 500 , 0 )

Sleep ( 1000 )

While 1
    
$Var2 = MouseGetPos ()

If 500500 <> $Var2[0] & $Var2[1] Then

While 2
Beep ( 100 , 500 )
Beep ( 200 , 500 )
Sleep ( 1 )
WEnd

ElseIf 500500 = $Var2[0] & $Var2[1] Then
Sleep ( 1 )
EndIf

WEnd
 

[Yogui]

Si on vous demande qui vous a aidé pour ce code MENTEZ !

Vous n'avez pas compris qu'une seule boucle suffit !

Vous n'avez pas compris comment fonctionne le IF Pourquoi DIABLE mettre un elseif !



Je vous invite fortement à aller faire un tour du coté des tutos ! je suis d'accord il faut bien commencer un jour et faire des erreurs mais pour apprendre il faut aussi savoir écouter pour éviter de toujours faire les mêmes !

Code : Tout sélectionner

HotKeySet ( "{ESC}" , "Echap" )
Func Echap ()
Exit
EndFunc
MouseMove(500, 500, 0)
While 1
    $Var2 = MouseGetPos()
    TrayTip(0,$Var2[0] & $Var2[1],0)
    If 500500 <> $Var2[0] & $Var2[1] Then
        Beep(500, 1000)
    EndIf
    Sleep(100)
WEnd

[Sadiik]

Ah ! Excusez-moi j'étais trop occupé par le fonctionnement de ce p'tit script, ok merci pour le script à une boucle et sans ElseIf, je ne m'en étais pas rendu compte..
Je ne referrai plus l'erreur, j'espère :p