Teasing : la fin
Thursday, 8. November 2007, 08:18:07
Je vous annonçait depuis quelques temps un petit teasing qui était en cours sur mon blog. J'y avais dispersé quelques indices et... Rien ne fut trouvé.
Mais où étaient-ils ?
Dispersé sur la colonne de droite, il y avait des « countdown » (décompte), quelques renseignements sur un nouveau blog (la barre latérale se met à jour avec les flux RSS)...
Et plein d'autres petites choses de ce style. Cela conforte donc l'idée que bien souvent seul le contenu est lu (le plus souvent par le flux, rarement par le blog) et que tout ce qui est autour est « skippé » !
Mais qu'ai-je donc à vous annoncer ? La diminution des fautes d'orthographe ? Certainement pas.
Alors voici :
Vous ne pensiez quand même pas que j'allais vous annoncer cela aussi facilement... Toutefois vous pouvez facilement comprendre en lisant le code
Futur(e) geek(ette) ?
Et qui dit tel événement dit une naissance digitiale aussi... Neuf mois et trois !
Mais où étaient-ils ?
Dispersé sur la colonne de droite, il y avait des « countdown » (décompte), quelques renseignements sur un nouveau blog (la barre latérale se met à jour avec les flux RSS)...
Et plein d'autres petites choses de ce style. Cela conforte donc l'idée que bien souvent seul le contenu est lu (le plus souvent par le flux, rarement par le blog) et que tout ce qui est autour est « skippé » !
Mais qu'ai-je donc à vous annoncer ? La diminution des fautes d'orthographe ? Certainement pas.
Alors voici :
#Include <Date.au3>
Dim $acc, $delai, $alphabet, $msg1, $msg2
$acc = _DateToDayValue("2008","05","28")
Select
Case ($acc - 31) < $acc
SplashTextOn("Patienter", "Veuillez encore quelques temps
patienter, " & @CR & _
"Construction en cours...", -1, -1, -1, -1)
While ($acc - 31) < _DateToDayValue(@YEAR, @MON, @MDAY) > ($acc
- 14)
Sleep(1000)
WEnd
SplashOff()
Case ($acc - 14) < _DateToDayValue(@YEAR, @MON, @MDAY) > ($acc + 14)
SplashTextOn("Ouin", "Les jours sont comptés, cela " & _
"peut arriver d'une minute à l'autre !" & @CR & _
"Albine & Xavier sont heureux de " & _
"vous annoncer la venue au monde de ...")
While ($acc - 14) < _DateToDayValue(@YEAR, @MON, @MDAY)
Sleep(1000)
WEnd
SplashOff()
Case $acc = _DateToDayValue(@YEAR, @MON, @MDAY)
MsgBox(0 + 64, "Ouin !", "Albine et Xavier sont heureux " & _
"de vous annoncer la venue au monde de ..." & @CR & _
"Les autres informations, ne peuvent vous " & _
"être divulguée maintenant")
EndSelect
Vous ne pensiez quand même pas que j'allais vous annoncer cela aussi facilement... Toutefois vous pouvez facilement comprendre en lisant le code
Futur(e) geek(ette) ?
Et qui dit tel événement dit une naissance digitiale aussi... Neuf mois et trois !
