Sendkeys Ctrl Shift Alt

Version imprimable

01/05/2008, 19h12
imparator_42

Sendkeys Ctrl Shift Alt
J'ai ce ci pour informer :
Key Code
SHIFT +
CTRL ^
ALT %

Pour faire "Ctrl + +" ; Je fais ce ci :

Code:

SendKeys "^{+}"

Mais comment je fais pour "Ctrl + -" ?

J'ai essayer tous les codes suivants : mais ça ne donne rien :(
Code:

1 2 3 SendKeys "^{-}" SendKeys "^-" SendKeys "^(-)"
Quelqu'un pourrait peut-être m'aider SVP?Merci
01/05/2008, 21h14
SfJ5Rpw8

en théorie ce serai :

Code:

SendKeys "^-"

mais cela ne fonctionne pas...

Pas sûr, car non verifié sur un prog externe réagissant a ces 2 touches
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Option Explicit Private Sub Form_Load() Me.KeyPreview = True Me.Visible = True: DoEvents:Me.Refresh SendKeys "^{-}" End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) If Shift = 2 And KeyCode = 54 Then Me.Caption = Shift & " " & KeyCode End If End Sub
le SendKeys "^{-}" est bien detecté dans la condition If de la Sub Form_KeyUp.

01/05/2008, 23h27
ucfoutu

Citation:

Envoyé par ProgElecT

Pas sûr, car non verifié sur un prog externe réagissant a ces 2 touches

Et la vraie question est probablement ce point précis.
Sendkeys ne marche pas toujours bien avec les applications tournant avec Windows.
Il est carrément à éviter avec les autres applications.

Citation:

Note You can't use SendKeys to send keystrokes to an application that is not designed to run in Microsoft Windows.

Edit :

Just in case : oublier totalement SendKeys avec Directx

On peut utiliser l'Api de Windows (la fonctions SendInput, par exemple) pour certaines applications DirectX, mais pas toutes (certains jeux ne l'acceptent pas non plus)
01/05/2008, 23h36
imparator_42

Citation:

Envoyé par bbil

en théorie ce serai :

Code:

SendKeys "^-"

mais cela ne fonctionne pas...

9a sera plutôt :

Code:

SendKeys "^{-}"

non ? mais bon ça ne marche pas . . .
01/05/2008, 23h40
ucfoutu

Dans le code démo de Progelect,

Code:

SendKeys "^-"

aura le même effet et le même résultat que :

Code:

SendKeys "^(-)"

ou que

Code:

SendKeys "^{-}"

et pour cause ... (il n'y a qu'à essayer ...;))

Lis par contre mon message précédent concernant la simulation de touches à destination d'autres applications...;)

Citation:
Envoyé par ProgElecT
Pas sûr, car non verifié sur un prog externe réagissant a ces 2 touches
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Option Explicit Private Sub Form_Load() Me.KeyPreview = True Me.Visible = True: DoEvents:Me.Refresh SendKeys "^{-}" End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) If Shift = 2 And KeyCode = 54 Then Me.Caption = Shift & " " & KeyCode End If End Sub
le SendKeys "^{-}" est bien detecté dans la condition If de la Sub Form_KeyUp.
bien sur ça capte :)

Citation:

Envoyé par ucfoutu

Et la vraie question est probablement ce point précis.
Sendkeys ne marche pas toujours bien avec les applications tournant avec Windows.
Il est carrément à éviter avec les autres applications.

Edit :

Just in case : oublier totalement SendKeys avec Directx

On peut utiliser l'Api de Windows (la fonctions SendInput, par exemple) pour certaines applications DirectX, mais pas toutes (certains jeux ne l'acceptent pas non plus)

C'est pour mozilla

Ctrl + + à pour fonction d'agrandir la taille du texte
Ctrl + - à pour fonction d'appetir ( je sais pas le verbe de faire plus petit) la taille du text
Ctrl + 0 à pour fonction de remettre la taille du texte normale

Code:

SendKeys "^{+}"

Celui-ci marche , agrandi bien le texte

Code:

SendKeys "^0"

Celui-ci marche, remet bien le texte a la taille normale

P.S : Manuellement Ctrl + - ça marche

02/05/2008, 10h39
ThierryAIM

Citation:

