Accueil
Accueil Le Club Delphi Kylix C C++ Java J2EE DotNET & C# Visual Basic Access Pascal Dev Web PHP ASP XML UML SQLSGBD Windows Linux Autres
logo

precedent    sommaire    suivant   


Comment exécuter un programme externe ?
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..


Comment lister les dossiers spéciaux de Windows ?
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")

Comment écrire dans le journal d'évènements de Windows ?
auteur : Catbull
VBS

Set WshShell = WScript.CreateObject("WScript.Shell") 
WshShell.LogEvent 0, "Execution du script"
lien : en Microsoft Windows Script Host : LogEvent method

Comment simuler l'envoi de caractères vers une application externe ?
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 :

  • Maj : +
  • Ctrl : ^
  • Alt : %
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" '-- 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}"

Comment créer un raccourci vers un site internet où un programme sur le bureau de windows
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

precedent    sommaire    suivant   

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.

Vos questions techniques : forum d'entraide Accueil - Publiez vos articles, tutoriels, cours et rejoignez-nous dans l'équipe de rédaction du club d'entraide des développeurs francophones. Nous contacter - Copyright 2000..2005 www.developpez.com