Récupérer une info sur code source HTML

Version imprimable

08/07/2024, 10h13
xeron33

1 pièce(s) jointe(s)

Récupérer une info sur code source HTML
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 :

Pièce jointe 656873

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

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

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:

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

Retour :
Code:

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.

08/07/2024, 13h00
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)

Citation:

Envoyé par 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)

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

Code:

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

09/07/2024, 11h45
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
09/07/2024, 15h02
xeron33
Citation:

Envoyé par 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

**************************************
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:

1 2 Dim read = rep.Headers.Date
09/07/2024, 15h39
popo

La date dans Headers.Date correspond à l'heure du serveur qui héberge le site que tu appelles.
Cela n'a rien à voir avec l'heure que tu demandes.

Fait l'essai en demandant l'heure de NewYork : https://24timezones.com/New-York/time et tu verras que tu obtiendra également l''heure de Paris avec 2h de décalage dans ce header.
Il s'agit de l'heure de Greenwich (GMT pour Greenwich Mean Time).

La date GMT peut-être obtenu simplement avec DateTime.UtcNow.

Toutefois, je pense toujours qu'il vaut mieux appeler une API (car le contrat ne change pas) ou la calculer à partir de GMT au lieu de tenter de lire une page HTML dont le contenu pourrait changer.

Quand je disais qu'on pouvais la calculer à partir de GMT.
Il y a tout ce qu'il faut en standard.

Par exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Imports System
 
Module Program
    Sub Main(args As String())
        Console.WriteLine("Hello World!")
 
        Dim utc As DateTime = DateTime.UtcNow
 
        Dim zones As IEnumerable(Of TimeZoneInfo) = TimeZoneInfo.GetSystemTimeZones()
        For Each zone As TimeZoneInfo In zones
            Console.WriteLine($"Id: {zone.Id}")
            Console.WriteLine($"DisplayName: {zone.DisplayName}")
            Console.WriteLine($"StandardName: {zone.StandardName}")
            Console.WriteLine($"BaseUtcOffset: {zone.BaseUtcOffset}")
 
            Dim rule = zone.GetAdjustmentRules().FirstOrDefault()
            If (rule IsNot Nothing) Then
                Console.WriteLine($"Delta: {rule.DaylightDelta}")
                Dim local As DateTime = utc.Add(zone.BaseUtcOffset).Add(rule.DaylightDelta)
                Console.WriteLine($"Local Time: {local}")
            End If
 
            Console.WriteLine()
        Next
 
    End Sub
End Module

Parmi toutes les plages horaires affichées, on retrouve bien celle de Paris :

Code:

1
2
3
4
5
6
Id: Romance Standard Time
DisplayName: (UTC+01:00) Bruxelles, Copenhague, Madrid, Paris
StandardName: Paris, Madrid
BaseUtcOffset: 01:00:00
Delta: 01:00:00
Local Time: 09/07/2024 16:54:44

Edit :
Il restera toutefois à déterminer s'il faut appliquer ou non l'heure d'été.
Tout est dans la doc :
https://learn.microsoft.com/en-us/do...o?view=net-8.0
https://learn.microsoft.com/en-us/do...e?view=net-8.0
https://learn.microsoft.com/en-us/do...e?view=net-8.0

09/07/2024, 19h32
umfred

Après si tu veux absolument le récupérer sur la page web, il faut l'ouvrir dans un webview2 (https://learn.microsoft.com/fr-fr/mi...edge/webview2/), une fenêtre navigateur pour que le javascript soit exécuté, et alors tu pourra faire ta récupération.

Mais si c'est juste pour récupérer une heure d'un fuseau horaire, autant utiliser les fonctions internes du framework comme popo le montre.

MErci à vous pour toutes vos réponses ! :D
Du coup j'ai le choix entre deux solutions soit utiliser :
Code:

1 2 Dim date0 As Date = Date.Now
soit la solutions de popo en testant si l'ID est égal "Romance Standard Time" :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 Dim utc As DateTime = DateTime.UtcNow Dim zones As IEnumerable(Of TimeZoneInfo) = TimeZoneInfo.GetSystemTimeZones() For Each zone As TimeZoneInfo In zones LocalOK = False Debug.Print($"Id: {zone.Id}") If zone.Id = "Romance Standard Time" Then LocalOK = True End If Debug.Print($"DisplayName: {zone.DisplayName}") Debug.Print($"StandardName: {zone.StandardName}") Debug.Print($"BaseUtcOffset: {zone.BaseUtcOffset}") Dim rule = zone.GetAdjustmentRules().FirstOrDefault() If (rule IsNot Nothing) Then Debug.Print($"Delta: {rule.DaylightDelta}") Dim local As DateTime = utc.Add(zone.BaseUtcOffset).Add(rule.DaylightDelta) Debug.Print($"Local Time: {local}") If LocalOK Then dateOK = local End If End If Debug.Print("") Next TextBox11.Text = dateOK
Le résultat est le même :
10/07/2024 11:37:02

Pour ce que me dit umfred sur webview2 il fonctionne avec Microsoft Edge et j'utilise Firefox
Comme je l'ai déjà dit, j'aurai voulu récupérer les infos directement sur le code source comme le permet l'Inspecteur de Firefox mais apparemment ce n'est pas possible.
Si vous avez des remarques n'hésitez pas
Merci encore
A+

10/07/2024, 13h33
umfred

le Now va donner l'heure (locale) de la machine sur laquelle est exécuté ton code
Si la machine est réglé sur le fuseau horaire de New York, ça te donnera l'heure de New York.
(après il y des méthodes de conversion)

Pour revenir au scraping (prise d'info sur une page web), tu peux aussi utiliser selenium par exemple et lui faire utiliser le moteur de navigation que tu veux (Edge,Chrome,Firefox) https://www.selenium.dev/documentation/

Mais à partir du moment où une API existe, c'est toujours mieux de l'utiliser, c'est plus rapide et sécurisé en général.

Citation:

Envoyé par xeron33

soit la solutions de popo en testant si l'ID est égal "Romance Standard Time"

Il s'agissait d'un code montrant un éventail de possibilités offertes par le Framework.
Si ton but est uniquement d'obtenir l'heure du fuseau horaire de Paris, il y a plus simple.
Encore faut-il prendre le temps de lire la doc :furieux:
Code:

1 2 3 4 Dim paris As TimeZoneInfo = TimeZoneInfo.FindSystemTimeZoneById("Romance Standard Time") Dim parisTime As DateTime = TimeZoneInfo.ConvertTimeFromUtc(DateTime.UtcNow, paris) Console.WriteLine($"Paris Time: {parisTime}")
Edit :

Citation:

Envoyé par xeron33

Comme je l'ai déjà dit, j'aurai voulu récupérer les infos directement sur le code source comme le permet l'Inspecteur de Firefox mais apparemment ce n'est pas possible.
Si vous avez des remarques n'hésitez pas.

J'ai effectivement une remarque :
Vouloir absolument passer par cette page web est à mon avis une énorme bêtise.
Déjà, tu ne peux pas être certain que le structure de cette page ne va pas changer avec le temps (je l'ai déjà mentionné).
Ensuite, cela nécessite des ressources, du temps de traitement et parfois certain protocoles de sécurité (TLS) de traverser la couche réseau pour appeler une page web (ou une API).
Si tu peux obtenir ce que tu veux avec le standard offert par VB.NET, c'est très présomptueux de penser que tu peux faire mieux que Microsoft.