Bonjour
je suis entrain de créer une nouvelle application (HTA)avec du vbscript dedans
et je cherche comment mettre deux boutons (+/-) pour baisser et monter le volume
quelqu'un aurait une piste
merci d'avance
Version imprimable
Bonjour
je suis entrain de créer une nouvelle application (HTA)avec du vbscript dedans
et je cherche comment mettre deux boutons (+/-) pour baisser et monter le volume
quelqu'un aurait une piste
merci d'avance
bonjour,
le contrôle spinbutton pourrait faire l'affaire
exemple hta :
ce contrôle fait partie de la "Microsoft Forms 2.0 Object library"Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Bonjour ommen999
le bouton sympa mais ca ne change page pas le volume :calim2:
travaillant sur vba habituellement je me doute que ca doit être un peu plus compliqué c'est la partie vbs que je cherche mais je ne trouve rien
merci pour le coup de main
je cherche toujours
Bonjour a tous
voila j'ai glaner ici et la des méthode utilisant du WSH dans un fichier vbs
Attention c'est valable pour seven pour inferieur c'est "SndVol32"
exemple de fichier VBS seul
seul problème le WSH n'est pas compatible avec un hta étant donné que les fonction vbs sont interne dans le HTACode:
2
3
4
5
donc j'utilise la fonction shellececute
et voila le code
ca ouvre bien le panneau de sonCode:
2
3
4
5
6
seul problème objshell ne gère pas le sendkey c'est en tout cas l'erreur qui est affichée
quelqu'un a une idée ?
:salut:
A la limite essayer ceci :mouarf:Code:
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
En toutes rigueurs, pour faire des sauts de 20%, les SendKeys
oShell.SendKeys("{PGUP}") volume +20%
oShell.SendKeys("{PGDN}") volume -20%
oShell.SendKeys(" " & chr(173)) permet de couper/remettre le son (bascule)
oShell.SendKeys("{HOME}") volume maximum 100%
oShell.SendKeys("{END}") volume minimum 0%
:salut:
En tenant compte de la remarque de ProgElecT :king: :plusser:
Code:
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
il est inutile de lancer SndVolxx pour contrôler le volume du son
il suffit de tirer parti du fait que windows sait gérer les claviers multimedia
qui comportent justement des boutons de contrôle du volume et pas
simplement la bascule du mute
donc :
la difficulté tient au fait qu'il est impossible en vbs de lire le niveau courant du volume.Code:
2
3
4
5
donc à l'initialisation du hta, il faut prévoir un étalonnement du spin bouton en forçant
le volume au niveau zéro.
chaque keycode modifie le volume avec un pas de 4% d'où le 25 pour assurer le coup...;)
Salut
:ccool: omen999
Ben cela diffère d'un ordinateur à l'autre pour avoir 20% moi il me faut passer 10 fois le KeyCodeCitation:
Envoyé par omen999
La Sub Sleep(MSecs) devient inutile (reste quelle est bien pratique quand on a besoin de l'équivalent de Doevents (VB6)Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
:salut:
Avec le dernier code de ProgElecT , ça devient plus souple et plus simple et on n'a plus aussi besoin d'un Sleep en HTA :king: :plusser:
Code:
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
je vais regarder vos deux dernier exemple
en attendant regardez comment je coupe les sons system
et regardes aussi le fait que j'utilise un autre object que le wscripshell
set oShell = CreateObject("WScript.Shell")
Set objShell = CreateObject("Shell.Application")
cela me permet de rendre visible ou invisible la fenetre sndvol.exe
qu'en pensez vous ?Code:
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
RE
Autant pour moi
la méthode ProgElecT est parfaite pas de fenêtre ,pas de sleep adapté dans ton code hackoofr c'est parfait
purée pourquoi Ya pas ca dans la Faq voila une source a partagé et qui mérite sa place non de dieu
c'est pas grand chose mais ca fait 3 jours que je bosse dessus et on trouve ca nul part
par contre une explication sur le numéraire après la keys me serait utile pour ma compréhension
+1 pour tout les deux :applo:
purré de purré 3 jours j'y crois pas :mouarf:
EDIT: Allez je garde la dernière méthode en espérant que les keys soit identiques pour tout les ordis
Merci a tout les deux
:pastaper:
Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Bonjour ProgElecT
c'est nikel et a mettre dans les contrib pour ne plus avoir a chercher des plombes
respect!
en plus j'était en train de chercher la syntaxe pour injecter plusieurs arguments du bouton a la sub en vbs tu viens de le faire
respect!
merci encore a toi et hackoofr
Au plaisir
mon code initial avait été écrit sous xp sp3Citation:
Ben cela diffère d'un ordinateur à l'autre pour avoir 20% moi il me faut passer 10 fois le KeyCode
je viens de tester sous seven sp1, effectivement avec cette version le pas est réduit de moitié 2% ou lieu de 4. :aie:
Salut
@omen999, dans tous les cas tu est l’initiateur de la simplification (code et commentaire de ton post N°8 ou tu indiques qu'il est inutile de lancer SndVol)