[..] Mouse 3

[Yogui]

Après tout dépend de ce que tu veux faire :s

je n'en sais pas assez pour vraiment aider

j'ai fait ce petit script :

► Afficher le texte

Code : Tout sélectionner

#include <MouseSetOnEvent_UDF.au3>
HotKeySet("{ESC}", "_terminate")
Dim $i = 3, $sens = 1
While 1 ; tant que 1 = 1 alors
;~ _MouseSetOnEvent($MOUSE_WHELLDOWN_EVENT, "mouse_welldown_event")

    _MouseSetOnEvent($MOUSE_WHELLSCROLL_EVENT, "mouse_well")

WEnd

Func mouse_well()

    If $i = 3 Then
        $i = 2
        Send("{F3}")
        $sens = 1
    ElseIf $i = 2 And $sens = 1 Then
        Send("{F2}")
        $i = 1
    ElseIf $i = 1 Then
        Send("{F1}")
        $i = 2
        $sens = 2
    ElseIf $i = 2 And $sens = 2 Then
        Send("{F2}")
        $i = 3
    EndIf

EndFunc   ;==>mouse_well

Func _terminate()
    Exit
EndFunc   ;==>_terminate

c'est plus mieux que je puisse faire mais je ne prend pas en compte le sens de rotation de la molette arrivé à 3 je change de sens pour aller vers 1 et une fois à 1 je change de sens pour aller vers 3 c'est de la bidouille mais ...

[Jerome]

Génial, c'est nickel ce qu'il me fallait .

Cependant, a un moment le script se ferme, moyen de regler sa ?

Et de rajouter F4 ?

[Yogui]

chez moi le seul moment ou le script coupe c'est lorsque je fais Echap sinon il ne coupe pas... sachant que pour mes tests j'ai emplacer les send par des traytip

ajouter un F4 avec un peu de logique mais bon

► Afficher le texte

Code : Tout sélectionner

#include <MouseSetOnEvent_UDF.au3>
HotKeySet("{ESC}", "_terminate")
Dim $i = 4, $sens = 1
While 1 ; tant que 1 = 1 alors
;~ _MouseSetOnEvent($MOUSE_WHELLDOWN_EVENT, "mouse_welldown_event")

    _MouseSetOnEvent($MOUSE_WHELLSCROLL_EVENT, "mouse_well")

WEnd

Func mouse_well()

    If $i = 4 Then
        $i = 3
        Send("{F4}")
        $sens = 1
    ElseIf $i = 3 And $sens = 1 Then
        Send("{F3}")
        $i = 2
    ElseIf $i = 2 And $sens = 1 Then
        Send("{F2}")
        $i = 1
    ElseIf $i = 1 Then
        Send("{F1}")
        $i = 2
        $sens = 2
    ElseIf $i = 2 And $sens = 2 Then
        Send("{F2}")
        $i = 3
    ElseIf $i = 3 And $sens = 2 Then
        Send("{F3}")
        $i = 4
    ElseIf $i = 4 And $sens = 2 Then
        Send("{F4}")
        $i = 3
        $sens = 1
    EndIf
    
EndFunc   ;==>mouse_well

Func _terminate()
    Exit
EndFunc   ;==>_terminate

[Jerome]

Oui merci

Par contre oui, le script se ferme tous seul au bout d'un moment, et je n'appuie pas sur "echap"