Script java - Site de Stéphane
Version mobile du site
Aller au contenu
Menu principal :
×
Accueil
Contact
Articles
Haut Potentiel
Sciences
Espace
Histoire
Sociétés
Mathématique
Les nombres
Astuces
Carré Magique
Calcul Calendaire
Calcul de prèt & d'annuité
Enigme
Suite
La mémoire
Technologies
Créativité
Français
Blog
Formations-astuces
Informatique
Site Web
Excel
Facebook
Script java
Médical
Electricité
Langues
Jeux
Création
Mathématique
Multimédia
Curseur
Galerie
Fractale
GifsA
Flash
Music
Musique par thèmes
Historique Shazam
Musique par thèmes
Amour
Artistes
Calmante
Couleurs
Crazy
Différent
Le temps
Message
Move
Parodie
Rêve
Triste
Voyage
Mensa
Commentaires
Mes sports
Formulaires
Films
Films Data
Jeux
Jeux Visuel
Ventes
Catalogue PS2
Articles Commandés
Script java
Formations-astuces > Informatique
Voici des exemples de script afin d'automatiser différentes taches :
Ceux-ci sont à copier dans un fichier texte et puis à renomer avec extention vbs
1 Bonjour
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad", 9
WScript.Sleep 500
WshShell.SendKeys "Bonjour"
WshShell.SendKeys "{ENTER}"
WshShell.SendKeys "Comment va tu ?"
2 Bonsoir & note de départ
Heure ="Il est " & Hour(Now) & "h et " & Minute(Now) & " min."
if Hour(Now)<=16 then
Message="Voila"
Msgbox "Voici l'heure"
else
Message= "Bonsoir il est temps de partir"
end if
MsgBox Message & "!" & vbnewline & Heure
prog = InputBox("notepad ? oui ?")
if prog = "oui" then
Set oSh=CreateObject("WScript.Shell")
set oEnv = oSh.Environment("PROCESS")
oEnv("SEE_MASK_NOZONECHECKS") = 1
oSh.run "%SystemRoot%\system32\notepad.exe"
else
end if
3 Site web
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "iexplore.exe http://www.hermandstephane.be/"
4 Site web evo
Set WshShell = CreateObject("WScript.Shell")
Set objExplorer = CreateObject("InternetExplorer.Application")
objExplorer.navigate "http://be.msn.com/defaultf.aspx?lang=fr-be&ocid=iehp"
wscript.sleep 100
objExplorer.Visible=True
wscript.sleep 1500
WshShell.SendKeys "{tab}"
WshShell.SendKeys "test"
Accueil
|
Contact
|
Articles
|
Formations-astuces
|
Multimédia
|
Music
|
Mensa
|
Commentaires
|
Mes sports
|
Formulaires
|
Jeux
|
Ventes
|
Plan général du site
Retourner au contenu
|
Retourner au menu
Pour utiliser ce site vous devez activer JavaScript.