AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • IRC CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 05 19:27:58
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

METEOCONSULT


Information sur la source

Catégorie :AddOns Niveau : Débutant Date de création : 08/07/2004 Vu / téléchargé: 8 955 / 348
Auteur : Seregon Ecrire un message privé
Note :
9,5 / 10 - par 2 personnes
9,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (7)
Ajouter un commentaire et/ou une note

Description

Bon ben vala ce que je suis ammené a faire quand l'ennui me prend
Voici un pti addon pour consulter la météo a 5 jours partout en France
Je me base sur le site de wanadoo qui lui meme tire ses infos du site de MeteoConsult.
Le code est en socket based et l'interface utilise mdx.dll et nhtml.dll
 

Source

  • dialog meteo {
  • title "MeteoConsult v1.0"
  • size -1 -1 360 446
  • option pixels
  • button "", 1, 3 29 355 415
  • text "Selectionnez une zone:", 2, 4 8 117 17
  • combo 3, 125 6 153 70, drop
  • button "Afficher", 4, 286 7 71 17
  • }
  • on 1:dialog:meteo:init:0: {
  • if ($exists($scriptdirmeteo) == $false) .mkdir $+(",$scriptdirmeteo,")
  • $iif($findfile(meteo,*.gif,0,0,.remove $+(",$1-,")),)
  • $iif($findfile(meteo,*.meteo,0,0,.remove $+(",$1-,")),)
  • did -ac $dname 3 France
  • var %n 1
  • while (%n <= $lines($scriptdirlist.txt)) { did -a $dname 3 $read($scriptdirlist.txt,%n) | inc %n }
  • if ($window(@meteo)) close -@ @meteo
  • mdx SetMircVersion $version
  • mdx MarkDialog $dname
  • mdx SetControlMDX $dname 1 Window > $scriptdirdialog.mdx
  • window -ahk0 +dL @meteo 0 0 320 320
  • did -i $dname 1 1 grab $window(@meteo).hwnd @meteo
  • if ($exists($scriptdirmeteo\load.meteo) == $true) .remove $+(",$scriptdirmeteo\load.meteo,")
  • if ($exists($scriptdirmeteo\select.meteo) == $true) .remove $+(",$scriptdirmeteo\select.meteo,")
  • write $+(",$scriptdirmeteo\load.meteo,") <html><head></head><body><p valign="center" align="center"><font face="Tahoma" size="3">Loading...</font></p></body></html>
  • write $+(",$scriptdirmeteo\select.meteo,") <html><head></head><body><p valign="center" align="center"><font face="Tahoma" size="3">MeteoConsult v1.0<br><br>by Seregon</font></p></body></html>
  • nhtml attach $window(@meteo).hwnd
  • nhtml select $window(@meteo).hwnd
  • nhtml navigate $scriptdirmeteo\select.meteo
  • }
  • alias -l nhtml dll $+(",$scriptdirnHTMLn_2.93.dll,") $1-
  • alias -l mdx dll $+(",$scriptdirmdx.dll,") $1-
  • on 1:dialog:meteo:sclick:4: {
  • meteo $iif($calc(128 + $did($dname,3).sel) == 129,map1,city $calc(128 + $did($dname,3).sel))
  • did -b $dname 4
  • }
  • alias -l meteo {
  • if ($1 != getimg) {
  • if (!$sock(meteo)) { sockopen meteo meteo.wanadoo.fr 80 | sockmark meteo $1- }
  • else { sockmark meteo $1- | .signal meteo }
  • }
  • else {
  • var %n = 4
  • while (%n >= 0) {
  • set $+($eval(%meteo.getst.,0),%n) 1
  • if ($exists($+($scriptdirmeteo\icn,%n,.gif)) == $true) .remove $+(",$scriptdirmeteo\icn,%n,.gif")
  • sockopen meteoget. $+ %n meteo.wanadoo.fr 80
  • dec %n
  • }
  • }
  • nhtml navigate $scriptdirmeteo\load.meteo
  • }
  • on 1:sockopen:meteo: {
  • if (map? iswm $sock($sockname).mark) {
  • if ($exists($scriptdirmeteo\mapfr.gif) == $true) .remove $+(",$scriptdirmeteo\mapfr.gif")
  • sockwrite -n $sockname GET /Images/france0.gif HTTP/ 1.1
  • }
  • elseif (city ??? iswm $sock($sockname).mark) sockwrite -n $sockname GET $+(/data/city/FR/,$gettok($sock($sockname).mark,2,32),.html) HTTP/ 1.1
  • elseif (4days ??? iswm $sock($sockname).mark) sockwrite -n $sockname GET $+(/data/city/FR/,$gettok($sock($sockname).mark,2,32),_4d.html) HTTP/ 1.1
  • sockwrite -n $sockname Host: meteo.wanadoo.fr
  • sockwrite -n $sockname Connection: Keep-Alive
  • sockwrite -n $sockname
  • }
  • on 1:signal:meteo: {
  • if (map? iswm $sock(meteo).mark) {
  • if ($exists($scriptdirmeteo\mapfr.gif) == $true) .remove $+(",$scriptdirmeteo\mapfr.gif")
  • sockwrite -n meteo GET /Images/france0.gif HTTP/ 1.1
  • }
  • elseif (city ??? iswm $sock(meteo).mark) sockwrite -n meteo GET $+(/data/city/FR/,$gettok($sock(meteo).mark,2,32),.html) HTTP/ 1.1
  • elseif (4days ??? iswm $sock(meteo).mark) sockwrite -n meteo GET $+(/data/city/FR/,$gettok($sock(meteo).mark,2,32),_4d.html) HTTP/ 1.1
  • sockwrite -n meteo Host: meteo.wanadoo.fr
  • sockwrite -n meteo Connection: Keep-Alive
  • sockwrite -n meteo
  • }
  • on 1:sockopen:meteoget.?: {
  • set %meteo.getst 1
  • sockwrite -n $sockname GET $eval($+($eval(%meteo.icn,0),$gettok($sockname,2,46)),2) HTTP/ 1.1
  • sockwrite -n $sockname Host: meteo.wanadoo.fr
  • sockwrite -n $sockname Connection: Close
  • sockwrite -n $sockname
  • inc %meteo.n 1
  • }
  • on 1:sockread:meteo: {
  • if ($sockerr > 0) || (!$sock($sockname)) { unset %meteo | halt }
  • :meteo
  • if (map? iswm $sock($sockname).mark) {
  • if (map1 == $sock($sockname).mark) { unset %meteomapf | sockread %meteo | if ($gettok(%meteo,1,32) == Content-Length:) { set %meteo.mapfrl $gettok(%meteo,2,32) } | if (!%meteo) { sockmark meteo map2 } | if ($exists($scriptdirmeteo\mapfr.gif) == $true) { .remove $+(",$scriptdirmeteo\mapfr.gif,") } }
  • elseif (map2 == $sock($sockname).mark) { sockread &meteo | bwrite $+(",$scriptdirmeteo\mapfr.gif") -1 &meteo | if ($file($scriptdirmeteo\mapfr.gif).size == %meteo.mapfrl) { inc %meteomapf 1 | if (%meteomapf == 2) { if ($exists($scriptdirmeteo\rapport.meteo) == $true) { .remove $+(",$scriptdirmeteo\rapport.meteo,") } | write $+(",$scriptdirmeteo\rapport.meteo,") <html><head></head><body><img src="mapfr.gif"></body></html> | nhtml navigate $scriptdirmeteo\rapport.meteo | did -e meteo 4 | unset %meteo* | dialog -t meteo MeteoConsult v1.0 } } }
  • }
  • elseif (city ??? iswm $sock($sockname).mark) {
  • sockread %meteo
  • if ($left($gettok(%meteo,1,32),5) == $str($chr(9),5)) {
  • tokenize 32 %meteo
  • if (<td class=titlecity isin $1-) set %meteo.city $gettok($gettok($1-,3,62),1,60)
  • elseif (<td class=subtitlecity isin $1-) set %meteo.date0 $gettok($gettok($1-,3,62),1,60)
  • elseif (<td class=cityprev isin $1-) { set %meteo.icn0 $+(/,$deltok($gettok($gettok($gettok($1-,3,62),1,60),2-,47),-1,32)) | set %meteo.weather0 $gettok($gettok($1-,5,62),1,60) | set %meteo.pm0 $gettok($gettok($1-,7,62),1,32) | set %meteo.am0 $gettok($gettok($1-,8,62),1,32) }
  • }
  • elseif (%meteo == 0) { %meteo.end = 1 }
  • if (%meteo.end) inc %meteo.end 1
  • if (%meteo.end >= 3) { unset %meteo.end | set %meteo.day 0 | .timer 1 5 meteo 4days $gettok($sock($sockname).mark,2,32) }
  • }
  • elseif (4days ??? iswm $sock($sockname).mark) {
  • sockread %meteo
  • if ($left(%meteo,11) == $str($chr(9),11)) {
  • tokenize 32 %meteo
  • if (<td class=subtitlecity4d isin $1-) { inc %meteo.day 1 | set $+($eval(%meteo.date,0),%meteo.day) $gettok($gettok($1-,2,62),1,60) }
  • elseif (<td class=cityprev isin $1-) { set $+($eval(%meteo.icn,0),%meteo.day) $gettok($gettok($gettok($1-,2,62),2,32),2,61) | set $+($eval(%meteo.weather,0),%meteo.day) $gettok($gettok($1-,-1,62),1,60) }
  • elseif (<td class=citytemp isin $1-) {
  • set $+($eval(%meteo.am,0),%meteo.day) $+($gettok($gettok($1-,2,38),-1,62),°C)
  • set $+($eval(%meteo.pm,0),%meteo.day) $+($gettok($gettok($1-,1,38),-1,62),°C)
  • if (%meteo.day == 4) { unset %meteo.day | set %meteo.n 0 | meteo getimg }
  • }
  • }
  • }
  • if ($sockbr > 0) goto meteo
  • unset %meteo
  • }
  • on 1:sockread:meteoget.?: {
  • :meteoget
  • if ($eval($+($eval(%meteo.getst.,0),$gettok($sockname,2,46)),2)) {
  • sockread %meteoget
  • if (!%meteoget) unset $+($eval(%meteo.getst.,0),$gettok($sockname,2,46))
  • }
  • else { sockread &meteoget | bwrite $+(",$scriptdirmeteo\icn,$gettok($sockname,2,46),.gif") -1 &meteoget }
  • if ($sockbr > 0) goto meteoget
  • }
  • on 1:sockclose:meteoget.?: {
  • inc %meteoget.end 1
  • if (%meteoget.end == 4) {
  • var %rp = $scriptdirmeteo\rapport.meteo
  • if ($exists(%rp) == $true) .remove $+(",%rp,")
  • write $+(",%rp,") <html><head></head><body><table border="1" cellpading="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000" width="320" height="320">
  • var %i = 0
  • while (%i <= 4) {
  • write $+(",%rp,") $+(<tr width="100%" height="64"><td width="75" height="64"><img border="0" src="icn,%i,.gif"></td>)
  • write $+(",%rp,") $+(<td width="245" height="64"><p align="center" valign="top"><font face="Tahoma" style="font-size: 11"><b>,$eval($+($eval(%meteo.date,0),%i),2),</b></p>)
  • write $+(",%rp,") $+(<p align="center" valign="top"><font face="Tahoma" style="font-size: 11">,$eval($+($eval(%meteo.weather,0),%i),2),</p>)
  • write $+(",%rp,") $+(<p align="center" valign="top"><b>AM:</b> $eval($+($eval(%meteo.am,0),%i),2) <b>-</b> <b>PM:</b> $eval($+($eval(%meteo.pm,0),%i),2),</p></font>)
  • write $+(",%rp,") </td></tr>
  • inc %i
  • }
  • write $+(",%rp,") </table></body></html>
  • did -e meteo 4
  • dialog -t meteo MeteoConsult v1.0 - %meteo.city
  • unset %meteo*
  • nhtml navigate $scriptdirmeteo\rapport.meteo
  • }
  • }
  • on 1:exit:$iif($findfile(meteo,*.gif,0,0,.remove $+(",$1-,")),) 
