Discussion :

[megamario]

Bonjour à tous,

Je suis toujours dans mon nouveau projet au boulot, pour ceux qui ont suivi mes post récent. A savoir récupérer des données d'un onduleur.
Au début je devais récupérer les données sur un serveur ftp mais l'onduleur mettant à jour ces données une fois dans la journée je ne pouvais pas faire du temps réel.
Autre solution: Se connecter sur le réseaux Ethernet des onduleurs et récupérer les données, mais je n'est pas encore le protocole qu'il utilise. C'est surement ce que je vais devoir utilise dans l'avenir.

Autre solution trouvé pour le moment (ont a une présentation à effectuer a un client). Il y a un onduleur maître qui dispose d'un serveur WEB, celui ci est interrogeable sur le réseaux et affiche les données que j'ai besoin.

Je pensais dans l’immédiat récupérer la page HTML puis filtrer pour récupérer mes 2 ou 3 données.
Seulement voila, je n'est jamais fait de Web à part les quelques exercices au lycée. Je vois quand même comment est constituer une page html en mode texte.
J'ai entendu parler de WebBrowser mais je n'arrive pas a trouver l'objet graphique pour l'utiliser. De plus je n'est absolument pas besoin d'afficher la page Web mais juste récupérer le HTML.

Pouvez vous me guider, merci

[pc75]

Bonjour,

Tu places un contrôle WebBrowser sur une form.

Le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
            Lien = "http://www.LeSite.fr"
            WebBrowser1.Navigate Lien
 
            ' Attendre la réponse
            Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
                DoEvents
            Loop
 
            ' Récupérer le contenu de la page
            Contenu = WebBrowser1.Document.body.parentElement.innerHTML

Ensuite tu utilises les fonctions InStr(), Left(), Right(), Mid()... pour extraire les infos dont tu as besoin.

[megamario]

Merci pour l'info, mon gros souci c'est que je n'arrivais pas a trouver le contrôle WebBrowser. Mais c'est VB6 qui a du bugger à l'ouverture car je l'ai fermé et ouvert et j'ai put ajouter le contrôle "Microsoft Internet Control".

Merci pour ce bout de code.