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