APISOFT tester la touche VERR MAJ

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : APISOFT tester la touche VERR MAJ

prosciuto

Bonjour,

J'ai un problème dans le logiciel de comptabilité APISOFT qui est codé (il me semble) en VBScript.

Lors de l'ouverture d'une Vue (une fenêtre qui nous montre toutes les données de la base de données) j'ai un champs "CODE" qui désigne l'id de la ligne. Cet ID est TOUJOURS en majuscule, par contre,
lors ce qu'on ouvre la vue et qu'on cherche un code (ID) on tape en minuscule.

Je voudrais faire un script tout simple qui fait que lorsque la touche CAPSLOCK est désactivé, je l'active, sinon je ne fais rien.
quelque chose comme ça:

Code :

'definitions des fonctions
set WshShell = CreateObject("WScript.Shell" )
'ouverture:
If CapsLockOn = False Then
WshShell.SendKeys "{CAPSLOCK}"
End If

Le problème c'est qu'il ne détecte pas le "if CapsLockOn" (je ne sais pas pourquoi mais j'ai suposé que la fonction n'était pas native)

J'ai alors chercher un moyen sur google de détecter l'etat d'une touche VERR MAJ et j'ai trouver ce script :

Code :

' Declare Type for API call:
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128 ' Maintenance string for PSS usage
End Type
' API declarations:
Private Declare Function GetVersionEx Lib "kernel32" _
Alias "GetVersionExA" _
(lpVersionInformation As OSVERSIONINFO) As Long
Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function GetKeyboardState Lib "user32" _
(pbKeyState As Byte) As Long
Private Declare Function SetKeyboardState Lib "user32" _
(lppbKeyState As Byte) As Long
' Constant declarations:
Const VK_NUMLOCK = &H90
Const VK_SCROLL = &H91
Const VK_CAPITAL = &H14
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2
Const VER_PLATFORM_WIN32_NT = 2
Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Sub Command1_Click()
Dim o As OSVERSIONINFO
Dim NumLockState As Boolean
Dim ScrollLockState As Boolean
Dim CapsLockState As Boolean
o.dwOSVersionInfoSize = Len(o)
GetVersionEx o
Dim keys(0 To 255) As Byte
GetKeyboardState keys(0)
' NumLock handling:
NumLockState = keys(VK_NUMLOCK)
If NumLockState <> True Then 'Turn numlock on
If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then '=== Win95/98
keys(VK_NUMLOCK) = 1
SetKeyboardState keys(0)
ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then '=== WinNT
'Simulate Key Press
keybd_event VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0
'Simulate Key Release
keybd_event VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY _
Or KEYEVENTF_KEYUP, 0
End If
End If
' CapsLock handling:
CapsLockState = keys(VK_CAPITAL)
If CapsLockState <> True Then 'Turn capslock on
If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then '=== Win95/98
keys(VK_CAPITAL) = 1
SetKeyboardState keys(0)
ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then '=== WinNT
'Simulate Key Press
keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0
'Simulate Key Release
keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY _
Or KEYEVENTF_KEYUP, 0
End If
End If
' ScrollLock handling:
ScrollLockState = keys(VK_SCROLL)
If ScrollLockState <> True Then 'Turn Scroll lock on
If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then '=== Win95/98
keys(VK_SCROLL) = 1
SetKeyboardState keys(0)
ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then '=== WinNT
'Simulate Key Press
keybd_event VK_SCROLL, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0
'Simulate Key Release
keybd_event VK_SCROLL, &H45, KEYEVENTF_EXTENDEDKEY _
Or KEYEVENTF_KEYUP, 0
End If
End If
End Sub

Le problème est que sur ce logiciel la syntaxe:

Code :

Dim keys(0 To 255) As Byte

est fausse !

j'ai donc changé pour Dim Keys tout cours, evidement, ça ne fonctionne pas.
Je suis un peu perdu, je ne comprend pas bien si c'est du langage VBScript ou pas, si j'ai fait une erreur ou autre...

Quelqu'un pourrait m'aider à trouver le moyen de TESTER l'ETAT de la touche VERR MAJ ?

Je vous remercie par avance,

Prosciuto

Publicité

kiki29

Salut
dans un module

Option Explicit

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function SetKeyboardState Lib "user32" (lppbKeyState As Byte) As Long
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long

Private Const VK_CAPITAL = &H14
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2

Public Sub SetKeyState(ByVal Key As Long, ByVal State As Boolean)
keybd_event Key, MapVirtualKey(Key, 0), KEYEVENTF_EXTENDEDKEY Or 0, 0
keybd_event Key, MapVirtualKey(Key, 0), KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0
If Key = 20 And State = False Then
keybd_event 16, 0, 0, 0
keybd_event 16, 0, 2, 0
End If

End Sub

Public Property Get CapsLock() As Boolean
CapsLock = GetKeyState(VK_CAPITAL) = 1
End Property

Public Property Let CapsLock(ByVal Value As Boolean)
SetKeyState VK_CAPITAL, Value
End Property

Dans un autre

Option Explicit

Sub BtnON()
If CapsLock = False Then CapsLock = True
End Sub

Sub BtnOFF()
If CapsLock = True Then CapsLock = False
End Sub

prosciuto

Bonjour, Merci pour ta réponse et pour ton script rapide kiki29.

Cependant quand je l'insère dans le module j'ai ce message d'erreur:

"Expected end of Statement"

Quand je cherche quel ligne bogue, j'ai toujours des erreurs du genre "l'instruction doit être dans une classe"

De ce que j'ai vu ce logiciel accepte juste les formules du type :

sub Fonction
Dim Variable
IF Variable = False Then
Variable = True
END IF
End

Aurais tu une idée ?

Merci pour ton aide.

prosciuto

Bonjour, j'ai réussi grâce à un autre forum sur ce post http://www.developpez.net/forums/d [...] ost4517859

En résumé, il faut utiliser un Wrapper pour acceder au API Windows.

Code :

VK_CAPITAL = 20
Set oAPI = CreateObject ("DynamicWrapperX" )
oAPI.Register "user32.dll", "GetKeyState", "i=l", "r=l"
res = oAPI.GetKeyState(VK_CAPITAL)
Select Case res
Case 0 MsgBox "Touche CapsLock inactive"
Case 1 MsgBox "Touche CapsLock active"
End Select

Le lien du Wrapper que l'on ma fourni:

Code :

http://contrib-vb.developpez.com/o [...] apperX/#LI

Bonne continuation et merci pour votre aide.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

APISOFT tester la touche VERR MAJ

Sujets relatifs
Tester si valeur existe dans une autre table.	mesage traitement en cours + MàJ auto des cellules
Aide MAJ liste chainée	Résolu - Attendre dans un destructeur / Tester une instance
coller des textes grâce à une touche	Assigner Programme/Action à une touche de la
[Batch] appuyer sur une touche du clavier virtuelement	Actions selon la durée de pression d'une touche
Plus de sujets relatifs à : APISOFT tester la touche VERR MAJ

Page générée en 0.078 secondes