Sujet Précédent Sujet Suivant

BLAGUE POUR VOS AMIS

hackademius Messages postés 172 Date d'inscription mercredi 29 janvier 2003 Statut Membre Dernière intervention 24 février 2008 - 11 nov. 2005 à 21:40
guydss78150 Messages postés 4 Date d'inscription mercredi 22 février 2006 Statut Membre Dernière intervention 28 mars 2006 - 3 mars 2006 à 16:55
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/34596-blague-pour-vos-amis
guydss78150 Messages postés 4 Date d'inscription mercredi 22 février 2006 Statut Membre Dernière intervention 28 mars 2006
3 mars 2006 à 16:55
on lentre dans quelle balise body ,head
us_30 Messages postés 2065 Date d'inscription lundi 11 avril 2005 Statut Membre Dernière intervention 14 mars 2016 10
13 nov. 2005 à 16:07
Hum... il reste deux bricoles inutiles...

La ligne : " Dim Wshell, PrgName " => PrgName est aussi a effacer, soit donc : " Dim Wshell "
"y=y-1" ne sert à rien, puisque défini par la boucle FOR. (un vieux reste d'une boucle DO sans doute...)

Amicalement,
Us.
fullgore62 Messages postés 8 Date d'inscription vendredi 11 novembre 2005 Statut Membre Dernière intervention 16 mars 2006
13 nov. 2005 à 14:33
Ok je te remercie !! ^^
violent_ken Messages postés 1812 Date d'inscription mardi 31 mai 2005 Statut Membre Dernière intervention 26 octobre 2010 2
13 nov. 2005 à 14:27
For y = 0 to 9999999999999999
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
Next




Remplacé par


For y = 0 to 2
y=y-1
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
Next



@+
fullgore62 Messages postés 8 Date d'inscription vendredi 11 novembre 2005 Statut Membre Dernière intervention 16 mars 2006
13 nov. 2005 à 14:26
Avec ce que vous m'avez donné comme code pour faire une boucle infini, j'ai éssayé mais ça ne marche pas. Pouvez vous me donner la phrase à remplacer et par quoi, merci !
cs_blady Messages postés 6 Date d'inscription vendredi 11 novembre 2005 Statut Membre Dernière intervention 13 novembre 2005
13 nov. 2005 à 12:35
je pourrais savoir quel serait le script pour que le lecteur cd s'ouvre assez rapidement mais sans le message coca cola .
dsl je suis un gros debutant ... sa me permetterais d'avoir de nouvelle base ^^ merci d'avance pour celui qui me donnerai le code !!! allé tchao !!! +++
us_30 Messages postés 2065 Date d'inscription lundi 11 avril 2005 Statut Membre Dernière intervention 14 mars 2016 10
12 nov. 2005 à 09:57
Oui. Avec un p'tit nombre aléatoire avec RND, pour définir la durée de telle façon quelle soit pas trop régulière (trop mécanique)...

Amicalement,
Us.
cs_algori Messages postés 868 Date d'inscription dimanche 26 décembre 2004 Statut Membre Dernière intervention 26 février 2008 1
12 nov. 2005 à 09:39
Donc possibilité d'utiliser
WScript.Sleep 10000 par exemple
@++
us_30 Messages postés 2065 Date d'inscription lundi 11 avril 2005 Statut Membre Dernière intervention 14 mars 2016 10
12 nov. 2005 à 09:36
Oui, marrant... mais à l'infini, c'est plutôt gavant ? Plus drôle serait après quelques ouvertures et fermetures du début, de faire l'exécution discrète, puis au bout de quelques minutes sans activité, faire ouvrir le CD et le refermer immédiatement... Effet, de surprise garanti :-);

Quelques remarques sur le code :
" exclam = 48 " n'est jamais utilisé... donc inutile.
" i = 1 " est inutile, car défini à partir de la boucle FOR.
" y = 0 " idem.
" Set PrgName = Wscript.Arguments " et " D="C:/Test" " sont également pas utiles.

Amicalement,
Us.
cs_algori Messages postés 868 Date d'inscription dimanche 26 décembre 2004 Statut Membre Dernière intervention 26 février 2008 1
12 nov. 2005 à 09:33
Remplace ça par
While(true)
...
Wend
@++
violent_ken Messages postés 1812 Date d'inscription mardi 31 mai 2005 Statut Membre Dernière intervention 26 octobre 2010 2
12 nov. 2005 à 09:33
Tiens, en parlant de boucle infinie, fullgore62 avait tenté un truc, mais çà n'ouvrait qu'une fois le lecteur cd.
Alors oui, for y=0 to 999999999999999 n'est pas propre, tu peux remplacer par :

While 1
'instructions
Wend

ou bien

For y=0 to 2
y=y-1
'instructions
next y

ou bien

do until 0
'instructions
loop

Voilà des idées !!
@+
cs_algori Messages postés 868 Date d'inscription dimanche 26 décembre 2004 Statut Membre Dernière intervention 26 février 2008 1
12 nov. 2005 à 09:28
>>For y = 0 to 9999999999999999
Beurk ! Qu'est que c'est que ça !!!
Remplace le par une boucle infini !
fullgore62 Messages postés 8 Date d'inscription vendredi 11 novembre 2005 Statut Membre Dernière intervention 16 mars 2006
11 nov. 2005 à 23:22
lol ! Elle est pas mal aussi ta version ! mdr
Lucyberad Messages postés 414 Date d'inscription mercredi 16 juin 2004 Statut Membre Dernière intervention 26 juillet 2007 3
11 nov. 2005 à 23:18
la blagues est ultra connue en tant que faux spyware, mais sous une version differente:
ton bureau croule sous la paperasse et tu sais pas ou posez ta biere? clique ici et tes prblm son arrangé ! (et ca ouvre le lecteur)
voila donc c juste pour savoir comment ouvrir un lecteur cd.
violent_ken Messages postés 1812 Date d'inscription mardi 31 mai 2005 Statut Membre Dernière intervention 26 octobre 2010 2
11 nov. 2005 à 22:20
Ok ! C'est bon, çà marche !
C'est bien marrant !!!
@+
fullgore62 Messages postés 8 Date d'inscription vendredi 11 novembre 2005 Statut Membre Dernière intervention 16 mars 2006
11 nov. 2005 à 22:16
Nan ! J'ai vérifié et il n'y a pas de problème ! Moi je l'enregistre en .vbs ; tous les fichier ; et le codage en Unicode ! Je ne m'y connais pas trop en programmation ! C'est peut être ça !
fullgore62 Messages postés 8 Date d'inscription vendredi 11 novembre 2005 Statut Membre Dernière intervention 16 mars 2006
11 nov. 2005 à 22:12
Je vais regarder si il y a un problème ! Je te dis quoi !
Sinon excuse moi hackademius ! Désolé !
hackademius Messages postés 172 Date d'inscription mercredi 29 janvier 2003 Statut Membre Dernière intervention 24 février 2008
11 nov. 2005 à 22:08
si si , justement , c cool , surtout la phrase du porte gobelet !
j'aime bien.

mon premier comm n'avai rien de mechant
violent_ken Messages postés 1812 Date d'inscription mardi 31 mai 2005 Statut Membre Dernière intervention 26 octobre 2010 2
11 nov. 2005 à 22:03
Erreur 424 (un objet est requis) à la ligne :
Set Wshell = Wscript.CreateObject("Wscript.Shell")
?
@+
fullgore62 Messages postés 8 Date d'inscription vendredi 11 novembre 2005 Statut Membre Dernière intervention 16 mars 2006
11 nov. 2005 à 21:47
Je sais que ca sert à rien, mais on ne peut pas rigoler un peu sur ce site ??
hackademius Messages postés 172 Date d'inscription mercredi 29 janvier 2003 Statut Membre Dernière intervention 24 février 2008
11 nov. 2005 à 21:40
c nul , ca sert a rien , mais le coups du porte gobelet , ouai bien vu !
sympa chez coca cola compagny(c)

Discussions similaires

Formule excel
ludo62890 -
ludo62890 -

13 réponses
faire des pauvres blague
bapdur -
mogwai93 -

4 réponses
Editeur blague dans fenetre
romar02 -
BruNews -

1 réponse
Rejoignez-nous