begin process at 2012 02 08 19:25:19
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Réseau & Internet

 > ASPIRATEUR DE GALERIES INTERNET

ASPIRATEUR DE GALERIES INTERNET


 Information sur la source

Note :
10 / 10 - par 2 personnes
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Réseau & Internet Classé sous :socket Niveau :Initié Date de création :12/08/2006 Date de mise à jour :13/08/2006 14:38:12 Vu :5 240

Auteur : PaDa

Ecrire un message privé
Commentaire sur cette source (8)
Ajouter un commentaire et/ou une note

 Description

Hi,

Cette idée trotte depuis un bail dans ma tête..
Marre de télécharger une par une les images d'une galerie ?
Pourquoi pas faire quelques sockets mIRC qui vous simplifieront la vie ? :D
Ca c'est pour l'idée..

Il existe des aspirateurs de site très complets et puissants, je soumets ce code car il permet de voir quelques trucs :
- accès à une page web en sockets
- téléchargement d'un document en sockets (avec retrait des en têtes HTTP préalablement..)
- l'utilisation fantastique de /echo -s ! =]

Deux exemples sont fournis dans le code pour vous montrer. Je place le code en initié pour éviter qu'il ait peur au milieu des répondeurs et away systemz...
Je n'attends pas particulièrement de commentaires sur mon "style" en mIRC lol

