Instruction Lire Page WEB retourner une valeur

Question

Bonjour à toutes et à tous, je ne sais si je poste dans la bonne rubrique, je m'en excuse si il y a erreur. 

Etant novice, je débute avec visual basic express 10.

J'essaye vainement de trouver le moyen ou les jeux d'instructions afin de lire le contenu d'une page HTML, de retourner une valeur contenue dans cette page, et de l'afficher dans un label.

Si des personnes, ont une idée, je suis preneur, merci d'avance

acive · Answer

Salut,

Alors en VB.NET (mais t'as posté dans la rubrique VB6).
Tu peux éventuellement afficher le contenu de la page html (le body):
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        RichTextBox1.Text = WebBrowser1.Document.Body.OuterText
    End Sub





CF2i - Guadeloupe
Ingénierie Informatique

acive · Answer

Pardon j'ai rayé le VB.NET, j'imagine que tu es en VB.NET Express 2010.

Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

onsedemande · Answer

Merci acive, en effet, je suis sur Visual basic express 10, si je comprends bien en vb.net, je fais le parallèle à l'instant même ;).
Je vais tester de suite.

Ce que je souhaite réaliser plus précisement est panneau un de contrôle. Pour mon job je dois surveiller l'état de serveur sur un intranet, j'ai donc créer une interface en VB, des boutons pour ouvrir les sites etc, cela fonctionne.

A présent je cherche à réaliser une boucle, un intervalle T, qui va lire le contenu de ma page HTML et me retourne le résultat dans un Label ou autre. Exemple si voyant vert, je mets la concordance, un résultat me stipulant que celui-ci fonctionne parfaitement.

Encore merci pour ton aide, rome ne se construit pas en 1 jour, et comme je l'ai précisé je suis novice en prog, début de chez début.

acive · Answer

Re:

 'Exemple: Au démarrage il charge la page web
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("www.google.fr")
    End Sub
    'une fois le chargement de la page complet:
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        'et on affiche tout dans un richtextbox par exemple
        RichTextBox1.Text = WebBrowser1.Document.Body.OuterText
        'il ne te reste plus qu'à faire le tri et trouver l'information que tu cherches
    End Sub

CF2i - Guadeloupe
Ingénierie Informatique

onsedemande · Answer

D'accord ma question risque d'être stupide, un richtextbox, oki, je vois l'objet je le place dans mon formulaire. 

Mais en ce qui concerne la déclaration Private Sub Form1_Load << ?
Je cherche en ce moment comment faire, comme je te l'ai dit, je lis je me documente, mais je débute. 

Les procédures sur les boutons je comprends "Process.Start" et je sais ou les déclarer. 

Encore merci de prendre ton temps pour un débutant

acive · Answer

Alors, ta question était: "Lire Page WEB retourner une valeur"

Ma mission est accomplie...

Maintenant si tu es débutant à ce point, t'as un peu de boulot.

Essaye déjà d'y mettre un bouton et tu double-cliques dessus, tu seras dans le button1_Click et la tu colles:
WebBrowser1.Navigate("www.google.fr")

Ce qui fait que quand tu vas cliquer sur ce bouton il va naviguer sur le site en question

 
CF2i - Guadeloupe
Ingénierie Informatique

Utilisateur anonyme · Answer

Bonsoir,
qui va lire le contenu de ma page HTML et me retourne le résultat dans un Label
Oui acive mais un webbrowser est assez lourd pour récupérer un contenu de page, une simple requête web suffit 
label1.text = New IO.StreamReader(Net.WebRequest.Create("http://www.google.fr").GetResponse.GetResponseStream).ReadToEnd

Bonne soirée.

acive · Answer

Salut Banana, Avec ton IO.StreamReader il t'affiche le html: Google

Utilisateur anonyme · Answer

Ah oui, j'avais mal lu dsl

acive · Answer

Pas grave...

De toute façon je lui ai mis un richtextbox parce qu'il va falloir faire le tri de tout le texte et uniquement après il va inscrire la valeur qui l'intéresse dans le label

Mais... ça va être long... 

CF2i - Guadeloupe
Ingénierie Informatique

Utilisateur anonyme · Answer

J'avais vu je ne sais plus où, une expression régulière qui peut supprimer toutes les balises HTML pour ne garder que le texte qui reste. On verra s'il est utile que je la retrouve...
Bonne baignade acive

acive · Answer

Re:

Tout à fait, on peux faire ça aussi, moi aussi j'ai vu ce truc quelque part, mais bon laisse déjà voir ce qu'il veut récupérer comme valeur, et à la fin on pourrait éventuellement supprimer le webbrowser.

L'eau est froide 27°C... ça craint 



CF2i - Guadeloupe
Ingénierie Informatique

onsedemande · Answer

Merci, à tous pour votre aide.
Appliquer une procédure évènementielle sur un bouton, exemple ma progress bar, etc, ceci j'arrive à le faire sans soucis.

mon timer.
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = 100 Then
            Label4.Text = "Copie effèctuée avec succès"
        End If
        Label3.Text = ProgressBar1.Value & (" %")

Par contre, la ou je coince, j'ai déjà un élément de réponse grave à vous.

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        WebBrowser1.Navigate("http://monitor.xxx.xxx.xx")

Donc, je peux afficher ma page de monitor dans ma fenêtre, certes, mais ce n'est pas le but en fait. 

Je souhaiterais, grave a une boucle, disons toutes les 10 minutes par exemple, lire la dite page, retourner les valeurs trier dans les différents labels que j'aurais créé.

Et là je coince totalement, je ne souhaite pas appliquer la procédure à quelconque bouton, je souhaiterais automatiser la tâche.
Merci encore pour votre aide

onsedemande · Answer

Merci, à tous pour votre aide.
Appliquer une procédure évènementielle sur un bouton, exemple ma progress bar, etc, ceci j'arrive à le faire sans soucis.

mon timer.
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = 100 Then
            Label4.Text = "Copie effèctuée avec succès"
        End If
        Label3.Text = ProgressBar1.Value & (" %")

Par contre, la ou je coince, j'ai déjà un élément de réponse grâce à vous.

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        WebBrowser1.Navigate("http://monitor.xxx.xxx.xx")

Donc, je peux afficher ma page de monitor dans ma fenêtre, certes, mais ce n'est pas le but en fait. 

Je souhaiterais, grâce a une boucle, disons toutes les 10 minutes par exemple, lire la dite page, retourner les valeurs trier dans les différents labels que j'aurais créé.

Et là je coince totalement, je ne souhaite pas appliquer la procédure à quelconque bouton, je souhaiterais automatiser la tâche.
Merci encore pour votre aide

P.s: Je recolle, plus simple qq' modifs

acive · Answer

Salut,
Dans ce cas tu peux utiliser la méthode de Banana32, qui consiste à récupérer le code html de la page en arrière plan.

Ca devrait faire un truc du genre:
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Interval = 1000
        Dim MinSec As String = Now.Minute & ":" & Now.Second
        'Quand les minutes et les secondes contiennent un zéro (tout les 10 minutes)
        If MinSec.Contains("0:0") Then
            Dim HTML As String = New IO.StreamReader(Net.WebRequest.Create("http://www.google.fr").GetResponse.GetResponseStream).ReadToEnd
            'Dans cet exemple je cherche la valeur qui est devant "[a,b];return"
            Dim Emplacement As Long = InStr(HTML, "[a,b];return", CompareMethod.Text)
            Label1.Text = HTML.ToCharArray(Emplacement + 12, 5)
        End If
    End Sub


CF2i - Guadeloupe
Ingénierie Informatique

cs_ShayW · Answer

Bonjour à tous

tout ce qui concerne le Web  
question est il possible de récuper dans un 
string ,listbox le contenu d'un post 
si j'ai le url 
le web c'est la page internet
et le html c'est le langage hypertext
ce que je ne comprends pas 
que veux dire lire une page web
la page ce n'est un fichier c'est plutot
comme un form avec des controls ,des images
 etc

onsedemande · Answer

Alors MERCI MERCI tout le monde, je vais tester de suite!!!!!!!

Utilisateur anonyme · Answer

Penser quand même à implémenter une gestion d'erreur en cas de site distant injoignable. (try catch)
@acive, Instr est obsolète, utilise plutôt substring.
Pour éviter les conversions en string de now.minute et now.second (integer) on peut partir directement d'un string : if now.tolongtimestring.substring(3) = "0:00" then ...
ou alors :  if now.minute mod 10 0 and now.second 0 then ...

@ShayW
Tu n'as qu'à deviner ce que veulent les demandeurs 

Bonne soirée.

acive · Answer

Ou texte.contains... c'est pas mal non plus...


CF2i - Guadeloupe
Ingénierie Informatique

Utilisateur anonyme · Answer

Non parce que s'il est 10:00:25 par exemple ça déclenchera ton code, à la limite EndsWith("0:00")
Quelle température aujourd'hui chez toi ?

acive · Answer

non parce que je ne prend pas les heures, que les minutes et secondes...


CF2i - Guadeloupe
Ingénierie Informatique

acive · Answer

Je l'ai fait comme ça une fois (il y a des années), ça ne veux pas dire que c'est la meilleur façon...

29/30°C ah... toi t'as envie de vacances!...



CF2i - Guadeloupe
Ingénierie Informatique

Utilisateur anonyme · Answer

non parce que je ne prend pas les heures, que les minutes et secondes
Je pensais que tu parlais de now.tolongtimestring.contains
Ca reste une très bonne astuce effectivement.
Je suis en vacances le 30.

acive · Answer

Ça fonctionne... je ne suis qu'un chercheur de solutions, mais je viens d'essayer et on peut régler le timer à 36000 (10 min), pourquoi on se prend la tête?
Je crois qu'il y avait une limite dans le temps avec les anciennes versions de VB, c'est pour ça que j'ai gardé ça en tête.

Bonnes vacance alors...




CF2i - Guadeloupe
Ingénierie Informatique

Instruction Lire Page WEB retourner une valeur

24 réponses

Votre réponse

Discussions similaires