[VB.NET] Requête POST

**Aspic** · 31/12/2008, 22h14

Bonsoir à tous,

Je me posais une question :

Peux t-on simuler une connexion via un formulaire html en vb.net ?

En fait, je veux m'authentifier sur ce site :
http://intranet.ece.fr/

Est ce qu'il faut envoyer une requête POST ? Si oui, comment ?

Merci à tous et bonne année !!!

**Danyel** · 01/01/2009, 13h47

Excellente nouvelle annee 2009 Aspic.

Pour ta question, oui c'est faisable et sans trop de difficultes.
J'arrive à envoyer de vb, les infos sur une de mes pages en perl (un formulaire de contacts par exemple)
Donc à premiere vue, c'est la meme procedure, mais il faut connaitre toutes les infos à envoyer à l'identification (je pense aux zones cachées mais indispensables)
Si c'est toi qui gere/cree la page d'authentification en question, ca doit le faire

Si tu le desires, je peux rechercher le code en question.

**tomlev** · 01/01/2009, 14h36

en regardant le code HTML du formulaire, tu verras qu'il est effectivement envoyé en POST
Tu peux faire une requête POST en mettant "POST" dans la propriété Method de HttpWebRequest. Il faut aussi définir le ContentLength et écrire le contenu (c'est à dire les valeurs des champs du formulaire) sur le flux obtenu avec GetRequestStream

**Aspic** · 03/01/2009, 22h06

Salut et bonnes année à tous !

Alors j'ai "sniffé" pour voir la requête POST avec un plugin de firefox.

Finalement c'est trop gros donc je mets un fichier sur mon ftp :
http://www.zonegeeks.com/temp/requete.txt

Mais je n'y comprends pas grand chose

Donc, vous dites qu'il faut reconstituer mot à mot la requête ?

Merci encore

**tomlev** · 03/01/2009, 22h52

Envoyé par Aspic

Donc, vous dites qu'il faut reconstituer mot à mot la requête ?

Peut-être pas mot à mot, mais à peu près...
Les blocs qui commencent par POST ou GET sont des requêtes, ceux qui commencent par HTTP sont des réponses. Pour les requêtes POST, le contenu est ce qui suit les en-têtes. Dans la première requête, c'est ça :

username=MONLOGIN&password=MONPASS&lt=555766F2-BFBF-6A07-6A2F-E3CCFD1A2A46&_currentStateId=viewLoginForm&_eventId=submit

C'est ça que tu dois écrire dans le flux de la requête.

**Aspic** · 03/01/2009, 23h07

Ok mais c'est impossible car cette variable :

555766F2-BFBF-6A07-6A2F-E3CCFD1A2A46

change tout le temps !

**tomlev** · 03/01/2009, 23h14

Envoyé par Aspic

Ok mais c'est impossible car cette variable :

555766F2-BFBF-6A07-6A2F-E3CCFD1A2A46

change tout le temps !

Il suffit de la récupérer dans la page d'accueil...

**Aspic** · 03/01/2009, 23h26

Merci

Sinon voici un code que j'ai trouvé :

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
24
25
26
27
28
29
30
31
32
33
34
    Private Function Post_request(ByVal url As String, ByVal data As String, Optional ByVal cookies As String = "", Optional ByVal proxy As String = Nothing, Optional ByVal proxyport As Integer = Nothing, Optional ByVal timeout As Integer = 30000, Optional ByVal login As String = "", Optional ByVal pass As String = "") As String
        Dim reader As IO.StreamReader
        Dim writer As IO.StreamWriter
        Dim res As String = ""
 
        Try
            Dim hwebrequest As System.Net.HttpWebRequest = CType(System.Net.HttpWebRequest.Create(url), HttpWebRequest) ' on crée la requete web à partir de l'url
            If proxy <> "" Then
                Dim hproxy As WebProxy
                hproxy = New WebProxy(proxy, proxyport)
                WebRequest.DefaultWebProxy = hproxy
            End If
            If login <> "" Then
                Dim hcredential As New System.Net.NetworkCredential(login, pass)
                hwebrequest.Credentials = hcredential
            End If
            If cookies <> "" Then
                hwebrequest.CookieContainer = New CookieContainer
                hwebrequest.CookieContainer.SetCookies(New Uri(url.Substring(0, url.IndexOf("/", 8))), cookies)
            End If
            hwebrequest.Method = "POST" 'on defini la methode à utiliser
            hwebrequest.ContentType = "application/x-www-form-urlencoded" 'on defini le type de contenu de la requete
            hwebrequest.ContentLength = data.Length 'on defini la taille des données à envoyé
            writer = New IO.StreamWriter(hwebrequest.GetRequestStream) 'on crée un objet streamwriter qui va nous permettre d'envoyer nos données# writer.Write(data) 'on ecrit les données
            writer.Close() 'on ferme l'objet streamwriter
            Dim hwebresponse As System.Net.HttpWebResponse = CType(hwebrequest.GetResponse, HttpWebResponse) 'on crée un objet de reponse a notre requete
            reader = New IO.StreamReader(hwebresponse.GetResponseStream) 'on redefini notre streamreader avec la reponse à la requete en argument
            res = reader.ReadToEnd() 'on renvoie l'ensemble du resultat
            reader.Close() 'on ferme l'objet
            Return res
        Catch ex As Exception
            Return ex.Message.ToString
        End Try
    End Function

J'obtient une erreur :

La demande a été abandonnée : La demande a été annulée.

Avec cet appel :

Code :

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

 Post_request("https://webauth.ece.fr/cas/login?service=http://intranet.ece.fr/promotion-ecole/student/consult.php", "username=MONLOGIN&password=MONPASS&lt=555766F2-BFBF-6A07-6A2F-E3CCFD1A2A46&_currentStateId=viewLoginForm&_eventId=submit")

Une idée ?

**Danyel** · 03/01/2009, 23h26

Je confirme ce qu'a dit tomlev, c'est bien cette ligne qui affecte le POST.
Alors en y regardant de plus pres, il pourra y avoir un probleme si tu ne connais pas la data : lt
(pas de probleme pour les 3 autres)
Je ne sais pas à quoi pourrait correspondre cette donnee lt, mais je pense que ca doit avoir un rapport avec le compte ou un cookie (encore pas sûr)
Si tu ne connais pas la donnee, il faut voir si c'est une donnee fixe ou non ... si c'est fixe, pas de probleme, sinon ca sera plus difficile pour la trouver/deviner.

Je te mets le code pour le POST

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
Dim AccesPage As New System.Net.WebClient
Try
            LeMessage = "username=" & lavaleurusername
            LeMessage &= "&password=" & lavaleurpassword
            LeMessage &= "&lt=" & lavaleurlt
            LeMessage &= "&_eventId=submit"
 
            Dim PostArray As Byte() = System.Text.Encoding.Default.GetBytes(LeMessage)
            Dim PostStream As System.IO.Stream = AccesPage.OpenWrite(leliendusitesanslesdonnees, "POST")
            PostStream.Write(PostArray, 0, PostArray.Length)
            PostStream.Close()
            AccesPage.Dispose()
 
Catch ex As Exception
            AccesPage.Dispose()
End Try

Ce code ne fait qu'envoyer les donnees au formulaire

**Aspic** · 03/01/2009, 23h34

J'ai trouvé comment récupéré la valeur de "lt" !

Avec ton code Danyel, j'ai pas d'erreur mais je n'ai pas de retour non plus, il faudrait pas créer une autre fonction pour récupérer la réponse du serveur ?

**tomlev** · 03/01/2009, 23h41

Envoyé par Aspic

Avec ton code Danyel, j'ai pas d'erreur mais je n'ai pas de retour non plus, il faudrait pas créer une autre fonction pour récupérer la réponse du serveur ?

GetResponseStream

**Danyel** · 03/01/2009, 23h46

Envoyé par tomlev

GetResponseStream

exact

**Aspic** · 03/01/2009, 23h49

Oui mais ca ne marche pas :

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
24
25
26
27
28
29
30
31
32
33
 Public Sub envoi_post(ByVal lavaleurusername As String, ByVal lavaleurpassword As String, ByVal lavaleurlt As String, ByVal leliendusitesanslesdonnees As String)
        Dim LeMessage As String = ""
        Dim AccesPage As New System.Net.WebClient
        Try
            LeMessage = "username=" & lavaleurusername
            LeMessage &= "&password=" & lavaleurpassword
            LeMessage &= "&lt=" & lavaleurlt
            LeMessage &= "&_eventId=submit"
 
            Dim PostArray As Byte() = System.Text.Encoding.Default.GetBytes(LeMessage)
            Dim PostStream As System.IO.Stream = AccesPage.OpenWrite(leliendusitesanslesdonnees, "POST")
            PostStream.Write(PostArray, 0, PostArray.Length)
            PostStream.Close()
            AccesPage.Dispose()
        Catch ex As Exception
            AccesPage.Dispose()
        End Try
    End Sub
Private Function Get_request(ByVal url As String) As String
        Dim reader As IO.StreamReader 'on crée un objet streamreader
        Try
            Dim hwebrequest As System.Net.HttpWebRequest = CType(System.Net.HttpWebRequest.Create(url), HttpWebRequest) 'on crée la requete web
            Dim hwebresponse As System.Net.HttpWebResponse = CType(hwebrequest.GetResponse, HttpWebResponse) 'on crée un objet de reponse a notre requete
            reader = New IO.StreamReader(hwebresponse.GetResponseStream) 'on redefini notre streamreader avec la reponse à la requete en argument#
            Dim res As String = ""
            res = reader.ReadToEnd() 'on renvoie l'ensemble du resultat
            reader.Close() 'on ferme l'objet
            hwebresponse.Close()
            Return res
        Catch ex As Exception
            Return ex.ToString
        End Try
    End Function

Et l'appel :

Code :

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

1
2
3
4
5
 
' fonction pour récupérer la valeur du champ lt (testé et fonctionne)
Dim t As String = Rec_data(Get_request(URL), "<input type=""hidden"" name=""lt"" value=""", """ />")
        envoi_post("MONLOGIN", "MONPASS", t, URL)
        Dim reponse As String = Get_request(URL)

Et j'obtiens comme réponse le code source de la page d'accueil...

**Danyel** · 03/01/2009, 23h53

Envoyé par Aspic

Et j'obtiens comme réponse le code source de la page d'accueil...

tu parles de la page du formulaire ou de la page suite au post ?

**Aspic** · 03/01/2009, 23h56

Je parle du code source de la page du formulaire :
http://intranet.ece.fr/

**Danyel** · 04/01/2009, 00h06

Essaye d'utiliser System.IO.StreamReader à la place de System.IO.Stream

**Aspic** · 04/01/2009, 00h09

A ce niveau la ?

Code :

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

1
2
3
4
 Dim PostStream As System.IO.Stream = AccesPage.OpenWrite(leliendusitesanslesdonnees, "POST")
            PostStream.Write(PostArray, 0, PostArray.Length)
            PostStream.Close()
            AccesPage.Dispose()

Ce n'est pas possible car OpenWrite() renvoi un stream

Sinon ailleurs, ce sont déjà des streamReaders

C'est pas une histoire de cookie, car il y'a forcément un cookie lors de l'authentification (si je désactive les cookies, l'authentification ne marche plus) ?

**Danyel** · 05/01/2009, 16h46

Effectivement c'est peut etre le cookie (surement de session) qui pose probleme.
Malheureusement je ne connais pas la procedure ni le moyen de contourner cela, desole aspic.

**Aspic** · 05/01/2009, 20h44

C'est pas grave

Par contre tu peux peut être m'aider sur la manière de s'y prendre avec le cookie que j'ai réussi à récupérer dans la réponse :

Code :

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

msgbox(hwebresponse.Cookies.Item(0).ToString)

JSESSIONID=C009074325595ECAAF6C36F17C12882A

Mais je dois en faire quoi ? lol

**tomlev** · 05/01/2009, 22h35

Envoyé par Aspic

Mais je dois en faire quoi ? lol

Le renvoyer au serveur avec tes prochaines requêtes... comme un cookie quoi

[VB.NET] Requête POST

VB.NET

Discussions similaires

Partager

Partager