ESPION EN ECHO ET SUR SALON HAVE FUN

Signaler
Messages postés
46
Date d'inscription
dimanche 27 juillet 2008
Statut
Membre
Dernière intervention
21 février 2009
-
 opignion -
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/47421-espion-en-echo-et-sur-salon-have-fun

Menu menubar {
mouchard:mouchard
}
alias mouchard dialog -m sentc sentc

dialog sentc {
title "Mouchard Par DhCp"
size -1 -1 580 360
text "Veillez mettre les pseudos à espionner dans les cases ci-dessous ." ,1,10 10 450 40,style(left)
box "Please fill in your sentences: ",50,10 53 530 275,style
text "Sentence 1:",2,20 70 65 20,style(left)
combo 3,85 70 445 20,style(edit)
text "Sentence 2:",4,20 95 65 20,style(left)
combo 5,85 95 445 20,style(edit)
text "Sentence 3:",6,20 120 65 20,style(left)
combo 7,85 120 445 20,style(edit)
text "Sentence 4:",8,20 145 65 20,style(left)
combo 9,85 145 445 20,style(edit)
text "Sentence 5:",10,20 170 65 20,style(left)
combo 11,85 170 445 20,style(edit)
text "Sentence 6:",12,20 195 65 20,style(left)
combo 13,85 195 445 20,style(edit)
text "Sentence 7:",14,20 220 65 20,style(left)
combo 15,85 220 445 20,style(edit)
text "Sentence 8:",16,20 245 65 20,style(left)
combo 17,85 245 445 20,style(edit)
text "Sentence 9:",18,20 270 65 20,style(left)
combo 19,85 270 445 20,style(edit)
text "Sentence 10:",20,20 295 65 20,style(left)
combo 21,85 295 445 20,style(edit)
button "Clear all",82,310 335 70 20,style(edit)
button "Save",80,390 335 70 20,style(ok)
button "Cancel",81,470 335 70 20,style(cancel)
}
on *:dialog:sentc:init:*:{
if (%spy1 == NotSet) did -ci sentc 3 1 Tapez le pseudo concerné
if (%spy2 == NotSet) did -ci sentc 5 1 Tapez le pseudo concerné
if (%spy3 == NotSet) did -ci sentc 7 1 Tapez le pseudo concerné
if (%spy4 == NotSet) did -ci sentc 9 1 Tapez le pseudo concerné
if (%spy5 == NotSet) did -ci sentc 11 1 Tapez le pseudo concerné
if (%spy6 == NotSet) did -ci sentc 13 1 Tapez le pseudo concerné
if (%spy7 == NotSet) did -ci sentc 15 1 Tapez le pseudo concerné
if (%spy8 == NotSet) did -ci sentc 17 1 Tapez le pseudo concerné
if (%spy9 == NotSet) did -ci sentc 19 1 Tapez le pseudo concerné
if (%spy10 == NotSet) did -ci sentc 21 1 Tapez le pseudo concerné
if (%spy1 != NotSet) did -ci sentc 3 1 %spy1
if (%spy2 != NotSet) did -ci sentc 5 1 %spy2
if (%spy3 != NotSet) did -ci sentc 7 1 %spy3
if (%spy4 != NotSet) did -ci sentc 9 1 %spy4
if (%spy5 != NotSet) did -ci sentc 11 1 %spy5
if (%spy6 != NotSet) did -ci sentc 13 1 %spy6
if (%spy7 != NotSet) did -ci sentc 15 1 %spy7
if (%spy8 != NotSet) did -ci sentc 17 1 %spy8
if (%spy9 != NotSet) did -ci sentc 19 1 %spy9
if (%spy10 != NotSet) did -ci sentc 21 1 %spy10
did -t sentc 80 1
}
on *:dialog:sentc:sclick:80:{
if ($did(sentc,3).text != Tapez le pseudo concerné) set %spy1 $did(sentc,3).text
if ($did(sentc,5).text != Tapez le pseudo concerné) set %spy2 $did(sentc,5).text
if ($did(sentc,7).text != Tapez le pseudo concerné) set %spy3 $did(sentc,7).text
if ($did(sentc,9).text != Tapez le pseudo concerné) set %spy4 $did(sentc,9).text
if ($did(sentc,11).text != Tapez le pseudo concerné) set %spy5 $did(sentc,11).text
if ($did(sentc,13).text != Tapez le pseudo concerné) set %spy6 $did(sentc,13).text
if ($did(sentc,15).text != Tapez le pseudo concerné) set %spy7 $did(sentc,15).text
if ($did(sentc,17).text != Tapez le pseudo concerné) set %spy8 $did(sentc,17).text
if ($did(sentc,19).text != Tapez le pseudo concerné) set %spy9 $did(sentc,19).text
if ($did(sentc,20).text != Tapez le pseudo concerné) set %spy10 $did(sentc,21).text
if ($did(sentc,3).text == Tapez le pseudo concerné) set %spy1 NotSet
if ($did(sentc,5).text == Tapez le pseudo concerné) set %spy2 NotSet
if ($did(sentc,7).text == Tapez le pseudo concerné) set %spy3 NotSet
if ($did(sentc,9).text == Tapez le pseudo concerné) set %spy4 NotSet
if ($did(sentc,11).text == Tapez le pseudo concerné) set %spy5 NotSet
if ($did(sentc,13).text == Tapez le pseudo concerné) set %spy6 NotSet
if ($did(sentc,15).text == Tapez le pseudo concerné) set %spy7 NotSet
if ($did(sentc,17).text == Tapez le pseudo concerné) set %spy8 NotSet
if ($did(sentc,19).text == Tapez le pseudo concerné) set %spy9 NotSet
if ($did(sentc,21).text == Tapez le pseudo concerné) set %spy10 NotSet
}
on *:dialog:sentc:sclick:79:userinfo
on *:dialog:sentc:sclick:82:{
set %spy1 NotSet
set %spy2 NotSet
set %spy3 NotSet
set %spy4 NotSet
set %spy5 NotSet
set %spy6 NotSet
set %spy7 NotSet
set %spy8 NotSet
set %spy9 NotSet
set %spy10 NotSet
did -ci sentc 3 1 Tapez le pseudo concerné
did -ci sentc 5 1 Tapez le pseudo concerné
did -ci sentc 7 1 Tapez le pseudo concerné
did -ci sentc 9 1 Tapez le pseudo concerné
did -ci sentc 11 1 Tapez le pseudo concerné
did -ci sentc 13 1 Tapez le pseudo concerné
did -ci sentc 15 1 Tapez le pseudo concerné
did -ci sentc 17 1 Tapez le pseudo concerné
did -ci sentc 19 1 Tapez le pseudo concerné
did -ci sentc 21 1 Tapez le pseudo concerné
}

