Météo (france) en image

Commenter

Contenu du snippet

Ce code vous permettra de voir la météo en image jusqu'a 7 jours.

Source / Exemple : 


dialog meteo {
  title "/meteo France"
  size -1 -1 384 345
  button "Fermer",1,333 1 50 22,cancel
  icon 2,0 24 384 320
  combo 3,2 1 180 200,drop
}
on *:dialog:meteo:init:*:{
  did -a $dname 3 Ce Matin (temps)
  did -a $dname 3 Ce Matin (températures)
  did -a $dname 3 Cet Après Midi (temps)
  did -a $dname 3 Cet Après Midi (températures)
  did -a $dname 3 Demain Matin (temps)
  did -a $dname 3 Demain Matin (températures)
  did -a $dname 3 Demain Après Midi (temps)
  did -a $dname 3 Demain Après Midi (températures)
  did -a $dname 3 Après Demain
  did -a $dname 3 Dans 3 jours
  did -a $dname 3 Dans 4 jours
  did -a $dname 3 Dans 5 jours
  did -a $dname 3 Dans 6 jours
  did -a $dname 3 Dans 7 jours
  meteo.tel franNebP0AM.jpg
  did -c $dname 3 1
}
on *:dialog:meteo:sclick:3:{
  if ($did(3) == Ce Matin (temps)) meteo.tel franNebP0AM.jpg
  elseif ($did(3) == Ce Matin (températures)) meteo.tel franTmpP0AM.jpg
  elseif ($did(3) == Cet Après Midi (temps)) meteo.tel franNebP0PM.jpg
  elseif ($did(3) == Cet Après Midi (températures)) meteo.tel franTmpP0PM.jpg
  elseif ($did(3) == Demain Matin (temps)) meteo.tel franNebP1AM.jpg
  elseif ($did(3) == Demain Matin (températures)) meteo.tel franTmpP1AM.jpg
  elseif ($did(3) == Demain Après Midi (temps)) meteo.tel franNebP1PM.jpg
  elseif ($did(3) == Demain Après Midi (températures)) meteo.tel franTmpP1PM.jpg
  elseif ($did(3) == Après Demain) meteo.tel frantenJ2.jpg
  elseif ($did(3) == Dans 3 jours) meteo.tel frantenJ3.jpg
  elseif ($did(3) == Dans 4 jours) meteo.tel frantenJ4.jpg
  elseif ($did(3) == Dans 5 jours) meteo.tel frantenJ5.jpg
  elseif ($did(3) == Dans 6 jours) meteo.tel frantenJ6.jpg
  elseif ($did(3) == Dans 7 jours) meteo.tel frantenJ7.jpg
}

alias meteo dialog -m meteo meteo
alias meteo.tel {
  sockclose meteo
  set %mimg $1
  sockopen meteo www.lachainemeteo.com 80
}
on *:sockopen:meteo:{
  if ($sockerr) { 
    echo -a 01[04!01] Impossible de se connecter au site
    return
  }
  .remove meteotemp.jpg
  sockwrite -n meteo GET /ImagesLCM/ $+ %mimg
}
on *:sockread:meteo:{
  sockread &a
  bwrite meteotemp.jpg -1 -1 &a
}
on *:sockclose:meteo:{
  did -g meteo 2 meteotemp.jpg
  unset %mimg
}

on *:load:echo -a §METEO§ /meteo

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_jojo47)