Discussion :

[Furius]

Bonjour à tous

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

[SfJ5Rpw8]

vers qui veu tu envoyer tes touches ?

Tiens par exemple la calculatrice :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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}"

[Furius]

Bonjour bbil et merci beaucoup

En faite je veut simuler la touche PrintScreen.


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

[Furius]

J'ai essayer ceci mais envin:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Furius]

J'ai un peut améliorer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Voyer vous se qui cloche ?

[SfJ5Rpw8]

pour envoyer ctrl v .. c'est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 WshShell.SendKeys "{^V}"

mais moi c'est la touche impression ecran qui ne marche pas...

[Furius]

Bonsoir bbil et merci beaucoup

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 ?

[Furius]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

   WshShell.SendKeys "{^N}"

Mais sa ne marche pas.

[Arthaniel]

Tu ne devrais pas plutot envoyer le Ctrl + N après l'ouverture de paint ???

[Furius]

Bonjour Arthaniel et merci , oui effectivement je m'en suis apercu il y a une demi heure, cepandant chez moi non plus la touche PrintSrenn ne fonctionne pas.

[AlainTech]

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.

[SfJ5Rpw8]

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...

[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.

[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 ?