AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB 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 01 08 06:58:23
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 !

PRÉVISION MÉTÉO DE VOTRE VILLE


Information sur la source

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é: 9 611 / 788
Auteur : higgins91 Ecrire un message privé
Note :
Aucune note
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

Pour les "Membres Club", vous pouvez 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.

Commentaires et avis

signaler à un administrateur
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.

signaler à un administrateur
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

signaler à un administrateur
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 ?

signaler à un administrateur
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.

signaler à un administrateur
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

signaler à un administrateur
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)

signaler à un administrateur
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>

signaler à un administrateur
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

signaler à un administrateur
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...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, 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,640 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é.