dialog meteo {
  title "MeteoConsult v1.0"
  size -1 -1 360 446
  option pixels
  button "", 1, 3 29 355 415
  text "Selectionnez une zone:", 2, 4 8 117 17
  combo 3, 125 6 153 70, drop
  button "Afficher", 4, 286 7 71 17
}
on 1:dialog:meteo:init:0: {
  if ($exists($scriptdirmeteo) == $false) .mkdir $+(",$scriptdirmeteo,")
  $iif($findfile(meteo,*.gif,0,0,.remove $+(",$1-,")),)
  $iif($findfile(meteo,*.meteo,0,0,.remove $+(",$1-,")),)
  did -ac $dname 3 France
  var %n 1
  while (%n <= $lines($scriptdirlist.txt)) { did -a $dname 3 $read($scriptdirlist.txt,%n) | inc %n }
  if ($window(@meteo)) close -@ @meteo
  mdx SetMircVersion $version
  mdx MarkDialog $dname
  mdx SetControlMDX $dname 1 Window > $scriptdirdialog.mdx
  window -ahk0 +dL @meteo 0 0 320 320
  did -i $dname 1 1 grab $window(@meteo).hwnd @meteo
  if ($exists($scriptdirmeteo\load.meteo) == $true) .remove $+(",$scriptdirmeteo\load.meteo,")
  if ($exists($scriptdirmeteo\select.meteo) == $true) .remove $+(",$scriptdirmeteo\select.meteo,")
  write $+(",$scriptdirmeteo\load.meteo,") <html><head></head><body><p valign="center" align="center"><font face="Tahoma" size="3">Loading...</font></p></body></html>
  write $+(",$scriptdirmeteo\select.meteo,") <html><head></head><body><p valign="center" align="center"><font face="Tahoma" size="3">MeteoConsult v1.0<br><br>by Seregon</font></p></body></html>
  nhtml attach $window(@meteo).hwnd
  nhtml select $window(@meteo).hwnd
  nhtml navigate $scriptdirmeteo\select.meteo
}
alias -l nhtml dll $+(",$scriptdirnHTMLn_2.93.dll,") $1-
alias -l mdx dll $+(",$scriptdirmdx.dll,") $1-
on 1:dialog:meteo:sclick:4: {
  meteo $iif($calc(128 + $did($dname,3).sel) == 129,map1,city $calc(128 + $did($dname,3).sel))
  did -b $dname 4
}
alias -l meteo {
  if ($1 != getimg) {
    if (!$sock(meteo)) { sockopen meteo meteo.wanadoo.fr 80 | sockmark meteo $1- }
    else { sockmark meteo $1- | .signal meteo }
  }
  else {
    var %n = 4
    while (%n >= 0) {
      set $+($eval(%meteo.getst.,0),%n) 1
      if ($exists($+($scriptdirmeteo\icn,%n,.gif)) == $true) .remove $+(",$scriptdirmeteo\icn,%n,.gif")
      sockopen meteoget. $+ %n meteo.wanadoo.fr 80 
      dec %n
    }
  }
  nhtml navigate $scriptdirmeteo\load.meteo
}
on 1:sockopen:meteo: {
  if (map? iswm $sock($sockname).mark) {
    if ($exists($scriptdirmeteo\mapfr.gif) == $true) .remove $+(",$scriptdirmeteo\mapfr.gif")
    sockwrite -n $sockname GET /Images/france0.gif HTTP/ 1.1
  }
  elseif (city ??? iswm $sock($sockname).mark) sockwrite -n $sockname GET $+(/data/city/FR/,$gettok($sock($sockname).mark,2,32),.html) HTTP/ 1.1
  elseif (4days ??? iswm $sock($sockname).mark) sockwrite -n $sockname GET $+(/data/city/FR/,$gettok($sock($sockname).mark,2,32),_4d.html) HTTP/ 1.1
  sockwrite -n $sockname Host: meteo.wanadoo.fr
  sockwrite -n $sockname Connection: Keep-Alive
  sockwrite -n $sockname
}
on 1:signal:meteo: {
  if (map? iswm $sock(meteo).mark) {
    if ($exists($scriptdirmeteo\mapfr.gif) == $true) .remove $+(",$scriptdirmeteo\mapfr.gif")
    sockwrite -n meteo GET /Images/france0.gif HTTP/ 1.1
  }
  elseif (city ??? iswm $sock(meteo).mark) sockwrite -n meteo GET $+(/data/city/FR/,$gettok($sock(meteo).mark,2,32),.html) HTTP/ 1.1
  elseif (4days ??? iswm $sock(meteo).mark) sockwrite -n meteo GET $+(/data/city/FR/,$gettok($sock(meteo).mark,2,32),_4d.html) HTTP/ 1.1
  sockwrite -n meteo Host: meteo.wanadoo.fr
  sockwrite -n meteo Connection: Keep-Alive
  sockwrite -n meteo
}
on 1:sockopen:meteoget.?: {
  set %meteo.getst 1
  sockwrite -n $sockname GET $eval($+($eval(%meteo.icn,0),$gettok($sockname,2,46)),2) HTTP/ 1.1
  sockwrite -n $sockname Host: meteo.wanadoo.fr
  sockwrite -n $sockname Connection: Close
  sockwrite -n $sockname
  inc %meteo.n 1
}
on 1:sockread:meteo: {
  if ($sockerr > 0) || (!$sock($sockname)) { unset %meteo | halt }
  :meteo
  if (map? iswm $sock($sockname).mark) {
    if (map1 == $sock($sockname).mark) { unset %meteomapf | sockread %meteo | if ($gettok(%meteo,1,32) == Content-Length:) { set %meteo.mapfrl $gettok(%meteo,2,32) } | if (!%meteo) { sockmark meteo map2 } | if ($exists($scriptdirmeteo\mapfr.gif) == $true) { .remove $+(",$scriptdirmeteo\mapfr.gif,") } }
    elseif (map2 == $sock($sockname).mark) { sockread &meteo | bwrite $+(",$scriptdirmeteo\mapfr.gif") -1 &meteo | if ($file($scriptdirmeteo\mapfr.gif).size == %meteo.mapfrl) { inc %meteomapf 1 | if (%meteomapf == 2) { if ($exists($scriptdirmeteo\rapport.meteo) == $true) { .remove $+(",$scriptdirmeteo\rapport.meteo,") } | write $+(",$scriptdirmeteo\rapport.meteo,") <html><head></head><body><img src="mapfr.gif"></body></html> | nhtml navigate $scriptdirmeteo\rapport.meteo | did -e meteo 4 | unset %meteo* | dialog -t meteo MeteoConsult v1.0 } } }
  }
  elseif (city ??? iswm $sock($sockname).mark) {
    sockread %meteo
    if ($left($gettok(%meteo,1,32),5) == $str($chr(9),5)) {
      tokenize 32 %meteo
      if (<td class=titlecity isin $1-) set %meteo.city $gettok($gettok($1-,3,62),1,60)
      elseif (<td class=subtitlecity isin $1-) set %meteo.date0 $gettok($gettok($1-,3,62),1,60)
      elseif (<td class=cityprev isin $1-) { set %meteo.icn0 $+(/,$deltok($gettok($gettok($gettok($1-,3,62),1,60),2-,47),-1,32)) | set %meteo.weather0 $gettok($gettok($1-,5,62),1,60) | set %meteo.pm0 $gettok($gettok($1-,7,62),1,32) | set %meteo.am0 $gettok($gettok($1-,8,62),1,32) }
    }
    elseif (%meteo == 0) { %meteo.end = 1 }
    if (%meteo.end) inc %meteo.end 1
    if (%meteo.end >= 3) { unset %meteo.end | set %meteo.day 0 | .timer 1 5 meteo 4days $gettok($sock($sockname).mark,2,32) }
  }
  elseif (4days ??? iswm $sock($sockname).mark) {
    sockread %meteo
    if ($left(%meteo,11) == $str($chr(9),11)) {
      tokenize 32 %meteo
      if (<td class=subtitlecity4d isin $1-) { inc %meteo.day 1 | set $+($eval(%meteo.date,0),%meteo.day) $gettok($gettok($1-,2,62),1,60) }
      elseif (<td class=cityprev isin $1-) { set $+($eval(%meteo.icn,0),%meteo.day) $gettok($gettok($gettok($1-,2,62),2,32),2,61) | set $+($eval(%meteo.weather,0),%meteo.day) $gettok($gettok($1-,-1,62),1,60) }
      elseif (<td class=citytemp isin $1-) { 
        set $+($eval(%meteo.am,0),%meteo.day) $+($gettok($gettok($1-,2,38),-1,62),°C)
        set $+($eval(%meteo.pm,0),%meteo.day) $+($gettok($gettok($1-,1,38),-1,62),°C)
        if (%meteo.day == 4) { unset %meteo.day | set %meteo.n 0 | meteo getimg }
      }
    }
  }
  if ($sockbr > 0) goto meteo
  unset %meteo
}
on 1:sockread:meteoget.?: {
  :meteoget
  if ($eval($+($eval(%meteo.getst.,0),$gettok($sockname,2,46)),2)) { 
    sockread %meteoget
    if (!%meteoget) unset $+($eval(%meteo.getst.,0),$gettok($sockname,2,46))
  }
  else { sockread &meteoget | bwrite $+(",$scriptdirmeteo\icn,$gettok($sockname,2,46),.gif") -1 &meteoget }
  if ($sockbr > 0) goto meteoget
}
on 1:sockclose:meteoget.?: {
  inc %meteoget.end 1
  if (%meteoget.end == 4) { 
    var %rp = $scriptdirmeteo\rapport.meteo
    if ($exists(%rp) == $true) .remove $+(",%rp,")
    write $+(",%rp,") <html><head></head><body><table border="1" cellpading="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000" width="320" height="320">
    var %i = 0
    while (%i <= 4) {
      write $+(",%rp,") $+(<tr width="100%" height="64"><td width="75" height="64"><img border="0" src="icn,%i,.gif"></td>)
      write $+(",%rp,") $+(<td width="245" height="64"><p align="center" valign="top"><font face="Tahoma" style="font-size: 11"><b>,$eval($+($eval(%meteo.date,0),%i),2),</b></p>)
      write $+(",%rp,") $+(<p align="center" valign="top"><font face="Tahoma" style="font-size: 11">,$eval($+($eval(%meteo.weather,0),%i),2),</p>)
      write $+(",%rp,") $+(<p align="center" valign="top"><b>AM:</b> $eval($+($eval(%meteo.am,0),%i),2) <b>-</b> <b>PM:</b> $eval($+($eval(%meteo.pm,0),%i),2),</p></font>)
      write $+(",%rp,") </td></tr>
      inc %i
    }
    write $+(",%rp,") </table></body></html>
    did -e meteo 4
    dialog -t meteo MeteoConsult v1.0 - %meteo.city
    unset %meteo*
    nhtml navigate $scriptdirmeteo\rapport.meteo
  }
}
on 1:exit:$iif($findfile(meteo,*.gif,0,0,.remove $+(",$1-,")),)

