Activer le numlock au démarrage

Soyez le premier à donner votre avis sur cette source.

Vue 6 807 fois - Téléchargée 456 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
Groumphy Messages postés 17 Date d'inscription mercredi 24 mars 2004 Statut Membre Dernière intervention 7 mai 2004
29 mars 2004 à 20:20
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.
nephix2003 Messages postés 84 Date d'inscription mercredi 4 juin 2003 Statut Membre Dernière intervention 6 novembre 2004
19 juil. 2003 à 02:20
je te dirai ça au prochain reboot ;-)
mathieumg Messages postés 558 Date d'inscription mardi 4 février 2003 Statut Membre Dernière intervention 18 février 2006
18 juil. 2003 à 03:22
Pas testé mais tu pourrais le mettre direct pour les non-inscrits ;)

Merci

Mathieu M-G
http://www.maxicom.ca.tc
Nargzul Messages postés 438 Date d'inscription vendredi 9 mai 2003 Statut Membre Dernière intervention 26 juillet 2007 3
17 juil. 2003 à 10:17
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.