Bonjours à tous

Pour introduire ma demande je vais vous expliquer pourquoi je souhaites parser une page web.
Je joue fréquemment au jeux de simulation War Thunder. Le jeux renvoie sur une page web tout un tas de donné concernant l'appareil qu'on pilote. C'est donné sont : le régime du moteur, la température et pression d'huile, l'altitude et j'en passe.
Le but est d'extraire certaine de ces données et de les transmettre plus tard à un arduino, qui ensuite fera tourner des servos moteurs.
La première étape consiste a extraire les données de la page web en parsant le code HTML avec un programme en VB.

Voici une capture d'écran de la page HTML

Nom : Capture.JPG Affichages : 2416 Taille : 89,1 Ko

J'ai commencé a créer mon programme en VB.
Pour expliqué rapidement mon programme, je lui demande de ce connecté à la page web et de récupérer l'id "ind-rpm" et de l'écrire dans un label.
Ce qui m’intéresse surtout c'est donc de récupérer la valeur rpm=0 (cette variable est mise à jour en temps réel en fonction du régime moteur demandé dans le jeux)
Point positif, c'est que lors du débogage il n'y pas d'erreur
Point négatif, c'est qu'il ne ce passe rien lorsque j’appuie sur le bouton dans mon programme
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Imports HtmlAgilityPack
Imports System.Xml.XPath
Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim web As New HtmlWeb
        Dim url As String = "http://x.x.x.x:8111"
        ' load du document html
        Dim doc As HtmlDocument = web.Load(url)
 
        ' Selection des nodes XPATH
 
        Dim MesNodes As HtmlNodeNavigator = doc.DocumentNode.CreateNavigator
        Dim xmlNodeIterator As XPathNodeIterator = MesNodes.Select("//div[@id='ind-rpm']")
        Dim rpm As String
        While xmlNodeIterator.MoveNext()
            ' la ligne ce dessous me génére l'erreur...
            rpm = xmlNodeIterator.Current.SelectSingleNode("rpm").Value
 
           Label1.Text &= "test" & vbCrLf
            Label1.Text &= rpm
        End While
    End Sub
End Class
PS : Les X qui apparaissent à la ligne 6 du code masque mon adresse IP

Merci d'avance à ceux qui me liront