Conclusion

Zinkietez pas okune update n'est prévue lol jvais me concentrer sur des projets un peu plus intéressants
 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
  •   meteo
    • dialog.mdxTélécharger ce fichier [Réservé aux membres club]19 968 octets
    • list.txtTélécharger ce fichier [Réservé aux membres club]Voir ce fichier2 035 octets
    • MDX.DLLTélécharger ce fichier [Réservé aux membres club]42 496 octets
    • meteo.mrcTélécharger ce fichier [Réservé aux membres club]Voir ce fichier8 265 octets
    • nHTMLn_2.93.dllTélécharger ce fichier [Réservé aux membres club]10 240 octets

Télécharger le zip

Commentaires et avis

signaler à un administrateur
Commentaire de SornDrixer le 08/07/2004 10:01:19 administrateur CS

Bon boulot, mais niveau originalité, c'est moins bien ;p
http://www.ircfr.com/recherche.aspx?rech=meteo&tr=source&lng=11

Evidemment nous allons pas chipoter parce qu'il y a seulement 7 autres sources de météo, alors que pour les away system, il y a .. pleins de pages !

inc %meteoget.end 1
&gt; sans spécifier la valeur à inc, mIRC incrémente de 1, donc pas besoin de spécifier ce 1

if ($exists(%rp) == $true)
&gt; peut donner : if ($exists(%rp))

