Répondeur avec alerte type msn ki marche sans variable
Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 669 fois - Téléchargée 26 fois
Contenu du snippet
apuyer f5 pour ouvrir le menu de configuration
metter sa dasn vo remote
je sui tré fiere de ce script
je remerci les personne ki mon aider a le faire
il se reconnetreron
(vous pouvez le noter svp et laisser des commentaire)
metter sa dasn vo remote
Source / Exemple :
;)
On *:open:*:{
if $readini rep.ini rep MSN == on /tst
if $readini rep.ini rep MSN == on aline -p @pvmsg $chr(160) $1-
if $readini rep.ini rep status == on {
if $readini rep.ini rep lign1. == on /msg $nick $read -l1 rep.ini
if $readini rep.ini rep lign2. == on /msg $nick $read -l2 rep.ini
if $readini rep.ini rep lign3. == on /msg $nick $read -l3 rep.ini
if $readini rep.ini rep lign4. == on /msg $nick $read -l4 rep.ini
if $readini rep.ini rep lign5. == on /msg $nick $read -l5 rep.ini
/statpv
}
}
alias tst {
/beep 1 1
/window -hamodk +f @pvmsg 2 100 256 100
/.timer 1 8 /window -c @pvmsg
aline -p @pvmsg 4 $+ $left($nick,1) $+ 14 $+ $right($nick,$calc($len($nick)-1)) $+ 14 a dit :
}
menu @pvmsg {
dclick /window -c @pvmsg
Fermer:/window -c @pvmsg
Ignorer:/ignore $nick 1
Fermer le PV:/close -m $nick
}
alias f5 rep
alias rep dialog -m rep rep
dialog rep {
title " Répondeur "
size -1 -1 450 205
icon $mircdir\moutmout.ico
button " Ok ",1, 120 160 215 25, flat, ok
box " Répondeur Perso Multi-ligne ",2, 10 0 430 200
text " Répondeur Multi-ligne ?? ",3, 21 18 140 20
edit $read -l1 rep.ini,5, 35 40 400 20,autohs
edit $read -l2 rep.ini,6, 35 60 400 20,autohs
edit $read -l3 rep.ini,7, 35 80 400 20,autohs
edit $read -l4 rep.ini,8, 35 100 400 20,autohs
edit $read -l5 rep.ini,9, 35 120 400 20,autohs
check "",10,20 40 15 20
check "",11,20 60 15 20
check "",12,20 80 15 20
check "",13,20 100 15 20
check "",14,20 120 15 20
check "Oui",15,160 16 40 20
text " Alerte MSN ?? ",16, 280 14 140 20
check "Oui",17,370 12 40 20
box "",18, 270 0 150 35
}
on *:dialog:rep:init:0:{
if $readini rep.ini rep lign1. == on did -c rep 10 | else did -b rep 5
if $readini rep.ini rep lign1. == on did -c rep 10 | else did -b rep 5
if $readini rep.ini rep lign2. == on did -c rep 11 | else did -b rep 6
if $readini rep.ini rep lign3. == on did -c rep 12 | else did -b rep 7
if $readini rep.ini rep lign4. == on did -c rep 13 | else did -b rep 8
if $readini rep.ini rep lign5. == on did -c rep 14 | else did -b rep 9
if $readini rep.ini rep status == on did -c rep 15
if $readini rep.ini rep MSN == on did -c rep 17
}
on *:dialog:rep:sclick:*:{
if ( $did == 1 ) {
write -l1 rep.ini $did(rep,5)
write -l2 rep.ini $did(rep,6)
write -l3 rep.ini $did(rep,7)
write -l4 rep.ini $did(rep,8)
write -l5 rep.ini $did(rep,9)
if ($did(15).state == 1) { /writeini rep.ini rep status on } | if ($did(15).state == 0) { /writeini rep.ini rep status off }
if ($did(10).state == 1) { /writeini rep.ini rep lign1. on } | if ($did(10).state == 0) { /writeini rep.ini rep lign1. off }
if ($did(11).state == 1) { /writeini rep.ini rep lign2. on } | if ($did(11).state == 0) { /writeini rep.ini rep lign2. off }
if ($did(12).state == 1) { /writeini rep.ini rep lign3. on } | if ($did(12).state == 0) { /writeini rep.ini rep lign3. off }
if ($did(13).state == 1) { /writeini rep.ini rep lign4. on } | if ($did(13).state == 0) { /writeini rep.ini rep lign4. off }
if ($did(14).state == 1) { /writeini rep.ini rep lign5. on } | if ($did(14).state == 0) { /writeini rep.ini rep lign5. off }
if ($did(17).state == 1) { /writeini rep.ini rep MSN on } | if ($did(17).state == 0) { /writeini rep.ini rep MSN off }
}
if $did == 10 {
if $did(10).state == 0 did -b rep 5
if $did(10).state == 1 did -e rep 5
}
if $did == 11 {
if $did(11).state == 0 did -b rep 6
if $did(11).state == 1 did -e rep 6
}
if $did == 12 {
if $did(12).state == 0 did -b rep 7
if $did(12).state == 1 did -e rep 7
}
if $did == 13 {
if $did(13).state == 0 did -b rep 8
if $did(13).state == 1 did -e rep 8
}
if $did == 14 {
if $did(14).state == 0 did -b rep 9
if $did(14).state == 1 did -e rep 9
}
}
Conclusion :
je sui tré fiere de ce script
je remerci les personne ki mon aider a le faire
il se reconnetreron
(vous pouvez le noter svp et laisser des commentaire)
A voir également
- Répondeur avec alerte type msn ki marche sans variable
- Demineur reseau type msn winsock - Codes sources - Visual Basic / VB.NET (Jeux)
- Delphi / Pascal : Popup alerte style msn avast - CodeS SourceS - Guide
- Determiner le type d'un fichier sans connaître son extension ✓ - Forum - Delphi / Pascal
- Ecart type de valeur de cellule variable dans une base de données ✓ - Forum - Visual Basic 6
- Changer le type (private public) d'une variable de classe ✓ - Forum - VB.NET
Commentaires
c sur mirc !
là il doit rester un bug je croi mai il est pa trop gro
comment sa tu ten reservira, moi je veu ke tu le garde tou le temps !!!
mdw, je déconne
si vous zavez dotre truck a me dire comme des amèlioration ---> $me
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.