[R] Manipuler les barres de défilement verticales

[disciplus]

Bonjour
A l'installation de certaines applications, il est nécessaire de passer les mentions légales en faisant descendre la barre de défilement verticale pour pouvoir dégriser le bouton d'installation. Comment est il possible de "scripter" ce défilement sans utiliser de commandes liées à la position de la souris ? (c'est pour installation sur différents postes n'ayant pas la même définition)..

Merci par avance

Disciplus

[Voodoo]

Je ne crois aps qu'il y est de fonction magique _winscrollautoleft()

Par contre, en mettant le focus sur la fenêtre avec

Code : Tout sélectionner

winactivate()

et un envoye de touche Bas De Page (la fléche qui pointe vers le bas avec deux traits horizontaux) !

Code : Tout sélectionner

send({PGDN})

sa peut marcher !

[eln]

Bonjour

Ou peut-être il existe un paramètre silencieux pour passer cette étape ?

[disciplus]

Bonsoir
Merci pour vos réponses

@VooDoo : Je n'ai pas l'appli sous les yeux mais il me semble avoir déjà essayé et ça ne marche pas.. Mais _winscrollautoleft() est à proposer aux développeurs (même si c'est à droite...)

@eln : peut-être mais lequel (l'application en question est l'antivirus eTrust, si ça peut aider)...

Encore merci
@+

Disciplus

[eln]

Bonjour

Je n'ai pas trouvé de paramètre silencieux mais :

Code : Tout sélectionner

Send("^{END}") ;Ctrl+Fin

fonctionne.

Bon courage.

[Vins83]

Bonjour a tous,j'ai un probleme un peu similaire.

En faite,je lis en continu un fichier *.txt et lorsque ce fichier devient trop grand,la barre de progression reste a sa place.

Code : Tout sélectionner

#include <GUIConstants.au3>

;Variable

$title = "Vins83 "
$version = "test "

;TITRE

GUICreate($title & $version, 250, 180, 0, 0, $WS_CAPTION, $WS_EX_TOOLWINDOW)

; Boutton Exit
$exit = GUICtrlCreateButton("Quitter", 4, 150, 242, 25)

; Action en cours
$actionencours = GUICtrlCreateEdit("", 5, 5, 240, 140)

;Guisetstate
GUISetState()

AdlibEnable("Timer", 50)

While 1
    
    $msg = GUIGetMsg()
    Select
        Case $msg = $exit
            ExitLoop
    EndSelect
    
WEnd

;fonction

; Fonction Timer
Func Timer()
    ; lit le fichier action
    GUICtrlSetData($actionencours, FileRead(@ScriptDir & "\action.txt"))
EndFunc   ;==>Timer

Exit

J'ai essayé avec les send et sa na marche pas,quelqu'un a une solution?

Merci

[disciplus]

Salut

@eln : Merci beaucoup. Je teste ça dès demain matin.

Disciplus

[disciplus]

Bonjour

Ca y est, mon pb est résolu.
En fait, avant le

Code : Tout sélectionner

Send("^{END}") ;Ctrl+Fin

de eln, j'ai du utiliser ControlClick("eTrust Antivirus","","[CLASS:Edit; Instance:1]") pour sélectionner la zone de la fenêtre qui m'intéressait.
Encore merci
@+
Disciplus