VBS : Présentation et 1er programme

CyberTwister

PRESENTATION :

VBS: Visual Basic Script: C'est un langage de script (il est donc interprété et pas compilé comme son père) qui permet de : piloter la technologie ASP (script serveur), animer des pages web (script client), automatiser des tâches windows(script client). Il a été inventé par Microsoft.

1ER PROGRAMME :

Créez un nouveau fichier .txt
ouvre le et mettez :

Code:

msgbox "coucou"

Enregistrez et renommer votre fichier avec l'extention .vbs au lien de .txt (exemple.vbs)
Double cliquez dessus.
Vous venez de créer votre premier programme vbs

CyberTwister

Integrer du VBS dans une page web :

Code:

<html>
<head>
</head>
<body>

<script type="text/vbscript">
document.write("Coucou !")
</script>

</body>
</html>

Voila

CyberTwister

Afficher un texte contanant une variable :

Créez un nouveau fichier .txt
ouvre le et mettez :

Code:

nom = "Dieu"
msgbox "Votre nom est " & nom

Enregistrez et renommer votre fichier avec l'extention .vbs au lien de .txt (exemple.vbs)

Simple non ?

CyberTwister

Demander une variable et l'afficher :

Créez un nouveau fichier .txt
ouvre le et mettez :

Code:

nom = inputbox ("Quel est votre nom","Dieu")
msgbox "Votre nom est " & nom

Enregistrez et renommer votre fichier avec l'extention .vbs au lien de .txt (exemple.vbs)

Voila

CyberTwister

LES CONDITIONS : IF et THEN

Créez un nouveau fichier .txt
ouvre le et mettez :

Code:

nombre = inputbox ("choisissez un nombre","10")

if nombre =10 then
msgbox "Coucou !"
else
msgbox "Au revoir"
end If

Enregistrez et renommer votre fichier avec l'extention .vbs au lien de .txt (exemple.vbs)

CyberTwister

MESSAGES : Fonctions avancées

Voici un exemple permettant d'ajouter un choix de réponse au message :

Code:

msgbox "Salut, ça va ?" ,vbYesNo+vbQuestion ,"question"

Ce qui est aussi équivaut à :

Code:

msgbox("Salu, sa va ?" , 4+32 ,"question")

Voici la liste des constantes que vous pouvez rajouter :

Citation:

Si l'utilisateur choisi "YES"

Code:

nomquelconque = msgbox ("Salut, ça va ?" , vbYesNo+vbQuestion , "question")

if nomquelconque = vbyes then
msgbox ("Vous avez cliquez sur YES")
else
msgbox ("Ca ne vas pas ?!")
end if

CyberTwister

Liens utiles :

http://www.w3schools.com/vbscript/vbscript_ref_functions.asp
http://www.asp-php.net/ressources/bouts_de_code.aspx?rub=VBScript
http://www.laltruiste.com/document.php?url=http://www.laltruiste.com/coursvbscript/sommaire.html

Voila

Bon courrage

Invité

comment fait on pour donner un nombre sans boite de message?

mikmacer · Pro Nombre de messages: 502 Age: 21 Date d'inscription: 15/12/2005

Citation:

comment fait on pour donner un nombre sans boite de message?

Tu veux donner une valeur a une variable c ça?
[/quote]

Invité

mikmacer · Pro Nombre de messages: 502 Age: 21 Date d'inscription: 15/12/2005

ok c'est simple;

si c'est dans le programme que tu veux le fairre, tu met ce code si dans ce que tu veux mettre la variable:

faut dabord dimensioner la variable:
Dim LeNomDeLaVariable as integer

Ensuite tu met la valeur que tu veux a la variable:

LeNomDeLaVariable = Lavaleur

========

Si c'est que te veux donner une valeur a une variable pendant que tu fais fonctionner le programme:

faut dabord dimensioner la variable:
Dim LeNomDeLaVariable as integer

Tu cré une zone texte

Dans le Keypress de la zone texte tu met:

If Keyascii = 13 then
LeNomDeLaVariable = LeNomDeLaZoneTexte
end if

Ce qui veux dire que losque tu marque un nombre dans la zone texte et que tu appui sur le bouton Entrer, la variable va prendre la valeur de la zone texte.

Invité

Si vous voulez en savoir plus sur la programmation en VBS allez sur mon site:

http://www.geocities.com/progrfacile/Accueil.html

lha

voir aussi
http://zone-freegames.forumactif.com/viewtopic.forum?t=2619

_________________
visitez www.amcrypto.org (le monde de cryptographie)

L.H.A love Game Maker !!!!