Activer le numlock au démarrage

Soyez le premier à donner votre avis sur cette source.

Vue 6 713 fois - Téléchargée 440 fois

Description

Alors j'ai pas trouvé de code qui activait directement le numlock au démarrage, ca peut etre très pratique pour ceux qui utilise le clavier numérique pour taper leur passe. il n'y a pas de commentaire, code très simple(moins de dix ligne) il va juste modifier une clef dans le registre, sans api....

Source / Exemple :


'in the zip

' à moins que vous vouliez que je le mette ici...

Conclusion :


Chez moi il n'y a aucun problème, mais pensez kan meme a faire une sauvegarde de votre base de registre (taper regedit dans exécuter et pis après dans le menu, doit y avoir un truc sauvegarder)

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
17
Date d'inscription
mercredi 24 mars 2004
Statut
Membre
Dernière intervention
7 mai 2004

Peut-être plus simple d'emplois :

' Code libre de source
WScript.Echo "En activant le script suivant vous êtes conscient des risques pris."
MsgBienvenue = "Reg v1 - Modification de la base de registre."
TitreBienvenue = "Digital-Nation : [Script de Configuration]"
Call MsgAccueil()
MsgAttnTxt = "Compatibilité unique vers Windows NT4 / 2000 / Xp."
TitreAttn = "Digital-Nation : [Attention]"
Call MsgAttn()
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
Dim theValue
Dim theConf
theValue InputBox("Entrer la valeur de la clé [A actif - N = Non actif] :")
If theValue = "" then
theConf = "0"
ElseIf theValue = "N" then
theConf = "0"
ElseIf theValue = "A" then
theConf = "2"
Else
WScript.Echo "Valeur non correcte. Abandon de la procédure. --[(c) by Groumphy]--"
WScript.Quit
End if
WSHShell.Popup "Modification de la clé : InitialKeyboardIndicators"
WSHShell.RegWrite "HKEY_USERS\.DEFAULT\Control Panel\Keyboard\InitialKeyboardIndicators", theConf

' *****************
' * End of Script *
' *****************
WScript.Echo "Modification de la base de registre effectuée. -- [(c) by Groumphy] --"
' ***********
' * Accueil *
' ***********
Sub MsgAccueil()
Dim MsgXt
MsgXt = MsgBox(MsgBienvenue, vbOKCancel + vbInformation, TitreBienvenue )
If MsgXt = vbCancel Then
WScript.Quit
End If
End Sub
Sub MsgAttn()
Dim MsgAt
MsgAt = MsgBox(MsgAttnTxt, vbOKCancel + vbInformation, TitreAttn)
If MsgAt = vbCancel then
WScript.Quit
End If
End Sub

... ??? ... A vous de voir.
Messages postés
84
Date d'inscription
mercredi 4 juin 2003
Statut
Membre
Dernière intervention
6 novembre 2004

je te dirai ça au prochain reboot ;-)
Messages postés
558
Date d'inscription
mardi 4 février 2003
Statut
Membre
Dernière intervention
18 février 2006

Pas testé mais tu pourrais le mettre direct pour les non-inscrits ;)

Merci

Mathieu M-G
http://www.maxicom.ca.tc
Messages postés
438
Date d'inscription
vendredi 9 mai 2003
Statut
Membre
Dernière intervention
26 juillet 2007
3
bon je sais, ya rien à commenter, mais si vous pouviez seulement dire si il marche...

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.