Tuto - Découvrez la magie du .vbs ! (3ème partie)

Yo tout le monde !

On se retrouve aujourd’hui pour la troisième partie de mon tuto sur le Visual Basic Script !



NB : Si vous souhaitez voir les bases du VBS , je vous conseille de voir la premièreet seconde partie du tutoriel !

Allez hop , let's go !

Comment exécuter un VBScript à n'importe quelle date ?

Ceci fonctionne comme sur Microsoft Office avec les macros. Il s'agit tout simplement de taper la formule suivante :

If Month(Date) = chiffre And Day(Date) = chiffre Then
skevouvoulez
End If

/!\ CHOSE INDISPENSABLE : une fois vos travaux enrengistrés , mettez l'extension .vbs !




Voici un petit exemple que j'ai fait avec cette formule , en ayant inséré Month(Date) = 11 et ayant mis Day(Date) = 20 (si vous êtes curieux , vous pouvez comprendre que c'est la date de mon anniversaire) et en ayant mis après Then une formule MsgBox.

Screen de mon exemple.

On change la date de Windows...



Une fois le système mis à la date demandée , exécutons le .vbs et surprise...



On peut faire cette formule avec plein d'autres formules , comme des DeleteFile , CreateFile , etc... ou encore même ouvrir un programme !

Comment changer le fond d'écran de l'ordinateur via VBscript ?

ATTENTION : La formule ici présentée ne marche qu'avec des fichiers .bmp(Bitmap) , elle marche également avec des fichiers .jpg sauf que certaines erreurs peuvent appraître en essayant cette formule avec des fichiers .jpg !

On peut donc changer le fond d'écran de l'ordinateur via la formule suivante :

Set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")

sWinDir = oFSO.GetSpecialFolder(0)
sWallPaper = sWinDir & "\hitomi.bmp"

' Mise à Jour Registre
oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sWallPaper
oShell.RegWrite "HKCU\Control Panel\Desktop\TileWallpaper", "0"
oShell.RegWrite "HKCU\Control Panel\Desktop\WallpaperStyle", "2"

'Mise à Jour
oShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True

Ceci changera le fond d'écran par celui que vous le désirez.

Comment envoyer un mail via VBScript ?

Pour envoyer un mail via VBS , il suffit de taper la formule suivante :

Set sh = WScript.CreateObject("WScript.Shell")
sh.run "exemple@foxiecommunications.fr?subject=exemple&body=exemple"
set sh=nothing

Ceci enverra un mail à votre destinataire de votre choix.


C'est sur ces derniers mots que cette troisième partie de notre tuto VBScript ce termine , à bientôt donc pour un nouveau tutoriel ! :) N'hésitez pas à + et si vous avez un truc à me demander sur le VBScript , n'hésitez pas à me contacter par Message Privé !

---

Mots-clés : vbscript   tutoriel   windows   windows   7  

(16)Commentaires
Posté le 23 Mar 2013, 13h 28min 03s par Raver