SOS vbs

[docgold]

j'aurais besoin d'aide car je souhaite faire un vbs qui a un jour donner affiche un message du type "Bonne aniversaire"

[Delorean]

Déjà on écrit Bon Anniversaire, en second, on ne comprend rien à ta requête !

[Gatien]

On pourrait presque tous mettre "Autre" car on connaît le "BTTF"

Plus sérieusement, je ne vais pas pouvoir t'aider... Mais tu vas bien trouver un membre connaissant le Visual Basic

[docgold]

Ex:Je veut que le 26 Octobre un message apparait automatiquement souhaitant Bon anniversaire

[docgold]

Voici les base du vbs
le script qui faut marquer dans le bloc note est

x = msgBox("texte",2+16+4096,"titre")

la série de chiffre, ici 2+16+4096, indique les variables de la boite de dialogue, vous pouvez n’utiliser qu’une seule variable mais à partir du moment où vous en utilisez plusieurs, n’oubliez pas le signe"+" entre chaque. Il y a trois types de variable pour la boite de dialogue, n’utilisez qu’une seule variable du premier type, qu’une seule du deuxième type … etc !! Voici la liste :



1) Les types de boîtes de dialogues

* 0 Bouton OK
* 1 Boutons OK et Annuler
* 2 Bouton Abandonner, Recommencer et Ignorer
* 3 Boutons Oui, Non et Abandonner
* 4 Boutons Oui et Non
* 5 Boutons Recommencer et Annuler

2) Les types d’icônes de message

* 16 Icône d’erreur critique
* 32 Icône d’avertissement interrogatif
* 48 Icône d’avertissement simple
* 64 Icône de message
puis engistrer en VBS
l'heure
Heure ="Il est " & Hour(Now) & "h et " & Minute(Now) & " min."
les variables
nomquelconque = msgbox ("Question ?" , vbYesNo+vbQuestion , "question")

if nomquelconque = vbyes then
msgbox ("Vous avez cliquez sur YES")
else
msgbox ("Vous avez cliquer sur non")
end if
LES CONDITIONS : IF et THEN
nombre = inputbox ("choisissez un nombre","10")

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

voila pour le fun

[docgold]

Date = DateSerial(year(Now), mouth(Now), day(Now))
if Date= DateSerial(2010(Now), 01(Now), 24(Now)) then
msgbox "Coucou !"
else
msgbox "Au revoir"
end If

voila le script mais il bug.

[docgold]

if Date= DateSerial(2010, 01, 24) then
msgbox "Coucou !"
else
msgbox "Au revoir"
end If

il marche,j'ai enfin fait quelque chose qui marche !!!!

[docgold]

Maintenant il faut le faire marcher sous mac et Linux
au moins les fenêtres

Code: Tout sélectionner

x=msgbox("truc a dire",0,"titre")