Simuler un e pression sur une touche du clavier

Version imprimable

10/12/2005, 14h11
Furius

Simuler un e pression sur une touche du clavier

Bonjour à tous :wink:

Je voudrai créer un petit script vbs qui simule une sur une touche du clavier, quelqu’un pourrait-il m’aider ?

vers qui veu tu envoyer tes touches ?

Tiens par exemple la calculatrice :

Code:

1
2
3
4
5
6
7
8
set WshShell = WScript.CreateObject("WScript.Shell")
   WshShell.Run "calc"
   WScript.Sleep 200
   WshShell.AppActivate "Calculatrice"
   WScript.Sleep 200
   WshShell.SendKeys "4*2"
   WScript.Sleep 100
   WshShell.SendKeys "{Enter}"

10/12/2005, 14h29
Furius

Bonjour bbil et merci beaucoup :wink:

En faite je veut simuler la touche PrintScreen.

Puis enventuelement envoyer le résultat dans Paint puis enregistrer l'image jpg.

J'ai essayer ceci mais envin:

Code:

1
2
3
4
5
6
7
set WshShell = WScript.CreateObject("WScript.Shell") 
   WshShell.Run "Paint" 
   WScript.Sleep 200 
   WshShell.AppActivate "Paint"  
   WScript.Sleep 100  
   WshShell.SendKeys "{PRTSC}"
   WshShell.SendKeys "{Maj + Ctrl}"

Pouriez vous m'aider a debuger ?

J'ai un peut améliorer:

Code:

1
2
3
4
5
6
7
8
 set WshShell = WScript.CreateObject("WScript.Shell") 
   WshShell.SendKeys "{PRTSC}"
   WScript.Sleep 200  
   WshShell.Run "mspaint" 
   WScript.Sleep 200 
   WshShell.AppActivate "Paint"  
   WScript.Sleep 100
   WshShell.SendKeys "{ctrl "+(v)"}"

Mais sa bug a cette ligne:

Code:

WshShell.SendKeys "{ctrl "+(v)"}"

Voyer vous se qui cloche ?

10/12/2005, 19h44
SfJ5Rpw8

pour envoyer ctrl v .. c'est :

Code:

WshShell.SendKeys "{^V}"

mais moi c'est la touche impression ecran qui ne marche pas... :oops:
10/12/2005, 19h49
Furius

Bonsoir bbil et merci beaucoup :wink:

Sa a l'air d'aller mieux mais il y a un autre souci, il faut dabor créer un nouveau fichier dans Paint, sauriez vous quel commande je doit utiliser ?

Je vien de m'apercevoir qu'il y a une combinaison de touche pour sa:

Code:

1
2
3
4
5
6
7
8
9
10
   set WshShell = WScript.CreateObject("WScript.Shell") 
   WshShell.SendKeys "{PRTSC}"
   WScript.Sleep 200
   WshShell.SendKeys "{^N}" 
   WScript.Sleep 200  
   WshShell.Run "mspaint" 
   WScript.Sleep 200 
   WshShell.AppActivate "Paint" 
   WScript.Sleep 100
   WshShell.SendKeys "{^V}"

J'ai rajouter ceci:

Code:

WshShell.SendKeys "{^N}"

Mais sa ne marche pas.

11/12/2005, 00h02
Arthaniel

Tu ne devrais pas plutot envoyer le Ctrl + N après l'ouverture de paint ???
11/12/2005, 00h05
Furius

Bonjour Arthaniel et merci :wink: , oui effectivement je m'en suis apercu il y a une demi heure, cepandant chez moi non plus la touche PrintSrenn ne fonctionne pas.
11/12/2005, 11h44
AlainTech

Citation:

Envoyé par L'aide VBA

Note L'instruction SendKeys ne peut envoyer de touches à une application qui n'est pas conçue pour être exécutée dans l'environnement Microsoft Windows. L'instruction Sendkeys ne peut pas non plus envoyer la touche IMP. ÉCRAN {PRTSC} aux applications.
11/12/2005, 11h58
SfJ5Rpw8

Citation:

Envoyé par AlainTech

Citation:

Envoyé par L'aide VBA

Note L'instruction SendKeys ne peut envoyer de touches à une application qui n'est pas conçue pour être exécutée dans l'environnement Microsoft Windows. L'instruction Sendkeys ne peut pas non plus envoyer la touche IMP. ÉCRAN {PRTSC} aux applications.

j'ai lu ça Alain mais c'est pas clair c'est pas à une application qu'on ve envoyer printScreen mais au systéme...
11/12/2005, 17h39
AlainTech

Je trouve aussi que ce n'est pas clair mais voici comment je le comprends:

Le Sendkeys envoie à la fenêtre active...

Donc, si une application est ouverte, c'est elle qui va recevoir le message.
11/12/2005, 17h53
Furius

En passant, il y a d'autre fonctions que Sendkeys pour simuler une tape sur une touche ?

Par exemple il n'en existe pas une pour cibler une application précise ?