on *:text:*:#:{
if ( %spy1 isin $nick) || ( %spy2 isin $nick) || ( %spy3 isin $nick) || ( %spy4 isin $nick) || ( %spy5 isin $nick) || ( %spy6 isin $nick) || ( %spy7 isin $nick) || ( %spy8 isin $nick) || ( %spy9 isin $nick) || ( %spy10 isin $nick) {
if ($window(@Mouchard)) {
aline -ph @Mouchard [ $time ] 11 $nick a dit sur 8 $chan  $1-
}
elseif (!$window(@Mouchard)) {
window -mk0ne @Mouchard
aline -ph 4 @Mouchard [ $time ] 11 $nick a dit sur 8 $chan  $1-
}
}
}



peut être sa ? mouchard: jusqua 10 nick a votre guise d en métre plus
Messages postés
58
Date d'inscription
mercredi 21 novembre 2007
Statut
Membre
Dernière intervention
7 mars 2009

BOULET7612,
slt, ta question ma intéroger, vut que j'ai eu la meme idée, genre éspioner une seul persone a sa connection a un serveur ou une conversation entre2 usager.. sa pourait mieux porter son nom de espion,
++
je notrai si amélioration ..
Messages postés
8
Date d'inscription
vendredi 1 juin 2007
Statut
Membre
Dernière intervention
6 octobre 2008

pourquoi ne pas pousser le vice un peut plus loin.style le paramettrer pour espionner ce que dis une seule personne.ou pouvoir filtrer les discution style enlever le spam ou des chose du genre la ca ferait une remote qui peut avoir du style
Messages postés
44
Date d'inscription
lundi 24 septembre 2007
Statut
Membre
Dernière intervention
17 avril 2009

Par contre j'ai beau chercher, je ne vois pas l'intérêt de se balancer les données en echo ...
Et juste pour parler du code, moi j'avais codé la possibilité d'afficher ou non les événements, ce qui permettait d'anticiper (et donc éviter) certains excess flood, genre dans les heures de 'pointe', tout les événements étaient sur OFF, et seulement le on text fonctionnait... te voila une idée pour update ton code devorz ^^ (Ne m'oblige pas à dépoussiérer le mien pour le poster ici)
Autre chose aussi en ce qui concerne les codes couleur, évite les ctrl+k 1, pense à ceux qui comme moi ont un fond noir ...ctrl+o fait l'affaire puisqu'il fait du blanc sur fond noir et du noir sur fond blanc.
Pourquoi aussi ne pas inclure des commandes inputs permettant aux autres personnes profitant du spy de pouvoir effectuer différents 'réglages' du bot en ton absence ?
Et le must, c'est une boucle qui te permet te récupérer la liste des users @ et des voices (si tu ajoutes les regular ca va ptet flooder un poil)
Tu as maintenant presque toutes les clés en main pour faire une copie du mien ;]

djul.

Ps: désolé pour les deux mails de plus UAIP, mais je pense avoir fourni deux commentaires constructifs pour le code et non avoir alimenté des débats qui ont plus leur place sur un salon irc par exemple plutôt que sur ce genre de forum. :]
Afficher les 52 commentaires