Test touches clavier

**tsmir** · 21/09/2022, 09h51

Bonjour,

Je voulais savoir s'il était possible de créer un programme en .vbs pour vérifier quelques touches de clavier ?

Idée: Afficher un texte à saisir.
=> Fermer la fenêtre dès que le texte est saisi à l'identique
=> La fenêtre reste ouverte sans possibilité de faire autre chose tant que l'utilisateur n'a pas un clavier opérationnel pour continuer à utiliser le PC.

Il faudrait prévoir un bouton abandon dans un premier temps.

Si cela est possible, comment aboutir au code ? Du côté de stdin et out ?

Je ne maitrise pas ces notions mais aimerait un coup de pouce.

Merci.

**tsmir** · 21/09/2022, 09h53

Code :

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

1
2
wscript.stdout.write "TOUCHE1 :"
TOUCHE1=wscript.stdin.readline

J'ai un message d'erreur pour cela que j'ai collé dans un .vbs

**tsmir** · 21/09/2022, 13h27

Bon j'ai pu avancer, si cela peut servir.

Code :

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

1
2
3
4
5
6
7
texte1="123456789"
texte2=inputbox("Tapez: "&texte1&"")
If texte1=texte2 Then
msgbox("Ca marche")
Else
msgbox("Ca ne marche pas")
End If

**tsmir** · 21/09/2022, 14h34

Je vois les choses autrement au fur et à mesure.

Comment pourrais-je enrichir une variable de toutes les touches saisies en directe sans validation et la comparer à chaque saisie jusqu'à obtenir une sorte de >= à la chaine de caractère 123456789

Dès que la totalité des touches est ok, quitter le programme
Si pas OK afficher les caractères des touches qu'il reste à tester.

exemple: chaine de référence 123456789
si je tape 123455556666677, il me reste 8 et 9 à saisir
si je tape 12222334567889, le programme se termine

Faut-il forcément valider une inputbox pour que la saisie soit prise en compte ou est-ce que le programme peut comparer à chaque touche appuyée ?

**ProgElecT** · 21/09/2022, 16h32

Salut tsmir

VbScript sert essentiellement a exécuter des taches sans interventions de l'utilisateur ou presque.
Tourne toi tous de suite vers du HTA qui peut utiliser du VbScript cela avec un simple éditeur de texte (bloc note, Notepad++ encor mieux).
Un exemple, du calcul:

Code html :

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
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
<HTML>
	<HEAD> 
    <title>Mon premier prog de calcul</title>
		<HTA:APPLICATION
 				MAXIMIZEBUTTON="no"
				SCROLL="no"
				BORDER = "thin"
        title="Du calcul"
		>
		<SCRIPT language="VBScript" type="text/vbscript">
        'redimensionner la fenêtre de départ
        ResizeTo 350,120: MoveTo (Screen.Width-350)/2,(Screen.Height - 120) / 2
                </SCRIPT>
		<style>
                        /* partie estetique des différents controles sur la page */
                        label{
                                position: relative;
                                left:10px;
                                color:blue;
                        }
                        input{
                                position:absolute;
                                left:150px
                        }
                </style>
	</HEAD>
	<BODY>
		<label id="Lab1">Saisir prix d'achat:</label> <INPUT TYPE="text" id="Achat" Title="Enter pour calculer" SIZE="20" MAXLENGTH="30" VALUE="">
		<BR>
		<label id="Lab2">Saisir prix de vente:</label> <INPUT TYPE="text" id="Vente" Title="Enter pour calculer" SIZE="20" MAXLENGTH="30" VALUE="">
 
		<script language="VBScript">
            'message pour traitement d'erreur, la variable MsG est valide dans toutes la partie Script
                        dim MsG: MsG = "Entrez un nombre valide (Exemple: 123,456)"
 
                        ' ----------------------------- évènement controle -------------------------------------------
                        Sub Window_Onload()
                                Achat.focus() 'pour que le curseur souris soit sur l'input Achat
                        end sub
 
                        Sub Achat_onkeyup()
                                if ToucheValide(window.event.keyCode) = false then exit sub
                                'gestion du separateur decimale
                                Achat.value = replace(Achat.value,".",",")
                                if EntrerValide(Achat.value)=false then msgbox MsG:exit sub 'quitte imediatement la sub
                                        'ici on sait que l'on traite bien un nombre
                                        Vente.value = FormatNumber((Achat.value * 1.15 - 0.01),2)'on limite à 2 decimale
                        end sub
 
                        Sub Vente_onkeyup()
                                if ToucheValide(window.event.keyCode) = false then exit sub
                                Vente.value = replace(Vente.value,".",",")
                                if EntrerValide(Vente.value)=false then msgbox MsG:exit sub
                                Achat.value = FormatNumber((Vente.value+0.01) / 1.15,2)
                        end sub
 
                        ' ----------------------------------- gestion globale des erreurs ------------------------------
                        function ToucheValide(CodeKey)
                                ToucheValide = true
                                if CodeKey <> 13 then ' si la touche est inégale à Enter
                                        'veriffier que la touche égal un chiffre ou un point ou une virgule
                                        if ((CodeKey <49 Or CodeKey > 59) and (CodeKey <> 46 or CodeKey <> 44)) then
                                                'si non, faire quitter la sub qui a appelée cette fonction
                                                ToucheValide = false
                                        end if
                                end if 
                        end function
                        function EntrerValide(valeur)
                                EntrerValide = IsNumeric(valeur) 'renvoie false si valeur n'est pas un nombre, sinon true
                        end function
 
                </script>
	</BODY>
</HTML>

Il te suffit de sauvegarder le code avec l"extension .HTA .
Tu trouveras beaucoup d'exemples de programmes HTA dans ce forum VbScript mais aussi dans la partie Vos Contributions VBScript.

Test touches clavier

VBScript

Vue hybride

Discussions similaires

Partager

Partager