FAQ VBScriptConsultez toutes les FAQ

La méthode Run de l'objet WshShell permet cela :

Exécution "bloquante" de la calculatrice Windows.

1
2
3
Set WshShell = WScript.CreateObject("WScript.Shell") 
Return = WshShell.Run("calc" , 1, true)  
MsgBox "Fin utilisation calculatrice"

• strCommand : Chaîne de caractères, ligne de commande à exécuter ;
• intWindowStyle : à 1 : Active la fenêtre dans sa taille et position d'origine ;
• bWaitOnReturn : à True, attend la fin de l'exécution du programme avant d'effectuer la suite.
  

• 0 Masque la fenêtre et en active une autre.
• 1 Active et affiche une fenêtre. Si la fenêtre est réduite ou agrandie, le système lui redonne sa taille et sa position d'origine. Une application doit spécifier cette indication lors du premier affichage de la fenêtre.
• 2 Active la fenêtre et l'affiche en taille réduite.
• 3 Active la fenêtre et l'affiche en taille agrandie.
• 4 Affiche une fenêtre en respectant sa taille et sa position les plus récentes. La fenêtre active reste active.
• 5 Active la fenêtre et l'affiche d'après sa taille et sa position actuelle.
• 6 Réduit la fenêtre spécifiée et active la fenêtre de niveau supérieur suivante dans l'ordre alphabétique.
• 7 Affiche la fenêtre sous l'aspect d'une fenêtre réduite. La fenêtre active reste active.
• 8 Affiche la fenêtre dans son état actuel. La fenêtre active reste active.
• 9 Active et affiche la fenêtre. Si la fenêtre est réduite ou agrandie, le système lui redonne sa taille et sa position d'origine. Une application doit spécifier cet indicateur lors de la restauration d'une fenêtre réduite.
• 10 Définit l'état d'affichage en fonction de l'état du programme qui a démarré l'application.
  

La propriété SpecialFolders de l'objet WshShell permet d'obtenir les références aux dossiers spéciaux de Windows (Bureau, Favoris,etc.).

Liste des dossiers spéciaux de Windows disponibles :

• AllUsersDesktop
• AllUsersStartMenu
• AllUsersPrograms
• AllUsersStartup
• Desktop
• Favorites
• Fonts
• MyDocuments
• NetHood
• PrintHood
• Programs
• Recent
• SendTo
• StartMenu
• Startup
• Templates
  

1
2
3
4
5
Set WshShell = WScript.CreateObject("WScript.Shell") 
For i = 0 to WshShell.SpecialFolders.Count -1 
     sf = sf & WshShell.SpecialFolders(i) & vbCr 
Next 
MsgBox sf,,"Répertoires spéciaux de Windows"

1
2
Set WshShell = WScript.CreateObject("WScript.Shell") 
MsgBox WshShell.SpecialFolders("Desktop")

La méthode SendKeys de l'objet WScript permet d'envoyer une ou plusieurs entrées clavier à la fenêtre active.

Pour spécifier les touches d'actions (qui ne sont pas des caractères), voir le tableau ci-dessous :

• Maj : +
• Ctrl : ^
• Alt : %
  

• "+ab" envoie Ab
• "+(ab)" envoie AB
• "{+a 5}" envoie AAAAA
  

1
2
3
4
5
6
7
8
9
Set WshShell = WScript.CreateObject("WScript.Shell") 
  
WshShell.Run "calc" '-- Ouvre la calculatrice de Windows 
WScript.Sleep 200 
WshShell.AppActivate "Calculatrice"  '-- Active l'application 
WScript.Sleep 200 
WshShell.SendKeys "4*2" 
WScript.Sleep 100 
WshShell.SendKeys "{Enter}"