Discussion :

[xeron33]

Bonjour à tous,
J'aurai besoin de récupérer une info sur un code source html à partir d'un formulaire en vb.net.
J'ai utilisé pour l'exemple le site"https://24timezones.com/Paris/heure" pour avoir l'heure de Paris.
Le problème que j'ai est que je n'arrive pas à récupérer l'heure sur le code html.Quand j'inspecte avec FireFox l'élément voulu j'ai :



Mais quand j'essaie de le localiser avec du code :

Code :

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

1
2
3
4
 
Dim NouveauData1 = Data.Substring(Data.IndexOf("<span id=" & """currentTime""" & ">") + 10)
Dim NouveauData2 = NouveauData1.Substring(0, 20)
TextBox9.Text = NouveauData2

j'ai :

currentTime">--:--</

Le code source sans l'info voulu, en fait pour être clair quand j'inspecte la date j'ai la réponse et quand je recherche dans le code source la date je ne l'ai pas.Si quelqu'un a une idée. MERCI

[popo]

Pourquoi te compliquer la vie à décortiquer une page web lorsqu'il existe des API pour cela.
Celle-ci par exemple : https://timezonedb.com/api
Ou encore celle-ci : https://worldtimeapi.org/pages/examples

Exemple pour l'heure de Paris avec WorldTimeApi :

Code :

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

curl --location 'http://worldtimeapi.org/api/timezone/Europe/Paris'

Retour :

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
{
    "abbreviation": "CEST",
    "client_ip": "77.130.71.132",
    "datetime": "2024-07-08T10:37:14.549845+02:00",
    "day_of_week": 1,
    "day_of_year": 190,
    "dst": true,
    "dst_from": "2024-03-31T01:00:00+00:00",
    "dst_offset": 3600,
    "dst_until": "2024-10-27T01:00:00+00:00",
    "raw_offset": 3600,
    "timezone": "Europe/Paris",
    "unixtime": 1720427834,
    "utc_datetime": "2024-07-08T08:37:14.549845+00:00",
    "utc_offset": "+02:00",
    "week_number": 28
}

Edit :
Prend le temps de lire les conditions d'utilisation :
Sur la première, il faut s'enregistrer.
Sur la deuxième, tu ne peux pas l'utiliser à des fin commerciales.

[umfred]

Je me demande si dans ton cas, tu ne traites pas l'information trop tôt (ce que tu obtiens pourrais être le texte affiché au chargement de la page, avant actualisation de l'heure)

[xeron33]

Je me demande si dans ton cas, tu ne traites pas l'information trop tôt (ce que tu obtiens pourrais être le texte affiché au chargement de la page, avant actualisation de l'heure)

*************************
Merci pour info j'ai écris comme cela pour afficher la page web :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Async Sub VID81_82Click(sender As Object, e As EventArgs) Handles VID81_82.Click
    Dim client = New HttpClient
    Dim valTimeOut = TimeSpan.FromSeconds(10)
    client.Timeout = valTimeOut
    Dim rep = New HttpResponseMessage
    rep = Await client.GetAsync("https://24timezones.com/Paris/heure")
    Dim read = Await rep.Content.ReadAsStringAsync
    TextBox8.Text = read
    Dim Data = read
    Dim NouveauData1 = Data.Substring(Data.IndexOf("<span id=" & """currentTime""" & ">") + 10)
    Dim NouveauData2 = NouveauData1.Substring(0, 20)
    TextBox9.Text = NouveauData2

[umfred]

Si tu regardes ce que tu récupères, tu verras alors que c'est normal d'avoir ce résultat là.
L'heure est générée par du code javascript qui remplit le innerHTML de currentTime via la fonction calculateTimeToUse

[xeron33]

Si tu regardes ce que tu récupères, tu verras alors que c'est normal d'avoir ce résultat là.
L'heure est générée par du code javascript qui remplit le innerHTML de currentTime via la fonction calculateTimeToUse

**************************************
Merci pour ta réponse, je vais pas me lancer dans des cours pour l'instant HTML/JavaScript...je comprends bien ce que tu m'informe j'ai trouvé une autre solution en utilisant la propriété Date de la classe HttpResponseMessage, mais même si ça marche, bien que j'ai l'heure avec deux heures de moins... j'arrive pas à voir comment faire pour renvoyer des infos HTML de l'Inspecteur d'élément de Firefox car là j'ai la donnée en clair. Si tu as des infos. MERCI

Code :

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

1
2
 
Dim read = rep.Headers.Date