Discussion :

[emile63]

Bonjour à tous,

Néophyte en la matière, je cherche à créer une petite procédure vbs dans Windows (Windows 11 Business, Version 22H2) qui consiste à:

ouvrir la boîte des paramètres de Windows,
sélectionner le sous-menu : Accessibilité
Sélectionner : Pointeur de souris et interaction tactile
Sélectionner Le style (4ème) de souris "Vert fluo"
et augmenter sa taille à : 6
Puis tout refermer.

Puis sur une seconde procédure qui ferait l'inverse, c'est à dire qu'il sélectionne les différents menus jusqu'au pointeur de la souris, et là, il remet le blanc standard (1er de la liste) avec la taille de 1
et referme toutes le fenêtre ouvertes.

Évidemment s'il y a la possibilité d'avoir l'ensemble des actions (où l'une ou l'autre actions s'exécute en fonction du type d'icône de souris active) sur une seule procédure, ce serait le top, mais bon, je n'y crois pas trop.

J'ai essayé de bricoler autour de la procédure suivante, mais sans succès, malheureusement elle ne fonctionne pas (Erreur à la ligne: 2 Car.: 1 )
Erreur: Impossible d'attendre pour le traitement
Code: 80020009

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
'-----------------------------------------------
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "ms-settings:accessibility", 1, True
WScript.Sleep 1000
WshShell.Run "ms-settings:easeofaccess-mouse", 1, True
WScript.Sleep 2000
WshShell.SendKeys "{TAB}"
WScript.Sleep 2000
WshShell.SendKeys "{TAB}"
WScript.Sleep 2000
WshShell.SendKeys "{TAB}"
WScript.Sleep 2000
WshShell.SendKeys "{TAB}"
WScript.Sleep 2000
WshShell.SendKeys "{ENTER}"
WshShell.SendKeys "{TAB}"
WScript.Sleep 500
WshShell.SendKeys "{TAB}"
WScript.Sleep 500
WshShell.SendKeys "{TAB}"
WScript.Sleep 500
WshShell.SendKeys "{TAB}"
WScript.Sleep 500
WshShell.SendKeys "{TAB}"
WScript.Sleep 500
WshShell.SendKeys "{TAB}"
WScript.Sleep 500
WshShell.SendKeys "{SPACE}"
WScript.Sleep 500
WshShell.SendKeys "{TAB}"
WScript.Sleep 500
WshShell.SendKeys "{TAB}"
WScript.Sleep 500
WshShell.SendKeys "{ENTER}"
WScript.Sleep 500
WshShell.SendKeys "8"
WScript.Sleep 500
WshShell.SendKeys "{TAB}"
WScript.Sleep 500
WshShell.SendKeys "{ENTER}"
'-----------------------------------------

Je vous remercie d'avance pour votre sollicitude et pour votre aide et conseils

Cordialement,
Emile

[umfred]

pour commencer, la commande pour accéder directement à la bonne fenêtre est ms-settings:easeofaccess-mousepointer (inutile de passer par des intermédiaires) (https://learn.microsoft.com/fr-fr/wi...ease-of-access)

Ensuite, l'erreur indique qu'il impossible d'attendre un retour de l'appel, donc soit enlever True, soir le remplacer par False de la ligne de commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "ms-settings:easeofaccess-mousepointer", 1
WScript.Sleep 2000
'par défaut, on est sur la taille
'on décale 5 fois pour aller sur le 6 (
for i = 1 to 5
	WshShell.SendKeys "{RIGHT}"
	WScript.Sleep 2000
next
'on passe à la sélection du curseur
WshShell.SendKeys "{TAB}"
WScript.Sleep 2000
WshShell.SendKeys "{RIGHT}"
WScript.Sleep 2000
WshShell.SendKeys "{RIGHT}"
WScript.Sleep 2000
WshShell.SendKeys "{RIGHT}"
WScript.Sleep 2000
WshShell.SendKeys "{ENTER}"
WScript.Sleep 2000
'on ferme la fenêtre
WshShell.SendKeys "%{F4}"

PS: code qui fonctionne sous windows 10 (pas de windows 11 pour vérifier si c'est la même organisation, mais je pense que oui)

[emile63]

Merci umfred pour ton aide. 👍

J'ai dû l'adapter, mais ça fonctionne maintenant.
Encore merci et bonne journée.