CHANGER LA VITESSE DU CLAVIER ET LE DELAI DE REPETITION vitesse, changer, clavier, repetition, délai, Source N°18

Information sur la source

Catégorie :Système Classé sous : vitesse, changer, clavier, repetition, délai Niveau : Initié Date de création : 15/05/1999 Vu / téléchargé: 5 174 / 232

Auteur : Nix

Site perso

Ecrire un message privé

Ce membre participe au partage de revenus publicitaires

Note :

8,25 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (2)

Ajouter un commentaire et/ou une note

Description

Comment puis-je changer la vitesse et le deali du clavier ?

Mettez les déclarations suivantes :

Source

Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Const SPI_GETKEYBOARDDELAY = 22
Public Const SPI_GETKEYBOARDSPEED = 10
Public Const SPI_SETKEYBOARDDELAY = 23
Public Const SPI_SETKEYBOARDSPEED = 11
Public Const SPIF_SENDCHANGE = 1
Public OldKeySpeed As Long
Public OldKeyDelay As Long
Sub RendreClavierPlusRapide()
Dim Retcode As Long
Dim FastKeySpeed As Long
Dim FastKeyDelay As Long
Dim dummy As Long
FastKeySpeed = 31
FastKeyDelay = 0
dummy = 0
Retcode = SystemParametersInfo(SPI_GETKEYBOARDSPEED, 0, OldKeySpeed, 0)
Retcode = SystemParametersInfo(SPI_GETKEYBOARDDELAY, 0, OldKeyDelay, 0)
Retcode = SystemParametersInfo(SPI_SETKEYBOARDSPEED, FastKeySpeed, dummy, IF_SENDCHANGE)
Retcode = SystemParametersInfo(SPI_SETKEYBOARDDELAY, FastKeyDelay, dummy, IF_SENDCHANGE)
End Sub
Sub RestaurerLeClavier()
Dim Retcode As Long
Dim dummy As Long
dummy = 0
Retcode = SystemParametersInfo(SPI_SETKEYBOARDSPEED, OldKeySpeed, dummy, PIF_SENDCHANGE)
Retcode = SystemParametersInfo(SPI_SETKEYBOARDDELAY, OldKeyDelay, dummy, PIF_SENDCHANGE)
End Sub

Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Const SPI_GETKEYBOARDDELAY = 22
Public Const SPI_GETKEYBOARDSPEED = 10
Public Const SPI_SETKEYBOARDDELAY = 23
Public Const SPI_SETKEYBOARDSPEED = 11
Public Const SPIF_SENDCHANGE = 1
Public OldKeySpeed As Long
Public OldKeyDelay As Long

Sub RendreClavierPlusRapide()
   Dim Retcode As Long
   Dim FastKeySpeed As Long
   Dim FastKeyDelay As Long
   Dim dummy As Long
   FastKeySpeed = 31
   FastKeyDelay = 0
   dummy = 0
    
   Retcode = SystemParametersInfo(SPI_GETKEYBOARDSPEED, 0, OldKeySpeed, 0)
   Retcode = SystemParametersInfo(SPI_GETKEYBOARDDELAY, 0, OldKeyDelay, 0)
   Retcode = SystemParametersInfo(SPI_SETKEYBOARDSPEED, FastKeySpeed, dummy, IF_SENDCHANGE)
   Retcode = SystemParametersInfo(SPI_SETKEYBOARDDELAY, FastKeyDelay, dummy, IF_SENDCHANGE)
End Sub

Sub RestaurerLeClavier()
   Dim Retcode As Long
   Dim dummy As Long
   dummy = 0
   Retcode = SystemParametersInfo(SPI_SETKEYBOARDSPEED, OldKeySpeed, dummy, PIF_SENDCHANGE)
   Retcode = SystemParametersInfo(SPI_SETKEYBOARDDELAY, OldKeyDelay, dummy, PIF_SENDCHANGE)
End Sub