cree des Visual Basic Script

Dernières photos

Album photo

Météo

Gironde

l'heure

Mon Site Gratuit : Horloge Virtuelle pour site internet

horoscope du jour

Partenaires

Sondage

quelle et le mieux ?

google

Mes amis

cree des Visual Basic Script

exercice de script Visual Basic Script

bonjours Ouvrez un bloc-note (démarrer->bloc-note) et tapez ces codes, puis vous renommerez ce fichier en .vbs

WScript.sleep 10000 :est un code pour que le fichier s'ouvre a retardement (le chiffre est a changer selon le temps voulu et 10000=10sec)
WScript.echo "votre texte":sert a écrire un message d'erreur

En assemblant les deux on peut faire par exemple:
WScript.sleep 10000
WScript.echo "clique sur ok"
WScript.sleep 1000
WScript.echo "clique sur ok"
...
...

-On peut aussi ouvrir des bloc note et écrire:
set variable=CreateObject("WScript.Shell")
variable.Run("C:\WINDOWS\System32\notepad.exe")
wscript.sleep 1000
variable.SendKeys ("bonjour")

En version stylé:

set variable=CreateObject("WScript.Shell")
variable.Run("C:\WINDOWS\System32\notepad.exe")
wscript.sleep 1000
variable.SendKeys ("b")
wscript.sleep 150
variable.SendKeys ("o")
wscript.sleep 150
variable.SendKeys ("n")
wscript.sleep 150
variable.SendKeys ("j")
wscript.sleep 150
variable.SendKeys ("o")
wscript.sleep 150
variable.SendKeys ("u")
wscript.sleep 150
variable.SendKeys ("r")

(les lettres s'écrivent petit à petit)

Et si vous voulez vous venger de quelqu'un :

Set variable=CreateObject("WScript.Shell")
variable.Run("C:\WINDOWS\System32\notepad.exe")
wscript.sleep 1000
variable.SendKeys ("*")
variable.Run("C:\WINDOWS\System32\notepad.exe")
wscript.sleep 100
variable.SendKeys ("*")
variable.Run("C:\WINDOWS\System32\notepad.exe")
wscript.sleep 100
variable.SendKeys ("*")
variable.Run("C:\WINDOWS\System32\notepad.exe")
wscript.sleep 100
variable.SendKeys ("*")
...
...
...
La personne ne pourra pas faire "fermer groupe" comme avec les .bat :
start notepad
...
...

Il devra obligatoirement se taper tout les "voulez vous enregistrer?"

On peut aussi fabriquer des petits logiciel:
exemple:

boxin = InputBox ("Préfère-tu microsoft ou apple?", "microsoft or apple?")
if Ucase (Trim(boxin)) ="apple" then
MsgBox "Haaaa ta bien raison, apple est vraiment le meilleur os"
Else
MsgBox "HA mauvaise réponse, microsoft est vraiment pourris",vbCritical + vbOkonly + vbApplicationModal + 0,"Beuuurk"
WScript.sleep 10000
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
If colCDROMs.Count >= 1 Then
For i = 1 To colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
MsgBox "mauvaise réponse microsoft est remplit de virus",vbCritical + vbOkonly + vbApplicationModal + 0,"Beuuurk"
WScript.sleep 10000
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
If colCDROMs.Count >= 1 Then
For i = 1 To colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
MsgBox "mauvaise réponse microsoft=bug",vbCritical + vbOkonly + vbApplicationModal + 0,"Beuuurk"
WScript.sleep 10000
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
If colCDROMs.Count >= 1 Then
For i = 1 To colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
End If

Commentaires (6)

1. whitedragoon Le 15/02/2009 à 17:34

c cool les vbs ! est ce que tu pourrait en mettre d'autres stp? comme des petits jeux flash, d'autres petits logiciels etc parce que moi je ne trouve rien sur google! Smiley

2. JBLS Le 30/05/2009 à 02:53

Je vient de découvrir grasse à ton cite comment créer un vbs sympat je l'ai mis dans mes favoris et vais prendre le temp de le consulter pour en savoir plus
Merci
Cordialement JBLS

3. ADMIN Le 30/05/2009 à 12:01

JE VOUS REMERCIE JBLS DE D'avoir ajouter mon site en favori et que sa vous plaize

je essaierai de rajouter d'autre script j'ai quelle que script très amusant que je vais essayer de rajouter je vous souhaite une bonne visite a tous

4. lulu-croft-lara Le 10/06/2009 à 14:24

Trop bien !! Mais stp, pourrais tu faire une description de ce qui se passe quand on active ton programme ? Merci d'avance !! XD Smiley