Forum RVLF

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

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

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

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

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

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.

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 !!!!

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")