Envoyé par imparator_42

P.S : Manuellement Ctrl + - ça marche

chez moi, ça ne marche qu'avec le - du pavé numérique (code touche =109) et pas avec le - de la touche -/6
02/05/2008, 16h18
imparator_42

Citation:

Envoyé par ThierryAIM

chez moi, ça ne marche qu'avec le - du pavé numérique (code touche =109) et pas avec le - de la touche -/6

Je confirme , ça marche avec le pavé numérique . . .
Alors la question est comment intégré ça ?

On ne pourrait pas faire avec ascii ?
- a pour code ascii : 45

utilise l'API KeybEvents...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
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 Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2
 
 
Sub EnVoiCrtLMoins()
  'Actionne touche Controle
  keybd_event vbKeyControl, 0, KEYEVENTF_EXTENDEDKEY, 0
  'Actionne touche - du pavé numérique
  keybd_event 109, 0, 0, 0
 
  'Relache  touche - du pavé numérique
  keybd_event 109, 0, KEYEVENTF_KEYUP, 0
 
  'Relache la touche controle
    keybd_event vbKeyControl, 0, KEYEVENTF_KEYUP, 0
End Sub

02/05/2008, 17h43
imparator_42

Merci beaucoup ça marche Bbil ;)
mais si jamais je ferme le programme n'importe quand ça pourrait faire quelques beug ...
Mais sinon ça marche ;)
02/05/2008, 17h44
SfJ5Rpw8

Citation:

Envoyé par imparator_42

Merci beaucoup ça marche Bbil ;)
mais si jamais je ferme le programme n'importe quand ça pourrait faire quelques beug ...
Mais sinon ça marche ;)

pourquoi ?
02/05/2008, 17h46
imparator_42

Si jamais je ferme l'appli quand Ctrl est enfoncé , ben il reste enfoncé :(
il ne relache pas le buton
02/05/2008, 17h47
imparator_42

Je me suis trompé il ne relâche pas la touche Ctrl :(
Ctrl est toujours enfoncée

Il faut que j'aille dans clavier visuel et que je clique sur la touche Ctrl
(même avec le clavier il ne relâche pas :( )
02/05/2008, 17h50
SfJ5Rpw8

Citation:

Envoyé par imparator_42

Je me suis trompé il ne relâche pas la touche Ctrl :(
Ctrl est toujours enfoncée

Il faut que j'aille dans clavier visuel et que je clique sur la touche Ctrl
(même avec le clavier il ne relâche pas :( )

oui mais ... bon .. suffit de faire suivre chaque action sur Ctlr par un relâche..comme le code que je t'ai mis en exemple...

si chez moi il relâche .. lors d'un nouveau appui sur CTRL..
02/05/2008, 18h01
imparator_42

SI jamais on met un timer il refait à chaque fois la même chose.
Mais si jamais on le fait qu'une fois , chez moi la touche ctrl est maintenue :(
et je ne sais pas pourquoi, parce que moi j'ai copier votre code et y a bien le relâchement de la touche Ctrl. ..

je ne sais pas ce que ça vaut cette constante : Private Const KEYEVENTF_EXTENDEDKEY = &H1
mais si j(utilise ça :
Code:

1 2 3 4 5 6 7 keybd_event vbKeyControl, 0, 0, 0 'Actionne touche - du pavé numérique keybd_event 109, 0, 0, 0 'Relache touche - du pavé numérique keybd_event 109, 0, KEYEVENTF_KEYUP, 0 'Relache la touche controle keybd_event vbKeyControl, 0, KEYEVENTF_KEYUP, 0
ça marche et il n'y a pas de blocage :)

03/05/2008, 01h20
SfJ5Rpw8

Citation:

Envoyé par imparator_42

je ne sais pas ce que ça vaut cette constante : Private Const KEYEVENTF_EXTENDEDKEY = &H1
...

oui une petite erreur dans mon code ... si tu utilise cette constante pour "appuyer" sur la touche il faut aussi l'utiliser pour lâcher la touche...

Code:

keybd_event vbKeyControl, 0, KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP, 0

désolé..
03/05/2008, 12h12
imparator_42

ah oki, ça explique pourquoi j'avais la touche ctrl enfoncée :)
merci Bbil, l'autre aussi marche ;)