Votre météo ville avec google météo!

Soyez le premier à donner votre avis sur cette source.

Vue 19 015 fois - Téléchargée 1 444 fois

Description

Salut!

-Voici une source qui vous permet de voir votre météo ville avec Google Météo

-avec une interface Yahoo! Météo iPhone.

A+

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
3
NB: pour la note de 9 c'est rapport aux dépendances non gérées dans le code, les icônes extérieurs la fonte : tout cela peut facilement être mis en ressource ce qui facilite le transport de l'exécutable :)
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
3
bonjour vbnino,
merci pour ce code très utile ,
je te le pique :p
Messages postés
18
Date d'inscription
jeudi 30 mars 2006
Statut
Membre
Dernière intervention
4 janvier 2009

Après recherche, il 'suffisait' de faire :

Dim url As New Uri(path)
Dim Request As HttpWebRequest = CType(HttpWebRequest.Create(url), System.Net.HttpWebRequest)
Request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.8.0.7) Gecko/20060909 Firefox/1.5.0.7"
Dim response As Net.HttpWebResponse = CType(request.GetResponse(), Net.HttpWebResponse)

etc..
Messages postés
18
Date d'inscription
jeudi 30 mars 2006
Statut
Membre
Dernière intervention
4 janvier 2009

Merci dsigmoun pour les précisions qui fonctionnent .... sauf que les caractères accentués typiquement français sont remplacés par des petits carrés ou des ? ...
Visiblement, c'est lors de la création de la request qu'il n'est pas précisé l'encodage attendu. Comment faire ?
Messages postés
134
Date d'inscription
jeudi 31 juillet 2008
Statut
Membre
Dernière intervention
15 février 2011
2
Voici comment avoir les informations en français et éviter les plantages liés au format d'encodage du retour du flux.

Dim fluxmeteo As String
Dim webResponse As System.Net.WebResponse = Nothing
Dim path As String = "http://www.google.com/ig/api?hl=fr&weather=" & ville

' Création de la request et demande de la response
webResponse = System.Net.WebRequest.Create(Path) _
.GetResponse()
Dim streamReader As New System.IO.StreamReader(WebResponse.GetResponseStream())
fluxmeteo = streamReader.ReadToEnd()
WebResponse.Close()


System.IO.File.WriteAllText(Application.StartupPath & "/temps/fluxmeteo.xml", fluxmeteo, System.Text.Encoding.Unicode)
Doc.Load(Application.StartupPath & "/temps/fluxmeteo.xml")
Afficher les 10 commentaires

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.