begin process at 2012 02 11 22:06:33
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Réseau & Internet

 > PRÉVISION MÉTÉO DE VOTRE VILLE

PRÉVISION MÉTÉO DE VOTRE VILLE


 Information sur la source

Note :
Aucune note
Catégorie :Réseau & Internet Classé sous :meteo, internet, france, météo, vb6 Niveau :Débutant Date de création :07/08/2007 Date de mise à jour :09/08/2007 08:52:47 Vu / téléchargé :14 185 / 1 070
Auteur : higgins91

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

 Description

Cliquez pour voir la capture en taille normale
Comme son nom l'indique, cette source permet de récupérer d'internet les prévisions météo de la ville de son choix. données récupérées de Météo France.


 Conclusion

pour le moment ça fonctionne chez moi!!
penser à paramétrer le composant  INET si proxy

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

08 août 2007 13:02:47 :
Correction d'un bug de l'affichage de l'image pour la prévision météo (4x le même) ajout d'une icône dans le systray et disparition du titre dans la barre des tache. Possibilité de forcer la mise à jour.
09 août 2007 08:52:47 :
mise à jour pour corriger le bug de la mise à jour des prévisions qui était de 16.6 heures au lieu de 10 minutes.

 Sources du même auteur

Source avec Zip Source avec une capture INFORMATION IP ET LISTE DES PC DU RÉSEAU
Source avec Zip Source avec une capture ECRAN DE VEILLE AVEC MESSAGE
Toutes les sources de higgins91

 Sources de la même categorie

Source avec Zip Source avec une capture GESTIONNAIRE DE TÉLÉCHARGEMENT, AVEC REPRISE ET MULTITHREADI... par Madx23
Source avec Zip Source avec une capture CONVERTIR DU TEXTE RTF EN CODE HTML ET VICE-VERSA par vicosta
Source avec Zip Source avec une capture DICTIONAIRE TEXT/AUDIO/VISUELLE ANGLAIS AVEC WEBBROWSER CONT... par majnounmajda
Source avec Zip Source .NET (Dotnet) NSLOOKUP EN VB.NET OU COMMENT FAIRE UNE REQÛETE DNS EN PRÉCI... par ShareVB
Source avec Zip Source avec une capture MINI SEVEUR HTTP AVEC INTERFACE GRAPHIQUE ET IMPLÉMENTATIONS... par lemout
Toutes les sources de la catégorie Réseau & Internet

 Sources en rapport avec celle ci

Source avec Zip Source .NET (Dotnet) PREVISION METEO PAR ANALYSE DE CODE HTML par alain777
Source avec Zip Source avec une capture Source .NET (Dotnet) PETIT GADGET METEO SUR LE BUREAU par Blodox
Source avec Zip Source avec une capture MÉTÉO par joelmarie
Source avec Zip Source avec une capture Source .NET (Dotnet) QUEL VENT FAIT-IL ? par Blodox
Source avec Zip Source avec une capture TRADUCTEUR VB6.VBP EN VB5.VBP par joro

Commentaires et avis

Commentaire de forchi le 08/08/2007 11:58:07

Bonjour, bonne idée mais ne fonctionne pas chez moi donne un forms noir avec les champs textes et images en blanc.
Dommage...
Bonne continuation.

Commentaire de higgins91 le 08/08/2007 12:43:01

bonjour, peux-tu me dire ta config? il faut peut-être configurer le composant inet si tu as un proxy.
higgins

Commentaire de forchi le 08/08/2007 12:49:08

j'ai une livebox mais je ne pense pas qu'elle bloque.
Quand à mon firewall, il est configurer de façon à me signaler s'il bloque un accès.
Ca fonctionne toujours pour toi ?

Commentaire de higgins91 le 08/08/2007 13:05:32

oui... peux tu lancer l'appli sous VB et regarder ce qu'il y a dans le "textbox" Text1 (il est non visible par défaut)
Si il y a bien du texte (en fait la page HTML) alors c'est un problème de recherche de caractères.

Commentaire de forchi le 08/08/2007 13:19:58

Voila ce qu'il contient:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>




<title>Meteo France - Prévisions ville: Saint Martin la Plaine</title>



<META http-equiv="pragma" content="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache">
<META http-equiv="expires" content="Thu, 12 Jul 2001 10:09:34 GMT">
<meta name="description" content="Prévisions ville">
<meta name="keywords" content="bulletin pr&eacute;vision m&eacute;t&eacute;o, temp&eacute;rature, vent, satellite visible, satellite infrarouge">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link href="/param/fds.css" rel="stylesheet" type="text/css">
<SCRIPT LANGUAGE="JavaScript" SRC="/param/javascript.js" TYPE="text/javascript">
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
function wclose() {top.close();}
function MM_openBrWindow(theURL,winName,features) { //v2.0
fenetre = window.open(theURL,winName,features);
fenetre.focus() ;
}
var echeanceId = '';
var grpId = '';
function changeEcheance(echeance) {
echeanceId=echeance;
}
function changeGrp(grp) {
grpId=grp;
}
</SCRIPT>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<div id="ALTdHTML" style="position:absolute; z-index:1000; visibility: hidden; left: 0; top: 0;"></div>
<SCRIPT LANGUAGE="JavaScript" SRC="/param/javascript.js" TYPE="text/javascript">
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
function sa(txt) {
showAlt(' <b>'+txt+'</b>',false);
}
function san(txt) {
showAlt(' <b>'+txt+'</b>',false);
}
function ha() {
hideAlt();
}
</SCRIPT>



<table border="0" cellpadding="0" cellspacing="0" width="1000">
<tbody>
<tr>
<td width="820">
<script LANGUAGE="JavaScript" src="/param/entete.js">
</script>
</td>
<td width="180">
<table border="0" cellpadding="0" cellspacing="0" width="180"><tr>
<tbody>
<tr>
<td align="left" valign="middle" width="6">&nbsp;</td>
<form method="POST" action="/FR/actus/result.jsp">
<td align="left" valign="middle"><b><input name="query" class="titrFrambFLit" onfocus="if (this.value=='Rechercher...') {this.value=''}" onblur="if(this.value==''){this.value='Rechercher...'}" value="Rechercher..." size="14" type="text"></b></td>
<td align="right" valign="middle" width="45"><input name="imageField" src="/img/bt_go1.gif" alt="Lancer la recherche" border="0" type="image"></td>
</form>
<td align="center" valign="middle" width="18">&nbsp;</td>
</tr>
<tr>
<td height="6" valign="middle"colspan="4">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tbody><tr>
<td bgcolor="#cccccc" height="2"></td>
</tr>
</tbody></table></td>
</tr>
<tr>
<td height="70" valign="bottom" colspan="4">











<!-- ////////////////////////////////// UTILISATEUR NON IDENTIFIE /////////////////////////////////////// -->
<table class="titrFrambFLit" bgcolor="#ffffff" border="0" cellpadding="0" cellspacing="0" height="70" width="180">
<form name="formulaireLogin" action="/FR/souscription/verifLogin.jsp" method="post">
<tbody><tr>
<td width="6"></td>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tbody><tr>
<td align="left"><table border="0" cellpadding="0" cellspacing="0" width="100%">
<tbody><tr>
<td align="left" valign="top"><b>
<input name="LOGIN" class="titrFrambFLit" id="LOGIN2" onfocus="if (this.value=='Identifiant') {this.value=''}" onblur="if(this.value==''){this.value='Identifiant'}" value="Identifiant" size="14" type="text">
</b></td>
</tr>
</tbody></table>
</td>
<td class="txt11" align="right" valign="middle">
&nbsp;
</td>
<td align="right" valign="middle">&nbsp;</td>
</tr>
</tbody></table>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tbody><tr>
<td align="left"><table border="0" cellpadding="0" cellspacing="0" width="100%">
<tbody><tr>
<td><b><input name="PASSWORD" class="titrFrambFLit" id="PASSWORD" onfocus="if (this.value=='xxxxxx') {this.value=''}" onblur="if(this.value==''){this.value='xxxxxx'}" value="xxxxxx" size="14" type="PASSWORD"></b></td>
</tr>
</tbody></table></td>
<td align="center" width="70"><input name"imageField2" ty

Commentaire de higgins91 le 08/08/2007 13:33:53

je pense que tout le texte n'est pas passé,
lors de la mise à jour, je recherche les mots:
"Prévisions ville:"
"Pr&eacute;vision pour le&nbsp"
"Lever"
"</b> Heure locale :</td>"
peux tu regarder si ils sont présent?(notamment le deuxième)

Commentaire de forchi le 08/08/2007 13:49:36

"Prévisions ville:" apparait bien (2 fois).
C'est tout.
Je te remets le code complet cette fois:


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>




<title>Meteo France - Prévisions ville: Saint Martin la Plaine</title>



<META http-equiv="pragma" content="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache">
<META http-equiv="expires" content="Thu, 12 Jul 2001 10:09:34 GMT">
<meta name="description" content="Prévisions ville">
<meta name="keywords" content="bulletin pr&eacute;vision m&eacute;t&eacute;o, temp&eacute;rature, vent, satellite visible, satellite infrarouge">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link href="/param/fds.css" rel="stylesheet" type="text/css">
<SCRIPT LANGUAGE="JavaScript" SRC="/param/javascript.js" TYPE="text/javascript">
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
function wclose() {top.close();}
function MM_openBrWindow(theURL,winName,features) { //v2.0
fenetre = window.open(theURL,winName,features);
fenetre.focus() ;
}
var echeanceId = '';
var grpId = '';
function changeEcheance(echeance) {
echeanceId=echeance;
}
function changeGrp(grp) {
grpId=grp;
}
</SCRIPT>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<div id="ALTdHTML" style="position:absolute; z-index:1000; visibility: hidden; left: 0; top: 0;"></div>
<SCRIPT LANGUAGE="JavaScript" SRC="/param/javascript.js" TYPE="text/javascript">
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
function sa(txt) {
showAlt(' <b>'+txt+'</b>',false);
}
function san(txt) {
showAlt(' <b>'+txt+'</b>',false);
}
function ha() {
hideAlt();
}
</SCRIPT>



<table border="0" cellpadding="0" cellspacing="0" width="1000">
<tbody>
<tr>
<td width="820">
<script LANGUAGE="JavaScript" src="/param/entete.js">
</script>
</td>
<td width="180">
<table border="0" cellpadding="0" cellspacing="0" width="180"><tr>
<tbody>
<tr>
<td align="left" valign="middle" width="6">&nbsp;</td>
<form method="POST" action="/FR/actus/result.jsp">
<td align="left" valign="middle"><b><input name="query" class="titrFrambFLit" onfocus="if (this.value=='Rechercher...') {this.value=''}" onblur="if(this.value==''){this.value='Rechercher...'}" value="Rechercher..." size="14" type="text"></b></td>
<td align="right" valign="middle" width="45"><input name="imageField" src="/img/bt_go1.gif" alt="Lancer la recherche" border="0" type="image"></td>
</form>
<td align="center" valign="middle" width="18">&nbsp;</td>
</tr>
<tr>
<td height="6" valign="middle"colspan="4">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tbody><tr>
<td bgcolor="#cccccc" height="2"></td>
</tr>
</tbody></table></td>
</tr>
<tr>
<td height="70" valign="bottom" colspan="4">











<!-- ////////////////////////////////// UTILISATEUR NON IDENTIFIE /////////////////////////////////////// -->
<table class="titrFrambFLit" bgcolor="#ffffff" border="0" cellpadding="0" cellspacing="0" height="70" width="180">
<form name="formulaireLogin" action="/FR/souscription/verifLogin.jsp" method="post">
<tbody><tr>
<td width="6"></td>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tbody><tr>
<td align="left"><table border="0" cellpadding="0" cellspacing="0" width="100%">
<tbody><tr>
<td align="left" valign="top"><b>
<input name="LOGIN" class="titrFrambFLit" id="LOGIN2" onfocus="if (this.value=='Identifiant') {this.value=''}" onblur="if(this.value==''){this.value='Identifiant'}" value="Identifiant" size="14" type="text">
</b></td>
</tr>
</tbody></table>
</td>
<td class="txt11" align="right" valign="middle">
&nbsp;
</td>
<td align="right" valign="middle">&nbsp;</td>
</tr>
</tbody></table>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tbody><tr>
<td align="left"><table border="0" cellpadding="0" cellspacing="0" width="100%">
<tbody><tr>
<td><b><input name="PASSWORD" class="titrFrambFLit" id="PASSWORD" onfocus="if (this.value=='xxxxxx') {this.value=''}" onblur="if(this.value==''){this.value='xxxxxx'}" value="xxxxxx" size="14" type="PASSWORD"></b></td>
</tr>

Commentaire de buzzetcie le 08/08/2007 18:36:15

as tu essayer sans mettre des espaces à Saint-martin-la-ville car moi j'ai pas encore essayé avec ce script mais je pense que tu devrai chercher l'erreur de ce côté car cela ressemble de très près à un script météo que j'utilisai auparavant mais la base de donnée ne prenait pas les espaces pour les villes à nom composé, faut soit tout attaché soit mettre des tirets !!

essaye pour voir si c'est ça

Commentaire de higgins91 le 09/08/2007 08:49:10

Salut Buzzetcie, en fait le nom de la ville n'est pas en cause, le programme recherche des balises et chaine de caractères pour trouver le nom de la ville à partir du code de l'adresse http.
J'ai refait une mise à jour pour corriger le bug de la mise à jour des prévisions qui était de 16.6 heures au lieu de 10 minutes.

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

vb6 et internet [ par binoclard ] voila je desire faire un jeux (internet ou reseau) qui utilise le navigateur comme support, seul probleme puis-je en html creer fichier type sequentie etat connection internet vb6 [ par neo3015 ] je sais qui'il y a surement la répense dans le forum, mais j'ai tellement de choses à explorer pour mon programme que je vous fais confiancepour me ré Lancement Internet Explorer depuis VB6.0 [ par mllezozo ] Bonjour à tous,Je cherche à lancer Internet Explorer depuis mon code VB quelqu'un pourrait il m'aider ?D'avance merciMllezozo internet et vb6 [ par neoclass ] salut a tous j'ai besoin d'aide je voudrais savoir comment on peut integrer une feuille (une form) dans un page internetje sais ke c possible mais je VB6 Pro france et VB6 Pro US [ par fred23 ] Bonjour,J'utilise VB6 Pro en francais et j'ai reçu d'un de nos fournisseur des sources qui , lorsque je les compile sous mon VB6 bloque mon PC.J'ai in transfert de données dans une page internet [ par gronon2 ] J'ai un programme en VB6 j'ai un champs qui contient le nom d'une personne je veux ouvrir une page sur internet qui possède un champs dans lequel on p Winsocks et internet en vb6 [ par Papymuzo ] Salut tous. J'ai un probleme avec les winsocks : je veux faire un tchat priv&#233; par internet (oui il en existe des tonnes, et puis ?). Le probleme VB6 Connexion mysql via internet [ par unitec ] Bonjour tout le monde,J'aimerai créer une application en VB sous mysql via l'internet. je ne sais pas par où commencer pour reussir une connexion mysq téléchargement d'un exe vb6 sur internet [ par benedict ] Bonjour,Comment faire pour qu'un exe vb6 soit téléchargeable à partir d'un site web et puisse fonctionner sur tous les pc windows ?Merci de votre répo Pb de formulaire en DHTML avec VB6 [ par sergebab ] Bonjour,j'ai créé un formulaire en DHTML avec VB6 pour mon siteinternet que j'héberge sur mon serveur donc, la page fonctionne à partir de mon ordineu


Nos sponsors


Sondage...

Comparez les prix


Samsung Galaxy Tab (GT-P1000) Tablet PC
Entre 699€ et 699€

Visiter le guide achat

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 : 1,841 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)