Source

  • ;-------------------------------------------
  • ; Aspirateur de galeries web / Pada / 2006
  • ;
  • ; - cf le code pour des exemples
  • ; - presque aucune vérif coté paramètres n'est effectuée
  • ; => préciser un path valide !!
  • ; - pas testé avec des espaces dans le path
  • ; - je sais que j'aurais pu factoriser les on sock*,
  • ; ca n'aurait fait que compliquer le code
  • ; et le rendre hermétique à toute évolution
  • ; - marche avec les liens <a> classiques a priori..
  • ; (relatif/absolu, non testé sur les absolus)
  • ; - formats détectés : png/jpg/jpeg/gif
  • ; (changer le masque de regex au besoin)
  • ;
  • ;-------------------------------------------
  • ;aliases exemples (héhé je spamme pour mon sport le vtt trial ^^)
  • alias ex1 dl_img http://www.espacetrial.com/demos-compets/knokke/knokke/knokke-09.jpg knokke-09.jpg
  • alias ex2 mkdir trial | dl_gallery http://www.espacetrial.com/demos-compets/knokke/ trial/
  • ;-------------------------------
  • ; aspiration d'une page/galerie
  • ; /dl_gallery <url> <path> [prefix]
  • ;-------------------------------
  • alias dl_gallery {
  • sockclose dl_img
  • hfree -w DL_Gallery
  • h gal_site $gettok($remove($$1,http://),1,47)
  • h gal_get $remove($1,http://,$h(gal_site))
  • h gal_path $iif($right($$2,1) !isin \/,$2 $+ /,$2)
  • h gal_prefix $3
  • h gal_N 0
  • h gal_C 1
  • h gal_end 0
  • sockopen dl_gallery $h(gal_site) 80
  • }
  • on *:sockopen:dl_gallery:{
  • if ($sockerr) {
  • echo -a * /dl_gallery : erreur de connexion au site ( $h(gal_site) )
  • return
  • }
  • echo 4 -s * Aspiration de http:// $+ $h(gal_site) $+ $h(gal_get) en cours ...
  • sockwrite -n $sockname GET $h(gal_get) HTTP/1.1
  • sockwrite -nt $sockname Host: $h(gal_site)
  • sockwrite -n $sockname
  • .timerdl_gal_end 1 5 dl_gal_end
  • }
  • on *:sockread:dl_gallery:{
  • if ($sockerr) {
  • echo -a * /dl_gallery : erreur de transaction ( $h(gal_site) )
  • return
  • }
  • sockread &a
  • var %a 1,%c 1
  • ;si lien coupé en tampon
  • if $h(TempA) {
  • if $bfind(&a,1,62) {
  • var %a $ifmatch
  • dl_detectlink $h(TempA) $+ $bvar(&a,1,%a).text
  • }
  • h TempA
  • }
  • ;détection d'autres liens
  • while ($bfind(&a,%a,60 97 32) || $bfind(&a,%a,60 65 32)) {
  • var %a1 = $bfind(&a,%a,60 97 32)
  • var %a2 = $bfind(&a,%a,60 65 32)
  • var %first = $iif(%a1 < %a2,$iif(%a1,%a1,%a2),$iif(%a2,%a2,%a1))
  • %a = $iif(($bfind(&a,%first,62) <= $calc(%first + 500)) && $bfind(&a,%first,62),$bfind(&a,%first,62),$calc(%first + 1))
  • ;détection de lien
  • ;lien coupé
  • if (%a == $calc(%first + 1)) {
  • h TempA $bvar(&a,%first,500).text
  • ;echo -s Mise en tampon : $bvar(&a,%first,500).text
  • }
  • ;lien ok
  • else {
  • dl_detectlink $bvar(&a,%first,$calc(%last - %first + 1)).text
  • }
  • ;timeout
  • .timerdl_gal_end 1 5 dl_gal_end
  • ;sécurité
  • if (%c >= 2000) { break }
  • inc %c
  • }
  • }
  • on *:sockclose:dl_gallery:{
  • dl_gal_end
  • }
  • alias dl_gal_end {
  • if !$h(gal_end) {
  • h gal_end 1
  • sockclose dl_gallery
  • .timerdl_gal_end off
  • echo 4 -s * Gallerie analysée ! $h(gal_N) images ont été trouvées.
  • echo 4 -s * Téléchargement des images en cours...
  • dl_treatqueue
  • }
  • }
  • alias dl_detectlink {
  • ;echo 12 -s Lien détecté -> $1-
  • if $regex($1-,/href="?([^>" ]+?\.(?:jpg|jpeg|png|gif))"?/i) {
  • h gal_N $calc($h(gal_N) +1)
  • echo 5 -s * Image détectée : $h(gal_N) -> $remove($regml(1),")
  • dl_addqueue $h(gal_N) $h(gal_site) $+ $h(gal_get) $regml(1)
  • }
  • }
  • ;--------------------------------
  • ; gestion de la queue list
  • ; /dl_addqueue <numero_item> <page> <url_img>
  • ; /dl_treatqueue
  • ;--------------------------------
  • alias dl_addqueue {
  • ;url relative
  • if (http:// != $left($$3,7)) {
  • ;url gallerie - fichier
  • if (. isin $gettok($$2,-1,47)) || (? isin $gettok($$2,-1,47)) { var %url_site = $remove($2,$gettok($2,-1,47)) }
  • else { var %url_site = $$2 }
  • var %url_site = http:// $+ $iif(/ == $right(%url_site,1),%url_site,%url_site $+ /)
  • ;url image
  • var %img = %url_site $+ $3
  • }
  • ;url absolue
  • else {
  • var %img = $3
  • }
  • h queue_ $+ $$1 %img
  • }
  • alias dl_treatqueue {
  • var %c = $h(gal_C)
  • var %url = $h(queue_ $+ %c)
  • if !%url && !$sock(dl_img).status {
  • echo 4 -s * Téléchargements terminés !
  • echo 4 -s * Accès aux images : /run $shortfn($h(gal_path))
  • return
  • }
  • elseif !$sock(dl_img).status {
  • dl_img %url $h(gal_path) $+ $h(gal_prefix) $+ $gettok(%url,-1,47)
  • h gal_C $calc($h(gal_C) + 1)
  • }
  • ;les timers ici sont volontaires, histoire que le /dl_img reste indépendant,
  • ;plutot qu'un appel a la queue en sockclose du dl_img =]
  • .timer 1 1 dl_treatqueue
  • }
  • ;--------------------------------
  • ; téléchargement d'une image
  • ; /dl_img <url> <nom_sortie>
  • ;--------------------------------
  • alias dl_img {
  • sockclose dl_img
  • h img_site $gettok($remove($$1,http://),1,47)
  • h img_get $remove($1,http://,$h(img_site))
  • h img_path $$2
  • h img_end 0
  • sockopen dl_img $h(img_site) 80
  • }
  • on *:sockopen:dl_img:{
  • if ($sockerr) {
  • echo -a * /dl_img : erreur de connexion au site ( $h(img_site) )
  • return
  • }
  • echo 5 -s * Téléchargement de http:// $+ $h(img_site) $+ $h(img_get) ...
  • .remove $h(img_path)
  • sockwrite -n $sockname GET $h(img_get) HTTP/1.1
  • sockwrite -nt $sockname Host: $h(img_site)
  • sockwrite -nt $sockname Referer: http:// $+ $h(gal_site) $+ $h(gal_get)
  • sockwrite -n $sockname
  • .timerdl_img_end 1 5 dl_img_end
  • }
  • on *:sockread:dl_img:{
  • if ($sockerr) {
  • echo -a * /dl_img : erreur de transaction ( $h(img_site) )
  • return
  • }
  • sockread &a
  • ;coupure des en têtes
  • if $bfind(&a, 1,$+($cr,$lf,$cr,$lf)) {
  • bcopy -z &b 1 &a $calc($ifmatch + 4) -1
  • bunset &a
  • if $bvar(&b,0) {
  • bcopy &a 1 &b 1 -1
  • }
  • }
  • ;echo -s Debug : $bvar(&a,1,$bvar(&a,0)).text
  • if $bvar(&a,0) {
  • bwrite $h(img_path) -1 -1 &a
  • }
  • .timerdl_img_end 1 5 dl_img_end
  • }
  • on *:sockclose:dl_img:{
  • dl_img_end
  • }
  • alias dl_img_end {
  • if !$h(img_end) {
  • h img_end 1
  • sockclose dl_img
  • .timerdl_img_end off
  • echo 5 -s * Téléchargement terminé.
  • }
  • }
  • ;-----------------------------------
  • ; alias hadd/$hget par simplicité
  • ; /h <item> [value]
  • ; $h(>item>)
  • ;-----------------------------------
  • Alias h {
  • if $isid { return $hget(DL_Gallery,$$1) }
  • elseif ($2 == $null) { hdel DL_Gallery $$1 }
  • else { hadd -m DL_Gallery $$1 $2- }
  • }
;-------------------------------------------
; Aspirateur de galeries web / Pada / 2006
;
; - cf le code pour des exemples
; - presque aucune vérif coté paramètres n'est effectuée
;   => préciser un path valide !!
; - pas testé avec des espaces dans le path
; - je sais que j'aurais pu factoriser les on sock*,
;   ca n'aurait fait que compliquer le code 
;   et le rendre hermétique à toute évolution
; - marche avec les liens <a> classiques a priori.. 
;   (relatif/absolu, non testé sur les absolus)
; - formats détectés : png/jpg/jpeg/gif
;   (changer le masque de regex au besoin)
;
;-------------------------------------------


;aliases exemples (héhé je spamme pour mon sport le vtt trial ^^)
alias ex1 dl_img http://www.espacetrial.com/demos-compets/knokke/knokke/knokke-09.jpg knokke-09.jpg
alias ex2 mkdir trial | dl_gallery http://www.espacetrial.com/demos-compets/knokke/ trial/


;-------------------------------
; aspiration d'une page/galerie
; /dl_gallery <url> <path> [prefix]
;-------------------------------
alias dl_gallery {
  sockclose dl_img
  hfree -w DL_Gallery
  h gal_site $gettok($remove($$1,http://),1,47)
  h gal_get $remove($1,http://,$h(gal_site))
  h gal_path $iif($right($$2,1) !isin \/,$2 $+ /,$2)
  h gal_prefix $3
  h gal_N 0
  h gal_C 1
  h gal_end 0
  sockopen dl_gallery $h(gal_site) 80
}
on *:sockopen:dl_gallery:{
  if ($sockerr) { 
    echo -a * /dl_gallery : erreur de connexion au site ( $h(gal_site) ) 
    return 
  }
  echo 4 -s * Aspiration de http:// $+ $h(gal_site) $+ $h(gal_get) en cours ...
  sockwrite -n $sockname GET $h(gal_get) HTTP/1.1 
  sockwrite -nt $sockname Host: $h(gal_site)
  sockwrite -n $sockname
  .timerdl_gal_end 1 5 dl_gal_end
}
on *:sockread:dl_gallery:{
  if ($sockerr) { 
    echo -a * /dl_gallery : erreur de transaction ( $h(gal_site) )
    return 
  }
  sockread &a
  var %a 1,%c 1

  ;si lien coupé en tampon
  if $h(TempA) {
    if $bfind(&a,1,62) {
      var %a $ifmatch
      dl_detectlink $h(TempA) $+ $bvar(&a,1,%a).text
    }
    h TempA
  }

  ;détection d'autres liens
  while ($bfind(&a,%a,60 97 32) || $bfind(&a,%a,60 65 32)) {
    var %a1 = $bfind(&a,%a,60 97 32)
    var %a2 = $bfind(&a,%a,60 65 32)
    var %first = $iif(%a1 < %a2,$iif(%a1,%a1,%a2),$iif(%a2,%a2,%a1))
    %a = $iif(($bfind(&a,%first,62) <= $calc(%first + 500)) && $bfind(&a,%first,62),$bfind(&a,%first,62),$calc(%first + 1))

    ;détection de lien
    ;lien coupé
    if (%a == $calc(%first + 1)) {
      h TempA $bvar(&a,%first,500).text
      ;echo -s Mise en tampon : $bvar(&a,%first,500).text 
    }
    ;lien ok
    else { 
      dl_detectlink $bvar(&a,%first,$calc(%last - %first + 1)).text
    }
    ;timeout
    .timerdl_gal_end 1 5 dl_gal_end
    ;sécurité
    if (%c >= 2000) { break }
    inc %c
  }

}
on *:sockclose:dl_gallery:{
  dl_gal_end
}
alias dl_gal_end {
  if !$h(gal_end) {
    h gal_end 1
    sockclose dl_gallery
    .timerdl_gal_end off
    echo 4 -s * Gallerie analysée ! $h(gal_N) images ont été trouvées.
    echo 4 -s * Téléchargement des images en cours...
    dl_treatqueue
  }
}

alias dl_detectlink {
  ;echo 12 -s Lien détecté -> $1-
  if $regex($1-,/href="?([^>" ]+?\.(?:jpg|jpeg|png|gif))"?/i) {
    h gal_N $calc($h(gal_N) +1)
    echo 5 -s * Image détectée : $h(gal_N) -> $remove($regml(1),")
    dl_addqueue $h(gal_N) $h(gal_site) $+ $h(gal_get) $regml(1)
  }
}

;--------------------------------
; gestion de la queue list
; /dl_addqueue <numero_item> <page> <url_img>
; /dl_treatqueue
;--------------------------------
alias dl_addqueue {
  ;url relative
  if (http:// != $left($$3,7)) {
    ;url gallerie - fichier
    if (. isin $gettok($$2,-1,47)) || (? isin $gettok($$2,-1,47)) { var %url_site = $remove($2,$gettok($2,-1,47)) }
    else { var %url_site = $$2 }
    var %url_site = http:// $+ $iif(/ == $right(%url_site,1),%url_site,%url_site $+ /)
    ;url image
    var %img = %url_site $+ $3
  }
  ;url absolue
  else {
    var %img = $3
  }
  h queue_ $+ $$1 %img
}
alias dl_treatqueue {
  var %c = $h(gal_C)
  var %url = $h(queue_ $+ %c)
  if !%url && !$sock(dl_img).status { 
    echo 4 -s * Téléchargements terminés !
    echo 4 -s * Accès aux images : /run $shortfn($h(gal_path))
    return
  }
  elseif !$sock(dl_img).status {
    dl_img %url $h(gal_path) $+ $h(gal_prefix) $+ $gettok(%url,-1,47) 
    h gal_C $calc($h(gal_C) + 1)
  }
  ;les timers ici sont volontaires, histoire que le /dl_img reste indépendant,
  ;plutot qu'un appel a la queue en sockclose du dl_img =]
  .timer 1 1 dl_treatqueue
}


;--------------------------------
; téléchargement d'une image
; /dl_img <url> <nom_sortie>
;--------------------------------
alias dl_img {
  sockclose dl_img
  h img_site $gettok($remove($$1,http://),1,47)
  h img_get $remove($1,http://,$h(img_site))
  h img_path $$2
  h img_end 0
  sockopen dl_img $h(img_site) 80
}
on *:sockopen:dl_img:{
  if ($sockerr) { 
    echo -a * /dl_img : erreur de connexion au site ( $h(img_site) )
    return 
  }
  echo 5 -s * Téléchargement de http:// $+ $h(img_site) $+ $h(img_get) ...
  .remove $h(img_path)
  sockwrite -n $sockname GET $h(img_get) HTTP/1.1 
  sockwrite -nt $sockname Host: $h(img_site)
  sockwrite -nt $sockname Referer: http:// $+ $h(gal_site) $+ $h(gal_get)
  sockwrite -n $sockname
  .timerdl_img_end 1 5 dl_img_end
}
on *:sockread:dl_img:{
  if ($sockerr) { 
    echo -a * /dl_img : erreur de transaction ( $h(img_site) )
    return 
  }
  sockread &a
  ;coupure des en têtes
  if $bfind(&a, 1,$+($cr,$lf,$cr,$lf)) {
    bcopy -z &b 1 &a $calc($ifmatch + 4) -1
    bunset &a
    if $bvar(&b,0) {
      bcopy &a 1 &b 1 -1
    }
  }
  ;echo -s Debug : $bvar(&a,1,$bvar(&a,0)).text
  if $bvar(&a,0) {
    bwrite $h(img_path) -1 -1 &a
  }
  .timerdl_img_end 1 5 dl_img_end
}
on *:sockclose:dl_img:{
  dl_img_end
}
alias dl_img_end {
  if !$h(img_end) {
    h img_end 1
    sockclose dl_img
    .timerdl_img_end off
    echo 5 -s * Téléchargement terminé.
  }
}

;-----------------------------------
; alias hadd/$hget par simplicité
; /h <item> [value]
; $h(>item>)
;-----------------------------------
Alias h {
  if $isid { return $hget(DL_Gallery,$$1) }
  elseif ($2 == $null) { hdel DL_Gallery $$1 }
  else { hadd -m DL_Gallery $$1 $2- }
}

 Conclusion

Je remercie bien évidemment mes parents sans qui je n'en serais pas là aujourd'hui.


 Historique

12 août 2006 03:00:48 :
Vérification longueur &binvar, pour éviter des erreurs en status (le snippet fonctionnait quand même)
12 août 2006 03:12:24 :
Amélioration Regex
12 août 2006 04:08:27 :
Ajout d'un header "Referer" : certains sites bloquent l'accès direct à leurs images par un .htaccess basé sur le http referer. Ce header permet de passer outre la limitation..
12 août 2006 04:13:36 :
Bug sur les urls raccourcies type url/url/?blah=bleh (le path pour les images était mal construit..)
12 août 2006 13:48:09 :
Corrections diverses grâce à RCA ArKanis =] J'updaterai plus en profondeur d'ici quelques jours
13 août 2006 14:38:12 :
Désormais la page html est chargée en binaire, les détections étaient foirées lorsque la variable "sockreaded" était trop longue.. ce qui empêchait de détecter certains liens Ajout d'une option pour ajouter un prefixe aux noms des images téléchargées Par conséquent les path a espaces ne marcheront pas, c'est sûr ^^, utiliser $shortfn

 Sources du même auteur

Source avec Zip Source avec une capture GEOTOOLS : GESTION D'UN UWORLD
Source avec Zip Source avec une capture FRACTALES EN PICWINS
Source avec Zip Source avec une capture SCANNER MULTIFONCTIONS
Source avec Zip QUOTEUR (MDX)
SNIPPET $M2H : MIRC -> HTML

 Sources de la même categorie

Source avec une capture QUOTES BASH ET BASHFR par Flyswat
Source avec Zip Source avec une capture FIREWALL par Bestdoud
Source avec Zip MSN MESSENGER SUR IRC SCRIPT POUR COMPRENDRE LE FONCTIONEMEN... par synsun
Source avec Zip Source avec une capture PROGRAMME TV (PICWIN) par AgoRa_ScripT
Source avec une capture DERNIERES INFOS DU NET. (SITE PC INPACT) par AgoRa_ScripT

 Sources en rapport avec celle ci

Source avec une capture TORRENT VIEWER par kamikaze97441
SERVEUR FTP par hisoka2501
TELECHARGEMENT DE FICHIER PAR PROTOCOLE HTTP 1.0 VIA SOCKET par hisoka2501
Source avec une capture QUOTES BASH ET BASHFR par Flyswat
Source avec Zip Source avec une capture PACMAN ONLINE - 4 JOUEURS par wims

Commentaires et avis

Commentaire de RCA ArKanis le 12/08/2006 13:37:54

Bravo, une source très originale est bien codée, très pratique aussi :)

J'y ferais quelques modifications :
  else {
    var %img = $3
  }
=> else var %img = $3

  var %c = $h(gal_C)
  var %url = $h(queue_ $+ %c)
var %c = ..., %url = ...

à mon avis, ce sont toutes deux des erreurs d'attention (tu as peut-être supprimé un commentaire entre les lignes)

Ton alias dl_img est bien imaginé :)
j'avais du mal à enlever les headers, j'sais pas pourquoi, des fois ma variable était vide.


; - pas testé avec des espaces dans le path
A mon avis ça ne marche pas avec espaces, surtout que :
  h gal_path $iif($right($$2,1) !isin \/,$2 $+ /,$2)
Avec les espaces, ça serait $2-
Ensuite, tu devrais juste faire $qt($h(img_path)) non ?


Petite incohérence :
; /dl_img_one <url> <nom_sortie>
;--------------------------------
alias dl_img {

Sinon encore bravo, c'est du beau travail

Commentaire de PaDa le 12/08/2006 13:44:53

Merci pour ton comment ;)

Pour le else, c'est une "bonne pratique" que j'applique en php, j'évite d'ommettre les accollades sinon quand on reprend le code on oublie la portée du else..

Pour les vars je trouve ca plus lisible :D mais en effet c'est une erreur dûe à une modif de dernière minute

Ouaip pour les espaces dans les path, j'regarderai à l'occasion (j'ai codé ca en 2h à minuit passé, t'imagines l'état du cerveau ^^)

J'évite le $qt j'aime bien que mes codes marchent partout.. mais j'updaterai ^^

Merci pour l'incohérence j'avais pas vu, j'vais modif de ce pas ;))

Commentaire de PaDa le 12/08/2006 13:54:28

Ah tiens un truc !
Si un spécialiste des binvars passe par la... En enlevant les tests pour plus de lisibilité, j'ai fait ca pour virer les headers :

if $bfind(&a, 1,$+($cr,$lf,$cr,$lf)) {
  bcopy -z &b 1 &a $calc($ifmatch + 4) -1
  bunset &a
  bcopy &a 1 &b 1 -1
}

C'est hacky un peu de virer &a pour la redéfinir, j'avais fait ceci à la base :
if $bfind(&a, 1,$+($cr,$lf,$cr,$lf)) {
  bcopy -z &a 1 &a $calc($ifmatch + 4) -1
}

Et, avec ou sans -z, le résultat paraissait ok en affichage ASCII mais me fournissait une image pourrie (regardable mais avec qq défauts). Une idée de la raison ? J'ai supposé que la var était mal écrasée, ou que sa longueur n'était pas bonne qu'un byte était rajouté à la fin ou je ne sais quoi... Merci d'avance :)

Commentaire de hisoka2501 le 14/08/2006 16:43:02

pourquoi ne pas avoir chainer certaines variables ?

et savais tu que depuis mirc 6.2 (oubien 6.17 je c plus ) on peut faire /* pour les commentaires
sur plusieurs lignes */

(jai trouvé ca y'a pas longtemp )

sinon le code est plutot sympa bon boulo :)

Commentaire de PaDa le 14/08/2006 17:29:27

Chainé comment ca ?

Et pour le /* */ oui je savais.. ca date de bien avant il me semble même ;)

Merci en tout cas ^^

Commentaire de hisoka2501 le 18/08/2006 21:34:46

chainé genre:

#
# alias dl_treatqueue {
#   var %c = $h(gal_C)
#   var %url = $h(queue_ $+ %c)

deviens

alias dl_treatqueue {
   var %c = $h(gal_C) , %url = $h(queue_ $+ %c)

Commentaire de RCA ArKanis le 18/08/2006 22:17:42

if $bfind(&a, 1,$+($cr,$lf,$cr,$lf)) {
  bcopy -z &b 1 &a $calc($ifmatch + 4) -1
  bunset &a
  bcopy &a 1 &b 1 -1
}
if $bvar(&a,0) {
  bwrite $h(img_path) -1 -1 &a
}

peut-aussi être :
if $bfind(&a, 1,$str($crlf,2)) {
  bcopy &b 1 &a $calc($ifmatch + 4) -1
  if ($bvar(&b,0) bwrite $h(img_path) -1 -1 &b
}
elseif ($bvar(&a,0)) bwrite $h(img_path) -1 -1 &a
J'ai testé vite fait, ça marche sur mes essais

C'est assez pratique pour télécharger des fichiers textes aussi, le seul problème, c'est que $str($crlf,2) peut être retrouvé plusieurs fois. Pour éviter ça, j'ai fait :
  if ((!$sock($sockname).mark) && ($bfind(&a, 1,$str($crlf,2)))) {
    bcopy &b 1 &a $calc($ifmatch +4) -1
    if ($bvar(&b,0)) bwrite $h(img_path) -1 -1 &b
    sockmark $sockname 1
  }
  elseif ($bvar(&a,0)) bwrite $h(img_path) -1 -1 &a


ça peut être pratique, non ? :)

Commentaire de MJ92 le 04/09/2006 23:52:51

Euh la c'est trop dur pour moi ^^
En tout cas j'kiffe ta source Pada.
C'est super bien réaliser et c'est pas de mon niveau pour dire ce qui ne va pas dans ta source xD.

Bravo !

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Comment connecter un Socket ( sock ) à travers un proxy ? [ par biggoude ] JE souhaite connecter un Socket sur un server IRC en le passant par un Proxy, comment faire cela ?Merci Plus aucun socket ne répond... [ par Kolibot ] Aucun socket ne répond depuis qqs jours... quelqu'un aurait'il une idée...By Koli dcc send en socket [ par abdoulax ] yo j'aurai besoin que qlq1 m'explik ac précsion le protocole du dcc send . ou sinon il me faudrai un exemple d'addon ki reproduirai le dcc send en soc socket tokens avec gametiger.net [ par pcgpegase ] bjour / bsoir tout les gens ! :)Bon alors étant un newbie du scripting irc et n'ayant pas trouvé de réponses à mon problème je demande votre aide :&gt socket ! [ par Le_Corse ] Salut,Quelqun connaitrais pas un bon tuto pour les sockets Svp ?merci ^^» Le_Corse svp aidez moi pour socket news [ par nocomment ] Bonjour je cherche désésperement une remote sur plein de site qui serai capable de dire les news sur un canal en tapant par exemple !news sur le gener socket-pingpong [ par samsungman ] bijour je voudré savoir koment ne pas se faire deconecté a chaque foi kon ce connect a un server ? socket [ par KiNdErMaXi ] bonjour,j'aurai voulus savoir comment connecter un socket dans une fenetre (un clone) et pouvoir lui faire faire des actions ( msg, etc ... )j'ai lus AntiSpam [ par chez_moe ] Salut les boys , J'ai un leger probleme de spambot sur Undernet pis le seul anti-spam g&#233;nial que j,ai trouver c'est celui de JHD "socket anti spa Questions sur les sockets et autres [ par zzzzzz ] Salut :) J'ai quelques questions en vracs sur les sockets : Peu on d&#233;terminer le nom d'un socket ouvert sachant que son pseudo est al&#233;atoir


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 4,727 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales