The World Free
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.

The World Free


 
AccueilPortailS'enregistrerGalerieDernières imagesRechercherConnexion
-23%
Le deal à ne pas rater :
EVGA SuperNOVA 650 G6 – Alimentation PC 100% modulaire 650W, 80+ ...
77.91 € 100.91 €
Voir le deal

 

 Le XDCC... partage de fichier

Aller en bas 
AuteurMessage
ZeNiTuDe

ZeNiTuDe


Nombre de messages : 140
Age : 54
Date d'inscription : 29/02/2008

Le XDCC... partage de fichier Empty
MessageSujet: Le XDCC... partage de fichier   Le XDCC... partage de fichier Icon_minitimeLun 30 Avr - 18:44

Code:
Voila tu copie colle dans ton MIRC a l'espace edditeur de script  sous remotte/fichier/nouveau


dialog myxdcc {
title "Serveur xdcc"
size -1 -1 587 280
option pixels
list 1, 12 17 483 191, size
button "Parcourir", 2, 502 17 75 25
button "Vider", 3, 502 45 75 25
button "Ok", 5, 502 250 75 25, ok
text "Liste des fichiers en partage", 6, 164 3 186 14, center
check "Activer/Désactiver le partage des fichiers", 4, 12 253 288 20
edit "", 7, 12 225 266 20, autohs
edit "", 11, 434 225 35 20, right
text "Afficher la liste toutes les ", 12, 307 227 124 14
text "minute(s)", 13, 474 227 52 16
text "Inscrivez un nom de salon de partage", 8, 55 210 183 14
}
;###################Partie code du dialogue####################;
on *:dialog:myxdcc:*:*: {
if ($devent == init) {
set %myxdcc myxdcc.txt
if ($exists(%myxdcc)) {
loadbuf -otliste myxdcc 1 %myxdcc
}
if (%checkactiv) {
did -c myxdcc 4
}
if (%minuteaff != $null) {
did -a myxdcc 11 %minuteaff
}
if (%chanpartage != $null) {
did -a myxdcc 7 %chanpartage
}
echo 4 -a Ouverture de la console de partage.
}
if ($devent == sclick) {
if ($did == 2) && ($did(1).lines == 0) {
set %dossierxdcc $sdir(*)
set %nbrfiles $findfile(%dossierxdcc,*,0,1)
set %comxdcc 1
write -c %myxdcc
while (%comxdcc <= %nbrfiles) {
if ($file($findfile(%dossierxdcc,*,%comxdcc,1)).size < 1000) {
set %taillexdcc [ $+ $file($findfile(%dossierxdcc,*,%comxdcc,1)).size o]
}
if ($file($findfile(%dossierxdcc,*,%comxdcc,1)).size < 1000000) && ($file($findfile(%dossierxdcc,*,%comxdcc,1)).size >= 1000) {
set %taillexdcc [ $+ $ceil($calc($file($findfile(%dossierxdcc,*,%comxdcc,1)).size / 1000)) Ko]
}
if ($file($findfile(%dossierxdcc,*,%comxdcc,1)).size < 1000000000) && ($file($findfile(%dossierxdcc,*,%comxdcc,1)).size >= 1000000) {
set %taillexdcc [ $+ $ceil($calc($file($findfile(%dossierxdcc,*,%comxdcc,1)).size / 1000000)) Mo]
}
if ($file($findfile(%dossierxdcc,*,%comxdcc,1)).size >= 1000000000) {
set %taillexdcc [ $+ $ceil($calc($file($findfile(%dossierxdcc,*,%comxdcc,1)).size / 1000000000)) Go]
}
did -a myxdcc 1 [ # [ $+ [ %comxdcc ] ] ] $nopath($findfile(%dossierxdcc,*,%comxdcc,1)) %taillexdcc
inc %comxdcc 1
}
}
if ($did == 3) && ($did(1).lines != 0) {
did -r myxdcc 1
write -c %myxdcc
}
if ($did == 5) {
if ($did(1).lines != 0) && ($did(11) != $null) && ($did(7) != $null) {
write -c %myxdcc
set %comxdcc 1
while (%comxdcc <= $did(1).lines) {
if ($file($findfile(%dossierxdcc,*,%comxdcc,1)).size < 1000) {
set %taillexdcc [ $+ $file($findfile(%dossierxdcc,*,%comxdcc,1)).size o]
}
if ($file($findfile(%dossierxdcc,*,%comxdcc,1)).size < 1000000) && ($file($findfile(%dossierxdcc,*,%comxdcc,1)).size >= 1000) {
set %taillexdcc [ $+ $ceil($calc($file($findfile(%dossierxdcc,*,%comxdcc,1)).size / 1000)) Ko]
}
if ($file($findfile(%dossierxdcc,*,%comxdcc,1)).size < 1000000000) && ($file($findfile(%dossierxdcc,*,%comxdcc,1)).size >= 1000000) {
set %taillexdcc [ $+ $ceil($calc($file($findfile(%dossierxdcc,*,%comxdcc,1)).size / 1000000)) Mo]
}
if ($file($findfile(%dossierxdcc,*,%comxdcc,1)).size >= 1000000000) {
set %taillexdcc [ $+ $ceil($calc($file($findfile(%dossierxdcc,*,%comxdcc,1)).size / 1000000000)) Go]
}
writeini %myxdcc liste [ # [ $+ [ %comxdcc ] ] ] $nopath($findfile(%dossierxdcc,*,%comxdcc,1)) %taillexdcc
writeini %myxdcc ladresse [ # [ $+ [ %comxdcc ] ] ] $findfile(%dossierxdcc,*,%comxdcc,1)
inc %comxdcc 1
}
set %checkactiv $did(4).state
set %minuteaff $did(11)
set %chanpartage $did(7)
if ($did(4).state) {
echo 4 -a Activation de la console de partage.
.timerxdcc off
regltime
.timerxdcc 0 $calc(%minuteaff * 60) regltime
}
else {
.timerxdcc off
echo 4 -a Désactivation de la console de partage.
}
}
else {
write -c %myxdcc
unset %minuteaff
unset %checkactiv
.timerxdcc off
echo 4 -a Désactivation de la console de partage, pour activer la console de partage veuillez y choisir un dossier à partager ainsi qu'un salon et un temps d'affichage.
}
}
}
}
;#######################Partie CTCP#####################;
ctcp *:xdcc:*: {
if ($2 == send) {
if (%checkactiv) {
dcc send $nick $readini(%myxdcc,ladresse,$3)
}
}
}
;###################Partie alias#########################;
alias xdcc {
dialog $iif($dialog(myxdcc),-v,-mied myxdcc) myxdcc
}
alias regltime {
if ($status == connected) {
msg %chanpartage 4Serveur de fichiers 13M7yxdcc 9Je partage actuellement13 %nbrfiles fichiers11, pour un record de13 %vitessemax $+ ko/s
.play -tliste %chanpartage %myxdcc
.timerxdccd 1 $calc(%nbrfiles + 1) msg %chanpartage Pour télecharger tapez:9 /ctcp $me 8xdcc send #numéro_4du_fichier 11n'oublez pas le 9"8#9" 7devant le numéro.12Merci de partager vous aussi 4:).Je vous invite 8a découvrir 4toutes ces nouveautés 11en téléchargeant 7depuis ce serveur. 13Tous les fichiers sont contrôlés 4sans virus 12;)

}
}
;####################partie connexion#########################;
on *:join:%chanpartage: {
if (%checkactiv) {
.timerxdcc off
regltime
.timerxdcc 0 $calc(%minuteaff * 60) regltime
}
}
on *:FILESENT:*: {
if ($window(@Transferts) == $null) {
window -mkOzne @Transferts
}
if (!%vitessemax) {
set %vitessemax 0
}
set %sentenvoi $ceil($calc($calc($send($nick).sent / $send($nick).secs) / 1000))
if (%sentenvoi > %vitessemax) {
set %vitessemax $ceil($calc($calc($send($nick).sent / $send($nick).secs) / 1000))
}
echo @Transferts 3·9·3•9» 11[10 $+ $time $+ 11] 13 $nick 10 a bien reçu13 $nopath($filename) 10! 9«3•9·3·
}
on *:SENDFAIL:*: {
if ($window(@Transferts) == $null) {
window -mkOzne @Transferts
}
echo @Transferts 5·4·5•4X 11[10 $+ $time $+ 11] 13 $nick 4 n'a pas reçu13 $nopath($filename) 4X5•4·5·
}
menu channel,query,nicklist,status {
-
][ Partage de fichiers ][:/xdcc]
}

Ensuite lorsque le fichier est enregistrer sur votre script , dans la fenetre de lecture en clic droit vous devriez voir un onglet << PARTAGE DE FICHIERS >>
Donc vous le lancer puis puis dans la fentre qui s'ouvre allez sur parcourir , et via l'endroit ou vous avez les fichiers a partager puis envoyer votre choix ce qui donne ca si tous est ok


Le XDCC... partage de fichier Screen10

ces ok donc vous n'avez plus qu'as mettre un nom de salon ( #nom du salon ) ou diffuser et le temp espace entre chaque diffusion
Ne mettez pas plus de 50 fichiers d'un coup en diffusion ca risque d'alterrer de plus prévoyer ce sujet sur un salon ou y as peut de t'chat ou encore limiter vos partage en fonction
Revenir en haut Aller en bas
https://zenitude.forum-actif.net
 
Le XDCC... partage de fichier
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Le téléchargement de fichier légal et sure

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
The World Free :: Tous Pour L'IRC :: espace remottes pour script et robot-
Sauter vers: