Discussion :

[xeron33]

Bonjour,
Je souhaiterais lancer depuis un formulaire une page internet, j'ai écris ceci qui fonctionne :

Code :

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

1
2
3
4
5
 
 Dim client As HttpClient = New HttpClient()
 Dim valTimeOut As TimeSpan = TimeSpan.FromSeconds(10)
 client.Timeout = valTimeOut
 client.GetAsync("https://www.****.fr/")

Maintenant je veux une réponse à ma requête,malgré des visites sur la doc qui me parle de classe HttpWebResponse ou autres...mais je n'y arrive pas quand même...si quelqu'un a une idée MERCI

[Pol63]

Code :

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

var response = await client.GetAsync("https://www.****.fr/")

il faut apprendre à lire la doc et l'intellisense, on voit clairement que ce n'est pas un void et que donc ca retourne quelque chose

[xeron33]

Code :

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

var response = await client.GetAsync("https://www.****.fr/")

il faut apprendre à lire la doc et l'intellisense, on voit clairement que ce n'est pas un void et que donc ca retourne quelque chose

********************************
Bonjour merci pour ta réponse, j'ai un peu avancé :

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
 
 Dim client As HttpClient = New HttpClient()
 Dim valTimeOut As TimeSpan = TimeSpan.FromSeconds(10)
 client.Timeout = valTimeOut
 Dim rep As HttpResponseMessage = New HttpResponseMessage
 rep = Await client.GetAsync("https://**********/")
 If Not ((rep.StatusCode = HttpStatusCode.Accepted) Or (rep.StatusCode = HttpStatusCode.OK)) Then
     MessageBox.Show("erreur internet")
     MessageBox.Show(rep.StatusCode)
 End If
 If rep.IsSuccessStatusCode Then
     MessageBox.Show("success internet")
 Else
     MessageBox.Show("pas success internet")
 End If
 Dim read As String = rep.ToString
 TextBox8.Text = read

Le problèmes est que dans le textBox j'ai que des informations sur la page web alors que je voudrais afficher le code source.
Si tu as une idée MERCI

[Pol63]

on improvise pas du code
il y a une aide (F1 quand ton curseur est le mot GetAsync)
tu vas tomber sur l'aide de la méthode, il est indiqué que cette méthode retourne un Task de HttpResponseMessage
tu clic sur HttpResponseMessage, toutes les propriétés (et autres) sont indiquées avec ce que ca contient
et là normalement au lieu d'écrire des mots à hasard pendant des jours tu vas écrire ce qu'il faut directement

[umfred]

allez je donne le lien de la doc
https://learn.microsoft.com/en-us/do...e?view=net-8.0

[xeron33]

Merci à vous deux ça y est ça marche.

Code :

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

1
2
 
 Dim read As String = Await rep.Content.ReadAsStringAsync()

Pour Pol63

j'ai essayé de lire la doc mais j'ai pas trouvé la façon de faire...
Merci en tout cas
A+