| | auteur : bbil |
Il faut utiliser un objet Excel.Application
| VBS |
Dim xlapp, classeur, feuille
Set xlapp = CreateObject("Excel.Application")
xlapp.Visible = True
Set classeur = xlapp.Workbooks.add
Set feuille = xlapp.ActiveSheet
feuille.Range("A1") = "Rajout du texte en cellule A1"
Classeur.Saveas "c:\tmp\MonClasseur"
classeur.Close True
xlApp.quit
Set classeur = Nothing
Set xlapp = Nothing
|
|
| | auteur : bbil |
Avec l'objet InternetExplorer.Application
Exemple pour la connexion au forum développez.com
| VBS |
Dim IE
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.Visible = 1
IE.navigate "http://www.developpez.net/forums/login.php"
Do While (IE.Busy)
WScript.Sleep 10
Loop
Set Helem = IE.document.getElementById("vb_login_username")
Helem.Value = "NomUtilisateur"
Set Helem = IE.document.getElementById("vb_login_password")
Helem.Value = "MotDePasse"
Set Helem = IE.document.Forms(0)
Helem.Submit
|
|
| | auteur : bbil |
Pour retourner à l'écran d'accueil de Windows XP (où Vista) de la même façon que lors de l'action simultanée sur
les touches Windows et L, on peut faire un appel à la fonction LockWorkStation de User32.dll grâce à "l'utilitaire" rundll32.exe, ce qui donne:
| VBS | Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "rundll32.exe user32.dll,LockWorkStation"
|
|
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.
|