tokenize 32 %meteo
&gt; faut faire gaffe avec ca dans un sockread, si notre buffer recois trop de chr et qu'on le tokenize, on risque d'avoir un msg d'erreur.

Voila, bonne continuation, et j'espère que tu vas nous concocter de jolies projets :)

signaler à un administrateur
Commentaire de Seregon le 08/07/2004 12:08:57

merci pr le $exists je pensais pa que ca marchai avec $true et $false :)
Pr le moment je bosse sur un clien smtp/pop3 capable de gérer plusieurs comptes et je v essayer de gérer le IMAP
Sinon je fais également un systeme pour afficher d smileys sous forme d'icones dans une convesation sur un channel

signaler à un administrateur
Commentaire de talking le 08/07/2004 12:31:17

Rien à dire . trés bon travail Seregon ça change des tipiques away system répondeur autojoin etc
9/10

signaler à un administrateur
Commentaire de tofu le 08/07/2004 17:26:50

" var %n 1
    while (%n &lt;= $lines($scriptdirlist.txt)) { did -a $dname 3 $read($scriptdirlist.txt,%n) | inc %n }"

var %n 1, %x $lines($scriptdirlist.txt)
while %n &lt;= %x { did -a $dname 3 $read($scriptdirlist.txt,%n) | inc %n }

