Simuler une saisie clavier

Simuler une saisie clavier - VB/VBA/VBS - Programmation

Marsh Posté le 04-02-2010 à 16:55:42    

Bonjour à tous,
Je voudrais par programmation (VB) simuler l'appui de la combinaison de touche CTRL+E et le relâchement de ces touches.
 
Merci de me donner un coup de main.

Reply

Marsh Posté le 04-02-2010 à 16:55:42   

Reply

Marsh Posté le 04-02-2010 à 19:11:09    

J'ai trouvé la solution.
Voici la solution en windev. Pour passer à VB il n'ya qu'un petit pas.
Pour ceux que ça pourrait interesser.
 
EXTERNE "WINCONST.wl"
CONSTANT  KEYEVENTF_KEYUP = 0x2
CONSTANT  VK_E = 0x45
 
AppelDLL32("user32","keybd_event", VK_CONTROL, 0, 0, 0)
AppelDLL32("user32","keybd_event", VK_E, 0, 0, 0)
 
AppelDLL32("user32","keybd_event", VK_CONTROL, 0, KEYEVENTF_KEYUP, 0)
AppelDLL32("user32","keybd_event", VK_E, 0, KEYEVENTF_KEYUP, 0)

Reply

Marsh Posté le 04-02-2010 à 19:12:05    

J'ai trouvé la solution. Pour ceux qui font du windev voilla la solution !
 
EXTERNE "WINCONST.wl"
CONSTANT  KEYEVENTF_KEYUP = 0x2
CONSTANT  VK_E = 0x45
 
AppelDLL32("user32","keybd_event", VK_CONTROL, 0, 0, 0)
AppelDLL32("user32","keybd_event", VK_E, 0, 0, 0)
 
AppelDLL32("user32","keybd_event", VK_CONTROL, 0, KEYEVENTF_KEYUP, 0)
AppelDLL32("user32","keybd_event", VK_E, 0, KEYEVENTF_KEYUP, 0)

Reply

Marsh Posté le 04-02-2010 à 19:45:56    

Et la version VB, pour ceux qui font du VB.
 
sendkeys "^e"

Reply

Marsh Posté le 05-02-2010 à 09:03:12    

Merci bmag !
SendKeys "^e" en VB ----> EnvoieTouche("^e" ) en windev.
Je l'avait fait mais sans satisfaction car il ne simule que l'enfoncé. Alors que dans mon cas je voulais l'enfoncé PUIS le relâché.
A+

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed