Accueil > > > METEO, CECI PERMET DE VOIR LA METEO POUR LES 3JOURS QUI VIENNENT
METEO, CECI PERMET DE VOIR LA METEO POUR LES 3JOURS QUI VIENNENT
Information sur la source
Description
voici un meteo tout en images gerer par /bwrite, merci a Artwerks et ClickHeRe pour leur aides !!
Source
- alias sockdownload { sockclose dwl | sockclose recupe | set %dwl.file $1 | sockopen dwl $gettok(%dwl.file,1,47) 80 }
- on *:sockopen:dwl:{
- tokenize 47 %dwl.file
- sockwrite -nt $sockname GET $replace($+($chr(47),$2-),$chr(32),$chr(47)) HTTP/1.1
- tokenize 46 $remove($1,$chr(119))
- sockwrite -nt $sockname HOST: $replace($1-,$chr(32),$chr(46)) $+ $str($crlf,2)
- }
- on *:sockread:dwl:{
- sockread %a
- if (%a = $null) {
- sockrename dwl recupe
- }
- }
- on *:sockread:recupe:{
- sockread &bin
- var %a $gettok(%dwl.file,0,47)
- bwrite $scriptdir $+ $gettok(%dwl.file,%a,47) -1 &bin
- }
- on *:sockclose:recupe:{
- var %a $gettok(%dwl.file,0,47)
- did -g meteo 1 $scriptdir $+ $gettok(%dwl.file,%a,47)
- }
- alias meteo dialog -m meteo meteo
- dialog meteo {
- title "Meteo France"
- size -1 -1 349 317
- icon 1, 3 -30 342 350,
- combo 2, 3 292 183 102, size drop
- button "Visualiser", 3, 188 292 62 21
- button "Fermer", 4, 282 292 62 21, ok
- box "" 5,0 -6 349 297
- box "" 6,0 283 349 34
- }
- on *:dialog:meteo:init:*:{
- did -a $dname 2 Ce matin
- did -a $dname 2 Cet apres midi
- did -a $dname 2 Demain matin
- did -a $dname 2 Demain apres midi
- did -a $dname 2 Apres demain
- }
- on *:dialog:meteo:sclick:*:{
- if ($did = 3) {
- if ($did($dname,2) = Ce matin) { sockdownload www.europe1.fr/images/meteo/frantmpp0AM.jpg }
- if ($did($dname,2) = Cet apres midi) { sockdownload www.europe1.fr/images/meteo/frantmpp0PM.jpg }
- if ($did($dname,2) = Demain matin) { sockdownload www.europe1.fr/images/meteo/frantmpp1AM.jpg }
- if ($did($dname,2) = Demain apres midi) { sockdownload www.europe1.fr/images/meteo/frantmpp0PM.jpg }
- if ($did($dname,2) = Apres demain) { sockdownload www.europe1.fr/images/meteo/frantenJ2.jpg }
- }
- }
alias sockdownload { sockclose dwl | sockclose recupe | set %dwl.file $1 | sockopen dwl $gettok(%dwl.file,1,47) 80 }
on *:sockopen:dwl:{
tokenize 47 %dwl.file
sockwrite -nt $sockname GET $replace($+($chr(47),$2-),$chr(32),$chr(47)) HTTP/1.1
tokenize 46 $remove($1,$chr(119))
sockwrite -nt $sockname HOST: $replace($1-,$chr(32),$chr(46)) $+ $str($crlf,2)
}
on *:sockread:dwl:{
sockread %a
if (%a = $null) {
sockrename dwl recupe
}
}
on *:sockread:recupe:{
sockread &bin
var %a $gettok(%dwl.file,0,47)
bwrite $scriptdir $+ $gettok(%dwl.file,%a,47) -1 &bin
}
on *:sockclose:recupe:{
var %a $gettok(%dwl.file,0,47)
did -g meteo 1 $scriptdir $+ $gettok(%dwl.file,%a,47)
}
alias meteo dialog -m meteo meteo
dialog meteo {
title "Meteo France"
size -1 -1 349 317
icon 1, 3 -30 342 350,
combo 2, 3 292 183 102, size drop
button "Visualiser", 3, 188 292 62 21
button "Fermer", 4, 282 292 62 21, ok
box "" 5,0 -6 349 297
box "" 6,0 283 349 34
}
on *:dialog:meteo:init:*:{
did -a $dname 2 Ce matin
did -a $dname 2 Cet apres midi
did -a $dname 2 Demain matin
did -a $dname 2 Demain apres midi
did -a $dname 2 Apres demain
}
on *:dialog:meteo:sclick:*:{
if ($did = 3) {
if ($did($dname,2) = Ce matin) { sockdownload www.europe1.fr/images/meteo/frantmpp0AM.jpg }
if ($did($dname,2) = Cet apres midi) { sockdownload www.europe1.fr/images/meteo/frantmpp0PM.jpg }
if ($did($dname,2) = Demain matin) { sockdownload www.europe1.fr/images/meteo/frantmpp1AM.jpg }
if ($did($dname,2) = Demain apres midi) { sockdownload www.europe1.fr/images/meteo/frantmpp0PM.jpg }
if ($did($dname,2) = Apres demain) { sockdownload www.europe1.fr/images/meteo/frantenJ2.jpg }
}
}
Conclusion
mettez le code taper /meteo et le tour est jouer
Sources du même auteur
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
ENUMERABLECOLLECTIONENUMERABLECOLLECTION par Matthieu MEZIL
Prenons le scénario suivant. On utilise MVVM. On a les deux classes suivantes dans le model : public class Child { } public class Parent { private ObservableCollection < Child > _children; public ObservableCollection < Child > Children { get {...
Cliquez pour lire la suite de l'article par Matthieu MEZIL [HS] CHROME 6 + MOI = COUP DE GUEULE ![HS] CHROME 6 + MOI = COUP DE GUEULE ! par JeremyJeanson
Attention, le poste qui suit n'est pas la complainte d'une personne : Qui n'aime pas Chrome. D'un anti Google. D'un développeur qui a un poil énorme dans la main. Ceux qui me fréquentent savent que je change de navigateur favori tous les 2 ou 3 mois afin ...
Cliquez pour lire la suite de l'article par JeremyJeanson [WP7] UTILISER UN WRAPPANEL DANS UNE APPLICATION WINDOWS PHONE 7[WP7] UTILISER UN WRAPPANEL DANS UNE APPLICATION WINDOWS PHONE 7 par Audrey
Lors de la réalisation de ma 2ème application Windows Phone 7, j'ai souhaité utiliser un WrapPanel pour afficher plusieurs photos. Mais le contrôle WrapPanel ne fait pas parti de la liste des contrôles inclus dans le SDK de la version Beta des outils pour...
Cliquez pour lire la suite de l'article par Audrey [WP7] BESOIN D'AVOIR DES DONNéES EN CACHE[WP7] BESOIN D'AVOIR DES DONNéES EN CACHE par Nicolas
Les développeurs ASP.NET ont l'habitude de mettre des données en cache pour éviter de requêter a chaque fois la base de données. Et il est toujours utilie de penser que vos utilisateurs mobiles n'ont pas troujours une super connexion 3G/WIFI et un for...
Cliquez pour lire la suite de l'article par Nicolas [TFS] COMMENT FORCER LA SAISIE D'UN AREA OU ITERATION[TFS] COMMENT FORCER LA SAISIE D'UN AREA OU ITERATION par cyril
Lorsque l'on créé un Work Item dans TFS, il est possible de le classer dans un "area" et dans une "iteration". Dans la plupart des types de projet, un "area" correspond à une catégorie, une "iteration" à un numéro de version. Il est possible de cré...
Cliquez pour lire la suite de l'article par cyril
Logiciels
Bureau de Gestion - ERP Devis Facturation (2.02)BUREAU DE GESTION - ERP DEVIS FACTURATION (2.02)
- Version gratuite du 10/06/2010
Le Bureau de Gestion est un logiciel dédié à la gestion de l'en...
Cliquez pour télécharger Bureau de Gestion - ERP Devis Facturation sDEVIS-FACTURES vlPRO (3.8.0)SDEVIS-FACTURES VLPRO (3.8.0)sDEVIS-FACTURES vlPRO a été mis au point pour permettre besoins des particuliers, créateurs, entr... Cliquez pour télécharger sDEVIS-FACTURES vlPRO LettresFaciles (5.6.0)LETTRESFACILES (5.6.0)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles MyPlanning 2010 (5.6.0)MYPLANNING 2010 (5.6.0)MyPlanning 2010 permet de créer des plannings sous la représentation de diagrammes. Plannings pré... Cliquez pour télécharger MyPlanning 2010 Emicsoft Mac DVD en iPad Convertisseur (3.1.16)EMICSOFT MAC DVD EN IPAD CONVERTISSEUR (3.1.16)Emicsoft Mac DVD en iPad Convertisseur, logiciel professionnel de convertir les fichiers DVD en i... Cliquez pour télécharger Emicsoft Mac DVD en iPad Convertisseur
|