ça va plus vite jcrois qd tu mets une var pr le nb de ligne d'un fichier.

signaler à un administrateur
Commentaire de Kerrigan le 09/07/2004 20:49:26

punaise une belle source ! ça fait tout bizare, le niveau du site est vraiment tombé. C'est dommage , je sais pas si on peut faire quelque chose contre ça mais ça devient triste de voir que le site ne releve pas la barre.

signaler à un administrateur
Commentaire de tofu le 09/07/2004 22:05:33

bah c'est la politique du site, de laisser faire, donc on y peut pas grand choses..
si les gens se remettent pas eux même en question avant de poster leur trucs en se disant "mais attends, c'est de la merde ce que jss en trin de poster, même dans le mirc.hlp ils font mieux !§" bah ça ira pas ;)

signaler à un administrateur
Commentaire de InFerNaLeX le 10/12/2004 17:31:31

j'arrive pas a avoir les images ca me met un carér blanc avec un petite croix rouge ^^

Ajouter un commentaire

Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Comparez les prix Nouvelle version


Microsoft Visual Studio Pro 2008 (Windows 32 bits)
Entre 660€ et 749€


Visiter le guide achat

Photothèque Nouveau !

Photo sitges beachPhoto pretty girls
Photo homme nuPhoto insecte volant

Visiter la photothèque


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
Temps d'éxécution de la page : 0,421 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.