| | auteur : bbil | La méthode Run de l'objet WshShell permet cela :
Exécution "bloquante" de la calculatrice Windows.
| VBS |
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("calc" , 1, true)
MsgBox "Fin utilisation calculatrice"
|
Paramètres de WshShell.Run strCommand,intWindowStyle,bWaitOnReturn
- strCommand : Chaîne de caractère, ligne de commande à exécuter
- intWindowStyle : 1 : Active la fenêtre dans sa taille et position d'origine
- bWaitOnReturn : à True attends la fin de l'exécution du programme avant d'effectuer la suite..
|
| | auteur : ThierryAIM |
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
| VBS |
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"
|
Accéder à un dossier particulier, dont on connaît le nom (le Bureau, dans l'exemple ci-dessous) :
| VBS |
Set WshShell = WScript.CreateObject("WScript.Shell")
MsgBox WshShell.SpecialFolders("Desktop")
|
|
| | auteurs : Forum, ThierryAIM |
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 :
| Touche |
Code |
| RETOUR ARRIERE |
{BACKSPACE}, {BS}, ou {BKSP} |
| VERR. MAJ |
{CAPSLOCK} |
| VERR. NUM |
{NUMLOCK} |
| ARRET DEFIL |
{SCROLLLOCK} |
| IMPR. ECRAN |
{PRTSC} (Ne peut être envoyé à une application externe) |
| FLÈCHE VERS LE BAS, LE HAUT, A GAUCHE, A DROITE |
{DOWN}, {UP}, {LEFT}, {RIGHT} |
| PAGE SUIVANTE, PRECEDENTE |
{PGDN}, {PGUP} |
| ENTREE |
{ENTER} ou ~ |
| ORIGINE |
{HOME} |
| FIN |
{END} |
| ECHAP |
{ESC} |
| INSERT |
{INSERT} ou {INS} |
| SUPPR |
{DELETE} ou {DEL} |
| TAB |
{TAB} |
| F1 à F16 |
{F1} ... {F16} |
Les touches d'altération :
Elles s'utilisent en combinaison avec les touches à émettre :
- "+ab" envoie Ab
- "+(ab)" envoie AB
- "{+a 5}" envoie AAAAA
Exemple d'utilisation
Ouvrir la calculatrice et effectuer une opération :
| VBS |
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}"
|
|
| | auteur : Forum | | Source Microsoft VBScript |
Dim Shell, DesktopPath, URL
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set URL = Shell.CreateShortcut(DesktopPath & "\MonForumPreferé.URL")
URL.TargetPath = "http://www.developpez.net/forums"
URL.Save
|
On garde le même principe pour un programme :
Dim Shell, DesktopPath, URL
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set URL = Shell.CreateShortcut(DesktopPath & "\monraccourci.lnk")
CreateObject("Scripting.FileSystemObject")
URL.IconLocation = "monicone.ico"
URL.TargetPath = "chemin\monexe.exe"
URL.Arguments = "-para monparametre"
URL.Save
SET oFS = nothing
|
|
Consultez les autres F.A.Q's
Les sources présentés sur cette pages sont libre de droits,
et vous pouvez les utiliser à votre convenance. Par contre cette page de présentation de ces sources constitue une oeuvre intellectuelle protégée par les droits d'auteurs.
Copyright ©2008
Developpez LLC. Tout droits réservés Developpez LLC.
Aucune reproduction, même partielle, ne peut être faite de ce site et de
l'ensemble de son contenu : textes, documents et images sans l'autorisation
expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à 3 ans
de prison et jusqu'à 300 000 E de dommages et intérets.
Cette page est déposée à la SACD.
|
